推荐编程技巧：Delphi语言数据集过滤 （1）

1 2 下一页

当我们在操作数据集时,往往需要对数据进行筛眩例如:一个名为Customer的数据表,它具有CustNo、CustName、Country、Address、Phone、State、TaxRate等字段,如果只想查看国别为China或顾客号大于1000的顾客记录,就需要对数据集进行过滤。经总结,有下面这些过滤方法:

一、利用TTable和TQuery的Filter属性

1.在设计时设置Filter属性

例如,设置Filter为:Country=′China′然后改变Filtered属性为True(注意,Filtered为True时过滤才有效)。则只能看到对应的Country字段内容为‘China’的记录。

设置Filter时可以使用的操作符有:＜、＞、＜=、＞=、=、＜＞、AND、OR、NOT。

例如,设置Filter为:CustNo>=1000andCustNo<=5000,则只能看到顾客号在1000与5000之间的顾客记录。

2.在程序运行期间进行动态过滤

要在程序运行时改变Filter属性,这包括两种情况:

(1)操作符右边为常量,例如:Table1?Filter:=′State′ ′=′ ′′′HI′′′;

注意:字符串常量必须用三对单引号括起来。

(2)操作符右边不为常量,可能是通过一个变量指定的值,或由一输入框给出的值。这时需要用到Format函数。其代码形式为:Table1?Filter:=Format(′State′ ′=′ ′′′％S′′′,[StateValue]);其中StateValue为已经赋值的一个字符串变量,也可以为其他形式,例如:Edit1?Text。

二、用ApplyRange筛选数据集的记录

执行下面这段代码,将只能看到顾客号在1000至5000之间的顾客记录。组成该例程的几个过程为:

ApplyRange,SetRangeStart,SetRangeEnd。

Table1?SetRangeStart;

Table1[′CustNo′]:=1000;

Table1?SetRangeEnd;

Table1[′CustNo′]:=5000;

Table1?ApplyRange;

注意:该过程只适用于索引的字段。如果想基于非索引字段筛选,则不妨使用一点小花招:建立假索引。实现的方法为:Table1.IndexFieldNames:=字段名;Delphi还提供了简单的调用SetRangeStart、SetRangeEnd和ApplyRange的方法,例如:Table1.SetRange([Edit1.Text],[Edit2.Text]);

上一篇： DELPHI面向对象特点 保护级类成员应用
下一篇： 用Delphi实现文件下载的几种方法 （1）

1 2 下一页

标签：

版权申明：本站文章部分自网络，如有侵权，请联系：west999com@outlook.com
特别注意：本站所有转载文章言论不代表本站观点，本站所提供的摄影照片，插画，设计作品，如需使用，请与原作者联系，版权归原作者所有