delphi操作数据库并将结果反馈到stringgrid控件显示的问题

procedure TForm1.Button4Click(Sender: TObject);
var data1,date2,data3,data4,data5:string;
var i,j:integer;
begin
adoquery1.Close;
adoquery1.SQL.Clear;
adoquery1.SQL.Text:='select * from tbluser';
adoquery1.Open;
adoquery1.ExecSQL;
stringgrid1.RowCount:=adoquery1.RecordCount;
stringgrid1.ColCount:=adoquery1.Fields.Count;

i:=0;

begin
for i:=0 to stringgrid1.ColCount-1 do
begin
stringgrid1.Cells[i+1,j+1]:=adoquery1.Fields[i].Value;
end;
inc(j); //下一个的意思
//stringgrid1.Cells[1,i]:=adoquery1.Fields.;
//str1:=select * from tbluser;

//stringgrid1.CellRect();
//adoquery1.Next;
end;
end;
end.
这段代码为什么不能全部显示数据库中的信息，有什么方法可以显示出来？

delphi数据库操作疑难问题？ DELPHI 数据库 操作 delphi 操作数据库!!! 急!!! Delphi怎么操作Access数据库 delphi ADOQuery1查询数据库结果怎么显示? Delphi 将日期绑定到sql数据库 delphi中对access数据库进行insert操作出错~ DELPHI中如何使用ADOQUERY和TEDIT，TMEMO操作数据库。 谁有DELPHI用MYSQL API操作数据库的例子？ Delphi数据库