看实例学VFP:将查询结果输出为表或文本文件时间:2009-02-16 www. 老马
- 在看实例学VFP:对查询结果进行汇总这个例子中,汇总结果是显示在表格控件中的。本文对这个例子再做进一步的改进,可以在运行时选择“数据表”或“文本文件”,使之在把汇总结果显示到表格控件中的同时,将查询结果输出为“查询结果.DBF”或“查询结果.txt”。 本例应用到了select语句中的Group By子句的知识,关于select语句请参考:select SQL 命令 或sql语言教程。本例应用到了数据环境,并使用“数据1”数据库中的“人员信息表”作为数据环境的数据源,关于该数据库的情况已经在看实例学VFP:示例数据库一文中给出,运行界面见本文末尾。 制作步骤: 一、新建表单,将其caption属性值设置为“将查询结果输出为表或文本文件”,AutoCenter属性值设置为.t.,width属性值设置为375,height属性值设置为275,并将表单保存为“将查询结果输出为表或文本文件.scx”。 二、向表单上添加一个label控件、一个组合框控件及一个命令按钮控件,将这三个控件排成一行,并分别设置它们的属性: 1、label控件:caption属性值设置为“汇总条件”。 2、组合框控件Combo1:RowSourceType属性值设置为“1-值”,RowSource属性值设置为“部门,性别,学历”。 3.命令按钮控件command1:caption属性值设置为“汇总”。 三、在“汇总”按钮这一行控件的下方,再添加一个label控件,并将其caption属性值设置为“输出格式”。在label控件的右侧再添加一个选项按钮组控件(Optiongroup) ,右击添加好的选项按钮组控件Optiongroup1,选择“编辑”命令,待该控件四周出现蓝绿色虚线时(此为选项按钮组的编辑状态,在此状态下可以修改选项按钮组控件内单个选项按钮的属性),拖动Option1和Option2使它们在选项按钮组控件内呈水平排列,然后依次单击选中Option1和Option2,将它们的caption属性依次设置为“数据表”和“文本文件”,如下图: 四、右击表单空白处,选“数据环境”命令,将“人员信息表”添加到数据环境中。在“数据环境设计器”中拖动“人员信息表”的标题栏到表单上,自动生成一个表格控件。由于是从数据环境中把“人员信息表”拖动过来由系统自动生成的,该表格控件的RecordSource属性及RecordSourceType属性已经由系统设置好了,我们把表格控件的name属性值修改为“grid1”。 五、适当调整各控件在表单上的位置,调整后的表单设计器如下图所示: 六、添加事件代码: (一)表单的init事件: public SC (二)“汇总”按钮command1的click事件: if used('查询结果') sele 查询结果 use endif 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 if sc='into table 查询结果' Select &tj. from 人员信息表; Group By &cxtj. &sc. else Select &tj. from 人员信息表; Group By &cxtj. into cursor 查询结果 Select &tj. from 人员信息表; Group By &cxtj. &sc. endif thisform.Grid1.columncount=-1 thisform.grid1.refresh thisform.grid1.recordsource='查询结果' thisform.grid1.backcolor=rgb(200,224,248) thisform.refresh endif clear return 七、运行“将查询结果输出为表或文本文件.scx”,界面见下图: 参考资料: vfp基础教程:http:///vfpjc/index0.htm VFP网络开发:http:///VFPwz/vfpwlkf.htm vfp调用api函数:http:///VFPwz/vfpapi.htm VFP报表打印:http:///VFPwz/vfpreport.htm VFP常用技术:http:///VFPwz/vfpcyjs.htm VFP经验汇总:http:///VFPwz/vfpjyhz.htm VFP控件使用:http:///VFPwz/vfpkjsy.htm VFP数据处理:http:///VFPwz/vfpsjcl.htm 本例代码在Win2003+VFP6.0环境下调试通过。 |
|
来自: happyngkmw > 《实例学VFP》