UniDBGrid-列值累加

同一个世界，同一个梦想，交流学习 Delphi XE10+UniDBGrid

【开发工具】

1、Delphi 10.3.3

2、FMSoft_uniGUI_Complete_Professional_1.70.0.1531（正版）

在做报表时，有时候需要按照某个字段，将表格的所有记录分组，并且分别显示每组某个列的汇总值以及所有记录的汇总值。先将stu_score1和stu_score2两列的ShowSummary设置为True；UniDBGrid的Grouping用于记录分组，其下FieldName属性用于指定以哪一个字段做分组，Enabled属性用于控制是否分组；UniDBGrid的Summary用于汇总，其下GrandTotal用于设置是否显示所有记录的数据汇总行，GrandTotalAlign用于控制数据汇总行的显示位置，Enabled属性用于控制是否做汇总。为UniDBGrid1的OnColumnSummary事件、OnClumnSummaryResult、OnColumnSummaryTotal添加代码：

一、delphi源代码

列值累加
procedure TMainForm.UniDBGrid1ColumnSummary(Column: TUniDBGridColumn;

  GroupFieldValue: Variant);

begin

  if SameText(Column.FieldName, 'stu_score1') then

    begin

      if Column.AuxValue=NULL then

        begin

          Column.AuxValue:=0;

end;

          Column.AuxValue:=Column.AuxValue + Column.Field.AsFloat;//小汇总累加

      if Column.AuxValues[1]=NULL then

        begin

          Column.AuxValues[1]:=0;

end;

      Column.AuxValues[1]:=Column.AuxValues[1] + Column.Field.AsFloat;//大汇总累加

    end

  else if SameText(Column.FieldName, 'stu_score2') then

    begin

      if Column.AuxValue=NULL then

        begin

          Column.AuxValue:=0.0;

end;

      Column.AuxValue:=Column.AuxValue + Column.Field.AsFloat;

       

      if Column.AuxValues[1]=NULL then

        begin

          Column.AuxValues[1]:=0.0;

end;

      Column.AuxValues[1]:=Column.AuxValues[1] + Column.Field.AsFloat;

    end;

end;

分组汇总
procedure TMainForm.UniDBGrid1ColumnSummaryResult(Column: TUniDBGridColumn;

  GroupFieldValue: Variant; Attribs: TUniCellAttribs; var Result: string);

var

  I : Real;

begin

  if SameText(Column.FieldName, 'stu_score1') then

  begin

    I:=Column.AuxValue;

    Result:=Format('语文总分 : %f', [I]);//显示小汇总

    Attribs.Font.Style:=[fsBold];

    Attribs.Font.Color:=clGreen;

  end

  else if SameText(Column.FieldName, 'stu_score2') then

  begin

    I:=Column.AuxValue;

    Result:=Format('数学总分 : %f', [I]);

    Attribs.Font.Style:=[fsBold];

    Attribs.Font.Color:=clNavy;

  end;

  Column.AuxValue:=NULL;

end;

整体汇总
procedure TMainForm.UniDBGrid1ColumnSummaryTotal(Column: TUniDBGridColumn;

  Attribs: TUniCellAttribs; var Result: string);

var

  I : Real;

begin

  if SameText(Column.FieldName, 'stu_score1') then

  begin

    I:=Column.AuxValues[1];

    Result:=Format('语文总分 : %f', [I]);//显示大汇总

    Attribs.Font.Style:=[fsBold];

    Attribs.Font.Color:=clGreen;

  end

  else if SameText(Column.FieldName, 'stu_score2') then

  begin

    I:=Column.AuxValues[1];

    Result:=Format('数学总分 : %f', [I]);

    Attribs.Font.Style:=[fsBold];

    Attribs.Font.Color:=clNavy;

  end;

end;