桌面数据库开发

1.编写桌面数据库应用1.1. 使用数据集数据集是以行和列的形式组织起来的数据的集合。

其中，每一列具有相同的数据类型，而每行是由各列指定类型的数据组成的。

数据集的每一列被称为一个字段，每一行被称为一个记录。

V C L把数据集封装在一个称为TDataSet的抽象组件中。

在TataSet中引入了许多用于操作和浏览数据集的属性和方法。

1.1.1 VCL的数据库体系结构在开发Delphi 3期间，V C L的数据库体系结构已经有了令人注目的修改，为了在D e l p h i程序中能方便地访问一些非B D E的数据集，它开放了数据集体系结构。

T D a t a S e t类位于整个体系结构的顶层。

T D a t a S e t是一个用来抽象地表示数据集的记录和字段的组件。

为了实现对一些特殊的物理数据格式的访问，你可以在程序中覆盖T D d a t a S e t类的方法。

1.1.2 BDE数据访问组件在组件面板的Data Access页上可以找到用于访问和管理B D E数据集的V C L 组件，如图2 8 - 1所示。

V C L用三种组件来表达数据集： T Ta b l e、T Q u e r y和T S t o r e d P r o c。

T Ta b l e是表达数据库表中的数据和结构的组件； T Q u e r y是利用S Q L对数据进行查询并返回数据集的组件。

T S t o r e P r o c 是封装了S Q L服务器上的一个存储过程的组件。

本章中，我们将使用T Ta b l e 组件讨论数据集。

稍后再介绍T Q u e r y组件。

1.1.3 打开一个数据集如果是访问S Q L服务器，那么在打开数据库中的一个数据集之前，一定要先建立数据库连接。

当你关闭掉数据库中最后一个数据集时，连接就会终止。

建立和断开数据库的连接都会有一些开销。

如果你经常执行开关数据库的操作，那么应该利用T D a t a b a s e组件来管理对S Q L服务器的连接。

在对数据集进行操作之前，必须先将它打开。

我们用O p e n ( )方法来实现。

请看示例：Table1.Open();你也可以通过将数据集的A c t i v e属性设为Tr u e来打开它：Table1.Active:=True;使用第二种方法的开销更小一些，因为利用O p e n ( )方法来实现最终还是要将数据集的A c t i v e属性设为Tr u e。

不过，这点小开销可以忽略。

当数据集被打开后，我们就可以自由地操作和使用它了。

在一系列的操作完成后，不要忘记要调用C l o s e ( )方法将它关闭。

如下：Table1.Close();当然，你也可以通过把A c t i v e属性设为F a l s e来关闭数据集。

例如：Table1.Active:=False;1.1.4 浏览数据集T D a t a S e t提供了简单的方法来浏览数据集中的记录。

First() 将当前的记录指针定位在数据集中的第一个记录；L a s t ( )把当前的记录指针定位在数据集中的最后一个记录； N e x t ( )和P r i o r ( )分别使当前记录指针向前或向后移动一个记录。

另外， M o v e B y ( )方法用于向前或向后移动一定数量的记录。

1.1.4.1. BOF、E O F和循环B O F和E O F都是T D a t a S e t中布尔类型的属性，分别表示当前记录是否是第一个记录和最后一个记录。

例如，如果需要遍历数据集中的每一条记录，最容易实现的方法就是利用一个w h i l e循环来使指针从第一个记录不断地向后移动直到E O F为真Table1.First;While not Table1.Eof do beginDo something;Table1.Next;End;1.1.4.2. 书签书签能在数据集中保存当前的位置，以便以后可以回到那个位置。

在D e l p h i中书签的使用非常简单，你只需要使用一个属性。

Delphi 用T B o o k m a r k S t r类型来表示书签，T Ta b l e的Bookmark 属性便是此种类型。

当从B o o k m ar k中读值时，你就获取了一个书签；当你写到它时，就可以定位在书签所指示的记录位置。

当你对数据集的某个地方感兴趣并且想能标记以便日后访问时，VarBM:TBookMarkStr;//声明BeginBM:=Table1.BookMark;//定义………………Table1.BookMark:=BM;//回到这个书签标记的位置BM:=’’;End1.1.4.3. TDataSource我们在前面的程序中用到了T D a t a S o u r c e组件，所以我们将在这里详细讨论这个组件。

T D a t a S o u r c e是一个数据库连接中介，它使数据访问组件(如T Ta b l e )能向数据感知组件提供数据。

它不但在数据访问和数据感知两方面起到了接口的作用，而且，它还包含了一些使数据操作变得更简单的属性和事件。

●T D a t a S o u r c e的S t a t e属性表示当前连接的底层数据集的状态。

它可以表明数据集是处于未活动的状态还是插入、编辑、设置键值或是计算字段状态。

●S t a t e属性的值的变化会导致发出O n S t a t e C h a n g e事件。

TD a t a S e t的O n D a t a C h a n g e事件是在数据集变成活动状态或数据感知组件通知数据集数据发生改变时被触发。

●On U p d a t e D a t a事件在记录被提交或更新时被触发，在处理此事件时，一般会改变数据感知组件显示的数据，这种改变依赖于数据库表的内容。

响应此事件你可以使跟踪程序中类似的改变。

1.1.5 对字段操作1.1.5.1. 字段值访问字段的值需要用到T D a t a s e t的数组属性F i e l d s [ ]或F i e ld s B y N a me ( )函数。

● F i e l d s [ 0 ]将返回一个T F i e l d对象，它表示数据集的第一个逻辑字段。

S:=Table1.Fields[0].AsString● F i e l d s B y N a m e ( )函数需要输入字段名作为参数，并返回一个字段对象。

S:= Table1.FieldsByName(‘Name’).AsString;1.1.5.2. 字段数据类型T F i e l d的D a t a Ty p e属性可以告诉你字段的类型，所返回的字段类型只与数据库类型有关，与O b j e c tP a s c a l的数据类型无关。

1.1.5.3字段名和编号●利用T F i e l d的F i e l d N a m e属性能得到某个字段的字段名。

S:=Table1.Fields[0].FieldName;●利用F i e l d N o属性可以获取某个字段对应的编号。

S:= Table1.FieldsByName(‘Name’).FieldNo;1.1.5.4. 操作字段数据●编辑Table1.Edit;Table1.FieldByName(‘Name’).AsString:=’LTMa’;Table1.Post;Table1.Cancle;//也可以用Cancle来取消操作●插入Table1.Insert;//或者Table1.AppendTable1.FieldByName(‘Name’).AsString:=’LTMa’;Table1.Post;Table1.Cancle;//也可以用Cancle来取消操作●删除st;Table1.Delete;数据集在插入、添加或编辑状态时，记住，只要离开当前记录，对数据的改变就会被提交给数据库。

因此，在编辑数据时要小心使用N e x t ( )、P r i o r ( )、F i r s t ( )、L a s t ( )或M o v e B y ( )等方法。

我们可以利用C a n c e l ( )方法来取消当前对数据集的修改。

C a n c e l ( )方法不但取消了对数据的修改，也同时取消了当前数据集的模式状态，回到了浏览模式1.1.6 刷新数据集编写数据库程序时，一定要清楚地认识到，数据集中的数据是一直在变化的。

这就是说，数据集中的数据将会不断地被添加、删除或修改，尤其是对于网络环境。

因此，你必须不停地从磁盘或内存中重新读取数据集中的信息来更新当前所使用的数据集。

更新数据集，可以使用TDataset 的R e f r e s h ( )方法。

对R e f r e s h ( )的调用相当于先调用C l o s e ( )方法，再调用O p e n ( )方法，但是调用R e f r e s h ( )方法要快一些。

R e f r e s h ( )方法适用于所有的本地表；而对于来自S Q L数据库服务器的数据库，R e f r e s h ( )方法使用起来有些限制。

在B D E试图进行R e f r e s h ( )操作之前，必须对S Q L数据库表和查询定义一个唯一的索引。

其原因是，R e f r e s h ( )的调用总是尽可能保持记录当前的状态。

所以， B D E必须使用S e e k ( )来定位到当前的位置，而S e e k ( )操作只对S Q L数据集适用，而且要求有一个唯一的索引。

R e f r e s h ( )并不工作于连接到S Q L数据库的T Q u e r y组件。

1.1.7 变化的状态有时候，需要知道一个数据库表当前为编辑模式还是添加模式，或是否处于活动状态，这些信息都可以通过查看TDataset 的S t a t e属性来获取。

S t a t e 属性的类型为T D a t a S e t S t a t e，1.1.8 过滤器如果利用过滤器，只要使用Object Pascal代码就能实现一些简单的数据搜索或过滤。

使用过滤器最主要的好处是不需要索引，也不需要对数据集做任何其他的准备工作。

当然，过滤器和基于索引的查找比起来，速度还是稍微慢一些(本章后面将会讨论)，但另一方面，它们对于任何类型的应用程序都非常有用。

1.1.8.1. 过滤一个数据集D e l p h i过滤机制的一个比较普遍的作用是只显示数据集中的一些特定记录。

这是一个简单的两步操作：1) 创建一个处理数据集的O n F i l t e r R e c o r d事件的过程。

在这个过程中，根据一个或多个字段的值来决定是否要包含某个记录。