2011计算机等考Delphi：数据浏览部件应用及编程

　　16.2 使用TDBText部件显示表中的数据

　　TDBText部件是一个只读的数据浏览部件，它类似于TLabel部件。只是TDBText 部件用于显示数据库表中记录的指定字段的值。因为TDBText部件显示的是表中当前记录的指定的字段的值，因而它显示的内容也是动态的，在其中显示的内容随着记录指针的移动而变化。用TDBText部件显示Customer.DB表中的Company字段信息时可用如图16.2所示的窗体来实现。

　　其中各部件的属性设置如表16.2所示

　　表16.2 表中各部件的属性设置

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

　　属 性 属 性 值

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

　　Table1.DatabaseName DEMOS

　　Table1.TableName Customer.DB

　　Datasource1.DataSet Table1

　　DBText.DataSource DataSource1

　　DBText.DBField Company

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

　　16.3 使用TDBEdit部件显示和编辑表中的数据

　　TDBEdit部件是专门用于显示编辑数据库表中当前记录的各个字段值的数据浏览部件，在应用程序中，我们常常用一个TDBEdit部件来对应表中一个字段，通过设置TDBEdit部件的DataSource、DataField属性便可以为TDBEdit部件指定表中相应的字段。如果用户希望能通过TDBEdit部件编辑修改数据库表中的字段值，还要设置TDBEdit部件的ReadOnly属性为False，设置与TDBEdit相连的数据源部件TdataSource部件的AutoEdit属性为True以及确保与TDataSource部件相连的数据集部件TTable或TQuery部件处于编辑状态，即设置它们的CanModify属性为True。

　　例如，在图16.3所示的窗体中，使用多个TDBEdit部件显示和编辑Customer.DB表中当前记录的各个字段。窗体中各部件的属性如表16.3所示。

　　图16.3 用TDBEdit部件显示和编辑表中的数据

　　表16.3 窗体中各部件的属性

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

　　属 性 属 性 值

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

　　Table1.DatabaseName DEMOS

　　Table1.TableName Customer.DB

　　Datasource.DataSet Table1

　　DataSource.AutoEdit True

　　DBNavigator.DataSource DataSource1

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

　　窗体中其它部件都是TLabel部件和TDBEdit部件，TLabel部件用于显示表中各字段的名字，TDBEdit部件对应表中各个字段。程序运行之后如图16.4所示。用户可以在其中任何一个TDBEdit部件中修改其中的字段值。

　　用TDBEdit部件显示和修改表中的数据

　　窗体中还使用了一个TDBNavigator部件，使用它的目的是在表中移动记录指针，还可以进行修改、插入、删除记录等操作，具体的使用和操作参看 16.5 TDBNaigator部件的使用一节。