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

看实例学VFP:去除查询结果中的重复记录

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

看实例学VFP:将查询结果输出为表或文本文件以及之前的几个关于select语句应用的例子中,组合框控件Combo1的数据方面的属性我们是这样设置的:RowSourceType属性值设置为“1-值”,RowSource属性值设置为“部门,性别,学历”,即在设计时已经将组合框控件的数据源固定了。但这种处理方式在有的情况下是不合理的,比如本文要做这样一个例子:希望在运行时可以在组合框控件里选择“部门”,按“部门”来查询。我们已经知道了“人员信息表”中目前有5条记录,其中有3个人事部的和2个企划部的。如果按以前的处理方式,我们可以把组合框的RowSourceType属性值设置为“1-值”,RowSource属性值设置为“人事部,企划部”。但假设这个公司以后或者增加了一些部门,或者砍掉了一些部门,而组合框控件的RowSource属性值已经固定了,运行起来就会有问题,可能就需要重新修改源码。所以在实际运用的时候,这种情况可以把组合框控件的RowSourceType属性值设置为“2-别名”,然后把需要在组合框控件中显示的项目用select语句从表中查询出来生成一个table或cursor,动态地给组合框控件的RowSource属性赋值,这样就可以解决刚才所说的问题。但这里还有一个小问题,对“人员信息表”的“部门”字段查询出来的结果会有3个人事部的和2个企划部,即在查询结果中存在重复的记录,如果直接做为数据源赋给组合框控件,则在运行时用鼠标展开组合框控件时是下面的这个样子:

看出问题了吗?需要把重复的记录过滤掉。要做的很简单,在select语句中加上distinct关键字就可以过滤掉重复记录。

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

制作步骤:

一、新建表单,将其caption属性值设置为“编程入门网-去除查询结果中的重复记录”,AutoCenter属性值设置为.t.,width属性值设置为375,height属性值设置为250,并将表单保存为“去除查询结果中的重复记录.scx”。

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

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

2、组合框控件Combo1:RowSourceType属性值设置为“2-别名”。

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

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

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

五、添加事件代码:

1.表单的init事件:

select distinct 部门 from 人员信息表 into cursor lsb &&利用Distinct关键字去除重复记录
thisform.combo1.rowsource="lsb" &&为组合框赋数据源

2.组合框控件Combo1的InteractiveChange事件:thisform.command1.click

3.“查询”按钮command1的click事件:

select * from 人员信息表 where 部门= alltrim(thisform.combo1.displayvalue);
into cursor lsts thisform.grid1.recordsource="lsts" &&为表格赋数据源 thisform.refresh

六、运行“去除查询结果中的重复记录.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”教程