第十五章數據訪問部件的應用及編程二(編輯修改稿)
2024-10-11 15:31 本頁面
【文章內容簡介】 面的程序代碼便可以為我們設定一個檢索范圍： 。 {指定檢索范圍的起始記錄 } := {為起始記錄的 CustNo 字段指定字段值 } 。 {指定檢索范圍的結束記錄 } if 39。 39。 then := 。 {為結束記錄的 CustNo 字段指定字段值 } 。 {根據檢索范圍的起始、結束記錄設定檢索范圍 } 注意上面的程序代碼，在為結束記錄的 CustNo 字段指定字段值時， 首先檢查EndVal 的值是否為空，如果 EndVal 的值為空，那么設定的檢索范圍沒有包含一條記錄， 因為沒有任何記錄的字段值小于 NIL；如果 StartVal 的值為空，那么檢索范圍將從表中的第一條記錄開始，因為表中任何記錄的字段值都大于空(NIL)。 上述代碼可以用 SetRange 方法改寫 成： If 39。 39。 then ([].[])。 。 EditRangeStart 和 EditRangeEnd 方法的使用完全類似于 SetRangeStart 和SetRangeEnd 方法，只是調這兩個方法是設定一個可編輯的范圍。 又如：假設一個表中的一個索引包含兩個字段 LastName 和 FirstName，我們?yōu)樗饕械囊粋€字段或多個字段指定相應的字段值，設定數據庫表的 使用范圍。 。 (39。LastName39。).Asstring := 39。Smith39。 。 。 上述代碼設定的范圍包括 LastName 字段的值大于或等于 Smith 的所有記錄。而下面的代碼設定的范圍則包括 LastName 字段的值大于或等于 Smith 且FirstName 字段的值大于或等于 39。J39。的記錄。 。 (39。LastName39。).Asstring := 39。Smith39。 (39。FirstName39。).Asstring := 39。J39。 。 。 查找數據庫表中的記錄 如果想查找數據庫表中的記錄，必須想指定查找記錄的一些字段的字段值，然后在表中進行檢索，檢索出與查找值相匹配的記錄來。如果我們是在 Paradox 或dBASE 數據庫中的表中查找記錄，那么查找值所對應的字 段必須是表中的關鍵字段或輔助索引字段。如果查找 SQL 數據庫服務器中的表，那么查找值必須是表的IndexFieldNames 屬性中指定的字段。 Delphi 提供了兩種方式在數據庫表中查找記錄： Goto 方式和 Find 方式。這兩種方式十分相似，它們的主要區(qū)別在于為查找指定查找值的方法不一樣。 使用 Goto 方式進行數據查找使用的方法有 SetKey 方法、 GotoKey 方法和GotoNearest 方法。其實際步驟如下： ① 確保要查找的字段是關鍵字段或輔助索引字段。 ② 調用 SetKey 方法把與表對應的 TTable 部件置成查找狀態(tài)。 ③ 把查找值賦給相應的字段。 ④ 調用 GotoKey 方法，并測試它的返回值檢驗查找是否成功。 假設 Table1 對應的表中第一個字段是關鍵字段， Edit1 是應用窗體中的一個編輯框，用戶可以通過 Edit1 輸入查找值。下面的代碼將通過 Goto 方式進行查找。 。 {將 Table1 置成查找狀態(tài) } [0].AsString := 。 {指定查找值 } 。 {進行查找 } 上面最后一行代碼是根據用戶指 定的查找值，在表中執(zhí)行查找。查找的結果有兩種，也許成功也許失敗，這是由調用 GotoKey 方法之后返回的布爾值來決定，如果返回 True，那么查找成功，并且記錄指針會指向與查找值匹配的記錄，如果返回 Fale，那么查找失敗，記錄指針的位置不發(fā)生變化。下面的代碼可以測試調用 GotoKey 方法之后的返回值，告知用戶查找是否成功。 。 [0].AsString:= 39。Smith39。 If not then ShowMessage(39。記錄 沒找到 39。) 在這一段代碼中，如果在表中沒有找到第一個字段值為 Smith 的記錄，該應用程序會彈出一個對話框告知用戶 “ 記錄沒有找到 ” 。 如果在表中存在多個關鍵字段或輔助索引中包含多個字段時，你在進行查找時，只想為第一個字段指定查找值，那么必須要設置 TTable 部件的 KeyFieldCount的屬性值為 1。如果想為多個字段指定查找值，只能為相鄰的字段指定查找值，例如輔助索引中共有三個字段，那么我們只能為第一個字段、第一和第二個字段、第一和第二以及第三個字段指定查找值，而不能為第一和第三個字段指定查找值。 GotoNearest 方法的使用與 GotoKey 方法完全一樣，只是它用于不精確查找，它不要求查找結果與查找值精確匹配，當表中有與查找值精確匹配的記錄時，它將記錄指針移到該記錄處，當表中沒有與查找值精確匹配的記錄時，它會查找出與查找值最接近的記錄，并將記錄指針移到該記錄處。 下面是應用 GotoNearest 方法的一段代碼： 。 [0].AsString:= 39。Sm39。 。 執(zhí)行上述代碼后，若表中存在第一個字段值等于 Sm 的記錄時，記錄指針將移到該記錄處，若表中不存在第一個字段值等于 Sm 的記錄，而存在第一個字段值等于 Smith 的記錄，那么記錄指針會移到該記錄處。 如果我們不是以數據庫表中的關鍵字段作為查找字段，我們也可以為 TT
公司管理相關推薦
鄂ICP備17016276號-1