delphi执行查询语句时的进度条怎么做

本文整理自网络，侵删。

 
procedure TForm1.FormCreate(Sender: TObject);  
begin   
  ADOQuery1.ExecuteOptions := [eoAsyncFetch];//设为异步读取  
end;  
//ADOQuery的OnFetchProgress事件  
procedure TForm1.ADOQuery1FetchProgress(DataSet: TCustomADODataSet; Progress, MaxProgress: Integer; var EventStatus: TEventStatus);  
begin   
  ProgressBar1.Position := Progress;  
  ProgressBar1.Max := MaxProgress;  
end;  
//ADOQuery的OnFetchComplete事件  
procedure TForm1.ADOQuery1FetchComplete(DataSet: TCustomADODataSet; const Error: Error; var EventStatus: TEventStatus);  
begin   
  ProgressBar1.Position := ProgressBar1.Max;  
  ShowMessage('OK');  
end;
 

相关阅读 >>

Delphi��image存入读取mysql数据库

Delphi 在窗体上创建自己的光标并输入文字

Delphi开发firemonkey应用程序时无法打开窗体的解决

Delphi 文件夹操作

Delphi 收集了比较全的字符串进制转换

Delphi idhttp post request

Delphi �c 使用createoleobject后释放olevariant

Delphi 得到ip三个值

Delphi 键盘记录源代码

Delphi 试试带参数的 exit

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » delphi执行查询语句时的进度条怎么做