cxGrid运行期间添加LevelView

最新推荐文章于 2021-07-07 17:41:31 发布

转载最新推荐文章于 2021-07-07 17:41:31 发布 · 2.3k 阅读

本文详细介绍了如何使用cxGrid组件创建数据视图，并配置了包括数据源、分组、过滤、排序等功能。重点展示了如何设置表格的列名、宽度、汇总方式等属性，以及如何显示数据的过滤条件。

cxGrid := TcxGrid.Create(self);
InsertControl(cxGrid);
cxGrid.Align := alLeft;
cxGrid.Width := 240;
cxGrid.Name := 'cxGrid';
cxGrid.Font.Name := 'Times New Roman';
cxGridLevel := cxGrid.Levels.Add;
cxGridDBTableView := TcxGridDBTableView(cxGrid.CreateView(TcxGridDBTableView));
cxGridLevel.GridView := cxGridDBTableView;
cxGridDBTableView.DataController.DataSource := DataSource;
cxGridDBTableView.OptionsView.Footer := True;
cxGridDBTableView.OptionsView.GroupByBox := false;
cxGridDBTableView.OptionsView.NoDataToDisplayInfoText := '没有记录';
cxGridDBTableView.Filtering.CustomizeDialog := false;
cxGridDBTableView.OptionsCustomize.ColumnSorting := false;
cxGridDBTableView.OptionsData.Appending := false;
cxGridDBTableView.OptionsData.Deleting := false;
cxGridDBTableView.OptionsData.Inserting := false;
cxGridDBTableView.OptionsData.Editing := false;
cxGridDBTableView.FilterRow.Visible := True;
cxGridDBTableView.FilterRow.InfoText := '过滤条件用%代替任意多字符如:%27%';
with cxGridDBTableView.CreateColumn do
begin
    DataBinding.FieldName := 'Qno';
    caption := 'Qno';
    Width := 40;
    Summary.FooterKind := skCount;
    Summary.FooterFormat := '行数';
end;
with cxGridDBTableView.CreateColumn do
begin
    DataBinding.FieldName := 'custname';
    caption := 'custname';
    Width := 60;
    Summary.FooterKind := skCount;
end;
with cxGridDBTableView.CreateColumn do
begin
    DataBinding.FieldName := 'Entertime_Text';
    caption := 'Entertime_Text';
    Width := 50;
end;
with cxGridDBTableView.CreateColumn do
begin
    DataBinding.FieldName := 'Remark2';
    caption := 'Remark2';
    Width := 60;
end;