看实例学VFP：对查询结果进行统计计算

看实例学VFP：对查询结果进行统计计算2009-02-13 www.bianceng.cn 老马本例对一文做了进一步的改进，在满足查询功能的同时，还可以对查询结果进行统计计算。本例也应用到了数据环境，并使用“数据1”数据库中的“人员信息表”作为数据环境的数据源，关于该数据库的情况已经在一文中给出，运行界面见本文末尾。

制作步骤如下：

一、新建表单，将其caption属性值设置为“对查询结果进行统计计算”，AutoCenter属性值设置为.T.，width属性值设置为520，height属性值设置为295，并保存为“对查询结果进行统计计算.scx”。

二、右击表单空白处，选“数据环境”命令，将“人员信息表”添加到数据环境中。在“数据环境设计器”中拖动“人员信息表”的标题栏到表单上，自动生成一个表格控件。由于是从数据环境中把“人员信息表”拖动过来由系统自动生成的，该表格控件的RecordSource属性及RecordSourceType属性已经由系统设置好了，为了书写代码的方便，我们把这个表格控件的name属性值修改为“grid1”。

三、在表格控件的下方添加一个Label控件，并把它的caption属性值设置为“查询条件”。

四、在label控件的右侧依次添加两个组合框控件、一个文本框控件及两个命令按钮command1和command2，把这两个命令按钮的caption属性值依次设置为“统计”和“退出”，并把这些控件排成一行。

五、在命令按钮控件这一行的下方添加三个label控件和三个文本框控件，并把三个label控件的caption属性值依次设置为“符合条件的人数”、“总工资”和“平均工资”，把这些控件排成一行并把label控件和文本框控件依次交叉开。

七、适当调整各控件在表单上的位置，调整后的表单设计器如下图所示：

八、设置组合框控件的属性：

（一）组合框Combo1：RecordSourceType属性值设置为“8-结构”，RecordSource属性值设置为“人员信息表”。

（二）组合框Combo2：RecordSourceType属性值设置为“1-值”，RecordSource属性值设置为“,>,<,=,>=,<=,<>”。

九、添加事件代码：

（一）表单的init事件代码：

set talk off
thisform.text2.value=reccount（）
sum（基本工资） to thisform.text3.value
aver（基本工资） to thisform.text4.value

（二）表单的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="人员信息表"endifprivate CXTJif empty（thisform.combo1.displayvalue） or empty（thisform.combo2.displayvalue） ; or empty（thisform.text1.value） && 判断列表框和文本框是否为空 messagebox（"请输入完整条件！",16,"系统提示"） thisform.combo1.setfocuselsedo 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）+""）" otherwiseCXTJ=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） sele 临时人员信息表thisform.text2.value=reccount（） sum（基本工资） to thisform.text3.value aver（基本工资） to thisform.text4.valueendif

（五）“退出”按钮command2的click事件代码：thisform.release

十、运行“对查询结果进行统计计算.scx”，界面见下图：

参考资料:

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