Delphi cxGrid:动态设计统计功能

本文整理自网络，侵删。

 
cxGrid:动态设计统计功能
procedure SetcxGridColumnSum(Atbl: TDAMemDataTable; Agrid: TcxGridDBTableView);
var
 csgItem: TcxDataSummaryItem;
 i: Integer;
begin
 //CXGRID统计功能
 with Agrid do
   begin
     OptionsView.Footer       := True;
     OptionsView.GroupFooters := gfAlwaysVisible;
     DataController.Summary.FooterSummaryItems.Clear;
     with DataController.Summary do
       begin
         FooterSummaryItems.Clear;
         BeginUpdate;
         try
           csgItem          := FooterSummaryItems.Add;
           csgItem.ItemLink := Agrid.Columns[0];
           csgItem.Kind     := skNone;
           csgItem.Position := spFooter;
         finally
           EndUpdate;
         end;
       end;
     with Atbl do
       begin
         for i := 0 to FieldCount - 1 do
           begin
             if (Fields[i].Visible) and((Fields[i].DataType = datfloat) or (Fields[i].DataType = datinteger)) then
               begin
                 with DataController.Summary do
                   begin
                     BeginUpdate;
                     try
                       csgItem          := FooterSummaryItems.Add;
                       csgItem.ItemLink := Columns[i + 2];
                       csgItem.Kind     := skSum;
                       csgItem.Position := spFooter;
                     finally
                       EndUpdate;
                     end;
                   end;
               end;
           end;
       end;
     DataController.Summary.FooterSummaryValues[0] := '合计：'
   end;
end;

 

相关阅读 >>

Delphi文件管理类函数

Delphi gethref 获取<a href="链接"></a>中href的数据

Delphi隐藏当前进程(新)

Delphi windows 编程[19] - 改变菜单项的状态: getmenustate、enablemenuitem

Delphi 如何获取桌面图标方法

Delphi中用拼音首字符序列来实现检索功能

Delphi 按字符串长度对tstringlist的元素进行排序

Delphi获得唯一id字符串

Delphi 替换系统文件实现绕过杀软启动

Delphi中禁用和取消android应用睡眠

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » Delphi cxGrid:动态设计统计功能