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;