Delphi之cxGrid使用技巧十

最新推荐文章于 2023-08-09 18:14:17 发布

大龙软件研发

最新推荐文章于 2023-08-09 18:14:17 发布

阅读量345

点赞数

CC 4.0 BY-SA版权

分类专栏： Delphi之CXGrid的使用方法文章标签：数据库

本文链接：https://blog.csdn.net/reson100/article/details/109198760

Delphi之CXGrid的使用方法专栏收录该内容

11 篇文章 ¥99.90 ¥299.90

订阅专栏

超级会员免费看

本文介绍了在Delphi中如何在执行数据库查询时显示进度条，通过设置ADOQuery1的ExecuteOptions为异步读取，并利用OnFetchProgress和OnFetchComplete事件更新ProgressBar的进度，实现查询过程的可视化反馈。

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

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;