Delphi中TQuery.Filter用法
2024-08-28 15:28:55
今天维护一个老项目是用delphi5 + BDE写的。为了更方便查询数据，就增加一个查询功能.由于数据量查询出来后就比较少，于是就想到Filter like
但 BDE并不支持 Filter = 'name like' BDE的模糊查询只有' name = A*' 匹配只能从第一个字母开始，无法达到要求.后来在OnFilterRecord中解决
由于
TQuery.Filtered := False;
TQuery.Filtered := True;
会触发OnFilterRecord事件
于是写一个事件处理过程
procedure OnFilterRecord(DataSet: TDataSet; Accetp:Boolean)
begin
Accept := False;//所以值不显示
if Pos('9787',DataSet.FieldsByName('青年文摘').AsString) > 0 then
Accept := True;
end;
得以实现
最新文章
- Microsoft Visual Studio 2008 未能正确加载包“Visual Web Developer HTML Source Editor Package” | “Visual Studio HTM Editor Package”
- [Android Pro] listView和GridView的item设置的高度和宽度不起作用
- cas
- Struts2的属性驱动与模型驱动的区别
- POJ3974 Palindrome (manacher算法)
- c# splitter控件使用简介
- 【测试技术】ant中的for循环用法
- IIS使用 URL Rewrite Module 2.0组件 设置伪静态的方法
- Arrays工具类十大常用方法
- django 自定义过滤器（filter）处理较为复杂的变量的实例
- [标]ORACLE常用的一些语句记录
- iOS中 最新微信支付／最全的微信支付教程详解 韩俊强的博客
- ubuntu默认使用python2，更改默认使用python3
- windows下操作linux虚拟机映射网络驱动器中文件提示chmod权限不足解决方案
- 2019年19道java经典面试题（附答案）
- Django中使用bookstarp框架（4）
- Linux配置eclipse实践
- architecture and business process modelling
- JSON和JS对象之间的互转【转】
- vue基础——事件处理