1、新建表单form1，并将其Caption属性值设为“向数据表中添加记录时自动生成编号”，widht属性值设为290，height属性值设为210，AutoCenter属性值设置为.t.，将其保存为“向数据表中添加记录时自动生成编号.scx
2、向表单添加一个grid控件，将其readonly属性设置为.t.，其RecordSourceType值采用默认的“1-别名”，在表单设计器中将其宽和高粗略调小一些即可，具体属性值我们将在表单的init事件代码中对其进行设置。
3、向表单添加三个Label控件，其属性撕良滤儆值依次设置为“编号”、“网站名称”和“网站网址”，将这三个控件排成一列；在这一列Label控件右侧添加三个文本框控件，属性值不用设置采用默认即可,也把攉淠艇髋它们排成一行；在第一个文本框的右侧添加两个命令按钮command1和command2，其Caption属性值依次设置为“添加”和“退出”。适当调整一下各控件的大小和位置
4、添加事件代码：（一）表单的unload事件：set exact offclose data
5、set exact on set talk off use 网站信息表 this.Text1.value="" this.Text2.value="" this.Text3.value="" with this.grid1 .width=290 .height=110 .left=0
6、ndwith this.gri蟠校盯昂d1.Setall("DynamicBackColor"荑樊综鲶,"RGB(224,225,255)","Column") calculate max(编号) to maxbh &&在数据表中查找出序号最大的记录 szbh=val(right(maxbh,3)) &&取出数字部分 if szbh=0 then &&判断数字部分是否为0 zdbh='wz001' else zdbh='wz'+padl(alltrim(str(szbh+1)),3,'0') &&生成自动编号
7、b=alltrim(thisform.Text2.value) c=alltrim(thisform.Text3.value) if empty(b) &&此条件成立则说明该文本框是空的 messagebox("请输入网站名称",16,"系统提示") return else
