在线时间:8:00-16:00
迪恩网络APP
随时随地掌握行业动态
扫描二维码
关注迪恩网络微信公众号
1. 在 FormCreate 中向FastReprot添加函数 (fPrint)窗口 procedure TfPrint.FormCreate(Sender: TObject); frxReport1.AddFunction('function MoneySpeechC(pMoney: Currency): String;','Myfunction','人民币大写金额转换函数'); end;
2. 在FastReport用户函数事件中添加 OnUserFunction function TfPrint.frxReport1UserFunction(const MethodName: string; var Params: Variant): Variant; begin if UpperCase(MethodName) = UpperCase('MoneySpeechC') then Result := MoneySpeechC(Params[0]); end;
3. 在FastReport , memo6 的 OnAfterData 事件中插入如下代码 procedure Memo6OnAfterData(Sender: TfrxComponent); begin //------- memo6.text := MoneySpeechC(memo6.Value); end;
|
2023-10-27
2022-08-15
2022-08-17
2022-09-23
2022-08-13
请发表评论