請問前輩下列程式如何加入ProgressBar1進度表 begin // 請自行拖拉 TADOQuery 與 TADOCommand 元件並設定 Connection 屬性 AdoQuery1.SQL.Text := ''SELECT ct_backup.user_id1,ct_backup.amount,employee.empl_no FROM ct_backup,employee WHERE ct_backup.user_id1 = employee.user_id1''; AdoQuery1.Active := true; while not AdoQuery1.Eof do begin AdoCommand1.CommandText := format ('INSERT INTO salary VALUES (''''92/10/22'''', ''''%s'''', ''''%s'''' ,0)', [AdoQuery1.FieldByName(''au_empl_no'').AsString, AdoQuery1.FieldByName(''au_amount'').AsString]); AdoCommand1.Execute; AdoQuery1.Next; end; end;

Hi:    

procedure TForm1.Button10Click(Sender: TObject);
var
    I : Integer;
begin
    AdoQuery1.SQL.Text := ''SELECT ct_backup.user_id1,ct_backup.amount,employee.empl_no FROM ct_backup,employee WHERE ct_backup.user_id1 = employee.user_id1'';
    AdoQuery1.Active := true;
    ProgressBar1.Max := AdoQuery1.RecountCount;
    ProgressBar1.Min := 0;
    I := 0;
    while not AdoQuery1.Eof do begin
        AdoCommand1.CommandText := format ('INSERT INTO salary VALUES (''''92/10/22'''', ''''%s'''', ''''%s'''' ,0)', [AdoQuery1.FieldByName(''au_empl_no'').AsString, AdoQuery1.FieldByName(''au_amount'').AsString]);
        AdoCommand1.Execute;
        Inc(I);
        ProgressBar1.Position := I;
        AdoQuery1.Next;
    end;
end;

-------------------------------- 小弟才疏學淺，若有謬誤請不吝指教 --------------------------------

------
Fishman

Hi:    Delphi 的 Help，供你參考

// Reads through all records in Customers (a table on Windows 
// and SQLDataSet on Linux)
// Updates the ProgressBar accordingly.
procedure TForm1.Button1Click(Sender: TObject);
var
  i: Integer;
begin
  with ProgressBar1 do
  begin
    Min := 0;
    Max := Customers.RecordCount;
    Customers.First;
    for i := Min to Max do
    begin
      Position := i;
      Customers.Next;
      // do something with the current record
    end;
  end;
end;

-------------------------------- 小弟才疏學淺，若有謬誤請不吝指教 --------------------------------

------
Fishman

感謝你.....可以了..