表格控件表头栏目（Column）与数据表头步

不用手工增加栏目的列，也就是Column，由数据库的查询结果自动创建。

用的是Delphi2010，安装了Dev，用CxGrid显示数据库查询结果。用什么控件没有关键，道理相同的。

procedure TForm1.SpeedButton1Click(Sender: TObject);
Var
 LCount,I:integer;
begin
 ADOQuery1.Close;
 for I := 0 to Self.cxGrid1DBTableView1.ColumnCount- 1 do
    begin
      Self.cxGrid1DBTableView1.Columns[i].Destroy;
    end;
  With ADOQuery1 do
    begin
      Close;
      SQL.Clear;
      SQL.Add(Memo1.Text);
      Open;
    end;
  Line:=ADOQuery1.FieldList.Count;
  for i := 0 to (Line -1) do
    begin
      Self.cxGrid1DBTableView1.CreateColumn;
      //Self.cxGrid1DBTableView1.Columns[i].Width:=50; 设置栏目的宽度
    end;
   for I := 0 to Line - 1 do
      begin
        Self.cxGrid1DBTableView1.Columns[i].DataBinding.FieldName:=ADOQuery1.FieldList.Strings[i];
      end;
end;

 

 

转载于:https://www.cnblogs.com/wuxi15/p/3154921.html