DBGridEh Footer的使用

DBGridEh拥有Footer功能极大地方便用户。能通过在DBGridEh的底部增加Footer行，可以显示相关提示字符和字段的（合计、平均值、行数等）功能，以及其它特殊的统计要求。操作如下：

一、语句说明

1、设置Footer行数

DBGrideh1.FooterRowCount:=1; // 定义行数

2、增加Footer

DBGridEh1.Columns $0$ .Footers.Add; // 加入Footer首行

DBGridEh1.Columns $0$ .Footers.Add; // 加入Footer次行

3、删除Footer

DBGridEh1.Columns $0$ .Footers.Delete(1); // 删除Footer

4、Sum合计操作

DBGridEh1.SumList.Active:=True; // 合计操作

DBGridEh1.SumList.Active:=False; // 取消合计操作

5、Footer显示颜色

DBGridEh1.FooterFont.Color:=clRed; // 字体色

DBGridEh1.FooterColor := clYellow; // 背景色

6、Footer数据类型

DBGrideh1.Columns $0$ .Footer.ValueType:=fvtStaticText; // 定义Foolter数据类型

7、Footer显示样式

DBGrideh1.Columns $0$ .Footer.Alignment:=tacenter; // 标题字符对齐方式

taRightJustify // 右对齐

taLeftJustify // 左对齐

taCenter // 居中对齐

8、Footer数据类型

DBGrideh1.Columns $0$ .Footer.ValueType:=fvtStaticText; // 定义Foolter数据类型

TFooterValueType = (fvtNon, fvtSum, fvtAvg, fvtCount, fvtFieldValue, fvtStaticText);

fvtNon // 无

fvtSum // 合计数

fvtAvg // 平均值

fvtCoun // 行数

fvtFieldValue // 字段数据

fvtStaticText) // 静态文本

9、Footer数据显示格式

DBGrideh1.Columns $7$ .Footer.DisplayFormat:='#0.00'; // 显示格式

DBGrideh1.Columns $7$ .Footer.DisplayFormat:='###,###,##0.00'; // 显示格式化

10、读取Footer的值

通过函数 DBGridEh1.GetFooterValue(行数, DBGridEh1.Columns $n$ ) 获取。第1个参数：Foolter行数：0..n 。第2个参数TColumns类型，Columns $n$ 中的n,是列数0..ount-1。例：

FloatValue:=StrToFloat(DBGridEh1.GetFooterValue(0,DBGridEh1.Columns $7$ )); // 参数0,Footer的第1行, Columns $7$ 第8列的Sum值

二、实用语句

1、加入Footer

DBGrideh1.FooterRowCount:=1; // 定义合计化为 1行

DBGrideh1.SumList.Active:=True; // 确定使用合计列

DBGridEh1.FooterFont.Color:=clRed; // 字体色

DBGridEh1.FooterColor := clYellow; // 背景色

2、Footer加入字符Column

如：设置第1列，在Footer显示 "合计"字符

DBGrideh1.Columns $0$ .Footer.ValueType:=fvtStaticText; // 定义合计标题类型

DBGrideh1.Columns $0$ .Footer.Value:='合计'; // 合计标题显示字符

DBGrideh1.Columns $0$ .Footer.Alignment:=tacenter; // 标题字符对齐方式

DBGrideh1.Columns $0$ .Footer.Color:= clBlue;

3、Footer加入合计Column

如，设置第8列，作为合计字段

DBGrideh1.Columns $7$ .Footer.ValueType := fvtSum; // 合计列的类型

DBGrideh1.Columns $7$ .Footer.DisplayFormat:='#0.00'; // 格式化

DBGrideh1.Columns $7$ .Footer.Alignment := taRightJustify; // 设置对齐方式

4、Footer取列的平均值

如，设置第5列flooter，作为平均值

DBGrideh1.Columns $4$ .Footer.ValueType := fvtAvg; // 平均值

DBGrideh1.Columns $4$ .Footer.DisplayFormat:='#0.00'; // 格式化

DBGrideh1.Columns $4$ .Footer.Alignment := taCenter; // 设置对齐方式

三、事件

1、OnShow事件初始化（设置）Footer

procedure TFrom1.OnShow(Sender: TObjec);

begin

// 设置Footer

DBGridEh1.Flat:=True;

DBGridEh1.FooterRowCount:=2; // Footer行数

DBGridEh1.FooterColor:=clYellow; // 背景色

DBGridEh1.FooterFont.Color:=clRed; // 前景色

DBGridEh1.Columns $0$ .Footers.Add; // 加入Footer首行

// 设置首行第1列

DBGridEh1.Columns $0$ .Footers $0$ .ValueType:=fvtStaticText; // 显示文本

DBGridEh1.Columns $0$ .Footers $0$ .Value:='合计';

DBGridEh1.Columns $0$ .Footers $0$ .Alignment:=taCenter; // 中心对齐

DBGridEh1.Columns $0$ .Footers.Add; // 加入Footer次行

// 设置首行第2列

DBGridEh1.Columns $0$ .Footers $1$ .ValueType:=fvtCount; // 计数

DBGridEh1.Columns $0$ .Footers $1$ .FieldName:='编号'; // 字段名

DBGridEh1.Columns $0$ .Footers $1$ .Alignment:=taCenter; // 中心对齐

DBGridEh1.Columns $3$ .Footers.Add; // 加入首行第4列

// 设置首行第4列

DBGridEh1.Columns $3$ .Footers $0$ .ValueType:=fvtSum; // 数据类型：合计

DBGridEh1.Columns $3$ .Footers $0$ .FieldName:='金额'; // 字段名

DBGridEh1.Columns $3$ .Footers $0$ .DisplayFormat:='#,###,###.00'; // 显示格式

DBGridEh1.Columns $3$ .Footers.Add; // 加入次行第4列

// 设置次行第4列

DBGridEh1.Columns $3$ .Footers $1$ .ValueType:=fvtFieldValue; // 数据类型：字段值

DBGridEh1.Columns $3$ .Footers $1$ .FieldName:='账号'; // 字段名

DBGridEh1.Columns $3$ .Footers $1$ .Font.Style := $fsBold$ ; // 文字格式

DBGridEh1.Columns $3$ .Footers $1$ .Font.Color:=clBlue; // 文字尺寸

DBGridEh1.SumList.Active:=True; // 确定统计合计

end;

2、GetFooterParams事件，动态修改背景、字体颜色和Cell颜色

procedure TFrom1.DBGridEh1GetFooterParams(Sender: TObject; DataCol,Row: Integer; Column: TColumnEh; AFont: TFont; var Background: TColor;

var Alignment: TAlignment; State: TGridDrawState; var Text: String );

begin

if Column.Index=7 then // 通过列名访问

// if Column.Field.FieldName='金额' then // 通过字段名访问

Begin

if Text<>'' then

if StrtoFloat(Text)>1000 then

begin

Column.Color:=clRed; // 修改Column的Cell列的背景色

Column.Font.Color:= clBlue; // 修改Column的Cell列的字符色

Column.Footer.Color:= clBlue; // 修改Column的Footer的背景色

Column.Footer.Font.Color:= clRed; // 修改Column的Footer的字符色

End

else begin

Column.Color:=clBlue;

Column.Font.Color:= clRed;

Column.Footer.Color:= clRed;

Column.Footer.Font.Color:= clBlue;

end;