1、、新建表单form1,并将其Caption属性值设为“向数据表中添加记录并验证输入数据是否合法”,AutoCenter属性值设为.t.,widht属性值设为290,height属性值设为225,将其保存为“向数据表中添加记录并验证输入数据是否合法.scx”。
2、向表单添加一个grid控件,将其readonly属性设置为.t.,其RecordSourceType值采用默认的“1-别名”,在表单设计器中将其宽和高粗略调小一些即可,具体属性值我们将在表单的init事件代码中对其进行设置。
3、向表单添加三个Label控件,其属性值依次设置为“编号”、“网站名称”和“网站网址”,将这三个控件排成一行
4、添加事件代码:(一)表单form1的unload事件:set exact offclose data
5、单form1的init事件:set exact on use 网站信息表 this.Text1.value="" this.Text2.value="" this.Text3.value="" with this.grid1 .width=290 .height=110 .left=0 .top=0 .recordsource="网站信息表"
6、命令按钮command1(“添加”按钮)的click事件代码:a=alltrim(thisform.Text1.value) b=alltrim(thisform.Text2.value) c=alltrim(thisform.Text3.value) if empty(b) &&此条件成立则说明该文本框是空的 messagebox("请输入网站名称",16,"系统提示") return
7、命令按钮command2(“退出”按钮)的click事件代码:msg=messagebox('确定要退出系统吗?',32+4,'系统提示') if msg=6 thisform.release endif