如何通过代码设计Dbgrid1的字段名?

Question

有四个表,共用一个Dbgrid1,所以Dbgrid1中的字段需要动态确定,请问怎么写?

Answer 1

你理解错误
我是分开显示,就是说,假如有四个按钮,一个按钮对应一个表,单击的时候,在DBGRID中显示
这个我做到了显示,只是有个不明白之处,DBGRID中的列名怎么在代码中更改;

Answer 2

select a as a1, b as b1,.... from tbl1,tbl2,tbl3,tbl4...

Answer 3

procedure TForm1.SetGrid(aSqlStr:String);
begin
AdoQuery.Close;
AdoQuery.Sql.clear;
AdoQuery.Text:=aSqlStr;
AdoQuery.Open;
for i:=0 to AdoQ.FieldCount-1 do
 begin
   DBGrid.Columns.Add;
   DBGrid.Columns[i].FieldName:=AdoQuery.Fields[i].FieldName;
 end;
end;

Answer 4

函数调用：
aSql:='Select * From tableName'
SetGrid(aSql);