Filter中的模糊过滤：
要实现模糊过滤，BDE中要用“*”，不允许使用“Like”关键字，且只能向后匹配，如“Fcode=’101*’”；而ADO则是使用“%”或“*”都可以，可以使用“Like”关键字，且和SQL语句用法一致，可以任意匹配，如“Fcode like 1%”，但要注意，在字符串前加“%”时，其后面一定也要加“%”，否则会报错，也可以一个“_”，此处有两点不明白：一是为什么会报错，二是下划线是如何匹配的，ado不允许使用not like，不知何故。
特别注意：ADO在用Filter时，
### Delphi资源—Filter中的模糊过滤
#### 一、模糊过滤概述
在Delphi开发环境中，数据查询与筛选是一项常见的需求。为了满足不同场景下的数据处理需求，Delphi提供了多种方式来实现数据过滤，其中模糊过滤是较为常用的一种。本文将详细介绍在BDE（Borland Database Engine）和ADO（ActiveX Data Objects）环境下如何实现模糊过滤，并针对两种环境的不同特性进行对比分析。
#### 二、BDE与ADO中的模糊过滤
##### 2.1 BDE环境下的模糊过滤
在BDE中实现模糊过滤时，需要使用星号`*`作为通配符，而不能使用`LIKE`关键字。这种匹配方式只允许向后匹配，例如`Fcode = '101*'`表示Fcode字段以"101"开头的所有记录。
##### 2.2 ADO环境下的模糊过滤
相比之下，ADO环境下的模糊过滤更为灵活。在ADO中，既可以使用百分号`%`也可以使用星号`*`作为通配符，并且可以使用`LIKE`关键字。这意味着可以实现任意位置的匹配，例如`Fcode LIKE '%101%'`表示Fcode字段包含"101"的所有记录。需要注意的是，在字符串前加`%`时，其后也必须加`%`，否则会导致错误。
此外，ADO环境下的模糊过滤不支持`NOT LIKE`操作，具体原因尚不清楚。在使用下划线`_`作为单个字符的通配符时，具体的匹配规则也不明确。
#### 三、注意事项
##### 3.1 ADO Filter特殊用法
在使用ADO的Filter时，如果需要比较日期字段，例如`Fdate >= date`，可能会遇到问题。正确的做法是使用`Fdate >= DateNN`这样的表达式，其中`DateNN`表示数据库中的日期字段。至于为何这样操作的原因，还需要进一步探索。
##### 3.2 复杂条件筛选
当使用BDE QUERY或ADO QUERY进行复杂条件筛选时，需要注意以下几点：
1. **同数据库查询**：无论是在BDE QUERY还是ADO QUERY中，如果指定了相同的数据库表，那么SQL语句应该是相同的。
2. **条件选择**：可以通过简单的条件或者组合条件来筛选数据。例如，`(Field1 = 'AAA')`、`(Field1 = 'AAA') OR (Field1 = 'BBB')`以及`(Field1 = 'AAA') AND (Field2 = 'TTT')`等。
3. **优先级**：复合条件之间的逻辑关系决定了筛选的结果。例如，`(Field1 = 'AAA') OR (Field1 = 'BBB') AND (Field2 = 'TTT')`表示先执行AND条件，再执行OR条件。
4. **范围限定**：对于复杂的条件组合，需要明确地使用括号来限定每个子条件的范围，例如`((Field1 = "AAA") AND (Field2 = "TTT")) OR ((Field1 = "BBB") AND (Field2 = "TTT"))`。
#### 四、具体实现方法
##### 4.1 使用TTable或TQuery进行Filter
1. **设置Filter**
- 可以直接通过`Filter`属性设置过滤条件，例如`Filter := 'Country = China'`，此时`Filtered`属性为`True`，只显示Country为China的记录。
- 支持使用`=`、`==`、`AND`、`OR`、`NOT`等操作符。
2. **动态设置Filter**
- 在运行时动态更改Filter，例如`Table1.Filter := 'State = HI';`。
- 如果需要传递参数，则需要使用`Format`函数，例如`Table1.Filter := Format('State = %s', [StateValue]);`，其中`StateValue`可以是变量或控件的值，比如`Edit1.Text`。
3. **使用ApplyRange进行范围筛选**
- 为了更精确地筛选特定范围内的数据，可以使用`ApplyRange`方法，例如只筛选CustNo在1000到5000之间的客户记录。
- 示例代码：
```pascal
Table1.SetRangeStart;
Table1['CustNo'] := 1000;
Table1.SetRangeEnd;
Table1['CustNo'] := 5000;
Table1.ApplyRange;
```
- 注意：如果设置了索引字段，那么`ApplyRange`方法将更有效率。
4. **OnFilterRecord事件**
- 可以通过`OnFilterRecord`事件自定义过滤逻辑，例如：
```pascal
procedure TForm1.Table1FilterRecord(DataSet: TDataSet; var Accept: Boolean);
begin
Accept := DataSet['State'] = 'CA';
end;
```
#### 五、结论
在Delphi开发中，模糊过滤是一种非常有用的工具，可以帮助开发者根据不同的条件筛选出所需的数据。无论是使用BDE还是ADO，都有各自的特点和适用场景。了解并掌握这些差异性能够帮助开发者更高效地完成数据处理任务。希望本文的内容对您有所帮助！
- 1
- 2
前往页