delphi数据集过滤

① DELPHI adoquery绑定的数据集有两个字段A和B，如何筛选出字段A值为1的记录。

var

icount : integer;

begin
icount :=0;
adoquery.Filtered :=False;
adoquery.Filter := 'A =1';
adoquery.Filtered :=True;
if adoquery.RecordCount>0 then
begin
adoquery.First;
while not adoquery.Eof do
begin
icount :=icount + adoquery.FieldByName('B').AsInteger;
adoquery.Next;
end;
end;
end;

② 急求！delphi中用Adoquery过滤后,再从Dbgrid提取数据

A方案：直接2次查不好么？
B方案：ado1.sql....
ado2.sql.text := select XXX from (ado1.sql.text) as aaa where XXX
把ado1 sql语句当成一个视图来用吧，数据量大，会慢。
C方案：遍历grid,把不符合的筛掉。
-------------------------------------
完毕，希望对你有帮助

③ delphi table.filter 属性 实现IN的功能 table.filter = lot_id = 多个可选值。 一次过滤多个值

adotable中Filter的用法
当我们在操作数据集时,往往需要对数据进行筛眩例如:一个名为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]);
三、用OnFilterRecord事件筛选OnFilterRecord事件允许按非键控字段建立筛选程序,例如:
procere TForm1.Table1FilterRecord(DataSet:TDataSet;varAccept:Boolean);
begin
Accept:=DataSet[′State′]=′CA′；
end;
四、用TQuery控件的SQL语句
1.SQL语句中不包含变量和参数
Select＊fromCustomer
WhereCustNo＞=1000and CustNo＜=5000
2.SQL语句中包含参数
Select＊fromCustomer
WhereCustNo＞=:CustNo
在运行期间给参数CustNo赋值。
3.SQL语句中包含变量
这时向TQuery控件添加SQL语句的代码应当这样写:
Query1.Close;
Query1.SQL.Clear;
Query1.SQL.Add(Format(′Select＊fromCustomer′＋′′＋′whereState=′＋′′′％S′′′,[StateValue]));
Query1.Open;在上面的四种方法中,第四种功能最强大,使用最灵活。

④ delphi 数据集的filterSQL 语句怎么写

filterSQL属性中只要写条件就行了，'department='computer' '

⑤ delphi中有没有过滤多维数据的函数

当我们在操作数据集时,往往需要对数据进行筛眩例如:一个名为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]);
三、用OnFilterRecord事件筛选OnFilterRecord事件允许按非键控字段建立筛选程序,例如:
procere TForm1.Table1FilterRecord(DataSet:TDataSet;varAccept:Boolean);
begin
Accept:=DataSet[′State′]=′CA′;
end;
四、用TQuery控件的SQL语句
1.SQL语句中不包含变量和参数
Select＊fromCustomer
WhereCustNo＞=1000and CustNo＜=5000
2.SQL语句中包含参数
Select＊fromCustomer
WhereCustNo＞=:CustNo
在运行期间给参数CustNo赋值。
3.SQL语句中包含变量
这时向TQuery控件添加SQL语句的代码应当这样写:
Query1.Close;
Query1.SQL.Clear;
Query1.SQL.Add(Format(′Select＊fromCustomer′+′′+′whereState=′+′′′％S′′′,[StateValue]));
Query1.Open;在上面的四种方法中,第四种功能最强大,使用最灵活。

⑥ delphi 批量删除数据集中复合条件的数据。

遍历整个数据集，挨个删除。
adodata1.First;
while not adodata1.Eof do
begin
if adodataset1.fieldbyname('字段')='0' then

adodata1.Delete
else
adodata1.Next;
end;

⑦ DELPHI adodataset filter 如何过滤多个条件

首先，你的代码很乱
adodataset1.filter:='交易日期>='+''''+edit1.Text+'''and 交易日期<='+''''+edit2.Text+'''';
改为：
adodataset1.filter:='交易日期>='''+edit1.Text+'''and 交易日期<='''+edit2.Text+'''';

增加内过滤条件：
adodataset1.filter:=adodataset1.filter+' and 商品名称容 = '''+edit3.text+'''';

⑧ reportmachine脚本中，和delphi差不多，如何实现对一个数据集进行筛选。

不知道你的这个里面能用 while not Eof 进行控制不？

⑨ delphi DBGrid 其他行的都过滤掉，只保留个红色圈中的那一行

delphi中，dbgrid没有过滤功能的，一般要通过操纵数据源的方法来实现

⑩ delphi dbgrid中某字段 关键字过滤

不太清楚你用的Delphi版本，因为你给的样例memo里既有中文，又内有英文，所以如果是Delphi2007之前的版本，处容理起来都比较麻烦。
给你一个在XE2中的方法示例吧（手写的，可能有一些低级错误）：
procere TfrmText.Process;
var
I, J: Integer;
begin
cdsMain.First;

for I := 1 to cdsMain.RecordCount do
begin
for J := 1 to Length(mmo.Text) do
begin
if cdsMain.Locate('name', Copy(mmo.Text, J, 1), [loCaseInsensitive]) then
begin
cdsMain.Delete;
Break;
end;
end;
cdsMain.Next;
end;
end;