TClientDataSet[11]: 分组统计

最新推荐文章于 2020-07-14 14:11:39 发布

vniceboy

最新推荐文章于 2020-07-14 14:11:39 发布

阅读量224

点赞数

分类专栏： Delphi 文章标签：分组统计

Delphi 专栏收录该内容

14 篇文章

订阅专栏

本文介绍如何在Delphi中通过客户端数据集实现分组统计，并展示了具体步骤和代码实例，包括数据加载、索引添加、统计字段创建及显示。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

设计时实现的分组统计:

运行时实现的分组统计:
--------------------------------------------------------------------------------

//前期只需要添加 ClientDataSet1、DataSource1、DBGrid1; 事件只需要关联窗体的 OnCreate

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Grids, DBGrids, DB, DBClient;

type
TForm1 = class(TForm)
    DBGrid1: TDBGrid;
    DataSource1: TDataSource;
    ClientDataSet1: TClientDataSet;
    procedure FormCreate(Sender: TObject);
private
    procedure OnGetText_Agg1(Sender: TField; var Text: string;
      DisplayText: Boolean);
    procedure OnGetText_Agg2(Sender: TField; var Text: string;
      DisplayText: Boolean);
public
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
{ 关联数据控件 }
DBGrid1.DataSource := DataSource1;
DataSource1.DataSet := ClientDataSet1;

{ 先打开前面例子中留下的测试文件 }
ClientDataSet1.LoadFromFile('C:\Temp\Test.xml');

{ 添加索引, 其中分组级别是 2 }
ClientDataSet1.AddIndex('Index1', '班级;年龄', [], '', '', 2);
{ 给数据集指定此索引 }
ClientDataSet1.IndexName := 'Index1';

{ 数据结构变化时一般需要先关闭数据集 }
ClientDataSet1.Close;

{ 添加统计字段 Agg1: 按班分组统计语文总成绩 }
with TAggregateField.Create(Self) do begin
    FieldName := 'Agg1';
    Expression := 'Sum(语文成绩)';
    IndexName := 'Index1';
    GroupingLevel := 1;
    Active := True;
    OnGetText := OnGetText_Agg1;
    DataSet := ClientDataSet1;
end;
{ 添加统计字段 Agg2: 各班分别按年龄分组统计语文总成绩 }
with TAggregateField.Create(Self) do begin
    FieldName := 'Agg2';
    Expression := 'Sum(语文成绩)';
    IndexName := 'Index1';
    GroupingLevel := 2;
    Active := True;
    OnGetText := OnGetText_Agg2;
    DataSet := ClientDataSet1;
end;

{ 需要在 DBGrid 中显示的字段 }
with DBGrid1.Columns do begin
    Add.FieldName := '班级';
    Add.FieldName := '姓名';
    Add.FieldName := '年龄';
    Add.FieldName := '语文成绩';
    Add.FieldName := 'Agg1';
    Add.FieldName := 'Agg2';
end;

{ 打开数据集并激活统计 }
ClientDataSet1.Open;
ClientDataSet1.AggregatesActive := True;
end;

procedure TForm1.OnGetText_Agg1(Sender: TField; var Text: string; DisplayText: Boolean);
begin
if gbLast in ClientDataSet1.GetGroupState(1) then
Text := Sender.AsString else Text := '';
end;

procedure TForm1.OnGetText_Agg2(Sender: TField; var Text: string; DisplayText: Boolean);
begin
if gbLast in ClientDataSet1.GetGroupState(2) then
Text := Sender.AsString else Text := '';
end;

end.