程序師世界是廣大編程愛好者互助、分享、學習的平台,程序師世界有你更精彩!
首頁
編程語言
C語言|JAVA編程
Python編程
網頁編程
ASP編程|PHP編程
JSP編程
數據庫知識
MYSQL數據庫|SqlServer數據庫
Oracle數據庫|DB2數據庫
 程式師世界 >> 編程語言 >> 更多編程語言 >> Delphi >> 推薦編程技巧:Delphi語言數據集過濾 (1)

推薦編程技巧:Delphi語言數據集過濾 (1)

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

procedure 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;

  在上面的四種方法中,第四種功能最強大,使用最靈活。


  1. 上一頁:
  2. 下一頁:
Copyright © 程式師世界 All Rights Reserved