向数据表中添加记录时自动生成编号

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 onset talk offuse 网站信息表this.Text1.value=""this.Text2.value=""this.Text3.value=""with this.grid1  .width=290  .height=110  .left=0

6、ndwiththis.grid1.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,"系统提示")   returnelse