首页 诗词 字典 板报 句子 名言 友答 励志 学校 网站地图
当前位置: 首页 > 教程频道 > .NET > .NET >

fastreport 小写转大写金额,函数如何调用

2013-12-15 
fastreport 小写转大写金额,函数怎么调用?在程序中定义了个函数,如下:function SmallToBig(NN:Real):AnsiS

fastreport 小写转大写金额,函数怎么调用?
在程序中定义了个函数,如下:
function SmallToBig(NN:Real):AnsiString;//人民币大小写转换

在fastreport中有个字段 memo1统计分页小计的,想进行小写到大写金额的转换。
在fastreport中应该如何处理?
[解决办法]
一、unit上定义、实现函数
function CN_rmb(Num:string):WideString;//人民币大写转换

function CN_rmb(Num: string): WideString;
begin
    //人民币大写转换实现
end;

二、datamodule事件onCreate添加函数
procedure TDM.DataModuleCreate(Sender: TObject);  //需在UserFunction处定义函数
begin
  frxReport.AddFunction('function CN_rmb(Num:string):WideString;','Myfunction1','人民币中文大写转换'); //Myfunction1为名字也可其它
end;

三、frxReport事件onUserFunction定义函数
function TDM.frxReportUserFunction(const MethodName: string;
  var Params: Variant): Variant;
begin
  if UpperCase(MethodName) = UpperCase('cn_rmb') then
  Result:=CN_rmb(Params[0]);
end;

四、报表中使用:[cn_rmb(<frxDBDataset1."tax_total">)]

热点排行