delphi完美经典--第十六章

第16章 Delphi数据库程序设计----使用BDE组件

Delphi访问数据库的方式有：ADO、BDE、dbExpress、InterBase Express。

一、TDataSet组件

虽然Delphi有多种方式访问数据库，但它们必须依赖TDataSet。它用来显示从数据库单一或多个数据表取得的所有记录。

1、TDataSet常用属性

Active：指定或取得DataSet是否为打开状态。为True时，相当于调用Open。

Bof、Eof：Bof检测DataSet是否停在第一条记录。Eof用来检测DataSet是否停在最后一条记录。

Bof在以下任一条件成立时，为True	Eof在以下任一条件成立时，为True
打开DataSet	打开空的DataSet
调用First	调用Last(除非这个DataSet是单向的)
调用Prior，且因已达到第一条而失败时	调用Next，且因已达到最后一条而失败时
调用SetRange，取得空的DataSet或选取区时	调用SetRange，取得空的DataSet或选取区时
仅当DataSet为空时，Bof和Eof同时为True。

Bookmark：当DataSet并非单向时，Bookmark属性可用来指定或取得当前记录指针所在位置，如此，程序便可轻易返回指定位置。

CanModify：检测DataSet是否允许写入。

FieldCount：取得字段数。

FiledDefs：取得字段定义：字段名称、数据类型、大小等。

Fields：通过Field数组索引值取得对应的TField控件，访问对应字段数据，其常用属性和事件：

Ø  AsBoolean、AsDataTime、AsString、AsVariant等：将字段值转为Boolean、DataTime、String、Variant等。

Ø  Value：直接访问字段值内容。

Ø  OnGetText事件：可在字段数据显示前做些额外的处理操作。其做法分为两个步骤：首先编写处理函数(处理函数有特定格式，参考API)，然后将这个处理函数指定给某个字段(如：Query1.Fields[0].OnGetTextMetrics := 处理函数)。

Ø  FieldValue：设置或取得字段的Variant值，输入参数为字段名称。如Query1.FieldValue[‘name’]

Ø  Filter、Filtered：Filtered开关过滤条件。Filter用来取得或设置当前的过滤字符串。Filtered为False时，则Filter无效。Filter设置方法：’NAME = ‘’MWJ’’’

Ø  State：DataSet目前的状态。它用来判断DataSet目前的操作模式，及接下来可做的行为。具体参考API。

2、TDataSet常用的方法

Append和AppendRecord：Append新增空记录于DataSet末端。AppendRecord新增空记录于DataSet末端。且根据输入的Values参数数组，保存到数据库。

Insert和InsertRecord：Insert新增空记录。InsertRecord新增记录，并完成Post。

Cancel：只要DataSet还在编辑模式，且尚未Post，则Cancel可放弃改变。

Post：回存记录到数据库。

Close：与Active设为False相同作用。

FieldByName：通过输入的参数字段名称，取得相应的Field。

Lookup：找到后不移动记录指针到找到的记录。

Locate：从当前记录开始查找，找到时，返回True，并将记录指针移动到找到的记录。查找时，注意先First。

First、Last、Next、Prior与Find First、Find Last、Find Next、FindPrior：后面四个，有返回值。找到时返回True。

FreeBookmark、GetBookmark、GotoBookmark：GetBookmark指定当前记录为书签，GotoBookmark定位到指定书签，FreeBookmark释放书签。

3、TDataSet常用的事件

OnFilterRecord：当Filtered为True，且过滤结果DataSet不为空时触发。

貌似无法直接使用TDataSet，无法建立TDataSet对象。没错，TDataSet是TTable、TQuery、TStoreProc及非BDE数据访问组件的共同父类。要使用TDataSet，必须通过它的子类功能。

二、TTable组件

TTable通过BDE访问数据库的“单一”数据表，它继承自TDataSet。大部分属性和方面前面在TDataSet中已讲，仅介绍TTable特有的部分。

常用属性：

Exclusive：用来锁住Paradox、dBase等数据库的数据表，它必须在TTable关闭时使用。并非所有数据库都支持Exclusive操作。

IndexDefs：建立、维护Table的索引。

TableName：设置或取得数据表名称。

常用方法：

BatchMove：从一DataSet移动记录到另一个Table。数据库有索引键时才有用。

CreateTable：建立数据表。调用前通过DataSet的FieldDefs.AddFieldDef定义字段名称、类型等。

DeleteTable：删除前先关闭Table。

三、TQuery控件

TQuery继承自TDataSet，用来通过SQL指令，访问数据库的单一或多个数据表。

常用属性：

DataSource：DataSource用来自动填满与参数相同名称的字段对应值。

SQL：用来设置、取用SQL指令。

Text：只读。取得SQL字符串。

ParamCheck：设为False可避免Query将SQL字符串视为带参数的。如当   SQL中含有时间值(15:20:39)，设为False可避免将冒号视为参数。

Params：设置或取得Query的参数名称、参数值与参数的数据类型。

RequestLive：设为True可通过SELECT的DataSet结果，直接改变数据库。

常用方法：

ExecSQL：执行SQL指令的操作查询(INSERT、UPDATE、DELETE等)。执行SELECT，请调用Open方法。

ParamByName：通过参数名称操作Query的参数。

Prepare、UnPrepare：Prepare提高Query的执行效率，UnPrepare用来关闭Prepare。不需调用，Query组件已自动帮我们开关Prepare。

TQuery的使用：需设置DatabaseName和SQL语句，设置完后使其Active为True。若更改SQL语句，则需重新置Active为True。

四、TDatabase组件

TDatabase对象统一管理连接单一数据库的BDE架构应用程序，它常用来处理事件或登录数据库的设置。

常用属性：

AliasName、DatabaseName、DriverName：AliasName读写。连接的BDE的数据库别名。DatabaseName：数据库名。若DatabaseName与AliasName相同，则不需设置AliasName和DriverName。DriverName：数据库驱动器名称。更改前，Connected必须为False。

Connected、KeepConnection：Connected：读写。数据库是否已经联机。KeepConnection：指定程序是否保持联机数据库(即使DataSet不处于打开状态)。

Exclusive：当程序使用数据库时，设置Exclusive可将数据库加锁，避免其他程序使用它。并非所有数据库都支持这个属性。

LoginPrompt：设置为True，登陆数据库会出现账号、密码提示对话框。

InTransaction：检查数据库事件是否正在处理中。

TransIsolation(isolation：隔离)：事件的隔离层，这个属性用来设置各事件间互动的关系。并非所有数据库都支持。取值：

tiDirtyRead	允许读取其他事件尚未改变的内容
tiReadCommitted	默认值，允许读取其他事件已改变的内容
tiRepeatableRead	最严谨的隔离层。它保证读取后其他事件不会改变目前所得数据(除非目前事件自行改变记录数据)。

常用方法：

ApplyUpdates：当指定DataSet的

CloseDatasets：关闭所有的DataSets，但不关闭数据库连接。Close会关闭数据库连接。

Commit：确认改变(新增、更新、删除)当前事件，并结束当前事件。调用Commit前必须先以InTransaction确认目前事件是否存在，否则会出错。

Rollback：取消事件中所有的新增、更新、删除操作，并结束当前事件。

常用事件：

OnLogin：当LoginPrompt为True时，连接数据库会触发OnLogin事件。

TTable控件举例：建立两个数据表之间的一对多关系：即俗称的Master/Detail。如订单系统就是一对多关系，一个客户会有好几条数据，但一个订单就仅对应到一条客户资料。

两个TDataSource、两个TTable、两个TDBGrid。将DataSource1的DataSet设为Table1。DBGrid1的DataSource设为DataSource1。此时已完成Master数据表设定，接下来设定Detail数据表：Table2的MasterSource设为DataSource1，MasterFields设定对应属性。然后DataSource2的DataSet设为Table2，DBGrid2的DataSource设为DataSource2。运行后，光标在DBGrid1上的数据上移动时，DBGrid2的数据也会发生相应的变化。但光标在DBGrid2上移动时，DBGrid1不会变。注意与18章讲到的TDBLookupList控件区分(此控件会双向改变，而Master/Detail只会单向改变)。