Delphi中ADO异步执行方式

当ADO开始处理数据后，应用程序必须等到ADO处理完毕之后才可以继续执行。但是除了同步执行方式之外，ADO也提供了异步执行的方式，允许当ADO处理时，应用程序仍然能够先继续执行。而当ADO处理数据完毕之后，ADO会以事件的方式通知应用程序，此时应用程序可以再根据ADO执行的结果来采取相应的动作。使用异步执行方式有许多用途，例如，如果应用程序需要处理花费大量时间的动作，那么ADO可以选择以异步执行方式让ADO在后台执行，而让应用程序继续处理图形用户接口或用户输入的数据。
在ADO中使用异步执行方式非常简单，只需要对ADO数据集的ExecuteOptions属性值进行适当的设定即可。现在就让我们以一实际的范例应用程序来说明如何让ADO以异步的方式来处理数据。

下载
1)在Delphi集成开发环境中关闭所有的项目。
2)建立一个新的应用程序项目，在主窗体中放入TADOConnection对象连接到
数据库。
3)在主窗体中放入TADODataSet组件。设定它的Connection属性值为步骤2)的
TADOConnection，并且在它的CommandText属性值中使用Select*fromADOTestDatas
以取得所有的数据。再设定它的Active属性值为True以打开范例数据表。
4)放入TDataSource组件，设定它的DataSet属性值为步骤3)加入的TADODataSet
组件。
5)放入TDBNavigator和TDBGrid组件，设定它们的DataSource组件为步骤4加
入的TDataSource组件。
6)在主窗体中放入两个TButton组件以及一个TProgressBar组件，并且设定它
的相关属性值。此时主窗体如图3-12所示。
图3-12范例应用程序的主窗体
7)最后在主窗体中放入一个TADOCommand组件。设定它的Connection属性
值为步骤2)的TADOConnection，并且在它的CommandText属性值中使用Select
count(*)fromADOTestDatas以便从ADOTestDatas数据表中取得所有数据的笔数。
8)在主窗体的OnActivate事件处理程序中撰写如下的程序代码：

第3章撰写使用ADO技术的应用系统(二)111
下载
procedureTForm1.FormActivate(Sender:TObject);
var
sRecNo:String;
begin
ProgressBar1.Max:=ADOCommand1.Execute.Fields.Item[0].Value;
sRecNo:=IntToStr(ProgressBar1.Max);
Self.Caption:='共有'+sRecNo+'笔数据';
end;
OnActivate事件处理程序首先执行TADOCmmand的SQL命令，并且从它回传
的暂时Recordset对象中取出ADOTestDatas数据表中所有数据的笔数，然后再指定
给TProgressBar的Max值，最后指定给窗体的Caption属性值。
9)双击窗体中的eoAsyncFetchNonBlocking按钮，并且在它的OnClick事件处
理程序中撰写如下的程序代码：
procedureTForm1.Button2Click(Sender:TObject);
begin
try
ADODataSet1.Active:=False;
ADODataSet1.ExecuteOptions:=[eoAsyncFetchNonBlocking];
finally
lStart:=GetTickCount;
ADODataSet1.Active:=True;
end;
end;
在上面的程序代码中先关闭步骤3)的TADODataSet，再设定它的ExecuteOptions
属性值为使用异步方式来存取数据。最后再打开步骤3)的TADODataSet组件，从
ADOTestDatas数据表中取得数据。
10)双击窗体中的eoAsyncFetch按钮，并且在它的OnClick事件处理程序中撰
写如下的程序代码：
procedureTForm1.Button1Click(Sender:TObject);
begin
try
ADODataSet1.Active:=False;
ADODataSet1.ExecuteOptions:=[eoAsyncFetch];
finally
lStart:=GetTickCount;
112Delphi5.xADO/MTS/COM+高级程序设计篇
下载
ADODataSet1.Active:=True;
end;
end;
在上面的程序代码中先关闭步骤3)的TADODataSet，再设定它的ExecuteOptions
属性值为使用同步方式来存取数据，再打开步骤3)的TADODataSet组件，从
ADOTestDatas数据表中取得数据。
在异步方式中，ADO会以OnFetchProgress事件来通知应用程序ADO还在处理
数据之中，并且以OnFetchComplete事件来通知应用程序ADO已经处理数据完毕了。
程序员可以在这两个事件处理程序中撰写程序代码来处理这两种情形。下面是范
例应用程序在这两个事件处理程序中实现的程序代码。

11)在步骤3)的TADODataSet组件的OnFetchProgress事件处理程序中撰写如下
的程序代码：
procedureTForm1.ADODataSet1FetchProgress(DataSet:TCustomADODataSet;
Progress,MaxProgress:Integer;varEventStatus:TEventStatus);
begin
ProgressBar1.Position:=Progress;
end;
上面的程序代码只是在ADO持续处理数据时不断更新主窗体中TProgressBase
的显示状态。

12)在步骤3)的TADODataSet组件的OnFetchComplete事件处理程序中撰写如
下的程序代码：
procedureTForm1.ADODataSet1FetchComplete(DataSet:TCustomADODataSet;
constError:Error;varEventStatus:TEventStatus);
begin
lEnd:=GetTickCount;
ShowMessage('总共花了'+FloatToStr((lEnd-lStart)/1000.0)+'秒');
end;
上面的程序代码是当ADO处理完数据之后便显示一个对话框，显示ADO处理
数据所花费的时间。
现在请编译并且执行这个范例应用程序。图3-13是以异步的方式来存取
ADOTestDatas这个范例数据表中数据的画面。从图中可以看到，当ADO存取数据

第3章撰写使用ADO技术的应用系统(二)113
下载
时应用程序仍然可以不断地更新主窗体中的TprogressBar。如果使用同步的方式执
行，TProgressBar便无法这样更新状态。此时我们也可以移动主窗体的位置等，可
见应用程序不会因为ADO在存取大量的数据而造成应用程序无法继续工作。
图3-13范例应用程序以异步方式执行的画面
图3-14是当ADO处理数据完毕并且触发OnFetchComplete事件处理程序时显示的
画面。从这两个画面中我们可以看到，当ADO以异步的方式执行时，OnFetchProgress
和OnFetchComplete事件可以帮助程序员取得非常有用的状态信息。
图3-14范例应用程序以异步方式执行的画面

如果你也执行这个范例应用程序，那么可以比较一下当ADO在同步执行模式
和异步执行模式中处理数据时哪一种模式比较有效率。可能你会惊讶地发现异步

异步执行能力

ExecuteOptions
eoAsyncExecute异步执行
eoAsyncFetch异步提取
eoAsyncFetchNonBlocking无阻塞方式异步提取
eoExecuteNoRecords无返回记录执行

onFetchProgressADO执行过程中会调用此事件，直到结束为止，可用于进度条显示
onFetchCompleteADO执行完成后会调用此事件

参考：http://www.cnblogs.com/key-ok/p/3533426.html