本例对看实例学VFP:对数据表中记录进行修改一文的实例进行了一点改进,增加了“撤消”功能。程序运行时如下图:
在组合框中选择要查找的字段,在文本框中输入查找内容后单击右侧的“查找”按钮后将查找结果显示在上方的表格中,“查找”按钮变成“撤消”按钮,同时激活“删除”按钮及用于显示数据的文本框,并将当前记录(满足查询条件的记录)的值同时显示在文本框中,;单击“删除”按钮后会删除查找出来的记录刷新显示并grid1,“删除”按钮的再次被禁用,“撤消”按钮的caption值再次变成“查找”并隐藏显示数据的文本框;单击“撤消”按钮则撤消删除操作并刷新表单。如下图:
关于vfp表记录指针定位和数据排序请参考:记录指针定位和数据排序,关于记录的删除请参考表的操作 (二),本例用到了“数据1”数据库中的“网站信息表”,关于该数据库的情况已经在看实例学VFP:示例数据库一文中给出,这里均不再详述,只简要介绍一下制作过程。
制作步骤如下:
一、新建表单form1,并将其caption属性设置为“删除数据表中的记录”,width属性值设为290,height属性值设为220,AutoCenter属性值设为.t.,并将其保存为“删除数据表中的记录.scx”。
二、向表单添加一个grid控件,将其readonly属性设置为.t.,其RecordSourceType值采用默认的“1-别名”,在表单设计器中将其宽和高粗略调小一些即可,具体属性值我们将在表单的init事件代码中对其进行设置。
三、在grid控件下方添加两个Label控件,使其排成一行,并将其caption属性依次设为“请选择查找方式”和“请输入要查找的内容”。
四、在label控件下方添加一个组合框控件Combo1及一个文本框控件Text1,文本框控件的属性值采用默认即可,组合框控件Combo1的RowSourceType属性值设置为“1-值”,RowSource属性值设置为“编号,网站名称,网站网址”,这样在运行时我们可以在该组合框中选择要查询的字段。
五、在表单上添加两个命令按钮command1和command2,将其caption属性依次设为“查找”和“删除”。
六、在命令按钮下方添加三个label控件,将这三个label控件排成一行,并将其caption属性依次设置为“编号”、“网站名称”和“网站网址”。
七、在这一行label控件下方添加三个文本框控件,属性值采用默认,并把这三个文本框排成一行。
八、调整表单上各个控件的位置,调整后的表单设计器如下图:
九、添加事件代码:
(一)表单的unload事件代码:
set exact off
close data
(二)表单的init事件代码:
set exact on set delete off set safe off this.command2.enabled=.f. this.Text2.visible=.f. this.Text3.visible=.f. this.Text4.visible=.f. this.Label3.visible=.f. this.label4.visible=.f. this.Label5.visible=.f. use 网站信息表 this.Combo1.value="编号" with thisform.grid1 .width=350 .height=100 .left=0 .top=0 .recordsource="网站信息表" .deletemark=.f. .visible=.t. .readonly=.t. .ColumnCount=3 .Column1.Header1.Caption="编号" .Column1.Header1.BackColor=RGB(255,255,190) .Column2.Header1.BackColor=RGB(255,255,190) .Column2.Header1.Caption="网站名称" .Column3.Header1.BackColor=RGB(255,255,190) .Column3.Header1.Caption="网站网址" .Column1.width=75 .Column2.width=80 .Column3.width=150 endwith this.grid1.Setall("DynamicBackColor","RGB(224,225,255)","Column")
(三)“查找”按钮(command1)的click事件代码:
if this.caption="查找" if empty(thisform.Text1.value)=.f. go top a=thisform.Combo1.value b=alltrim(thisform.Text1.value) c=.f. if a="编号" locate for 编号=b if eof() messagebox("数据库中不存在您所要查询的记录",16,"系统提示") go top return else c=.t. endif endif if a="网站名称" locate for 网站名称=b if eof() messagebox("数据库中不存在您所要查询的记录",16,"系统提示") go top return else c=.t. endif endif if a="网站网址" locate for 网站网址=b if eof() messagebox("数据库中不存在您所要查询的记录",16,"系统提示") go top return else c=.t. endif endif if c go recno() thisform.Text1.enabled=.f. thisform.Text2.visible=.t. thisform.Text3.visible=.t. thisform.Text4.visible=.t. thisform.Text2.enabled=.f. thisform.Text3.enabled=.f. thisform.Text4.enabled=.f. thisform.Label3.visible=.t. thisform.label4.visible=.t. thisform.Label5.visible=.t. thisform.Text2.value=网站信息表.编号 thisform.Text3.value=网站信息表.网站名称 thisform.Text4.value=网站信息表.网站网址 thisform.grid1.setfocus this.caption="撤消" thisform.command2.enabled=.t. endif else messagebox("请输入要查找的内容!",16,"系统提示") thisform.Text1.value="" thisform.Text1.Setfocus endif else thisform.Text1.enabled=.t. thisform.Text2.visible=.f. thisform.Text3.visible=.f. thisform.Text4.visible=.f. thisform.Text2.enabled=.f. thisform.Text3.enabled=.f. thisform.Text4.enabled=.f. thisform.Label3.visible=.f. thisform.label4.visible=.f. thisform.Label5.visible=.f. thisform.Text2.value="" thisform.Text3.value="" thisform.Text4.value="" thisform.grid1.setfocus this.caption="查找" thisform.command2.enabled=.f. go top thisform.grid1.setfocus thisform.Text1.value="" thisform.Text1.Setfocus endif thisform.refresh
(四)“删除”按钮(command2)的click事件代码:
msg=messagebox('您确定要删除这条记录吗?',32+4,'系统提示') if msg=6 delete copy to temp.dbf for not deleted() zap Append from temp.dbf delete file temp.dbf messagebox("删除记录成功",16,"系统提示") go top thisform.grid1.refresh thisform.command1.caption="查找" this.enabled=.f. thisform.Text2.visible=.f. thisform.Text3.visible=.f. thisform.Text4.visible=.f. thisform.Label3.visible=.f. thisform.label4.visible=.f. thisform.Label5.visible=.f. thisform.Text1.enabled=.t. thisform.Text1.value="" thisform.Text1.setfocus thisform.refresh endif
十、运行“删除数据表中的记录.scx”。
参考资料:
vfp基础教程:http://bianceng.cn/vfpjc/index0.htm
vfp初级教程:http://bianceng.cn/cc/index.htm
vfp中级教程:http://bianceng.cn/mcc/mcc.htm
vfp高级教程:http://bianceng.cn/hcc/hcc.htm
VFP网络开发:http://bianceng.cn/VFPwz/vfpwlkf.htm
vfp调用api函数:http://bianceng.cn/VFPwz/vfpapi.htm
VFP报表打印:http://bianceng.cn/VFPwz/vfpreport.htm
VFP常用技术:http://bianceng.cn/VFPwz/vfpcyjs.htm
VFP经验汇总:http://bianceng.cn/VFPwz/vfpjyhz.htm
VFP控件使用:http://bianceng.cn/VFPwz/vfpkjsy.htm
VFP数据处理:http://bianceng.cn/VFPwz/vfpsjcl.htm
本例代码在Win2003+VFP6.0环境下调试通过。
查看全套“菜鸟也学VFP”教程
版权与免责声明
1、本站所发布的文章仅供技术交流参考,本站不主张将其做为决策的依据,浏览者可自愿选择采信与否,本站不对因采信这些信息所产生的任何问题负责。
2、本站部分文章来源于网络,其版权为原权利人所有。由于来源之故,有的文章未能获得作者姓名,署“未知”或“佚名”。对于这些文章,有知悉作者姓名的请告知本站,以便及时署名。如果作者要求删除,我们将予以删除。除此之外本站不再承担其它责任。
3、本站部分文章来源于本站原创,本站拥有所有权利。
4、如对本站发布的信息有异议,请联系我们,经本站确认后,将在三个工作日内做出修改或删除处理。
请参阅权责声明!