{*******************************************************}

{                                                       }

{       格式显示                                        }

{                                                       }

{       版权所有 (C) 2007 咏南工作室（陈新光）          }

{                                                       }

{*******************************************************}

unit uFormatDisplay;

interface

uses

  DB,DBGridEh,SysUtils,Classes;

{ 设置数字或金额字段的显示格式 }

procedure SetDisplayFormat(ADataset:TDataSet);

{ 设置财务栏 }

procedure SetMoneyCol(AGrid:TDBGridEh;AFieldName:string);

implementation

procedure SetMoneyCol(AGrid:TDBGridEh;AFieldName:string);

var

  i:Integer;

begin

  AGrid.CHNCurrencyStyle.ZeroEmpty:=false;

  for i:=0 to AGrid.Columns.Count-1 do

  begin

    with AGrid do

    begin

      if Columns[i].FieldName=AFieldName then

      begin

        Columns[i].DisplayCHNCurrency:=True;

        Columns[i].DisplayZero:=True;

      end;

    end;

  end;

end;       

procedure SetDisplayFormat(ADataset:TDataSet);

var

  i:Integer;

begin

  for i:=0 to ADataset.FieldCount-1 do

  begin

    with ADataset do

    begin

      if Fields[i] is TBCDField then

        (Fields[i] as TBCDField).DisplayFormat := '###,##0.00';

    end;

  end;

end;

end.