10 2009 档案

FastReport分页和空行填充
摘要: 0.在FastReport 4.X版本通过。1.添加两个Band 一个是主数据和CHild（与主数据一样的空白带格子）。2.生成Page事件。3.添加代码。var aa:Integer; maxRow:Integer; procedure Page1OnManualBuild(Sender: TfrxComponent); var DataSet: TfrxDataSet; begin aa:=1...阅读全文
posted @ 2009-10-30 10:16 MaxIE 阅读(606) | 评论 (0) 编辑
FastReport人民币大写转换
摘要: function MoneyToCharacter(Money:real):string; //数字转换为中文大写var temp:string; resu:string; i,j:integer; len:integer; Num:array[0..9] of string; A:array[0..13] of string;begin Num[0]:='零'; num[1]:='壹'; Num...阅读全文
posted @ 2009-10-30 10:16 MaxIE 阅读(231) | 评论 (0) 编辑