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

我有上万条的记录由于实际需要需要用到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;

--------------------------
新闻：专注、极致、快、口碑 互联网创业的葵花宝典
导航：博客园首页  知识库  新闻  招聘  社区  小组  博问  网摘  找找看