第十五章數(shù)據(jù)訪問部件的應(yīng)用及編程二(參考版)
2024-09-09 15:31本頁面
【正文】 。 既然字段部件是對應(yīng)于數(shù)據(jù)庫表中的各個字段的，而數(shù)據(jù)庫表中的字段有 多種數(shù)據(jù)類型，所以字段部件相應(yīng)也有多種類型，字段部件的類型與數(shù)據(jù)庫表中的字段的數(shù)據(jù)類型的對應(yīng)關(guān)系如表 所示。 字段部件和字段編輯器的使用 字段部件有時又稱字段對象它對應(yīng)著數(shù)據(jù)庫表中的列即字段，字段對象是不可見的部件，在 Delphi 中有兩種方式創(chuàng)建字段部件： ① 在應(yīng)用程序運行過程中，隨著數(shù)據(jù)集部件被激活，對應(yīng)于數(shù)據(jù)庫表中每一列的字段部件便動態(tài)地被創(chuàng)建。當 Table1 不處于 Browse 狀態(tài)時， InsertBtn 按鈕有效，用戶是可以向表中插入新記錄。 := in [dsInsert,dsEdit,dsSetKey] end。 (Sender : Tobject)。 例如：在一個應(yīng)用窗體中有一個 InsertBtn 按鈕，用于 控制向數(shù)據(jù)集部件 table1 對應(yīng)的數(shù)據(jù)庫表中插入記錄；還有一個 CancelBtn 按鈕用于控制是否取消用戶對當前記錄的修改或插入新記錄。 end。 end。 dsSetKey : S := 39。 dsInsert : S := 39。 dsEdit : S := 39。 dsBrowse : S := 39。 begin Case Table1,State of dsInactive : S := 39。因為數(shù)據(jù)集部件的 State 屬性標明了數(shù)據(jù)集部件當前所處的狀態(tài)，當數(shù)據(jù)集的狀態(tài)發(fā)生變化時，使用該事件進行有關(guān)的處理是很有用的，在一個具體的應(yīng)用中， 數(shù)據(jù)集部件的狀態(tài)常常是頻繁地變化的，為了跟蹤數(shù)據(jù)集部件的狀態(tài)變化， 可以用下面例子中的程序代碼將數(shù)據(jù)集部件當前的狀態(tài)顯示在一個標簽上： (Sender : Tobject)。例如在程序調(diào)用 post 方法之后但在修改后的數(shù)據(jù)記錄真正被寫回磁盤中的數(shù)據(jù)庫文件之前觸發(fā)該事件，在應(yīng)用中使用非數(shù)據(jù)瀏覽部件時要它與數(shù)據(jù)集保持同步時常使用該事件進行相關(guān)的處理。該事件一般用于保持應(yīng)用中多個部件之間的同步。如果 AutoEdit 的值為 False，用戶想通過數(shù)據(jù)瀏覽部件或程序修改數(shù)據(jù)集中的記錄，必須要調(diào)用數(shù)據(jù)集部件的 Edit 方法，將其置為編輯狀態(tài)之后才能夠進行。 AutoEdit 屬性：這是一個布爾型變量，它用于說明是否將與 TDataSource 部件相連的數(shù)據(jù)集置于編輯狀態(tài)。當 Enabled 的值變?yōu)?True 時，TDataSource 部件和數(shù)據(jù)集部件的連接恢復(fù)，且與 TDataSource 部件相連的數(shù)據(jù)瀏覽部件恢復(fù)顯示數(shù)據(jù)。這是一個布爾型變量。 end。 TDataSource 部件的屬性 TDataSource 部件除了其他部 件都擁有的 Name 屬性和 Tag 屬性之外，主要有下面幾個屬性： DataSet 屬性：該屬性說明 TDataSource 部件從中獲取數(shù)據(jù)的數(shù)據(jù)集的名字，它可以是 TTable 部件的名字，也可以是 TQuery 部件的名字，甚至還可以指定其他窗體內(nèi)的數(shù)據(jù)集作為該屬性的值，如在下面的程序中我們指定窗體 Form2 中的table1 作為窗體 Form1 中的 DataSource1 的 DataSet 屬性值： (Sender : Tobject)。在主表中選擇一個用于連接的關(guān)鍵字段，然后將其與明細表中相應(yīng)的關(guān)鍵字段連接，單擊 Add 按鈕，主要 ── 明細表的連接字段將顯示在 Joined Fields 列表框中，如： CustNoCustNo TDataSource 部件及其應(yīng)用 TDataSource 部件是開發(fā)數(shù)據(jù)庫應(yīng)用程序中用到的非常重要的部件，它是連接數(shù)據(jù)集部件 TTable 或 TQuery 和數(shù)據(jù)瀏覽部件的橋梁。 圖 使用 Field Link Designer 創(chuàng)建一對多關(guān)系 Field Link Designer 提供了一種可視化的方法來創(chuàng)建主要 ── 明細表之間的一對多關(guān)系。在設(shè)計階段可以使用字段連接設(shè)計器 (Field Link Designer)為兩上表創(chuàng)建一對多的關(guān)系，在 Object Inspector 中雙擊 TTable 部件的 MasterFields 便可以打開 Field Link Designer，進行一對多關(guān)系的創(chuàng)建。OrderNo。如果有多個字段，那么在 說明 MasterFields 屬性時，多個字段之間要用分號隔開。 創(chuàng)建主要 ── 明細數(shù)據(jù)庫應(yīng)用 TTable 部件中 MasterSource 屬性和 MasterFields 屬性是用于定義兩個數(shù)據(jù)庫表的一對多的關(guān)系。 。 如果用 GotoKey 方法完成這一功能則需要編寫下面代碼： 。 假設(shè) Tabel1 對應(yīng)的表中的第一個字段是關(guān)鍵字段。 FindKey 方法和 FindNearest 方法為數(shù)據(jù)查找提供了一個簡單的方法，它們將SetKey、指定查找值、執(zhí)行查找三個步驟融合在一步里完成，它們在指定查找值時，是把各字段的查找值組成一個數(shù)組傳給 FindKey 或 FindNearest。 。City39。 。CityIndex39。 如果我們不是以數(shù)據(jù)庫表中的關(guān)鍵字段作為查找字段，我們也可以為 TTable 部件的 IndexFieldName 屬性中的字段或 IndexName 屬性中的字段指定查找值進行數(shù)據(jù)查找。 。 [0].AsString:= 39。
公司管理相關(guān)推薦
鄂ICP備17016276號-1