进程条怎么读取整个系统的数据呀`

Question

我想在做一个系统。在开始的时候，就用进程条读取整个系统的数据，让它跟着数据读取的速度，进入系统。大虾们帮帮忙呀！！~我跪求了。

Answer 1

RPS.Max:=RzDBGrid3.DataSource.DataSet.RecordCount;
先設置最大值等於數據庫里的記錄條數  while not SDBGrid.DataSource.DataSet.Eof do
  begin
     for iCount := 0 to SDBGrid.Columns.Count - 1 do
     begin
       XLApp.cells[jCount + 2, iCount + 1].Value := SDBGrid.Columns[iCount].Field.AsString;
     end;
     Inc(jCount);
     SDBGrid.DataSource.DataSet.Next;
     RPS.Position:=RPS.Position+1;  //然後步長加1
     Application.ProcessMessages;
  end;.