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 exe图标替换

Delphi 字符串查找函数

Delphi 判断图像格式bmp jpg gif pcx png psd ras sgi tiff err

Delphi xp下的进程静音技术

Delphi中的进制转换

Delphi下遍历指定目录下指定类型文件的函数

Delphi tnethttpcleint提交json串

Delphi 获取internet缓存文件

Delphi 计算l两个日期的时间间隔月数，月数差

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

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