2011計(jì)算機(jī)等考Delphi：數(shù)據(jù)瀏覽部件應(yīng)用及編程

　　16.2 使用TDBText部件顯示表中的數(shù)據(jù)

　　TDBText部件是一個只讀的數(shù)據(jù)瀏覽部件，它類似于TLabel部件。只是TDBText 部件用于顯示數(shù)據(jù)庫表中記錄的指定字段的值。因?yàn)門DBText部件顯示的是表中當(dāng)前記錄的指定的字段的值，因而它顯示的內(nèi)容也是動態(tài)的，在其中顯示的內(nèi)容隨著記錄指針的移動而變化。用TDBText部件顯示Customer.DB表中的Company字段信息時可用如圖16.2所示的窗體來實(shí)現(xiàn)。

　　其中各部件的屬性設(shè)置如表16.2所示

　　表16.2 表中各部件的屬性設(shè)置

　　━━━━━━━━━━━━━━━━━━━

　　屬 性 屬 性 值

　　───────────────────

　　Table1.DatabaseName DEMOS

　　Table1.TableName Customer.DB

　　Datasource1.DataSet Table1

　　DBText.DataSource DataSource1

　　DBText.DBField Company

　　━━━━━━━━━━━━━━━━━━━

　　16.3 使用TDBEdit部件顯示和編輯表中的數(shù)據(jù)

　　TDBEdit部件是專門用于顯示編輯數(shù)據(jù)庫表中當(dāng)前記錄的各個字段值的數(shù)據(jù)瀏覽部件，在應(yīng)用程序中，我們常常用一個TDBEdit部件來對應(yīng)表中一個字段，通過設(shè)置TDBEdit部件的DataSource、DataField屬性便可以為TDBEdit部件指定表中相應(yīng)的字段。如果用戶希望能通過TDBEdit部件編輯修改數(shù)據(jù)庫表中的字段值，還要設(shè)置TDBEdit部件的ReadOnly屬性為False，設(shè)置與TDBEdit相連的數(shù)據(jù)源部件TdataSource部件的AutoEdit屬性為True以及確保與TDataSource部件相連的數(shù)據(jù)集部件TTable或TQuery部件處于編輯狀態(tài)，即設(shè)置它們的CanModify屬性為True。

　　例如，在圖16.3所示的窗體中，使用多個TDBEdit部件顯示和編輯Customer.DB表中當(dāng)前記錄的各個字段。窗體中各部件的屬性如表16.3所示。

　　圖16.3 用TDBEdit部件顯示和編輯表中的數(shù)據(jù)

　　表16.3 窗體中各部件的屬性

　　━━━━━━━━━━━━━━━━━━━━

　　屬 性 屬 性 值

　　────────────────────

　　Table1.DatabaseName DEMOS

　　Table1.TableName Customer.DB

　　Datasource.DataSet Table1

　　DataSource.AutoEdit True

　　DBNavigator.DataSource DataSource1

　　━━━━━━━━━━━━━━━━━━━━

　　窗體中其它部件都是TLabel部件和TDBEdit部件，TLabel部件用于顯示表中各字段的名字，TDBEdit部件對應(yīng)表中各個字段。程序運(yùn)行之后如圖16.4所示。用戶可以在其中任何一個TDBEdit部件中修改其中的字段值。

　　用TDBEdit部件顯示和修改表中的數(shù)據(jù)

　　窗體中還使用了一個TDBNavigator部件，使用它的目的是在表中移動記錄指針，還可以進(jìn)行修改、插入、刪除記錄等操作，具體的使用和操作參看 16.5 TDBNaigator部件的使用一節(jié)。