DELPHI经典编程入门(14).pdf

《DELPHI经典编程入门(14).pdf》由会员分享，可在线阅读，更多相关《DELPHI经典编程入门(14).pdf（29页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、Delphi园地 http:/ 第十四章 简单数据库应用的创建及MASTAPP介绍（一）第十四章 简单数据库应用的创建及MASTAPP介绍（一）Delphi中嵌入的数据库应用开发工具如Database Form Expert具有很强大的功能，我们不需要编写任何程序代码便可以快速地创建一个简单的数据库应用程序，甚至还能创建基于多个数据库表的主要明细型数据库应用程序。本章主要介绍用Delphi开发简单的数据库应用程序的一般方法和步骤，首先让读者对Delphi强劲的数据库应用开发工具有一个直观的印象，然后在此基础上进行复杂的数据库应用程序的设计，本章主要包括以下内容：创建数据库应用窗体 包括用Dat

2、abase Form Expert 或手工方式创建简单的无需编写程序代码的应用程序或者利用多个部件并编写功能复杂的程序代码创建主要明细型数据库应用程序。在应用程序中控制字段有关的属性 描述怎样读写数据库表中字段的值和控制字段的显示格式等。本章所介绍的例子中用到的窗体、数据库表以及相关的文件都是在安装Delphi时缺省安装在C:DELPHIDEMOSDBMASTAPP目录中，并且用别名DBDEMOS表示这一子目录。在本章例子中，除特殊声明外，所有的TTable和 TQuery 部件的 DatabaseName 属性都设置为DBDEMOS。14.1 简单的基于单表的据库应用 用Decphi创建显示

3、一个数据库表中的内容的应用非常简单和方便，只需要三个部件，只要将这三个部件通过相关的属性相互联系起来，不需要编写任何程序代码便可以实现。例如，用户想查看数据库表Customer.DB中的内容时，可以按下面步骤来实现：14.1.1 选择相关的部件：选择菜单Project/New开始一个新工程，并修改Form1的Caption属性为CustomerFrom1并把Name属性设置为CustomerForm1，然后从部件选择板上的Data Access 页上选取一个Datasounce部件和一个Table部件放到窗体的左上角，它们是非可见的部件，在窗体中我们看到的只是部件的图标；从Data Contr

4、ol页上选取DBGrid部件放到窗体中前两个部件的下面。完成这些工作之后，窗体如图14.1所示。图在CustomerFrom1窗体中放置三个部件 14.1.2 设置部件的属性 为了使TDBGrid部件能够显示数据库表Customer.DB中的客户信息，我们必须修改窗体三个部件相关的属性，这些属性的设置如表14.1所示。表14.1 CustomerFrom1窗体中三个部件的属性设置 属 性 属 性 值 DataSource1.AutoEdit False DataSource1.DataSet Table1 Table1.DatabaseName DBDEMOS Table1.TableName

5、 CUSTOMER.DB 页码，1/29第十四章 简单数据库应用的创建及MASTAPP介绍（一）Table1.Active True DBGrid1.DataSource DataSource1 这里要注意的是：DBDEMOS是Delphi缺省安装时C:DelphiDEMODBMASTAPP目录的别名，而且数据库表Customer.DB存在该目录下，用户在使用这一例子时，请注意这两项设置都是正确的。另外 Datasource1.Dataset，Table1.TableName和DBGrid1.Datasource属性都有下拉式列表框允许用户从可能的值列表中选择它们的值，这样能方便我们进行属性的

6、设置，而且不容易出错。Datasouuce1.AutoEdit属性设置为False是为了防止用户修改数据库表中的数据，在下面的讨论中我们将详细地进行说明。Table1.Active设置为True时,Delphi会打开Table1.TableName所指定的数据库表。如果这个数据库表不存在（或表中什么也没有，即空表），Delphi 会弹出出错信息并且Table1.Active变成False。当Table1.Active被设置成True之后，Table1 部件的一些属性就不能再修改了，如Table1.DatabaseName和Table1.Tablename属性。若要修改它们，必须首先要将Tabl

7、e1.Active属性设置为False，然后再进行修改，否则，Delphi会弹出错误信息“Cannot perform this operation on an open database”。当看到这个错误信息时，只需把Table1.Active置成False，完成相关的修改后，再把 Table1.Active 属性设置为True。当我们把DBGrid1.DataSource的值设置成DataSource1时，Delphi会把Customer.DB中的数据填充到DBGrid1部件中，并且可以用DBGrid1中的滚动条来浏览数据库表中的所有记录。14.1.3 运行程序 保存文件，命名代码单元为C

8、ust.pas，命名工程名为CustPRJ.DPR,然后按F9编译并运行程序。程序执行之后，我们可以使用滚动条或键盘移动键在字段和记录间移动。但不能修改表中的数据，因为Datasouc1.AutoEdit1属性已被设置为False。Cust程序中的三个部件都有各自的特殊用途，三个部件的相关属性在内部相互联系生成最终的应用程序。TTable部件连接磁盘上的实际数据库表和应用程序中其他部件的通道。TTable部件具有打开和关闭、读取、更新以及其他处理磁盘数据库文件的方法。TDatasource部件是连接TTable部件和数据浏览部件如TDBGrid部件的桥梁。TDBGrid部件用于显示数据库表中的

9、数据信息，它为应用程序提供一个直观的界面。图14.2阐述了这三个部件之间的关系。Cust程序中三个部件之间的内部关系 TDBGrid 部件的奇妙之处在于它知道如何去获取数据库表中的下一条或前一条记录，我们使用滚动条或箭头键便可以完成这项任务。TDBGrid部件不知道如何增加、删除和修改记录。如果想让 Cust 程序能够修改数据库表中的记录，只要把 Datasource1 部件的AutoEdit属性设置成True，并重新编译和运行程序就可以达到目的。使用箭头键，把DBGrid的高亮度条定位到某一个字段上，然后键入新值，该字段中的值将被键入的新值所取代，并且当移动到另一条记录时，健入的信息会自动写

10、入数据库表中。如果想放弃所做的改动，只需在离开该字段前按一下Escape键。如果想在表中增加新记录，可以把高亮度条移到网格底端的空白记录上并输入新记录的有关字段值。也可以在用户指定的某一条记录的后面插入一条新记录，只要把高亮度条定位到指定的记录上，按Ins键，使可以在该记录的后面插入新记录。删除某一条记录时，把高亮度条定位在想删除的记录的任何字段上，按Ctrl+del键,这时会出现保护信息，我们可以确认是否真的想删除该项记录。TDBGrid为用户提供了较完备的功能，用于控制是否编辑、增加或删除记录。若想禁止对数据库表作任何修改，设置TDBGrid部件的Readonly属性为 True，并设置

11、Option.dgEDiting为False(这将为我们提供一个只读的数据库表浏览器而不是数据库编辑器，但它隐含着增加、编辑和删除记录的能力)。TDBGrid部件的这些属性和Option属性其它选项的各种不同组合可以让我们很方便地对数据库表进行有效的浏览、编辑等操作。如果我们经常使用像电子表格那样的界面来显示和编辑数据记录，TDBGrid 部件便是一个很方便的工具，但那并不是最友好的用户界面，如果想拥有更优美更直观的界面，我们还可以使用单独的数据浏览部件来显示数据库表中各个字段的值，并利用TDBNavigator部件控制对数据库表的存取。14.2 利用TDBNavigator部件创建存取程序

12、页码，2/29第十四章 简单数据库应用的创建及MASTAPP介绍（一）我们可以改进一下Cust程序以便它一次只在对话框中显示一个客户的记录信息，并用一个TDBNavigator部件控制对记录存取允许我们选择一个记录来显示或编辑以及增加和删除记录。完成的应用窗体。增强的Cust程序 14.2.1 创建应用程序窗体 我们可以非常迅速地创建起来，因为到目前为止我们对创建窗体的方法已经比较熟悉，我们首先把所有的部件都放到窗体中，然后再设置它们的属性。开始一个新工程，设置窗体Form1的Name 属性为 Customerform2，Caption 属性为 CustomerForm2。然后从部件选择板上的

13、Data Access页上选取一个Datasource部件和一个Table部件放在窗体的右上角。再从Data Controls页上选取DBNatvigator部件放在窗体的左上角。窗体中其余的部件如图14.3所示。它们是TDBEdit和TLabel部件，按图14.3 所示创建并布置部件，分别命名DBEdit部件为EditCustno、Editcompany、EditAddr1、EditAddr2、EditCity、EditState、EditZip、EditCountry、EditPhone、EditFAX、EditTaxRate、EditContact。现在我们来连接TTable部件和 TD

14、ataSource 部件，然后连接所有的数据浏览部件和DataSource部件。设置TBNavigator部件和TDBEdit部件的属性，它们的DataSource属性都设置为DataSouce1。我们最后要做的事是连接窗体中各个TDBEdit 部件和它们在数据库表中对应的字段名，通过设置TDBEdit 部件的 DataField 属性来完成。例如要连接命名为EditCustNo的TDBEdit部件和数据库表中的CustNo字段，具体步骤如下：选中窗体中的EditCustNo部件。在Object Inspector窗体中，单击DataField属性右边的箭头。从下拉列表中选中CustNo字段名

15、。对窗体中的其他TDBEdit部件执行以上操作连接到其对应的字段，然后保存文件。命名代码单元名为Cust2.pas，命名工程名为Cusprj2.DPR。14.2.2 使用TDBNavigator部件移动记录指针 上述程序运行之后，在数据浏览部件中会显示数据库表中的第一条记录。利用Tab 键可以在字段之间移动，但是不能编辑字段。因为我们为了防止意外修改，设置了Table1的AutoEdit属性值为False。如果想对数据库表中的记录进行编辑、插入和删除操作或者想显示数据库表中另一条记录，需要按 TDBNvigator 部件上这些功能所对应的功能按钮。TDBNavigator部件上的按钮和它们的功

16、能如图14.4所示。TDBNavigator中的按钮 TDBNavigator部件的绝大多数功能都可以根据其按钮的图标能够很容易地识别出来，而且TDBNavigator部件本身能感知到很多事情，如当前指针是否在数据库表的开头或尾部。如果用户正在查看数据库表中的最后一个记录，Next和Last按钮将会变灰成为非活动状态。同样，如果用户当前正在浏览数据库表中的第一条记录，TDBNavigator 上的 First 和Previous按钮会变灰而成为非活动状态。有关各个按钮的作用的更详细说明请查看联机帮助。如果用户想修改当前的记录，单击TDBNavigator部件的Edit按钮，然后完成需要做的修改

17、，在做完修改之后，单击Post按钮以便将作的修改写入实际的数据库表中（更新实际的数据库表中的记录在数据库术语中叫作“投寄”记录即PostT）。如果想取消所做的修改，单击Cancel按钮。Cancel按钮只取消自从上一次往数据库表中投寄记录以来对记录所做的修改。例如，如果用户曾修改了CustNo字段并单击了Post按钮投寄了修改，然后再修改Company字段并按Cancel，那么只有对Company所做的修改将会被取消。也就是说，一旦修改被写入了数据库表中，再按Cancle按钮是无法取消对记录的修改的，要想恢复到以前的状态，用户必须要重新编辑修改记录。值得注意的是，当用户修改了当前的记录，并移动

18、到其他记录时，TDBNavigaator部件会自动地投寄用户对记录的修改。例如：如果我们修改了记录的Company字段，并没有按Post按钮以更新表中的记录，而是移动到下一条记录，这时用户对记录的修改也会自动地被写入数据库表中。14.2.3 定制TDBNavigator部件 TDBNavigator部件中的按钮对我们开发人员来说是很方便的，但对于程序的最终用户来说不一定那么一目了然。为了帮助最终用户或初级用户更方便有效地使用TDBNavigator部件，我们可以设置TDBNavigator部件的ShowHint属性为True，这样当鼠标光标停留在TDBNavigator部件上的某一个按钮上超过

19、大约秒钟，在屏幕上便会出现该按钮的提示信息。如果我们不想使用TDBNavigator部件本身嵌入的提示信息，我们还可以设置TDBNavigtor部件的Hints属性，为每个按钮指定特定的提示信息，以帮助用户使用TDBNavigator部件。页码，3/29第十四章 简单数据库应用的创建及MASTAPP介绍（一）TDBNavigator部件中有多个功能按钮，但并不是所有的按钮对每一个数据库应用程序都是需要的，特别是那些不允许修改表中的数据，或修改只是在很严格的控制下进行的数据库应用程序。我们可以通过设置TDBNavigator部件的 VisibleButtons 属性来确定要在TDBNavigat

20、or中显示哪些按钮步显示哪些按钮。例如，如果我们不允许用户修改表中的记录，我们就不需要Add、Delete、Post、Cancel 或 Refresh 按钮，我们设置这些按钮的VisibleButtons属性为False，这样在TDBNavigator部件中将不会出现这些按钮。TDBNavigator部件的ConfirmDelete属性和Delete 按钮配合使用对用户删除数据库表中的记录是非常有用的，当ConfirmDelete属性设置为 True（缺省设置），当用户单击Delete按钮试图删除当前记录时，Delphi会弹出一个确认框，要用户确认是否真的想删除当前记录。这样，在用户进行删除记

21、录的操作时，会更安全一些。如果用户不希望在按下Delete按钮时出现确认框，只要把ConfirmDelete设置为False就可以了。还有一些属性可以用来定制TDBNavigator部件的外观和性能，有关这方面的详细信息请参看联机帮助。14.3 创建主要明细数据库应用 我们前面在介绍的基于单个数据库表的数据库应用程序只能对数据库表进行简单的管理，大多数只用来浏览单个数据库表中的记录信息，如果我们想浏览多个相关的数据库表中的记录信息，就必须要创建主要明细型数据库应用程序。在主要明细型数据库应用程序中，一个数据库表作为主要表，其中存放着综合信息，其他的数据库表和主要数据库表相关联，它们当中存放着更

22、详细的信息。例如，当数据库表Customer.DB作为主表，它包含着客户的综合信息如编号、姓名、所在公司的名称等等。而数据库表Orders.DB中包含着每个客户的订货单的详细信息，如订单号、发货日期、起运日期、发货目的地等信息，这样当在Customer.DB表中查看某一位客户时，利用其中的字段CustNo与Orders.DB表发生联系，自动地从Orders.DB表中检索出这位客户曾经发来的所有订货单的详细信息。主要明细型数据库体现了关系数据库的特点，即独立的数据库表之间基于它们共同的字段而发生联系。在这里Customer.DB和Orders.DB拥有一个共同的字段CustNo。14.3.1 一

23、对多关系的主要明细型数据库应用程序 主要和明细数据库表之间存在一对多的关系，意思是说对于主表中的一条记录，在明细表中有多条记录与之对应。例如，创建一个主要明细型数据库应用程序，其包括两个表Customer.DB和Orders.DB，它们分别作为主表和明细表，创建好的应用如图14.5所示，窗体中各部件的属性设置 表14.2 主要明细型数据库应用中各部件的属性 部 件 属 性 属 性 值 注 释 Table1 Active True (主表)DatabaseName DBDEMOS TableName CUSTOMER.DB DataSource1 DataSet Table1 AutoEdit

24、False Table2 Active True (明细表)DatabaseName DBDEMOS TableName ORDERS.DB IndexFieldNames CUSTNO 指定字段CUSTNO作为 页码，4/29第十四章 简单数据库应用的创建及MASTAPP介绍（一）Table2中的索引字段 MasterField CUSTNO 指定与主表发生联系 的字段 MasterSource DataSource1 说明与主表相连接的 数据源即DataSource DataSource2 DataSet Table2 AutoEdit False DBGrid1 DataSource D

25、ataSource1 (对应主表)DBGrid2 DataSource DataSource2 (对应明细表)TableName ORDERS.DB DBNavigator1 DataSource DataSource1 一对多关系是非常普遍的关系。即便是简单的名字/地址数据库都有一对多的关系，因为一个人可能不止一个地址：家庭地址、工作地址、还可能有别墅地址。在本例中，公司的一个客户常常有多个订货单，当我们单击DBNavigator1中的向前、向后按钮时，会移动DBGrid1中的记录指针，而在DBGrid2中会自动显示与DBGridl 中当前记录相关的多条记录，即显示一个客户的信息时，同时会显

26、示该客户的所有订货单的详细信息。14.3.2 一对多多关系的数据库应用 前面我们介绍了基于两个表的一对多关系的应用，下面我们介绍怎样创建一个从三个表中浏览数据记录的一对多关系的应用。例如：一个客户也许有多张订货单，而每一张订货单中有多个订货项目，这样我们在Customer.DB表和Orders.DB表之间建立一个主要明细型关系，同时在orders.DB 表和Items.DB表之间建立一个主要明细型关系。窗体中各部件的属性如表14.3所示 表14.3 一对多多关系的应用中各部件的属性 部 件 属 性 属 性 值 注 释 页码，5/29第十四章 简单数据库应用的创建及MASTAPP介绍（一）Act

27、ive True Table1 DatabaseName DBDEMOS TableName CUSTOMER.DB DataSource1 DataSet Table1 AutoEdit False Active True DatabaseName DBDEMOS Table2 TableName ORDERS.DB IndexFieldNames CUSTNO MasterField CUSTNO MasterSource DataSource1 DataSource2 DataSet Table2 AutoEdit False Active True DatabaseName DBDEM

28、OS Table3 TableName ORDERS.DB IndexFieldNames ORDERNO MasterField ORDERNO MasterSource DataSource2 DataSource3 DataSet Table3 AutoEdit False DBGrid1 DataSource DataSource3 DBNavigator1 DataSource DataSource1 页码，6/29第十四章 简单数据库应用的创建及MASTAPP介绍（一）窗体中其余的部件都是TDBEdit和TLabel部件，它们用于显示Customer.DB中的字段值和Order.D

29、B中的字段值。在该例子中，总共连接了三个表，Customer.DB 表是主要表，Orders.DB表在窗体中起到了双重作用，它既是Customer.Db表的明细表，同时又是Items.DB表的主要表，Items.DB表是Orders.DB表的明细表。14.4 字段对象的使用 Ttable和TQuery部件中有一个TField类型的属性Fiedls，Fields是TField类型的对象的列表，TField对象列表是Delphi数据库中较难以理解的一个对象，它是 TTable 部件和TQuary部件的一部分，它们是不能够选择到窗体中的独立的部件，而且无论是在设计阶段还是在程序运行过程中，它们都没有

30、可见的图像。即使到Object Inspector窗中察看它们也很困难。Tfield对象是在打开磁盘上的数据库表时动态产生的，并在数据库表被关闭时自动消失，TField对象可以控制表中的每一列是否在数据浏览部件中显示以及以何种格式显示等等。通过字段编辑器(Fields Editor)我们可以建立永久性的TField 对象列表代替动态的Tfield对象列表供Delphi应用程序使用，通过Fields Editor建立的永久性的字段对象会自动地加入到程序库单元的TForm类型定义中，它们保存在应用程序中，即使数据库表的基本结构发生了改变，它也是一直保留着，当然如果修改后的表中使得原来所定义的字段对

31、象不再存在，Delphi应用程序在运行过程中会给出现错误信息。14.4.1 字段对象的类型 字段对象TField对应数据库记录中的各个字段，因为数据库记录中的字段有多种数据类型，因此对记录字段可能出现的每一种数据类型都有一个独立的TField类型与之对应。TField的类型如表14.4所示 表14.4 字段对象的类型 字段对象的类型 对应的数据类型 TBooleanField 布尔型数据 TCurrentyField 货币型数据 TStringField 字符串数据 TIntegerField 整数型数据 TBLOB 大二进制对象 在大多数情况下可能使用的是TStringField和TInte

32、gerField类型的字段对象，从编程的角度来看这些TField对象的不同类型是完全相同的，应用程序是根本不必关心TField对象的实际类型，它们之间的主要区别在于：它们内部保留的以及它们和数据库表之间传递的数据类型不一样。14.4.2 创建永久性的字段对象 我们知道字段对象在设计和运行阶段都是不可见的，它既可以随着磁盘上的数据库文件被打开时动态地生成也可以通过字段编辑器Fields Editor来创建它。在应用程序中使用Fields Editor可以为数据库表中的字段创建相应的永久性的TField对象，TField 部件是不可见的部件，但是通过它，我们可以定义数据库表中各字段的显示属性和显示

33、顺序以及控制字段的取值范围等。下面的例子，告诉我们如何使用Fields Editor定义Customer.DB表中的四字段，并在网格中显示表中的记录信息。操作步骤：、建立一个基于 customer.DB 表的数据库应用窗体，并在窗体中用一个网格显示customer.DB中的全部字段，详细方法请参见14.1节，建好的窗体如图14.1所示。页码，7/29第十四章 简单数据库应用的创建及MASTAPP介绍（一）、设置窗体中Table1的Active属性为True，使网格显示表中的记录。、选中Table1并双击鼠标左键，打开字段编辑器Fields Editor，缺省情况下字段列表为空。、单击鼠标右键弹

34、出一个弹出式菜单，然后选择Add Fields菜单项，缺省情况下表Customer.DB中的全部字段被选进字段列表框。从字段列表框中选择你要在网格中显示的字段，具体做法是：单击Custno字段，并按住CTR键，再单击Company、Phone、LastInviceDate字段，然后单击OK按钮，确认被选择的四个字段，时窗体中的DBGrid1中只显示刚才被选中的四个字段值，而不再显示表中其它的字段值。目录 上一页 下一页 Delphi园地 http:/ 第十四章 简单数据库应用的创建及MASTAPP介绍（二）第十四章 简单数据库应用的创建及MASTAPP介绍（二）5 5、改变字段的显示顺序。单击

35、LastInvoiceDate 字段并将它拖放到字段列表框中的第三行，即处于Company和Phone字段之间。此时窗体中显示Customer.DB 表中记录的字段将按新的顺序显示。、选择Close按钮，关闭字段编辑器Fields Editor。、按F9，运行上述程序。14.4.2 字段对象的属性设置 虽然字段对象是不可见的对象，但是它同样具有很多的属性。在程序设计阶段，我们通过一定的方式可以设置它的有关属性，下面是设置字段对象的属性的方法和步骤。、选择窗体中的table1。、双击table1，打开字段编辑器Fields Editor。、选择要设置属性的字段。、在Object Inspecto

36、r中修改字段对象的属性。我们可以按上述方法设置Table1中各字段对象的有关属性，当我们选择Custno字段并修改其属性，窗体内会出现对话 字段对象的属性 修改字段CustNo的Alignment属性为taCenter，此时网格中显示的CustNo 字段值由原来的右对齐变成了居中。表14.5中列出了字段对象在设计阶段可以修改的属性以及属性说明 表14.5 字段对象的重要属性 属 性 注 释 Alignment 说明字段值的显示方式：左对齐、右对齐、居中 Calculated 当该属性值为True时，表明该字段的值是根据其它字 页码，8/29第十四章 简单数据库应用的创建及MASTAPP介绍（一

37、）段的值计算得来的。否则该字段是数据库表中的字段 DisplayLabel 说明字段在网格部件中显示时的标题，缺省情况下字 段的标题就是字段名 DisplayWidth 说明字段在网格中显示时所点的列宽度，即字符数 DisplayFormat 说明字段在显示和编辑状态下的显示格式和输入的过 and EditMask 滤条件(限定用户输入字段值的范围)。FieldName 在数据库表中对应于该字段对象的字段名称 Index 指定该字段对象在数据集部件中的逻辑位置，如Table1 中的第一个字段对象的Index值为 Name 字段对象的名称，缺省情况下，它是TTable、TQuery 部件的名称加

38、上字段的名称。如上例中的CUSTNO字段 对象的Name属性值为Table1CUSTNO，通过字段对象的 Name属性可以访问该字段的值，如Table1CUSTNO.Value ReadOnly 说明该字段是否能被修改，当该属性值为True时，该 字段的不能被修改 Visible 当该属性值为True时，在与之相连的网格部件中将不 显示该字段 根据表14.5中的属性，我们可以修改上例中一些字段的某些属性，使网络中显示表Customer.DB中的记录更符合我们的工作习惯。修改的属性如表14.6所示，经过修改后的程序运行结果如图14.10所示。表14.6 修改后的字段对象的属性 页码，9/29第十

39、四章 简单数据库应用的创建及MASTAPP介绍（一）字 段 属 性 属 性 值 CustNo DisplayLabel 客户编号 Company DisplayLabel 公司名称 Phone DisplayLabel 电话号码 LastInvoiceDate DisplayLabel 购买日期 修改字段对象的属性 14.4.4 字段对象的访问 字段对象在应用程序中有动态生成的，也有通过字段编辑器Fields Editor 创建的永久性的，它们虽然在设计和运行阶段都是不可见，但是它们跟其他的对象一样都拥有自己的属性、方法和事件，因此我们在应用程序中是可以对字段对象进行控制和访问的。因为动态字段

40、对象是没有自己的名字的，永久性的字段对象有自己的名字，所以对这两种字段对象的访问方法是不一样的。14.4.4.1 动态字段对象的访问 动态字段对象存在于数据集部件TTable和TQuery部件中，它们是随着磁盘上的数据库文件的打开而动态生成的，并且每一个字段对象对应于数据库表中的一个字段（即记录的一列），TTable或TQrery部件中所有的字段对象存在属性Fields列表中，Fields列表中的字段对象就像数组元素一样拥有自己的索引号，我们可以用这个索引号来访问字段对象。索引号在程序运行时赋值，从0开始，表中最左边的一列（第一个字段）的索引号为0，紧接着右边一个为1，以此类推。访问这些属性的

41、方法和处理其他对象一样。Table1.Fields0.DisplayLabel:=标识符 上述代码让我们访问与Table1相连的数据库表中的第一个字段，并为该字段指定一个标题，这是通过设置它的DisplayLabel属性值为一个特定的标识符来实现的。通过索引号来访问Fields属性中的字段在使用For循环对列号进行迭代时会非常有用。但是在大多数简单应用程序中，通过列名（字段名）来访问字段会更加明白而且易读。在TTable部件中，提供了一个名为FieldByName的方法以便让我们通过列名访问字段对象。Table1.FieldByName(CustNo).DisplayLabel:=标识符 通过

42、这种途径同样可以访问CUSTOMER.DB表中的CustNo字段，并为该字段指定一个标题信息。现在我们可以建立一个允许用户通过字段名和索引号来访问Customer.DB 表中的字段对象的简单窗体。字段对象的访问 在该应用窗体的运行过程中，我们通过程序来访问其中的字段对象并设置有关的属性，这一控制过程我们放在窗体的OnCreate事件处理过程中。例14.1 在窗体的Oncreate事件处理过程中访问字段对象。页码，10/29第十四章 简单数据库应用的创建及MASTAPP介绍（一）procedure TForm1.FormCreate(Sender:TObject);Begin with Tabl

43、e1 Do begin 通过索引号访问字段对象 Field0.DisplayLabel:=客户编号;通过字段名访问字段对象 FieldByName(Company).DisplayLabel:=公司名称;FieldByName(Phone).DisplayLabel:=电话号码;FieldByName(LastInvoiceDate).DisplayLabel:=购买日期;end;end;在程序运行过程中访问字段对象 14.4.4.2 永久性字段对象的访问 通过字段编辑器Fields Editor 建立的永久性字段对象的访问相对于动态字段对象的访问要简单得多，我们在程序中可以直接通过字段对象的

44、名称（即Name属性）进行访问。例如：Table1CustNo.DisplayLabel:=客户编号;Table1CustNo.DisplayWidth:=12;14.4.4.3 字段对象的读取和赋值 通过字段对象的Value属性，我们可以读取字段对象的值，例如在如图14.13所示的窗体中，单击Read按钮便可以将Customer.DB表中当前记录的COMPANY字段的值读取到编辑框Edit1中。读取字段对象的字段值 窗体中各部件的属性如表14.7所示 表14.7 各部件的属性 部件的属性 属 性 值 Button1.Caption&Read Button1.Name Button1 Labe

45、l1.Caption 字段值 页码，11/29第十四章 简单数据库应用的创建及MASTAPP介绍（一）Label1.Name Label1 Edit1.Text Edit1.Name Edit1 其它部件的的属性跟前面的例子一样。为Read按钮编辑的OnClick事件处理过程如下：procedure Form1.TButton1Click(Sender:TObject);begin Edit1.Text:=Table1Company.Value;end;在这里要注意的是：从字段对象中读取字段值时必须要将它赋给与之数据类型相匹配的变量，否则会出错。在上面的程序代码中，Table1Company的

46、类型是TStringField 即是字符串类型的字段，而编辑框Edit1的属性Text的类型也是字符串型的，因而它们是匹配的。如果类型不匹配，则要经过一定的转换才能够相互赋值。如：Edit1.Text:=Table1CustNo.Value 这条代码在运行过程中将会出错，因为TablelcustNo是TFloatField 类型即是数值型数据，要在编辑框Edit1中显示数值型数据要经过下列转换：Edit1.text:=Table1CustNo.AsString;AsString是字段对象的属性，通过字段对象的AsString属性可以读取字段值并且将它转换成字符串类型。字段对象的字段值可以转换成

47、以下几种类型的数据:AsString:将字段值转换成字符串数据 AsBoolean:将字段值转换成布尔型数据 AsDateTime:将字段值转换成日期时间数据 AsFloat:将字段值转换成数值型数据 AsInteger:将字段值转换成整数型数据 下面的程序代码是从字段对象中读取字段值并将它显示在编辑框Edit1中，或者将字段值赋给相匹配的变量。CustNoDouble:Double;CustNoInt:Integer;CustNoString:String;在Edit1中显示字段值 Edit1.Text:=Table1Company;类型相匹配，不需要转换 Edit1.Text:=Table

48、1CustNo.AsString;类型不匹配，需要转换 页码，12/29第十四章 简单数据库应用的创建及MASTAPP介绍（一）将字段值赋给变量 CustNoDouble:=Table1CustNo.Value;类型相匹配，不需要转换 CustNoInt:=Table1CustNo.AsInteger;类型不匹配，需要转换 CustNoString:=Table1CustNo.AsString;类型不匹配，需要转换 14.4.5 设定字段对象的显示格式 我们即可以在设计阶段设定字段对象的显示格式，也可以在运行过程中通过程序代码来设定字段对象的显示格式。例14.2 在如图14.10所示的窗体中，

49、再增加一个TaxRate字段，并在程序设计过程中设定它的显示格式为0.00%，即设置TaxRate字段对象的DisplayFormat属性为0.00%，若TaxRate的值为0.085那么在网格部件中其显示的格式为8.50%。在运行过程中我们通过程序代码来设定字段Phone的显示格式，美国的电话表示形式与中国的表示形式不一样（如美国808-555-0269,中国(808)5550269），为此我们将phone 字段的值表示成中国式的形式。具体方法是：在 Object Inspector 中选取Table1phone对象，并为此对象的OnGetText事件编写如下程序代码：TForm1.Tabl

50、e1PhoneGetText(Sender:TField;Text:OpenString;DisplayText:Boolean);begin If DisplayText then begin Text:=Table1Phone.Value;Delete(Text,4,1);Delete(Text,7,1);Insert(,Text,1);Insert(),Text,1);end;end;图14.14 设定字段对象的显示格式 14.4.6 自定义字段以及计算字段对象的创建 有时候为了使应用程序完成所期望的工作，我们要在数据库表现有字段的基础上增加一些自定义的字段，这些字段并不是数据库表中实际