在ADO处理数据中,通过规定连接和命令文本,你可以创建一个Recordset 对象.对于游标的位置和类型Recordset有一些规定.你可以按下面的方法来读取数据,但是除了同步执行方式之外,ADO处理数据也提供了异步执行的方式
而当ADO处理数据完毕之后,ADO会以事件的方式通知应用程序,此时应用程序可以再根据ADO执行的结果来采取相应的动作。使用异步执行方式有许多用途,例如,如果应用程序需要处理花费大量时间的动作,那么ADO可以选择以异步执行方式让ADO在后台执行,而让应用程序继续处理图形用户接口或用户输入的数据。
在ADO中使用异步执行方式非常简单,只需要对ADO数据集的ExecuteOptions属性值进行适当的设定即可。现在就让我们以一实际的范例应用程序来说明如何让ADO以异步的方式来处理数据
1) 在D e l p h i集成开发环境中关闭所有的项目。
2) 建立一个新的应用程序项目,在主窗体中放入TA D O C o n n e c t i o n对象连接到数据库。
3) 在主窗体中放入TA D O D a t a S e t组件。设定它的C o n n e c t i o n属性值为步骤2) 的TA D O C o n n e c t i o n,并且在它的C o m m a n d Te x t属性值中使用Select * from ADOTe s t D a t a s以取得所有的ADO处理数据。再设定它的A c t i v e属性值为Tr u e以打开范例数据表。
4) 放入TDataSource组件,设定它的DataSet属性值为步骤3) 加入的TADODataSet组件。#t#
5) 放入T D B N a v i g a t o r和T D B G r i d组件,设定它们的D a t a S o u r c e组件为步骤4加入的T D a t a S o u r c e组件。
6) 在主窗体中放入两个T B u t t o n组件以及一个T P r o g r e s s B a r组件,并且设定它的相关属性值。
7) ***在主窗体中放入一个TA D O C o m m a n d组件。设定它的C o n n e c t i o n属性值为步骤2) 的TA D O C o n n e c t i o n,并且在它的C o m m a n d Te x t属性值中使用S e l e c t count(*) from ADOTe s t D a t a s以便从A D O Te s t D a t a s数据表中取得所有数据的笔数。
8) 在主窗体的ADO处理数据序中撰写如下的程序代码:
- p r o c e d u r e TForm1.FormActivate(Sender: TObject);
- v a r
- sRecNo : String;
- b e g i n
- ProgressBar1.Max := ADOCommand1.Execute.Fields.Item[0].Value;
- sRecNo := IntToStr(ProgressBar1.Max);
- Self.Caption := '共有' + sRecNo + ' 笔数据' ;
- e n d ;
9) 双击窗体中的e o A s y n c F e t c h N o n B l o c k i n g按钮,并且在它的O n C l i c k事件处