Delphi數(shù)據(jù)集過濾技巧
發(fā)表時間:2023-07-30 來源:明輝站整理相關(guān)軟件相關(guān)文章人氣:
[摘要]當(dāng)我們在操作數(shù)據(jù)集時,往往需要對數(shù)據(jù)進(jìn)行篩眩例如:一個名為Customer的數(shù)據(jù)表,它具有CustNo、CustName、Country、Address、Phone、State、TaxRate等字段...
當(dāng)我們在操作數(shù)據(jù)集時,往往需要對數(shù)據(jù)進(jìn)行篩眩例如:一個名為Customer的數(shù)據(jù)表,它具有CustNo、CustName、Country、Address、Phone、State、TaxRate等字段,如果只想查看國別為China或顧客號大于1000的顧客記錄,就需要對數(shù)據(jù)集進(jìn)行過濾。經(jīng)總結(jié),有下面這些過濾方法:
一、利用TTable和TQuery的Filter屬性
1.在設(shè)計時設(shè)置Filter屬性
例如,設(shè)置Filter為:Country=′China′然后改變Filtered屬性為True(注意,F(xiàn)iltered為True時過濾才有效)。則只能看到對應(yīng)的Country字段內(nèi)容為‘China’的記錄。
設(shè)置Filter時可以使用的操作符有:<、>、<=、>=、=、<>、AND、OR、NOT。
例如,設(shè)置Filter為:CustNo>=1000andCustNo<=5000,則只能看到顧客號在1000與5000之間的顧客記錄。
2.在程序運(yùn)行期間進(jìn)行動態(tài)過濾
要在程序運(yùn)行時改變Filter屬性,這包括兩種情況:
(1)操作符右邊為常量,例如:Table1Filter:=′State′+′=′+′′′HI′′′;
注意:字符串常量必須用三對單引號括起來。
(2)操作符右邊不為常量,可能是通過一個變量指定的值,或由一輸入框給出的值。這時需要用到Format函數(shù)。其代碼形式為:Table1Filter:=Format(′State′+′=′+′′′%S′′′,[StateValue]);其中StateValue為已經(jīng)賦值的一個字符串變量,也可以為其他形式,例如:Edit1Text。
二、用ApplyRange篩選數(shù)據(jù)集的記錄
執(zhí)行下面這段代碼,將只能看到顧客號在1000至5000之間的顧客記錄。組成該例程的幾個過程為:
ApplyRange,SetRangeStart,SetRangeEnd。
Table1SetRangeStart;
Table1[′CustNo′]:=1000;
Table1SetRangeEnd;
Table1[′CustNo′]:=5000;
Table1ApplyRange;
注意:該過程只適用于索引的字段。如果想基于非索引字段篩選,則不妨使用一點(diǎn)小花招:建立假索引。實現(xiàn)的方法為:Table1.IndexFieldNames:=字段名;Delphi還提供了簡單的調(diào)用SetRangeStart、SetRangeEnd和ApplyRange的方法,例如:Table1.SetRange([Edit1.Text],[Edit2.Text]);
三、用OnFilterRecord事件篩選OnFilterRecord事件允許按非鍵控字段建立篩選程序
例如: procedure TForm1.Table1FilterRecord(DataSet:TDataSet;varAccept:Boolean);
begin
Accept:=DataSet[′State′]=′CA′;
end;
四、用TQuery控件的SQL語句
1.SQL語句中不包含變量和參數(shù)
Select*fromCustomer
WhereCustNo>=1000and CustNo<=5000
2.SQL語句中包含參數(shù)
Select*fromCustomer
WhereCustNo>=:CustNo
在運(yùn)行期間給參數(shù)CustNo賦值。
3.SQL語句中包含變量
這時向TQuery控件添加SQL語句的代碼應(yīng)當(dāng)這樣寫:
Query1.Close;
Query1.SQL.Clear;
Query1.SQL.Add(Format(′Select*fromCustomer′+′′+′whereState=′+′′′%S′′′,[StateValue]));
Query1.Open;在上面的四種方法中,第四種功能最強(qiáng)大,使用最靈活。