知识大全简单数据库应用的创建及MASTAPP介绍（二）[2]

Posted 2022-07-21 知

篇首语：你最愿意做的那件事，才是你真正的天赋所在。本文由小常识网(cha138.com)小编为大家整理，主要介绍了知识大全简单数据库应用的创建及MASTAPP介绍（二）[2]相关的知识，希望对你有一定的参考价值。

DELPHI基础教程：简单数据库应用的创建及MASTAPP介绍（二）[2] 以下文字资料是由(全榜网网www.cha138.com)小编为大家搜集整理后发布的内容，让我们赶快一起来看一下吧！

　　修改字段对象的属性

　　 字段对象的访问

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

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

　　 动态字段对象的访问

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

　　Table Fields[ ] DisplayLabel:= 标识符

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

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

　　Table FieldByName（ CustNo ） DisplayLabel:= 标识符

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

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

　　字段对象的访问

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

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

　　procedure TForm FormCreate（Sender:TObject）

　　Begin

　　with Table Do

　　begin

　　通过索引号访问字段对象

　　Field[ ] DisplayLabel:= 客户编号 ;

　　通过字段名访问字段对象

　　FieldByName（ Company ） DisplayLabel:= 公司名称 ;

　　FieldByName（ Phone ） DisplayLabel:= 电话号码 ;

　　FieldByName（ LastInvoiceDate ） DisplayLabel:= 购买日期 ;

　　end;

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

　　 永久性字段对象的访问

　　通过字段编辑器Fields Editor 建立的永久性字段对象的访问相对于动态字段对象的访问要简单得多我们在程序中可以直接通过字段对象的名称（即Name属性）进行访问

　　例如

　　Table CustNo DisplayLabel:= 客户编号 ;

　　Table CustNo DisplayWidth:= ;

　　 字段对象的读取和赋值

　　通过字段对象的Value属性我们可以读取字段对象的值例如在如图所示的窗体中单击Read按钮便可以将Customer DB表中当前记录的PANY字段的值读取到编辑框Edit 中

　　读取字段对象的字段值

　　窗体中各部件的属性如表所示

　　表各部件的属性

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

　　部件的属性属性值

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

　　Button Caption &Read

　　Button Name Button

　　Label Caption 字段值

　　Label Name Label

　　Edit Text

　　Edit Name Edit

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

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

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

　　procedure Form TButton Click（Sender:TObject）

　　begin

　　Edit Text:=Table Company Value;

　　end;

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

　　Edit Text:=Table CustNo Value

　　这条代码在运行过程中将会出错因为TablelcustNo是TFloatField 类型即是数值型数据要在编辑框Edit 中显示数值型数据要经过下列转换

　　Edit text:=Table CustNo AsString;

　　AsString是字段对象的属性通过字段对象的AsString属性可以读取字段值并且将它转换成字符串类型字段对象的字段值可以转换成以下几种类型的数据

　　AsString: 将字段值转换成字符串数据

　　AsBoolean: 将字段值转换成布尔型数据

　　AsDateTime: 将字段值转换成日期时间数据

　　AsFloat: 将字段值转换成数值型数据

　　AsInteger: 将字段值转换成整数型数据

　　下面的程序代码是从字段对象中读取字段值并将它显示在编辑框Edit 中或者将字段值赋给相匹配的变量

cha138/Article/program/Delphi/201311/25170

知识大全 简单数据库应用的创建及MASTAPP介绍（二）[2]

知识大全简单数据库应用的创建及MASTAPP介绍（二）[2]