开发工具:
文件大小: 47kb
下载次数: 0
上传时间: 2009-08-08
详细说明： 看实例学VFP：更复杂的查询 时间:2009-02-12来源:编程入门网 作者:老马 在看实例学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”，界面见下图： ...展开收缩
(系统自动生成,下载前可以参看下载内容)
下载文件列表
相关说明
- 本站资源为会员上传分享交流与学习,如有侵犯您的权益,请联系我们删除.
- 本站是交换下载平台，提供交流渠道，下载内容来自于网络，除下载问题外，其它问题请自行百度。
- 本站已设置防盗链，请勿用迅雷、QQ旋风等多线程下载软件下载资源，下载后用WinRAR最新版进行解压.
- 如果您发现内容无法下载，请稍后再次尝试；或者到消费记录里找到下载记录反馈给我们.
- 下载后发现下载的内容跟说明不相乎，请到消费记录里找到下载记录反馈给我们，经确认后退回积分.
- 如下载前有疑问，可以通过点击"提供者"的名字，查看对方的联系方式，联系对方咨询.
