如何实现SQL查询过程与进度条关联

Question

用ADO的异步模式，在OnFetchProgress事件中更新进度条就可以了

Answer 1

在异步模式中，当数据处理玩后，会激发onFetchComplete,通知用户数据处理完毕，
在处理过程中，激发onFetchProgress事件,在其中进行处理
联机帮助有例子，很清楚

Answer 2

定义count为全局变量，在Form的OnActivate事件中赋初值count:=0；在datasource的OnDataChange事件中加入：
procedure TForm1.DataSource1DataChange(Sender: TObject; Field: TField);
begin
    count:=count+1;
    ProgressBar1.Position:=count;
end;