我用的是stringgrid连接数据库！关于提高性能的问题

最新推荐文章于 2020-06-23 02:03:42 发布

aibi9196

最新推荐文章于 2020-06-23 02:03:42 发布

阅读量142

点赞数

文章标签：数据库

原文链接：http://www.cnblogs.com/delphi2007/archive/2009/02/19/1394126.html

版权

我用的是stringgrid连接数据库！关于提高性能的问题 Delphi / Windows SDK/API
http://www.delphi2007.net/DelphiDB/html/delphi_20061219110009225.html
我有上万条的记录由于实际需要需要用到stringgrid控件！然而每次往里面添加纪录的时候都非常慢！
例如：
StringGrid1.Cells[1,i]:=ADOQuery1.FieldByName('aa').AsString;
。
。。。
有什么更好的其他办法可以提升速度呢？请高人指点！

分页来做吧~~~

否则真的太辛苦了

让记录在StringGrid中分页显示在Uses中加入： ADOInt

//首先设定PageSize，取出PageCount
procedure TForm1.Button1Click(Sender: TObject);
begin
ADoquery1.Recordset.PageSize :=spinedit1.Value;
Edit1.Text := IntToStr(ADoquery1.Recordset.PageCount);
ShowData(spinedit2.Value);
end;

//然后将AbsolutePage的数据乾坤大挪移到StringGrid1中
procedure TForm1.ShowData(page:integer);
var
iRow, iCol, iCount : Integer;
rs : ADOInt.Recordset;
begin
ADoquery1.Recordset.AbsolutePage:=Page;
Currpage:=page;
iRow := 0;
iCol := 1;
stringgrid1.Cells[iCol, iRow] := 'FixedCol1';
Inc(iCol);
stringgrid1.Cells[iCol, iRow] := 'FixedCol2';
Inc(iRow);
Dec(iCol);
rs := adoquery1.Recordset;
for iCount := 1 to SpinEdit1.Value do
begin
stringgrid1.Cells[iCol, iRow] := rs.Fields.Get_Item('FieldName1').Value;
Inc(iCol);
stringgrid1.Cells[iCol, iRow] := rs.Fields.Get_Item('FieldName1').Value;
Inc(iRow);
Dec(iCol);
rs.MoveNext;
end;

//上一页
procedure TForm1.Button2Click(Sender: TObject);
begin
If (CurrPage)<>1 then
ShowData(CurrPage-1);
end;

//下一页
procedure TForm1.Button3Click(Sender: TObject);
begin
If CurrPage<>ADoquery1.Recordset.PageCount then
ShowData(CurrPage+1);
end;