新建表单form1，并将其Caption属性值设为“向数据表中添加记录时自动生成编号”，widht属性值设为290，height属性值设为210，AutoCenter属性值设置为.t.，将其保存为“向数据表中添加记录时自动生成编号.scx

向表单添加一个grid控件，将其readonly属性设置为.t.，其RecordSourceType值采用默认的“1-别名”，在表单设计器中将其宽和高粗略调小一些即可，具体属性值我们将在表单的init事件代码中对其进行设置。

向表单添加三个Label控件，其属性值依次设置为“编号”、“网站名称”和“网站网址”，将这三个控件排成一列；在这一列Label控件右侧添加三个文本框控件，属性值不用设置采用默认即可,也把它们排成一行；在第一个文本框的右侧添加两个命令按钮command1和command2，其Caption属性值依次设置为“添加”和“退出”。适当调整一下各控件的大小和位置

添加事件代码：

（一）表单的unload事件：

set exact offclose data

set exact onset talk offuse 网站信息表this.Text1.value=this.Text2.value=this.Text3.value=with this.grid1 .width=290 .height=110 .left=0

ndwiththis.grid1.Setall(DynamicBackColor,RGB(224,225,255),Column)calculate max(编号) to maxbh 在数据表中查找出序号最大的记录szbh=val(right(maxbh,3)) 取出数字部分if szbh=0 then 判断数字部分是否为0 zdbh=wz001else zdbh=wz+padl(alltrim(str(szbh+1)),3,0) 生成自动编号

b=alltrim(thisform.Text2.value)c=alltrim(thisform.Text3.value)if empty(b) 此条件成立则说明该文本框是空的 messagebox(请输入网站名称,16,系统提示) returnelse