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

最新推荐文章于 2021-11-16 22:24:42 发布

SeekMyself

最新推荐文章于 2021-11-16 22:24:42 发布

阅读量1.6k

点赞数

分类专栏： Delphi Sql Server 专栏文章标签： delphi dataset integer

本文链接：https://blog.youkuaiyun.com/SeekMyself/article/details/6556511

版权

Sql Server 专栏同时被 2 个专栏收录

13 篇文章

订阅专栏

Delphi

10 篇文章

订阅专栏

本文介绍了使用 Delphi 的 ADOQuery 组件进行异步数据读取的方法，并展示了如何通过 OnFetchProgress 和 OnFetchComplete 事件来更新进度条，实现数据读取过程中的进度反馈。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

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;

摘自：http://topic.youkuaiyun.com/u/20090831/17/39916a74-70db-4aeb-9f36-72142e00d454.html