第13章 数据库编程(20)

delphi数据库编程

11. 筛选记录（补充）

设置数据集的Filter和Filtered属性，可按特定条件筛选（过滤）记录，其作用类似于执行含有Where子句的SQL语句。（教材296页表13.4仅对上述二属性作了简要说明）

（1）Filter属性◆

数据集的Filter属性用于指定筛选条件。

语法：

数据集.Filter := 条件表达式

说明：

条件表达式类似于SQL语句中Where子句的条件表达式，其中可包含各种比较运算符（<、>、<=、>=、<>、=、Like）以及逻辑运算符（And和Or）。设置Fiter属性的作用与SQL中Where子句相似。

示例：

ADOTable1.Filter := '性别 = ' + QuotedStr(cboSex.Text); 提示：QuotedStr函数用于为字符串首尾加上单引号。上述语句等价于：

ADOTable1.Filter := '性别 = ''' + cboSex.Text + '''';

注意：

① 在条件表达式中，各种运算符前后均应含有空格。

② 本属性必须与下述Filtered属性配合使用。

（2）Filtered属性◆

数据集的Filtered属性用于决定是否激活Filter属性所指定的筛选条件。

语法：

数据集.Filtered := 逻辑表达式

说明：

若逻辑表达式的值为True，筛选被激活；否则取消筛选。

示例： with ADOTable1 do

begin

DisableControls;

Filtered := False; // 在设置筛选条件前应关闭过滤器

if cboSex.Text <> '全部' then