第二十二章　简单数据库应用的创建及MASTAPP介绍（八）

改变字段的显示顺序。单击LastInvoiceDate字段并将它拖放到字段列表框中的第三行，即处于Company和Phone字段之间。此时窗体中显示Customer.DB表中记录的字段将按新的顺序显示。
６、选择Close按钮，关闭字段编辑器Fields Editor。

７、按F9，运行上述程序。

14.4.2 字段对象的属性设置　

     虽然字段对象是不可见的对象，但是它同样具有很多的属性。在程序设计阶段，我们通过一定的方式可以设置它的有关属性，下面是设置字段对象的属性的方法和步骤。

１、选择窗体中的table1。

２、双击table1，打开字段编辑器Fields Editor。

３、选择要设置属性的字段。

４、在Object Inspector中修改字段对象的属性。

     我们可以按上述方法设置Table1中各字段对象的有关属性，当我们选择Custno字段并修改其属性，窗体内会出现对话

字段对象的属性

     修改字段CustNo的Alignment属性为taCenter，此时网格中显示的CustNo字段值由原来的右对齐变成了居中。

表14.5中列出了字段对象在设计阶段可以修改的属性以及属性说明　

表14.5 字段对象的重要属性

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

属 性 注 释

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

Alignment 说明字段值的显示方式：左对齐、右对齐、居中

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

Calculated 当该属性值为True时，表明该字段的值是根据其它字

段的值计算得来的。否则该字段是数据库表中的字段

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

DisplayLabel 说明字段在网格部件中显示时的标题，缺省情况下字

段的标题就是字段名

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

DisplayWidth 说明字段在网格中显示时所点的列宽度，即字符数

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

DisplayFormat 说明字段在显示和编辑状态下的显示格式和输入的过

and EditMask 滤条件(限定用户输入字段值的范围)。

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

FieldName 在数据库表中对应于该字段对象的字段名称

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

Index 指定该字段对象在数据集部件中的逻辑位置，如Table1

中的第一个字段对象的Index值为０

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

Name 字段对象的名称，缺省情况下，它是TTable、TQuery

部件的名称加上字段的名称。如上例中的CUSTNO字段

对象的Name属性值为Table1CUSTNO，通过字段对象的

Name属性可以访问该字段的值，如Table1CUSTNO.Value

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

ReadOnly 说明该字段是否能被修改，当该属性值为True时，该

字段的不能被修改

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

Visible 当该属性值为True时，在与之相连的网格部件中将不

显示该字段

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

      根据表14.5中的属性，我们可以修改上例中一些字段的某些属性， 使网络中显示表Customer.DB中的记录更符合我们的工作习惯。修改的属性如表14.6所示，经过修改后的程序运行结果如图14.10所示。

表14.6 修改后的字段对象的属性

www.mogujie.com/group/topic/1zor4

www.mogujie.com/group/topic/1zor4

www.mogujie.com/group/topic/1zor4

www.mogujie.com/group/topic/1zor4

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

字 段 属 性 属 性 值

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

CustNo DisplayLabel 客户编号

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

Company DisplayLabel 公司名称

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

Phone DisplayLabel 电话号码

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

LastInvoiceDate DisplayLabel 购买日期

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

修改字段对象的属性 　

14.4.4 字段对象的访问 　

     字段对象在应用程序中有动态生成的，也有通过字段编辑器FieldsEditor创建的永久性的，它们虽然在设计和运行阶段都是不可见，但是它们跟其他的对象一样都拥有自己的属性、方法和事件，因此我们在应用程序中是可以对字段对象进行控制和访问的。

因为动态字段对象是没有自己的名字的，永久性的字段对象有自己的名字，所以对这两种字段对象的访问方法是不一样的。

14.4.4.1 动态字段对象的访问

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

Table1.Fields[0].DisplayLabel:='标识符'　

     上述代码让我们访问与Table1相连的数据库表中的第一个字段，并为该字段指定一个标题，这是通过设置它的DisplayLabel属性值为一个特定的标识符来实现的。

    通过索引号来访问Fields属性中的字段在使用For循环对列号进行迭代时会非常有用。但是在大多数简单应用程序中，通过列名（字段名）来访问字段会更加明白而且易读。在TTable部件中，提供了一个名为FieldByName的方法以便让我们通过列名访问字段对象。

Table1.FieldByName('CustNo').DisplayLabel:='标识符'

通过这种途径同样可以访问CUSTOMER.DB表中的CustNo字段，并为该字段指定一个标题信息。

    现在我们可以建立一个允许用户通过字段名和索引号来访问Customer.DB表中的字段对象的简单窗体。

字段对象的访问

    在该应用窗体的运行过程中，我们通过程序来访问其中的字段对象并设置有关的属性，这一控制过程我们放在窗体的OnCreate事件处理过程中。

例14.1 在窗体的Oncreate事件处理过程中访问字段对象。　

procedure TForm1.FormCreate(Sender:TObject);

Begin

with Table1 Do

begin

{通过索引号访问字段对象}

Field[0].DisplayLabel:='客户编号';

{通过字段名访问字段对象}

FieldByName('Company').DisplayLabel:='公司名称';

FieldByName('Phone').DisplayLabel:='电话号码';

FieldByName('LastInvoiceDate').DisplayLabel:='购买日期';

end;

end;　　

在程序运行过程中访问字段对象　

14.4.4.2 永久性字段对象的访问　

     通过字段编辑器Fields Edito
a30c
r建立的永久性字段对象的访问相对于动态字段对象的访问要简单得多，我们在程序中可以直接通过字段对象的名称（即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

Label1.Caption 字段值

Label1.Name Label1

Edit1.Text

Edit1.Name Edit1

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

　

其它部件的的属性跟前面的例子一样。

为Read按钮编辑的OnClick事件处理过程如下：　

procedure Form1.TButton1Click(Sender:TObject);

begin

Edit1.Text:=Table1Company.Value;

end;

    在这里要注意的是：从字段对象中读取字段值时必须要将它赋给与之数据类型相匹配的变量，否则会出错。在上面的程序代码中，Table1Company的类型是TStringField即是字符串类型的字段，而编辑框Edit1的属性Text的类型也是字符串型的，因而它们是匹配的。如果类型不匹配，则要经过一定的转换才能够相互赋值。如：　

Edit1.Text:=Table1CustNo.Value