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

看实例学VFP:对查询结果进行汇总

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

本例应用到了select语句中的Group By子句的知识,关于select语句请参考:select SQL 命令sql语言教程。本例应用到了数据环境,并使用“数据1”数据库中的“人员信息表”作为数据环境的数据源,关于该数据库的情况已经在看实例学VFP:示例数据库一文中给出,运行界面见本文末尾。

制作步骤:

一、新建表单,将其caption属性值设置为“对查询结果进行汇总”,AutoCenter属性值设置为.t.,width属性值设置为375,height属性值设置为250,并将表单保存为“对查询结果进行汇总.scx”。

二、向表单上添加一个label控件、一个组合框控件及一个命令按钮控件,将这三个控件排成一行,并分别设置它们的属性:

1、label控件:caption属性值设置为“汇总条件”。

2、组合框控件Combo1:RowSourceType属性值设置为“1-值”,RowSource属性值设置为“部门,性别,学历”。

3.命令按钮控件command1:caption属性值设置为“汇总”。

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

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

五、添加事件代码:

(一)表单的unload事件:close data

(二)“汇总”按钮command1的click事件代码:

private CXTJ,TJ
CXTJ=thisform.combo1.displayvalue
if empty(CXTJ)   && 判断列表框和文本框是否为空 
    messagebox('请输入完整条件!',16,'系统提示')
   thisform.combo1.setfocus
else
   do case 
   case alltrim(CXTJ)='部门'
      TJ='部门,count(编号) as 人数,sum(基本工资)as 总工资,;
      avg(基本工资)as 平均工资,count(编号)/reccount()*100 as 百分比'
   case alltrim(CXTJ)='性别'
      TJ='性别,count(编号) as 人数,sum(基本工资)as 总工资,;
      avg(基本工资)as 平均工资,count(编号)/reccount()*100 as 百分比'
   case alltrim(CXTJ)='学历' 
      TJ='学历 as 学历,count(编号) as 人数,count(编号)/reccount()*100 as 百分比'
   endcase	
   sc='into cursor 查询结果'
   Select &tj. from 人员信息表;
   Group By &cxtj. &sc.
   thisform.Grid1.columncount=-1
   thisform.grid1.recordsource='查询结果'
   thisform.grid1.backcolor=rgb(200,224,248)
   thisform.grid1.refresh
endif
clear

六、运行“对查询结果进行汇总.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”教程