一、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">)]