15.4.2 TTable部件的方法及應用
15.4.2.1 設定數據庫表的使用范圍
在我們實際應用中的數據庫表中常常存放著大量的數據信息,其中包含著很多的記錄,而我們的應用程序可能只需對其中一部分記錄進行操作,因此,為應用程序指定一個使用范圍就顯得特別重要了,為方便有效地指定數據庫表的使用范圍Delphi為TTable部件提供了下列方法供用戶使用:
● SetRangeStart和EditRangeStart方法
● SetRangeEnd和EditRangeEnd方法
● SetRange([Start Values],[End Values])方法
● ApplyRange方法
● CancelRange方法
1. SetRangeStart方法
用於指定檢索范圍的起始記錄,調用SetRangeStart方法之後,可以為起始記錄的一個或多個字段指定相應的字段值。SetRangeEnd方法用於指定檢索范圍的結束記錄,調用SetRangeEnd方法之後,可以為結束記錄的一個或多個字段指定相應的字段值。
2. SetRange方法
SetRange方法包含了SetRangeStart和SetRangeEnd方法的功能,它可以同時指定檢索范圍的起始和結束記錄,起始記錄和結束記錄的字段值以數組形式送給SetRange,其基本形式是:
SetRange([起始值],[結束值])
3. ApplyRange方法
根據SetRangeStart,SetRangeEnd或SetRange方法說明的檢索范圍的起始和結束記錄,具體設定一個檢索范圍,調用ApplyRange方法之後,應用程序只能對檢索范圍內的記錄進行有關的操作。
4. CancelRange方法
CancelRange方法的作用與ApplyRange方法的作用是相反的,這是取消為表設定的檢索范圍,調用CancelRange方法之後應用程序可以對表中全部記錄進行有關的操作。
在這裡要注意的是:如果我們使用的是paradox表或DBase表,在調用SetRangeStart,SetRangeEnd以及SetRange方法時,只能為表中的索引字段或定義的索引指定相應的字段值,以設定檢索范圍。如果使用SQL數據庫服務器中的數據庫表,可以為IndexFIEldNames屬性中指定的字段指定相應的字段值。
例如:假設Table1與Customer.DB表相連,Customer.DB中一個索引字段是CustNo,同時應用窗體中有兩個編輯框StartVal和EndVal用於輸入起始、結束記錄的字段CustNo的值,下面的程序代碼便可以為我們設定一個檢索范圍:
Tabel1.SetRangeStart; {指定檢索范圍的起始記錄}
Tabel1CustNo.AsString:= StartVal.Text {為起始記錄的CustNo字段指定字段值}
Tabel1.SetRangeEnd; {指定檢索范圍的結束記錄}
if EndVal.Text <> ' ' then
Tabel1CustNo.AsString := EndVal.Text; {為結束記錄的CustNo 字段指定字段值}
Tabel1.ApplyRange; {根據檢索范圍的起始、結束記錄設定檢索范圍}
注意上面的程序代碼,在為結束記錄的CustNo字段指定字段值時,首先檢查EndVal的值是否為空,如果EndVal的值為空,那麼設定的檢索范圍沒有包含一條記錄,因為沒有任何記錄的字段值小於NIL;如果StartVal的值為空,那麼檢索范圍將從表中的第一條記錄開始,因為表中任何記錄的字段值都大於空(NIL)。
上述代碼可以用SetRange方法改寫成:
If EndVal.Text <>' ' then
Tabel1.SetRane([StartVal.Text].[EndVal.Text]);
Table1.ApplyRange;
EditRangeStart和EditRangeEnd方法的使用完全類似於SetRangeStart和SetRangeEnd方法,只是調這兩個方法是設定一個可編輯的范圍。
又如:假設一個表中的一個索引包含兩個字段LastName和FirstName,我們為索引中的一個字段或多個字段指定相應的字段值,設定數據庫表的使用范圍。
Table1.SetRangeStart;
Table1.FIEldByName('LastName').Asstring := 'Smith';
Table1.SetRangeEnd;
Tabel1.ApplyRange;
上述代碼設定的范圍包括LastName字段的值大於或等於Smith的所有記錄。而下面的代碼設定的范圍則包括LastName字段的值大於或等於Smith且FirstName字段的值大於或等於'J'的記錄。
Table1.SetRangeStart;
Table1.FIEldByName('LastName').Asstring := 'Smith';
Table1.FIEldByName('FirstName').Asstring := 'J';
Table1.SetRangeEnd;
Tabel1.ApplyRange;