请问stringgrid 控件如何从ADOQUERY 中取得资料并显示出来？ 我在网上找了一个代码，自己瞎改改也显示成功了，请哪位前辈指点一下代码中的不足之处，并优化一下，谢谢！  

 
var
  Col,Lin,i:Integer;
begin
  i:=0;
  With adoquery1 Do
  begin
    If Not IsEmpty Then
    Begin
      stringgrid1.ColCount := FieldCount;
     stringgrid1.RowCount := RecordCount  i;
      stringgrid1.FixedCols := 0;
      stringgrid1.FixedRows := i;
          For Col := 0 To FieldCount-1 Do
         stringgrid1.Cells[Col,0] := Fields[Col].FieldName;
      Lin := 0;
      While Not Eof Do
      Begin
        For Col := 0 To FieldCount-1 Do
         stringgrid1.Cells[Col,Lin stringgrid1.FixedRows] :=
                 Fields[Col].AsString;
        Next; 
        Inc(Lin);
      End;
    End;      end;    end; 

代码运行是运行成功的，可惜就是ADOQUERY中的字段名没显示出来，打个比方说select 用户名称 from 表 那么所有的用户名称都出来显示的，但用户名称这个本身的标题没能够在stringgrid中显示出来. 还有请问这一段stringgrid显示代码放在adoquery afteropen事件中是否合适？

------
我的编程起步于ktop，我将永远支持ktop

1.基本上他是有顯示出你的英文的FIELDNAME，只要你將I的初值給他1    若是你想顯示自己的名稱.除了I改成1外，你還需要改寫下面二行！

For Col := 0 To FieldCount-1 Do
  stringgrid1.Cells[Col,0] := Fields[Col].FieldName;
 

2.基本上放在AFTEROPEN是沒有什麼問題的!

------
熊的學習 http://huwk.blogspot.com

引言: 1.基本上他是有顯示出你的英文的FIELDNAME，只要你將I的初值給他1 若是你想顯示自己的名稱.除了I改成1外，你還需要改寫下面二行！ 自己去取你中文的FIELDNAME塞入!

For Col := 0 To FieldCount-1 Do
  stringgrid1.Cells[Col,0] := Fields[Col].FieldName;
 

2.基本上放在AFTEROPEN是沒有什麼問題的!