var i: Integer;
Column: TcxGridDBColumn;
cxView: TcxGridDBTableView;
begin
cxView := Self.Levels[0].GridView as TcxGridDBTableView;
if cxView.DataController.DataSource <> nil then
if cxView.DataController.DataSource.DataSet <> nil then
begin
cxView.ClearItems;
for i:=0 to cxView.DataController.DataSource.DataSet.FieldCount-1 do
begin
Column := cxView.CreateColumn;
Column.DataBinding.FieldName := cxView.DataController.DataSource.DataSet.Fields[i].FieldName;
Column.PropertiesClass := TcxTextEditProperties;
end;
end;
end;
for i := 0 to Query.FieldCount - 1 do
begin
cxGrid.CreateColumn;
cxGrid.columns[i].DataBinding.FieldName := Query.Fields[i].DisplayName;
cxGrid.Columns[i].Caption := 'XXXX';
cxGrid.Columns[i].Width :=80;
end;
分享到:
相关推荐
delphi控件cxGrid用法大全,有目录可以直接打印
该文档介绍如何使用Delphi第三方控件cxGrid实现颜色的不同显示方法,很实用。
cxGrid控件 若TcxGridColumn的Properties属性 是TcxComboBoxProperties 则 Col.Properties.OnChange:= Button1.OnClick;
设置cxgrid 行的颜色、列的颜色、excel、acc导入功能
cxGrid动态建多表头及列
Delphi7 cxGrid 组件4(ExpressQuantumGrid.Suite.v5.19)
Delphi 判断cxGrid表格是否在filter状态: procedure TFrmOrderBy.BtnOrderClick(Sender: TObject); begin ADODataSet1.Filtered := false; ADODataSet1.Filter := 'dePartMent=''软件部'''; ADODataSet1....
cxgrid动态增加列及属性绑定
只是给论坛里的一个网友 只是可以解析CXGRID,组件重复方面还没处理
Delphi 7 cxGrid 组件PartI(ExpressPageControl.v2.3.11)
Delphi Dev cxGrid 汉化文件 metelese
delphi cxGrid控件教程 ExpressQuantumGrid4.5 中文教程
cxgrid 拖放移动记录,cxgrid 拖放,cxgrid 拖动记录,cxgrid 鼠标拖动记录 这是cxgrid开发公司回复客户时所发送的源码项目,用于实现鼠标拖动记录,改变记录在表格中的位置,所以直接编译运行,供大家借鉴
Delphi7 cxGrid 组件5(ExpressQuantumTreeList.Suite.v4.5)
为cxGrid动态附加非绑定(无字段关联)的CheckBox列,以提供用户选择,并对操作者的选择进行求和输出;代码中牵涉到用语句对cxGrid过滤、过滤后的记录关联(定位)数据集数据。如有问题,欢迎到“中国软件研发联盟”...
delphi-cxGrid的使用
Delphi7 cxGrid 组件3(ExpressQuantumGrid.Suite.v5.11)
Delphi 在cxgrid中进行数据统计,OrderBy操作演示,从数据库中读取出记录: procedure TFrmOrderBy.BtnOrderClick(Sender: TObject); var item: TcxGridDBTableSummaryItem; begin item := ...
DevExpress控件的cxGrid多行表头设置,网上搜索一下很多,多是太简单,我自己摸索后的笔记分享给大家,共同学习 。
delphi CxGrid菜单源码,可以直接用的哦