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

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;

我不知道你所谓的“oracle无效对象”是神马玩意，但显示adoquery进度是有办法的。 1、将adoquery的excuteoption属性中的eoasyncfetch设为true，使其能够触发异步消息。 2、在adoquery的onfetchprogress事件里处理进度，进度会显示在窗体标题上： procedure tform1.adoquery1fetchprogress(dataset: tcustomadodataset; progress, maxprogress: integer; var eventstatus: teventstatus); begin self.caption := '完成百分比: ' + inttostr(trunc(progress / maxprogress * 100)) + '% '; application.processmessages; end;