clientdataset 实现分组和索引

最新推荐文章于 2022-12-09 12:56:08 发布

weixin_34038652

最新推荐文章于 2022-12-09 12:56:08 发布

阅读量162

点赞数

CC 4.0 BY-SA版权

原文链接：https://yq.aliyun.com/articles/526814

本文介绍如何使用 Delphi 创建数据集索引并实现聚合字段，包括设置索引、创建聚合字段及激活聚合功能等步骤。

if qryformx.Active then
    qryformx.Close;
qryformx.createdataset;
qryformx.Open;
qryformx.AddIndex('qryformxIndex1','pzh;bm;mc;ybbm;ybmc;sglxbm;sglx;sgysbm;sgys',[],'', '',9);
{ 给数据集指定此索引 }
qryformx.IndexName := 'qryformxIndex1';
qryformx.Close;
with TAggregateField.Create(Self) do begin
    FieldName := 'pricesum';
    Expression := 'Sum(price)';
    IndexName := 'qryformxIndex1';
    GroupingLevel := 9;
    Active := True;
    OnGetText := qryformxpricesumGetText;
    DataSet := qryformx;
end;
qryformx.open;
qryformx.AggregatesActive := True;

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