vfp中可以使用sql语句操作表，并且在使用sql语句操作表时不需要打开数据库。本例介绍的是select查询语句（数据检索），关于select语句的格式请参考：select SQL 命令 或sql语言教程。

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

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

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

本例运行界面如下图：

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

一、新建表单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=150
endwith
thisform.grid1.Setall("DynamicBackColor","RGB(224,225,255)","Column")

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

if empty(thisform.Text1.value)=.f.
go top
a=thisform.Combo1.value
b=alltrim(thisform.Text1.value)
local c as integer
  if a="编号"
     Select * from 网站信息表 where 编号==b into cursor 临时网站信息表
     sele 临时网站信息表
     c=reccount()
     if c<1
       use
       messagebox("数据库中不存在您所要查询的记录",16,"系统提示")
       thisform.command2.click()
       return
     endif
  endif
  if a="网站名称"
     Select * from 网站信息表 where 网站名称==b into cursor 临时网站信息表
     sele 临时网站信息表
     c=reccount()
     if c<1
       use
       messagebox("数据库中不存在您所要查询的记录",16,"系统提示")
       thisform.command2.click()
       return
     endif
  endif
  if a="网站网址"
     Select * from 网站信息表 where 网站网址==b into cursor 临时网站信息表
     sele 临时网站信息表
     c=reccount()
     if c<1
       use
       messagebox("数据库中不存在您所要查询的记录",16,"系统提示")
       thisform.command2.click()
       return
     endif
  endif
  with 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=150
  endwith
  thisform.grid1.Setall("DynamicBackColor","RGB(224,225,255)","Column")
  thisform.grid1.setfocus
else
  messagebox("请输入要查找的内容！",16,"系统提示")
  thisform.Text1.value=""
  thisform.Text1.Setfocus
endif
return

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

sele 网站信息表
go top
thisform.Text1.value=""
thisform.Text1.Setfocus
with 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=150
endwith
thisform.grid1.Setall("DynamicBackColor","RGB(224,225,255)","Column")
thisform.refresh

七、运行“用SELECT语句创建查询.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”教程