請教各位前輩﹒    小弟想在對某資料表進行擷取并存入另外一個資料表中時﹐利用一個ProgressBar元件來顯示完成的進度﹐但因為涉及到要將擷取到的資料存入三個資料表﹐該如何設定其Max和Step﹐小弟相關Code如下﹐請前輩多多指教﹕

procedure TForm6.BitBtn1Click(Sender: TObject);
begin
  OldSQL := ADOQuery1.SQL.Text;
  if BitBtn1.Caption = 'Import' then
    begin
      Try
        ADOQuery1.Close;
        ADOQuery1.SQL.Text := StringReplace(ADOQuery1.SQL.Text, 'TableName1', TableName, [rfReplaceAll, rfIgnoreCase]);
        ADOQuery1.SQL.Text := StringReplace(ADOQuery1.SQL.Text, 'TableName2', 'Employee', [rfReplaceAll, rfIgnoreCase]);
        ADOQuery1.ExecSQL;            ADOQuery1.Close;
        ADOQuery1.SQL.Text := StringReplace(ADOQuery1.SQL.Text, TableName, TableNameFirst, [rfReplaceAll, rfIgnoreCase]);
        ADOQuery1.ExecSQL;            ADOQuery1.Close;
        ADOQuery1.SQL.Text := StringReplace(ADOQuery1.SQL.Text, TableNameFirst, TableNameSecond, [rfReplaceAll, rfIgnoreCase]);
        ADOQuery1.ExecSQL;
      Finally
        ADOQuery1.SQL.Text := OldSQL;
      end;
    end;
  Form7.Show;
  Form6.Hide;
end;

//ADOQuery1.SQL.Text的內容為Design時期設定﹕ //'Insert Into TableName1 Select Idno, Name From TableName2' 如上程式碼中﹐會將擷取到的資料分別Insert到三個資料表中﹐那該如何處理ProgressBar部分的設計呢﹖ 感謝﹗ ===================== 努力,相信會獲得美麗! 忻晟

------
忻晟

勞煩各位前輩了﹒    這樣做的目的是為了利用一個ProgressBar來顯示目前SQL語法完成的進度比例﹒ 請教各位前輩該如何設定ProgressBar的Max和Step值﹐并加入到相關的事件程式碼中﹒    不甚感激﹗    ===================== 努力,相信會獲得美麗! 忻晟

------
忻晟

因為你在insert的時候並沒有跑迴圈作處理,所以應該是沒有辦法搭配prograss去處理,如果真的要用的話,建議用timer去做一個虛擬的進度表,等做完的時候在停下來 Pillar Wang

------
Pillar Wang

一共3個動作,max設定為3,step設定為1,每次buton click把position先歸0再開始 --------- Best regards, Huangchin, 2005/1/10

感謝兩位前輩回覆﹗    ================================= 有空來瞅瞅我﹗因為我是您的朋友﹐有您真好﹗ ================================

------
忻晟