Delphi数据库编程教程（九）

核心提示： 第五章 数据集数据的后面.....第一节 数据的状态 当用Delphi和ADO开发数据库应用程序时，大部分工作用于学习数据集组件的帮助文档，Delphi数据库编程教程（九），，为了创建一个基于ADO的程序， 每个数据源组件都有一个OnStateChange事件，无论潜在的数据集状态什么时候改变它都见触发，Delp

 

第五章 数据集数据的后面.....

第一节 数据的状态

　　  当用Delphi和ADO开发数据库应用程序时，大部分工作用于学习数据集组件的帮助文档。。为了创建一个基于ADO的程序，Delphi提供了几个数据集组件：TAdoTable、TAdoQuery和其他的组件。它们用于获得、呈现和修改数据库表或查询的数据。

　　  在本教程的第五章，我们将通过介绍大多数感兴趣的数据集组件的一些属性、事件和方法来切实了解怎样呈现、浏览和读取数据。

　　  挑选、设置、连接和获得（Pick, set, connect and get）

　　  既然已到了第五章，你应该已经熟悉创建一个数据库表单所需的步骤。在第四章我们已手工建立了一个简单的数据浏览表单。本章将用它继续讨论。

　　  到现在为止，我们仅使用了一个（ADO）数据集组件：TAdoTable。了解TADOQuery和TADODataSet（作为数据集组件）对同样的方法和事件使用同样的设置是很重要的。

　　  芝麻开门；芝麻关门（Open Sesame ; Close Sesame）

　　  Delphi数据库开发的很重要的特征之一是：Delphi可以在程序设计时让我们对数据进行处理。你可以回忆一下—在前一章，我们使用Active属性在设计时就打开了与数据的活动连接。

　　  不难理解，在开始处理表的数据之前，程序必须首先打开数据集。Delphi有两种方法实现此功能。第一是如我们已看到的，可以在设计或运行时设置Active属性为True；第二是我们可以在运行时调用Open方法。例如，增加如下的代码到表单的OnCreate事件句柄中，从而得到ADOTable组件的数据。

　　  ADOTable1.Open;

　　  注：每个ADO数据集都可通过它自己的ConnectionString属性或一个ADOConnection组件（和它的ConnectionString）访问数据库的数据。如果ADOTable1组件与ADOConnection1组件相连（推荐使用此方式），打开ADOTable将激活相应的ADOConnection组件。ADOConnection提供两个将被执行的事件：OnWillConnect和OnConnectComplete。

　　  Open方法设置Active属性为True并激活连接。当我们处理完连接时，我们可以设置Active属性为False或调用Close方法断开连接。通常我们都在表单的OnClose事件句柄中放入对Close方法的调用：

　　  ADOTable1.Close;

　　  在继续之前，知道对数据集方法和属性的处理依赖于对数据当前状态的了解是至关紧要的。简单地说，数据集的State（状态）属性决定任何时候数据集上的什么行为可以发生或不发生。

　　　 How are you doing?

　　  如果数据集是关闭的，数据的State将显示为Inactive（非激活）连接。当连接是关闭时，没有操作、行为或方法可以对数据实施。我们第一次打开数据集的连接时，数据集处于默认的Browse（浏览）状态。你应该始终了解“你的”数据所处的状态。例如，当我们把数据集连接到DBGrid时，用户可以看到潜在的数据集（或记录集），但要想改变某些数据就必须把State设置为Edit。
　　  当程序处理数据时，了解数据集状态在不停的改变时非常重要的。例如，当在DBGrid中浏览数据时（Browse状态），用户开始编辑记录，状态将自动改变为Edit。当然，当设置数据可视化控件（DBGrid、DBEdit）的AutoEdit属性为True时，这是它们默认的行为。

　　  但是，我们怎样得到状态呢？ADOTable（其他任何数据集组件也一样没有）没有处理状态改变时的触发器。

　　  好，让我们看一看：对每个数据集组件，我们通常使用一个数据源组件来呈现于一个或多个数据可视化控件的连接。就是这样。

　　  每个数据源组件都有一个OnStateChange事件，无论潜在的数据集状态什么时候改变它都见触发。把下面的代码放到OnStateChange事件句柄中，用表单的标题显示ADOTable1数据集组件的当前状态：

　　  PRocedure TForm1.DataSource1StateChange(Sender: TObject);
　　  var　  ds: string;
　　  begin
　　　　 case ADOTable1.State of
　　　　 dsInactive: ds:='Closed';
　　　　 dsBrowse  : ds:='Browsing';
　　　　 dsEdit　  : ds:='Editing';
　　　　 dsInsert  : ds:='New record inserting';
　　　　 else
　　　  ds:='Other states'
　　　　 end;
　　  Caption:='ADOTable1 state: ' + ds;
　　  end;