Wie wird der Fortschritt der Abfrageausführung während des Handle angezeigt?

Question

habe ich den folgenden Code in delphi für Griff:

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; 

aber .... ich keine Wirkung

Ich möchte von zeigen (dieser Code nicht ausgeführt werden) sehen Fortschritte Abfrageausführung, während der Benutzer auf eine Schaltfläche für SEARCH in der Datenbank vom Anfang bis zum Ende des Filters in der Fortschrittsleiste geklickt hat.

die Schaltfläche Onclick Codes:

with ADOQuery1 do 

begin 

SQL.Clear; 

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

Open; 

end; 

aber ich habe keine Mutation in dem Fortschrittsbalken, als ob keinen Code in OnFetchProgress Ereignisse schreiben.

Habe ich dich vertreten?

Answer 1

müssen Sie Eigenschaft ExecuteOptions-eoAsyncFetch setzen, bevor das offene Verfahren

Prüfung nennen diese Probe

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;