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通过ip或机器名获取局域网mac地址

Delphi 全局钩子锁定键盘

Delphi实现阿里云印刷文字识别_身份证识别

Delphi 修改ie首页代码

Delphi 利用thttpclient实现http异步下载

Delphi 取最前窗口标题(不重复)

Delphi日期函数、日期加减

Delphi 删除文件函数支持撤销删除

Delphi 以低用户权限启动一个进程.比如vista或者win7中的ie

Delphi idhttp上传图给asp完美解决

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



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...

    正在狠努力加载,请稍候...