双11狂欢大促

盲盒赢 定制羽绒服

开启惊喜盲盒，抽取你的专属好礼

— 惊喜奖品抢先看 —

超级年卡50元券

周边70元券

手机支架

一拖三数据线

雨伞

运动毛巾

电动牙刷

VIP月卡

机械键盘

定制羽绒服

超级年卡50元券

周边70元券

手机支架

一拖三数据线

雨伞

运动毛巾

电动牙刷

VIP月卡

机械键盘

定制羽绒服

fastreport 小写转大写金额，函数怎么调用？

2013-12-12 09:43:43 758 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

linlingwei 墨衍会员 · AI 创作全网分发关注 + 加入社区

Delphi Fastreport报表 Allowslip选True (跨页打印) MasterData1的Stretched设置为True;(设置对象可以拉伸) 所有Memo的StretchMode设置为smMaxHeight(自动拉伸到最高高度);WordWrap为True;(自动换行) FastReport调用Delphi中的人民币大写转换自定义函数 function TJzpzEdit1.Mone 阅读详情

在程序中定义了个函数，如下：
function SmallToBig(NN:Real):AnsiString;//人民币大小写转换

在fastreport中有个字段 memo1统计分页小计的，想进行小写到大写金额的转换。
在fastreport中应该如何处理？

...全文

FastReport中怎么定义报表大写金额我们在设计FastReport报表时,遇到客户有可能需要显示的是大写金额,可以用如下方法设计报表解决.else if qianwei=2 then qianwei1:='佰'else if qianwei=3 then qianwei1:='千'else if i='0' then wei1:='零';else if i='2' then wei1:='贰'else if i='3' then wei1:='叁'else if i='4' then wei1:='肆' 阅读详情

linlingwei

Delphi 5,944 成员 262,941 内容

+ 关注 + 加入社区

切换为时间正序

linlingwei 2013-12-13

打赏
举报

to zbdzjx：那就只能将程序中的转换函数代码放到fastreport中了，请问转换函数如何放到fastreport中呢？谢谢

zbdzjx 2013-12-13

打赏
举报

引用 4 楼 linlingwei 的回复:

to zbdzjx：因为我这个是fastreport中的分页小计，金额是动态的，在程序里没法获取，只能在fastreport里进行动态转换。

那就只能将程序中的转换函数代码放到fastreport中了，而且不一定能完全执行，要试试。

linlingwei 2013-12-13

打赏
举报

to zbdzjx：因为我这个是fastreport中的分页小计，金额是动态的，在程序里没法获取，只能在fastreport里进行动态转换。

zbdzjx 2013-12-13

打赏
举报

我之前的做法是：在fastreport中放一个文本，然后在程序中计算出总金额，转换成大写，再写到报表的这个文本中。没有在fastreport中汇总和转换成大写。

linlingwei 2013-12-13

打赏
举报

to sundayzhao：直接在fastreport里这么写？ [SmallToBig(<sum(frxDBDataset1."tax_total")>)] 根本不行呀

sundayzhao 2013-12-13

打赏
举报

[SmallToBig(<sum("data.Field")>)]

linlingwei 2013-12-13

打赏
举报

to gxgyj： function SmallToBig(NN:Real):AnsiString;//人民币大小写转换你好，按照你的办法，但是在第四步：[SmallToBig(<frxDBDataset1."tax_total">)] 但是运行后，没有任何反映呀。memo显示是空的

gxgyj 2013-12-13

打赏
举报

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

✦双11狂欢大促✦

fastreport 小写转大写金额，函数怎么调用？

相关推荐

双11狂欢大促