看实例学VFP：用SELECT语句创建查询

看实例学VFP：用SELECT语句创建查询2009-02-07 本站老马vfp中可以使用sql语句操作表，并且在使用sql语句操作表时不需要打开数据库。本例介绍的是select查询语句（数据检索），关于select语句的格式请参考：或。

在一文中，我们是使用locate语句作记录定位并同时使用了eof（）函数，如果该函数返回真值，说明数据表中不存在所查询的记录并给出提示信息。本例用sql语句对这一部分进行了改写。与上例的区别大致的如下：

1.本例依然使用表格控件作为数据显示控件，表单init时把“网站信息表”设为表格控件的数据源。单击“查找”按钮后，将查询结果输出为一个临时表（Cursor）（当然也可以把查询结果输出为table，请读者自行尝试）。

2.本例没有使用locate定位，而是在命令按钮的click事件代码中对查询输出的临时表的记录数进行判断，如果该表的记录数>0，说明数据库中存在所查询的记录，则将该临时表设为表格控件的数据源并刷新表格；反之，则说明数据库中不存在所查询的记录，则首先给出提示信息，然后使用thisform.command2.click（）调用“恢复”按钮的click事件代码（即在vfp中也可以在一个对象的方法程序中调用另一个对象的方法程序，能够达到简化代码的目的）重置表格控件的数据源并刷新显示。

本例运行界面如下图：

本例用到了“数据1”数据库中的“网站信息表”，关于该数据库的情况已经在一文中给出，下面是制作步骤：

一、新建表单form1，并将其caption属性设置为“用SELECT语句创建查询”，width属性值设为290，height属性值设为165，AutoCenter属性值设为.t.，并将其保存为“用SELECT语句创建查询.scx”。

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

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

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

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

六、添加事件代码：

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

close data

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

use 网站信息表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）local c as integerif a="编号" Select * from 网站信息表 where 编号==b into cursor 临时网站信息表 sele 临时网站信息表 c=reccount（） if c<1 use messagebox（"数据库中不存在您所要查询的记录",16,"系统提示"） thisform.command2.click（） return endifendifif a="网站名称" Select * from 网站信息表 where 网站名称==b into cursor 临时网站信息表 sele 临时网站信息表 c=reccount（） if c<1 use messagebox（"数据库中不存在您所要查询的记录",16,"系统提示"） thisform.command2.click（） return endifendifif a="网站网址" Select * from 网站信息表 where 网站网址==b into cursor 临时网站信息表 sele 临时网站信息表 c=reccount（） if c<1 use messagebox（"数据库中不存在您所要查询的记录",16,"系统提示"） thisform.command2.click（） return endifendifwith thisform.grid1.width=350.height=100.left=10.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"）thisform.grid1.setfocuselsemessagebox（"请输入要查找的内容！",16,"系统提示"）thisform.Text1.value=""thisform.Text1.Setfocusendifreturn

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

sele 网站信息表go topthisform.Text1.value=""thisform.Text1.Setfocuswith thisform.grid1.width=290.height=100.top=0.left=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

七、运行“用SELECT语句创建查询.scx”，即可实现本实例的效果。

参考资料:

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