看实例学VFP：对表中记录进行定位与查找操作

看实例学VFP：对表中记录进行定位与查找操作2009-02-02 本站老马在VFP中操作表记录时，既可以使用sql语句，也可以使用内置的append、replace、delete/pack/zap等命令并配合一些记录指针定位和数据排序方面的命令及函数来使用，而在vb/vb.net中，使用ADO/ADO.NET的属性和方法就可以了。VFP象C语言一样灵活，但或许正是由于这一点，让许多刚接触她的人感觉无处下手并进而不喜欢她。VFP象是一位其貌不扬、性格内向的淑女，不是每个人都会喜欢她，只有了解她的优点的人才会爱上她。

话说得有点跑题了，现在言归正传。从本文开始会给出一些使用VFP内置语句操作表的例子，以后会再给出一些使用sql语句做相同操作的例子。本文是关于查询表记录的一个例子，运行时可以在组合框中自由选择查询所依据的字段，这是通过设置组合框控件的属性并在命令按钮的click事件代码中对用户选择的值进行判断来实现的；本例具有对文本框输入数据的校验功能，并且如果数据库存在所查询的记录会返回查询结果，反之会给出提示信息。

本例启动时grid中会显示“网站信息表”中的所有记录，运行时可以在组合框中选择要查找的字段，在文本框中输入查找内容后单击右侧的“查找”按钮即可实现在表中定位查找，并将查找结果显示在上方的表格中；单击“恢复”按钮表格控件会恢复显示“网站信息表”中的所有记录。关于vfp表记录指针定位和数据排序请参考：，本例用到了“数据1”数据库中的“网站信息表”，关于该数据库的情况已经在一文中给出，这里均不再详述，只简要介绍一下制作过程。

本例运行时如下图：

制作步骤如下：

一、新建表单form1，并将其caption属性设置为“对表中记录进行定位与查找操作”，width属性值设为290，height属性值设为165，AutoCenter属性值设为.t.，并将其保存为“对表中记录进行定位与查找操作.scx”。

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

三、在grid控件下方添加两个Label控件，使其排成一行，并将其caption属性依次设为“请选择查找方式”和“请输入要查找的内容”。

四、在label控件下方添加一个组合框控件Combo1及一个文本框控件Text1，文本框控件的属性值采用默认即可，组合框控件Combo1的RowSourceType属性值设置为“1-值”，RowSource属性值设置为“编号,网站名称,网站网址”，这样在运行时我们可以在该组合框中选择要查询的字段。

五、在表单上添加两个命令按钮command1和command2，将其caption属性依次设为“查找”和“恢复”。适当调整表单上各控件的位置，调整后如下图所示：

六、添加事件代码：

（一）表单form1的unload事件代码：

set exact off
close data

（二）表单form1的init事件代码：

set exact onuse 网站信息表this.Combo1.value="编号"with thisform.grid1.width=290.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=150endwiththisform.grid1.Setall（"DynamicBackColor","RGB（224,225,255）","Column"）

（三）“查找”按钮（command1）的click事件代码：

if empty（thisform.Text1.value）=.f.go topa=thisform.Combo1.valueb=alltrim（thisform.Text1.value）if a="编号" locate for 编号=b if eof（）messagebox（"数据库中不存在您所要查询的记录",16,"系统提示"） elsego recno（） endifendifif a="网站名称" locate for 网站名称=b if eof（）messagebox（"数据库中不存在您所要查询的记录",16,"系统提示"） elsego recno（） endifendifif a="网站网址" locate for 网站网址=b if eof（）messagebox（"数据库中不存在您所要查询的记录",16,"系统提示"） elsego recno（） endifendifthisform.grid1.setfocuselse messagebox（"请输入要查找的内容！",16,"系统提示"） thisform.Text1.value="" thisform.Text1.Setfocusendifreturn

（四）“恢复”按钮（command2）的click事件代码：

go topthisform.Text1.value=""thisform.Text1.Setfocuswith thisform.grid1.width=290.height=100.left=0.top=0.recordsource="网站信息表".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=150endwiththisform.grid1.Setall（"DynamicBackColor","RGB（224,225,255）","Column"）thisform.refresh

七、运行“对表中记录进行定位与查找操作.scx”，即可实现本实例的效果。

参考资料:

本例代码在Win2003+VFP6.0环境下调试通过。