看实例学VFP：将查询结果输出为表或文本文件

看实例学VFP：将查询结果输出为表或文本文件2009-02-16 www.bianceng.cn 老马在这个例子中，汇总结果是显示在表格控件中的。本文对这个例子再做进一步的改进，可以在运行时选择“数据表”或“文本文件”，使之在把汇总结果显示到表格控件中的同时，将查询结果输出为“查询结果.DBF”或“查询结果.txt”。

本例应用到了select语句中的Group By子句的知识,关于select语句请参考：或。本例应用到了数据环境，并使用“数据1”数据库中的“人员信息表”作为数据环境的数据源，关于该数据库的情况已经在一文中给出，运行界面见本文末尾。

制作步骤：

一、新建表单，将其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
sc="into table 查询结果"

（二）“汇总”按钮command1的click事件：

if used（"查询结果"）sele 查询结果useendifprivate CXTJ,TJCXTJ=thisform.combo1.displayvalueif empty（CXTJ） && 判断列表框和文本框是否为空messagebox（"请输入完整条件！",16,"系统提示"） thisform.combo1.setfocuselse 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 百分比"endcaseif sc="into table 查询结果"Select &tj. from 人员信息表;Group By &cxtj. &sc.elseSelect &tj. from 人员信息表;Group By &cxtj. into cursor 查询结果Select &tj. from 人员信息表;Group By &cxtj. &sc.endifthisform.Grid1.columncount=-1thisform.grid1.refreshthisform.grid1.recordsource="查询结果"thisform.grid1.backcolor=rgb（200,224,248）thisform.refreshendifclearreturn

七、运行“将查询结果输出为表或文本文件.scx”，界面见下图：

参考资料:

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