当前位置: 首页 > 编程语言 > vfp > 正文

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

时间:2009-02-13 www.bianceng.cn 老马

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

制作步骤如下:

一、新建表单,将其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='人员信息表'
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)
     sele 临时人员信息表
      thisform.text2.value=reccount()
     sum(基本工资) to thisform.text3.value
     aver(基本工资) to thisform.text4.value
endif

(五)“退出”按钮command2的click事件代码:thisform.release

十、运行“对查询结果进行统计计算.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”教程