Question

如何将数据库的数据提到delphi的Stringgrid 并使表格的行数自动增加呢

Answer 1

一、建议可以直接使用 dbGrid 或其它带数据感知的表格控件。

二、如果使用 StringGrid 控件，代码大致如下：

procedure TForm1.Button1Click(Sender: TObject);
var iRow: integer;
begin
  StringGrid1.RowCount := ADOQuery1.RecordCount+1;

  ADOQuery1.First;
  iRow := 1;
  while not ADOQuery1.Eof do
  begin
    StringGrid1.Cells[1,iRow] := ADOQuery1.FieldByName('Jzlb').AsString;
    StringGrid1.Cells[2,iRow] := ADOQuery1.FieldByName('xm').AsString;
    StringGrid1.Cells[3,iRow] := ADOQuery1.FieldByName('xb').AsString;
    StringGrid1.Cells[4,iRow] := ADOQuery1.FieldByName('sfzh').AsString;

    iRow := iRow+1;
    ADOQuery1.Next;
  end;
end;