{*******************************************************}
{ }
{ 格式显示 }
{ }
{ 版权所有 (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.