当前位置:主页   - 电脑 - 程序设计 - VFP
看实例学VFP:去除查询结果中的重复记录
来源:网络   作者:www.bianceng.cn 老马    更新时间:2010-09-26
收藏此页】    【字号    】    【打印】    【关闭

在看实例学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”教程

其它资源
来源声明

版权与免责声明
1、本站所发布的文章仅供技术交流参考,本站不主张将其做为决策的依据,浏览者可自愿选择采信与否,本站不对因采信这些信息所产生的任何问题负责。
2、本站部分文章来源于网络,其版权为原权利人所有。由于来源之故,有的文章未能获得作者姓名,署“未知”或“佚名”。对于这些文章,有知悉作者姓名的请告知本站,以便及时署名。如果作者要求删除,我们将予以删除。除此之外本站不再承担其它责任。
3、本站部分文章来源于本站原创,本站拥有所有权利。
4、如对本站发布的信息有异议,请联系我们,经本站确认后,将在三个工作日内做出修改或删除处理。
请参阅权责声明