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事件允許按非鍵控字段建立篩選程序,例如:

PRocedureTForm1.Table1FilterRecord(DataSet:TDataSet;varAccept:Boolean);

begin

Accept:=DataSet[′State′]=′CA′;

end;

四、用TQuery控制項的SQL語句

1.SQL語句中不包含變數和參數

Select＊fromCustomer

WhereCustNo＞=1000andCustNo＜=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;在上面的四種方法中,第四種功能最強大,使用最靈活。