问题个低级的问题，进度条应怎么使用？

Question

问题个低级的问题，进度条应怎么使用？
tick1:=GetTickCount; //开始时间
  sqlstr :=' backup database ' +Edit6.text ;
  sqlstr :=sqlstr+'   to disk= '+QuotedStr(Edit7.text);
  ADOCommand1.ConnectionString:='Provider=SQLOLEDB.1;Password='+EDIT3.TEXT+';Persist Security Info=True;User ID='+EDIT2.TEXT+';Initial Catalog=master;Data Source='+Edit1.TEXT+'';
  ADOCommand1.CommandText:=sqlstr;
  ADOCommand1.Execute;
  tick2:=GetTickCount; 结束时间

Answer 1

参考
---
---unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Menus, ComCtrls, StdCtrls;type
  TForm1 = class(TForm)
    Button1: TButton;
    StatusBar1: TStatusBar;    procedure StatusBar1DrawPanel(StatusBar: TStatusBar;
      Panel: TStatusPanel; const Rect: TRect);
    procedure Button1Click(Sender: TObject);
  private
    ProgressBar:TProgressbar;
    ProgressBarRect:TRect;
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementation{$R *.dfm}procedure TForm1.StatusBar1DrawPanel(StatusBar: TStatusBar;
  Panel: TStatusPanel; const Rect: TRect);
begin
  ProgressBarRect :=Rect;
end;procedure TForm1.Button1Click(Sender: TObject);
var
 i,stepcount:integer;
begin
  ProgressBar :=TProgressBar.Create(Form1);
  stepcount :=5000;
  with progressbar do
  begin
     Top :=ProgressBarRect.Top;
     Left :=ProgressbarRect.Left;
     Width :=ProgressbarRect.Right - ProgressbarRect.Left;
     Height :=ProgressbarRect.Bottom - ProgressbarRect.Top;
     Visible :=True;
     try
      Parent := StatusBar1;
      Min := 0;
      max := stepcount;
      step :=1;
      for i := 0 to StepCount do Stepit;
      MessageDlg('已成功保存了文件。',mtinformation,[mbok],0);
      finally
       free;
       end;
  end;
end;end.