3

我在 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 事件中编写任何代码。

我代表你了吗?

4

1 回答 1

5

您必须将属性设置ExecuteOptionseoAsyncFetchbefore 才能调用 open 过程

检查这个样本

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;
于 2010-11-21T17:18:28.517 回答