在看实例学VFP:对表中记录进行定位与查找操作及看实例学VFP:用SELECT语句创建查询这两个例子中,我们可以在查询时可以从组合框中选定一个要查询的字段。本例对这种查询方式再做进一步改进,使之在查询时不仅可以从一个组合框中选取要查询的字段,还可以从另一个组合框中选定操作符(如<、=、>等),从而实现更复杂的查询。本例应用到了数据环境,并使用“数据1”数据库中的“人员信息表”作为数据环境的数据源,关于该数据库的情况已经在看实例学VFP:示例数据库一文中给出,这里不再详述。运行界面见本文末尾。
制作步骤如下:
一、新建表单,将其caption属性值设置为“更复杂的查询例子”,AutoCenter属性值设置为.T.,width属性值设置为520,height属性值设置为245,并保存为“更复杂的查询例子.scx”。
二、右击表单空白处,选“数据环境”命令,将“人员信息表”添加到数据环境中。在“数据环境设计器”中拖动“人员信息表”的标题栏到表单上,自动生成一个表格控件。由于是从数据环境中把“人员信息表”拖动过来由系统自动生成的,该表格控件的RecordSource属性及RecordSourceType属性已经由系统设置好了,不用管它,但name属性值系统给出的好长,为了书写代码的方便,我们把这个表格控件的name属性值修改为“grid1”。
三、在表格控件的下方添加一个Label控件,并把它的caption属性值设置为“查询条件”。
四、在label控件的右侧依次添加两个组合框控件、一个文本框控件及两个命令按钮command1和command2,并把这两个命令按钮的caption属性值依次设置为“查找”和“退出”。
五、适当调整各控件在表单上的位置,调整后的表单设计器如下图所示:
六、设置组合框控件的属性:
(一)组合框Combo1:RecordSourceType属性值设置为“8-结构”,RecordSource属性值设置为“人员信息表”。
(二)组合框Combo2:RecordSourceType属性值设置为“1-值”,RecordSource属性值设置为“,>,<,=,>=,<=,<>”。
七、添加事件代码:
(一)表单的unload事件代码:close data
(二)组合框Combo1的InteractiveChange事件代码:
if alltrim(this.displayvalue)="出生日期" thisform.text1.value={} else thisform.text1.value='' endif
(三)“查找”按钮command1的click事件代码:
if thisform.grid1.recordsource='临时人员信息表' thisform.grid1.recordsource='人员信息表' endif' private CXTJ if empty(thisform.combo1.displayvalue) or empty(thisform.combo2.displayvalue) ; or empty(thisform.text1.value) && 判断列表框和文本框是否为空 messagebox('请输入完整条件!',16,'系统提示') thisform.combo1.setfocus else do case case alltrim(thisform.Combo1.Displayvalue)='基本工资' CXTJ=alltrim(thisform.combo1.displayvalue); +' '+alltrim(thisform.combo2.displayvalue); +' '+alltrim(thisform.text1.value) case alltrim(thisform.Combo1.Displayvalue)='出生日期' CXTJ=alltrim(thisform.combo1.displayvalue); +' '+alltrim(thisform.combo2.displayvalue); +' ctod("'+dtoc(thisform.text1.value)+'")' otherwise CXTJ=alltrim(thisform.combo1.displayvalue); +' '+alltrim(thisform.combo2.displayvalue); +' "'+alltrim(thisform.text1.value)+'"' endcase Select * from 人员信息表 where &CXTJ. into cursor 临时人员信息表 thisform.grid1.recordsource='临时人员信息表' thisform.grid1.backcolor=rgb(200,224,248) endif
(四)“退出”按钮command2的click事件代码:thisform.release
八、运行“更复杂的查询例子.scx”,界面见下图:
参考资料:
vfp基础教程:http://bianceng.cnhttp://www.bianceng.cn/vfpjc/index0.htm
vfp初级教程:http://bianceng.cnhttp://www.bianceng.cn/cc/index.htm
vfp中级教程:http://bianceng.cnhttp://www.bianceng.cn/mcc/mcc.htm
vfp高级教程:http://bianceng.cnhttp://www.bianceng.cn/hcc/hcc.htm
VFP网络开发:http://bianceng.cnhttp://www.bianceng.cn/VFPwz/vfpwlkf.htm
vfp调用api函数:http://bianceng.cnhttp://www.bianceng.cn/VFPwz/vfpapi.htm
VFP报表打印:http://bianceng.cnhttp://www.bianceng.cn/VFPwz/vfpreport.htm
VFP常用技术:http://bianceng.cnhttp://www.bianceng.cn/VFPwz/vfpcyjs.htm
VFP经验汇总:http://bianceng.cnhttp://www.bianceng.cn/VFPwz/vfpjyhz.htm
VFP控件使用:http://bianceng.cnhttp://www.bianceng.cn/VFPwz/vfpkjsy.htm
VFP数据处理:http://bianceng.cnhttp://www.bianceng.cn/VFPwz/vfpsjcl.htm
本例代码在Win2003+VFP6.0环境下调试通过。
查看全套“菜鸟也学VFP”教程
以上是小编为您精心准备的的内容,在的博客、问答、公众号、人物、课程等栏目也有的相关内容,欢迎继续使用右上角搜索按钮进行搜索数据
, 控件
, 表单
, 查询
, 属性
, 复杂查询
, 组合
, 属性查询
#属性查询
,以便于您获取更多的相关知识。