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 webbrowser 无法调用当前浏览器的版本

Delphi 系统对话框（如浏览目录）被隐藏到主窗体后面造成程序无法操作的临时处理方式

Delphi winapi: settimer、killtimer - 创建与移除高性能定时器

Delphi qq自动发消息源码

Delphi idftp连接

Delphi建立快捷方式的函数:createshortcut()

Delphi xe7 android 实现的在线更新app的一个程序

Delphi base64, quoted-printable 的解码与编码函数

Delphi 调用viewer-windows10 图像浏览器

Delphi adoquery1数据表参数调用

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

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