Question

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

Answer 1

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;

Answer 2

还有就是利用app去查询。微信城市服务这个平台也是可以查询到的。在机动车查询窗口，车辆以及驾照查询这一块都可以一键搞定，包括现在使用的人越来越多，微信是刚开始的社交软件，现在就很多的功能上线，应有尽有的，一款软件的功能就抵得了好多小软件了。