Question

我在delphi中使用以下代码来处理句柄：

procedure TForm1.ADOQuery1FetchProgress(DataSet: TCustomADODataSet; Progress,

  MaxProgress: Integer; var EventStatus: TEventStatus);

begin

    Progressbar1.Visible:=true;

    Progressbar1.Max:=MaxProgress;

    Progressbar1.Ppsitian:=Progress;

    Progressbar1.Visible:=false;

end;

，但.... 我看不到任何效果（此代码不执行）

我想显示在用户点击数据库中的SEARCH按钮从开始到完成过滤器中的过滤时查询执行的进度。

按钮onclick代码：

with ADOQuery1 do

begin

SQL.Clear;

SQL.Add('select * from tbl1 where id = '+Edit1.Text);

Open;

end;

但是我在进度条中没有任何变异，好像不在OnFetchProgress事件中写任何代码。

我代表你了吗？

Answer 1

在调用开放程序

之前，您必须将属性ExecuteOptions设置为eoAsyncFetch

检查此示例

with ADOQuery1 do
begin
 SQL.Clear;
 SQL.Add('select * from tbl1 where id = '+Edit1.Text);
 ExecuteOptions:=[eoAsyncFetch];
 Open;
end;


procedure TForm1.ADOQuery1FetchProgress(DataSet: TCustomADODataSet; Progress,
  MaxProgress: Integer; var EventStatus: TEventStatus);
begin
  ProgressBar1.Max      :=MaxProgress;
  ProgressBar1.Position :=Progress;
  Application.ProcessMessages;
end;

如何在句柄中查看查询执行的进度？

1 个答案: