关闭

DBGridEh Footer的设置和使用

标签: DelphiDBGridEhFooter页脚变色
2581人阅读 评论(1) 收藏 举报
分类:

DBGridEh Footer的设置和使用

 

    DBGridEh拥有Foote功能r,极大地方便用户。能通过在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;

  end;

end;

4
0

查看评论
* 以上用户言论只代表其个人观点,不代表CSDN网站的观点或立场
    个人资料
    • 访问:31048次
    • 积分:583
    • 等级:
    • 排名:千里之外
    • 原创:27篇
    • 转载:0篇
    • 译文:0篇
    • 评论:9条
    最新评论