文档章节

TClientDataSet[10]: 简单统计

涂孟超
 涂孟超
发布于 2014/09/26 15:35
字数 457
阅读 4
收藏 0

//先在窗体上放置 ClientDataSet1、Button1 然后:

{ 建表 }
procedure TForm1.FormCreate(Sender: TObject);
begin
  with ClientDataSet1 do begin
    { 定义表 }
    FieldDefs.Add('班级', ftWideString, 4);
    FieldDefs.Add('姓名', ftWideString, 8);
    FieldDefs.Add('年龄', ftByte);
    FieldDefs.Add('语文成绩', ftFloat);
    FieldDefs.Add('数学成绩', ftFloat);
    { 建立表 }
    CreateDataSet;
    { 添加 18 条测试数据 }
    AppendRecord(['一班', '赵钱', 8, 81, 98]);
    AppendRecord(['一班', '孙李', 9]);         { 假如他没有成绩 }
    AppendRecord(['一班', '周吴', 8, 82, 97]);
    AppendRecord(['三班', '郑王', 9, 83, 96]);
    AppendRecord(['三班', '冯陈', 8, 84, 95]);
    AppendRecord(['三班', '诸卫', 9, 85, 94]);
    AppendRecord(['二班', '蒋沈', 8, 86, 93]);
    AppendRecord(['二班', '韩杨', 9, 87, 92]);
    AppendRecord(['二班', '朱秦', 8, 88, 91]);
    AppendRecord(['一班', '尤许', 9, 89, 90]);
    AppendRecord(['一班', '何吕', 8, 99, 89]);
    AppendRecord(['一班', '施张', 9, 98, 88]);
    AppendRecord(['三班', '孔曹', 8, 97, 87]);
    AppendRecord(['三班', '严华', 9, 96, 86]);
    AppendRecord(['三班', '金魏', 8, 95, 85]);
    AppendRecord(['二班', '陶姜', 9, 94, 84]);
    AppendRecord(['二班', '戚谢', 8, 93, 83]);
    AppendRecord(['二班', '邹喻', 9, 92, 82]);
  end;

  { 备份这些数据给后面测试用 }
  ClientDataSet1.MergeChangeLog;
  ClientDataSet1.SaveToFile('C:\Temp\Test.xml', dfXMLUTF8);
end;

{ 统计 }
procedure TForm1.Button1Click(Sender: TObject);
begin
  { (有效的)人员总数 }
  with ClientDataSet1.Aggregates.Add do begin
    Expression := 'Count(语文成绩)';
    Active := True;
  end;
  { 语文总成绩 }
  with ClientDataSet1.Aggregates.Add do begin
    Expression := 'Sum(语文成绩)';
    Active := True;
  end;
  { 语文平均成绩 }
  with ClientDataSet1.Aggregates.Add do begin
    Expression := 'Avg(语文成绩)';
    Active := True;
  end;
  { 语文最高成绩 }
  with ClientDataSet1.Aggregates.Add do begin
    Expression := 'Max(语文成绩)';
    Active := True;
  end;
  { 语文最低成绩 }
  with ClientDataSet1.Aggregates.Add do begin
    Expression := 'Min(语文成绩)';
    Active := True;
  end;
  { 语文和数学的总成绩 }
  with ClientDataSet1.Aggregates.Add do begin
    Expression := 'Sum(语文成绩) + Sum(数学成绩)';
    Active := True;
  end;

  { 执行统计 }
  ClientDataSet1.AggregatesActive := True;
  { 查看统计结果 }
  with ClientDataSet1 do begin
    ShowMessageFmt('%d',  [Integer(Aggregates[0].Value)]); { 17      }
    ShowMessageFmt('%.2f', [Double(Aggregates[1].Value)]); { 1529.00 }
    ShowMessageFmt('%.2f', [Double(Aggregates[2].Value)]); { 89.94   }
    ShowMessageFmt('%.2f', [Double(Aggregates[3].Value)]); { 99.00   }
    ShowMessageFmt('%.2f', [Double(Aggregates[4].Value)]); { 81.00   }
    ShowMessageFmt('%.2f', [Double(Aggregates[5].Value)]); { 3059.00 }
  end;
end;

 
 
 
 
 

 

 

  

设计时使用统计的过程(使用了上面的测试值):



本文转载自:http://www.cnblogs.com/del/archive/2010/01/30/1660272.html

共有 人打赏支持
涂孟超
粉丝 12
博文 2011
码字总数 14107
作品 0
深圳
程序员
私信 提问
TClientDataSet使用(二)

转自:http://hi.baidu.com/zwl232/blog/item/76f011dfc9543812622798f2.html TClientDataSet    与TTable、TQuery一样,TClientDataSet也是从TDataSet继承下来的,它通常用于多层体系结构的......

天地弦
2007/06/01
0
0
一个ClientDataset的Delta与XML相互转换

一个ClientDataset的Delta与XML相互转换的文章: 大家都知道TClientDataSet的Delta属性保存数据集的变化,但是Delta是OleVariant类型的属性,这样如果用Delphi写Webservice,就有需要把它转成...

vga
2014/02/27
0
18
ClientDataSet探讨(1)-介绍

KeyLife富翁笔记 作者: hongxingdl 标题: ClientDataSet探讨(1)-介绍 关键字: midas 分类: 开发经验 密级: 公开 与TTable、TQuery一样,TClientDataSet也是从TDataSet继承下来的,...

天地弦
2004/08/06
0
0
TClientDataSet的使用以及遇到的坑

在Delphi未加入之前,似乎是没有内存表控件的(也许有,可能我不知道吧),但是可以用控件来做内存表使用,即使有了可以使用,我还是觉得更好用一些。 做内存表使用 创建 排序 在定义字段后,...

业余码农
01/12
0
0
Android开发数据库三层应用-DataSnap

Android开发数据库三层应用-DataSnap 时间:2013-10-24 13:41:54 点击:4988   核心提示:我觉得Delphi最强大的的功能之一就是开发数据库三层应用的DataSnap,在Android上的实现,首先是完...

vga
2014/06/01
0
0

没有更多内容

加载失败,请刷新页面

加载更多

Math-Model(二)-无向图最近邻路径搜索

%a=xlsread('../附件一:已结束项目任务数据.xls');clcclearGPS_1=importdata('../GPS_DATA.txt');GPS_2=importdata('../GPS_DATA2.txt');%X=min([min(GPS_1(:,1)),min(GPS_2(:,1))]):......

Pulsar-V
1分钟前
0
0
react-navigation的学习

react-navigation的学习 react-navigation地址:https://reactnavigation.org/docs/en/navigating 导入的路由: import React from "react";import { View, Text } from "react-native";......

android-key
1分钟前
0
0
flume整合kafka,实现exactly one的数据采集

flume-kafka source配置 flume同步kafka的数据需要配置以下几个配置 type,数据源类型,如org.apache.flume.source.kafka.KafkaSource channels,下游对接source的channel名 topics,消费kaf...

厮以为
1分钟前
0
0
推荐:2019年十佳DevOps工具

DevOps落地重要的一方面是选好工具集,本文介绍了最流行的DevOps工具。 开发和运维的集成翻开了软件开发的全新篇章。如果你还是DevOps的新手,或者正在寻求改进已有流程的方法,那么第一道关...

架构师springboot
7分钟前
0
0
威胁预警|首现新型RDPMiner挖矿蠕虫 受害主机易被添加恶意账户

近日,阿里云安全发现一种新型挖矿蠕虫RDPMiner,通过爆破Windows Server 3389端口RDP服务的方式进行挖矿木马传播,致使用户CPU占用率暴涨,机器卡顿,更被创建名为DefaultAccount的账号。攻...

阿里云官方博客
7分钟前
0
0

没有更多内容

加载失败,请刷新页面

加载更多

返回顶部
顶部