帮忙看看这个过程怎么才能加入一个进度条

[amartapple]

因为要插入的数据太多，大概有500000多条，需要时间很长，下面的代码虽然能完成任务，但是交互性很不好，运行以后就像死机一样，因此我想加入一个进度条，可是不会加，请帮忙，谢谢

代码如下：

try
adoquery1.close;
adoquery1.sql.clear;
ssql:='insert into pp (pp1,pp2,pp3) select * from ppold;
adoquery1.parameters.clear;
adoquery1.paramcheck:=false;
adoquery1.sql.text:=ssql;
adoquery1.execsql;
except
showmessage("error");
end;

[hare007]

加个动画放上面

[yuehaiyang]

放个timer到你的窗口上，然后一秒，一秒的让进度条动，执行完sql后，一次设置到100%

[keyz]

用timer做个动画吧。不要用进度条了，不知道什么时候结束。

[happyhong]

1。建立一个等待的窗口单元，这样可以在查询时调用
单元代码：
unit MessageUnit;

interface

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

type
TMessageForm = class(TForm)
Message_Pl: TPanel;
Avi: TAnimate;
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormCreate(Sender: TObject);
procedure FormShow(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
MessageForm: TMessageForm;

implementation

{$R *.DFM}

procedure TMessageForm.FormClose(Sender: TObject;
var Action: TCloseAction);
begin
Screen.Cursor:=crDefault;
if Avi.Active then
Avi.Active:=False;
end;

procedure TMessageForm.FormCreate(Sender: TObject);
begin
Avi.Active:=True;
end;

procedure TMessageForm.FormShow(Sender: TObject);
begin
Screen.Cursor:=crSQLWait;

end;

end.
--注：Avi的COMMONAVI的属性选：aviFindFile
=================================================
2。调用方法：
调用的单元前要UESE MessageUnit

try
adoquery1.close;
adoquery1.sql.clear;
ssql:='insert into pp (pp1,pp2,pp3) select * from ppold;
adoquery1.parameters.clear;
adoquery1.paramcheck:=false;
adoquery1.sql.text:=ssql;

messageform:=Tmessageform.Create(application);
messageform.Message_Pl.Caption:=
'正在统计,请稍候...';
messageform.Show;
messageform.Update;

adoquery1.execsql;
messageform.close;
except
showmessage("error");
messageform.close;
end;
==============
还有一种方法，查询用线程写，但我不懂，关注ING。。。

[AOCOC]

用timer设置步长跟位置就行了。。