您所在位置：主题：如何将数据表的列名加入stringgrid中
dustghost
[专家分：20] 发布于 2009-03-29 17:19:00
请高手帮下忙将下面的代码修改一下,将数据表列名动态加入stringgrid的第一列中,代码如下:
procedure TForm1.FormCreate(Sender: TObject);
var
i:integer;
begin
Application.HintPause:=100;
Font.Size :=10;
Caption:='测试';
StringGrid1.ShowHint :=True;
StringGrid1.ColCount :=2;
StringGrid1.RowCount :=12;
StringGrid1.Cells[0,0]:='测试';
for i:=1 to StringGrid1.RowCount -1 do
StringGrid1.Cells[0,i]:='这里是写同数据表连接的代码但不会写';
end;
我知道用ADOQuery控件能实现连接,但不知怎样写,请高手帮下忙[em2]
谢谢~!
procedure TForm1.FormCreate(Sender: TObject);
var
i:integer;
begin
Application.HintPause:=100;
Font.Size :=10;
Caption:='测试';
StringGrid1.ShowHint :=True;
StringGrid1.ColCount :=2;
StringGrid1.RowCount :=12;
StringGrid1.Cells[0,0]:='测试';
for i:=1 to StringGrid1.RowCount -1 do
StringGrid1.Cells[0,i]:='这里是写同数据表连接的代码但不会写';
end;
我知道用ADOQuery控件能实现连接,但不知怎样写,请高手帮下忙[em2]
谢谢~!