一个关于数据库的问题。

settingsun 2002-07-06 11:11:39

连接到服务器进行数据查询，如何在这一段时间内用ProgressBar来进行时间的同步显示，即用ProgressBar来显示查询的进度。

望指教。

...全文

50 7 打赏收藏转发到动态举报

写回复

用AI写文章

7 条回复

切换为时间正序

请发表友善的回复…

发表回复

honey_001 2002-07-06

打赏
举报

同意debussy(debussy)的说法.

debussy 2002-07-06

打赏
举报

使用ADO的异步查询方式
对于较长时间执行的查询操作，可以使用异步方式
在查询过程中，ADO会以OnFetchProgress事件来通知应用程序正在处理
用OnFetchComplete事件来通知应用程序已经处理完毕

详细情况请参考李维《Delphi 5.x ADO/MTS/COM+高级程序设计》第110页，有非常详细的例子

crazyz 2002-07-06

打赏
举报

定义一个progressBar的Form
unit ProgressForm;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ComCtrls, ExtCtrls, StdCtrls;

type
TProgressFrm = class(TForm)
ProgressBar1: TProgressBar;
lblPrompt: TLabel;
procedure FormActivate(Sender: TObject);
procedure FormCreate(Sender: TObject);
private

{ Private declarations }
public

{ Public declarations }
end;

procedure ProgressShow(aHint: string = '正在运行请等待');
procedure SetPos(aPos: extended; isOver: boolean);
procedure ProgressHide;

var
ProgressFrm: TProgressFrm;
FFormTop: integer;

implementation

{$R *.dfm}

{ TProgressFrm }

procedure ProgressShow(aHint: string = '正在运行请等待');
begin
if not Assigned(ProgressFrm) then
begin
ProgressFrm := TProgressFrm.Create(Application);
end;
setPos(1, False);
ProgressFrm.lblPrompt.Caption := aHint + '......';
progressFrm.Show;
ProgressFrm.Update;
Screen.Cursor := crHourGlass;
end;

procedure ProgressHide;
begin
SetPos(100, True);
end;

procedure SetPos(aPos: extended; isOver: boolean);
begin
progressFrm.ProgressBar1.Position := trunc(aPos);
ProgressFrm.ProgressBar1.Update;
//Application.ProcessMessages;
if IsOver then
begin
Screen.Cursor := crDefault;
ProgressFrm.Hide;
end;
end;

procedure TProgressFrm.FormActivate(Sender: TObject);
begin
SetWindowPos(ProgressFrm.handle, HWND_TOPMOST,
ProgressFrm.Left, ProgressFrm.Top, ProgressFrm.Width, ProgressFrm.Height, 0);
end;

procedure TProgressFrm.FormCreate(Sender: TObject);
begin
Top := trunc(Screen.Height / 3);
left := trunc((Screen.Width - Width) / 2);
end;

end.

在查询时先调用
ProgressShow
try
Setpos(recno/recordcount
finally
ProgressHide
end;

WnEunfn 2002-07-06