第十五章數(shù)據(jù)訪問部件的應(yīng)用及編程二-在線瀏覽
2024-11-08 15:31本頁(yè)面
【正文】 True 時(shí) CanModify 將自動(dòng)地被置為 False，當(dāng) ReadOnly 為 False 時(shí)，如果數(shù)據(jù)庫(kù) 允許用戶對(duì)表進(jìn)行讀寫時(shí)，CanModify 為 True，否則 CanModify 為 False。 TTable 部件還有其他一些屬性請(qǐng)參看聯(lián)機(jī)幫助 TTable 部件的方法及應(yīng)用 設(shè) 定數(shù)據(jù)庫(kù)表的使用范圍 在我們實(shí)際應(yīng)用中的數(shù)據(jù)庫(kù)表中常常存放著大量的數(shù)據(jù)信息，其中包含著很多的記錄，而我們的應(yīng)用程序可能只需對(duì)其中一部分記錄進(jìn)行操作，因此，為應(yīng)用程序指定一個(gè)使用范圍就顯得特別重要了，為方便有效地指定數(shù)據(jù)庫(kù)表的使用范圍Delphi 為 TTable 部件提供了下列方法供用戶使用： ● SetRangeStart 和 EditRangeStart 方法 ● SetRangeEnd 和 EditRangeEnd 方法 ● SetRange([Start Values],[End Values]) 方法 ● App lyRange 方法 ● CancelRange 方法 1. SetRangeStart 方法 用于指定檢索范圍的起始記錄，調(diào)用 SetRangeStart 方法之后，可以為起始記錄的一個(gè)或多個(gè)字段指定相應(yīng)的字段值。 2. SetRange 方法 SetRange 方法包含了 SetRangeStart 和 SetRangeEnd 方法的功能，它可以同時(shí)指定檢索范圍的起始和結(jié)束記錄，起 始記錄和結(jié)束記錄的字段值以數(shù)組形式送給SetRange，其基本形式是： SetRange([起始值 ]， [結(jié)束值 ]) 3. ApplyRange 方法 根據(jù) SetRangeStart,SetRangeEnd 或 SetRange 方法說明的檢索范圍的起始和結(jié)束記錄，具體設(shè)定一個(gè)檢索范圍，調(diào)用 ApplyRange 方法之后， 應(yīng)用程序只能對(duì)檢索范圍內(nèi)的記錄進(jìn)行有關(guān)的操作。 在這里要注意的是：如果我們使用的是 paradox 表或 dBASE 表，在調(diào)用SetRangeStart， SetRangeEnd 以及 SetRange 方法時(shí)，只能為表中的索引字段或定義的索引指定相應(yīng)的字段值，以設(shè)定檢索范圍。 例如：假設(shè) Table1 與 表相連， 中一個(gè)索引字段是CustNo，同時(shí) 應(yīng)用窗體中有兩個(gè)編輯框 StartVal 和 EndVal 用于輸入起始、結(jié)束記錄的字段 CustNo 的值，下面的程序代碼便可以為我們?cè)O(shè)定一個(gè)檢索范圍： 。 {指定檢索范圍的結(jié)束記錄 } if 39。 then := 。 {根據(jù)檢索范圍的起始、結(jié)束記錄設(shè)定檢索范圍 } 注意上面的程序代碼，在為結(jié)束記錄的 CustNo 字段指定字段值時(shí)， 首先檢查EndVal 的值是否為空，如果 EndVal 的值為空，那么設(shè)定的檢索范圍沒有包含一條記錄， 因?yàn)闆]有任何記錄的字段值小于 NIL；如果 StartVal 的值為空，那么檢索范圍將從表中的第一條記錄開始，因?yàn)楸碇腥魏斡涗浀淖侄沃刀即笥诳?NIL)。 39。 。 又如：假設(shè)一個(gè)表中的一個(gè)索引包含兩個(gè)字段 LastName 和 FirstName，我們?yōu)樗饕械囊粋€(gè)字段或多個(gè)字段指定相應(yīng)的字段值，設(shè)定數(shù)據(jù)庫(kù)表的 使用范圍。 (39。).Asstring := 39。 。 上述代碼設(shè)定的范圍包括 LastName 字段的值大于或等于 Smith 的所有記錄。J39。 。LastName39。Smith39。FirstName39。J39。 。如果我們是在 Paradox 或dBASE 數(shù)據(jù)庫(kù)中的表中查找記錄，那么查找值所對(duì)應(yīng)的字 段必須是表中的關(guān)鍵字段或輔助索引字段。 Delphi 提供了兩種方式在數(shù)據(jù)庫(kù)表中查找記錄： Goto 方式和 Find 方式。 使用 Goto 方式進(jìn)行數(shù)據(jù)查找使用的方法有 SetKey 方法、 GotoKey 方法和GotoNearest 方法。 ② 調(diào)用 SetKey 方法把與表對(duì)應(yīng)的 TTable 部件置成查找狀態(tài)。 ④ 調(diào)用 GotoKey 方法，并測(cè)試它的返回值檢驗(yàn)查找是否成功。下面的代碼將通過 Goto 方式進(jìn)行查找。 {將 Table1 置成查找狀態(tài) } [0].AsString := 。 {進(jìn)行查找 } 上面最后一行代碼是根據(jù)用戶指 定的查找值，在表中執(zhí)行查找。下面的代碼可以測(cè)試調(diào)用 GotoKey 方法之后的返回值，告知用戶查找是否成功。 [0].AsString:= 39。 If not then ShowMessage(39。) 在這一段代碼中，如果在表中沒有找到第一個(gè)字段值為 Smith 的記錄，該應(yīng)用程序會(huì)彈出一個(gè)對(duì)話框告知用戶 “ 記錄沒有找到 ” 。如果想為多個(gè)字段指定查找值，只能為相鄰的字段指定查找值，例如輔助索引中共有三個(gè)字段，那么我們只能為第一個(gè)字段、第一和第二個(gè)字段、第一和第二以及第三個(gè)字段指定查找值，而不能為第一和第三個(gè)字段指定查找值。 下面是應(yīng)用 GotoNearest 方法的一段代碼： 。Sm39。 執(zhí)行上述代碼后，若表中存在第一個(gè)字段值等于 Sm 的記錄時(shí)，記錄指針將移到該記錄處，若表中不存在第一個(gè)字段值等于 Sm 的記錄，而存在第一個(gè)字段值等于 Smith 的記錄，那么記錄指針會(huì)移到該記錄處。例如，假設(shè) Customer 表中有一個(gè)名叫 CityIndex 的輔助索引，我們?yōu)?CityIndex 中的字段指定查找值進(jìn)
公司管理相關(guān)推薦
鄂ICP備17016276號(hào)-1