FastReport几个问题解决

1、FastReport几个问题1.FastReport中如何共用TFrxreport及TfrxDBDataSet一个程序中，不管多么大的程序，只要打印或预览时是模式的，则完全可以共用一个TFrxreport变量及几个TfrxDBDataSet。只不过，要注意完成一个报表程序的步骤，主要是下面几步1)清除报表，得到一个全新的报表内容。Frxreport1.clear。2)设置要使用的TfrxDBDataSet的别名，如果不需要可以省略这一步，但一般最好不同的报表用不 写成函数是 2.如何打印空白处？在打印报表的Band处的OnBeforePrint事件中添加代码：while F

2、reeSpace > 20 do  ShowBand(Child1) 3.如何打印指定行数后换页？在master band中OnBeforePrint事件中写代码：var   vLineCount: integer;begin   vLineCount := vLineCount + 1;   if vLineCount = 10 then   begin      vLineCount := 0;   

3、60;  NewPage;   end;end; 4.fastreport中如何把数据显示为百分比DisplayFormat属性，其中的Kind你设置成fkNumeric,FormatStr<frxDBDataset1."sjl">*100 #n%2.2f%” 5.FastReport如何打印表格式的空行？var   PageLine: integer;       /在現在頁列印到第幾行   PageMaxRow

4、: integer=15;  /設定每頁列數   procedure MasterData1OnBeforePrint(Sender: TfrxComponent);   begin       PageLine := <Line> mod PageMaxRow;       if (PageLine = 1) and (<line> > 1) then   

5、0;      Engine.newpage;       child1.visible := False;   end;   /Footer1高度設為0  procedure Footer1OnBeforePrint(Sender: TfrxComponent);  var      i: integer;  begin   

6、   i := iif(PageLine=0, PageMaxRow, PageLine);      child1.visible := True;      while i < PageMaxRow do      begin          i := i + 1;    &#

7、160;     Engine.ShowBand(Child1);  /印空白表格      end;      child1.visible := False;    end;beginend. 6.在首页打印本页小计，最后一页打印本页小计和合计(如果只有一页，则打印本页小计和合计)  frxReport1.PrepareReport();  frxReport1.Varia

8、bles'pageQ' := pageQ;  frxReport1.Variables'hander' := QuotedStr(hander);  frxReport1.Variables'doubleline' := QuotedStr(StringOfChar('=', Length(hander) + 12);  whName :='设备资产'  frxReport1.Variables'p1' := QuotedStr('仓库：' +

9、 whName);  frxReport1.Variables'p9' := QuotedStr('领用科室：' + DepName);  frxReport1.Variables'p2' := QuotedStr('日期：' + ywDate);  frxReport1.Variables'p3' := QuotedStr('单据号：' + VoucherNo); 在FastReport写入代码procedure ColumnFooter1OnBeforeP

10、rint(Sender: TfrxComponent);var  bVisible: boolean;                                        

11、0;                begin  bVisible := <Page> = <pageQ>  Memo12.visible := bVisible;  Memo21.visible := bVisible;  Memo16.visible := bVisible;  Memo14.visible := bVisible;   &

12、#160;    if not bvisible then  begin                  p8.Top := 27;    p7.Top := 27;            p4.Top :=  27;    p5.Top

13、 :=  27;    p6.Top :=  27;          end  else  begin    p8.Top := 49.46;    p7.Top := 49.46;            p4.Top :=  49.46;   

14、p5.Top :=  49.46;    p6.Top :=  49.46;        end;                      end;procedure Page1OnBeforePrint(Sender: TfrxComponent);var  bV

15、isible: boolean;                                               &#

16、160;         begin  bVisible := <Page> = <pageQ>  if not bvisible then  begin                  ColumnFooter1.Height:=48;  end  else  begin

17、    ColumnFooter1.Height:=69.35;   end;end;beginend. 7.加入自定义函数(1)在delphi程序中定义函数  frxReport1.AddFunction('function MoneyCn(mmje: Double): String;','Myfunction','小写金额转大写的函数');  frxReport1.OnUserFunction :=frxUserFunction;（2）在frxUserFuncti

18、on事件中加载函数function TFunComm.frxUserFunction(const MethodName: string;  var Params: Variant): Variant;begin  if UpperCase(MethodName) = UpperCase('MoneyCn') then    Result := MoneyCn(Params0);end;（3）实现函数(数字转大写)function MoneyCn(mmje: Double): string;const  s1: stri

19、ng = '零壹贰叁肆伍陆柒捌玖'  s2: string = '分角元拾佰仟万拾佰仟亿拾佰仟万'  function StrTran(const S, s1, s2: string): string;  begin    Result := StringReplace(S, s1, s2, rfReplaceAll);  end;var  S, dx: string;  i, Len: Integer;begin  if mmje < 0 then

20、0; begin    dx := '负'    mmje := -mmje;  end;  S := Format('%.0f', mmje * 100);  Len := Length(S);  for i := 1 to Len do    dx := dx + Copy(s1, (Ord(Si) - Ord('0') * 2 + 1, 2) + Copy(s2, (Len - i)  

21、60;   * 2 + 1, 2);  dx := StrTran(StrTran(StrTran(StrTran(StrTran(dx, '零仟', '零'), '零佰',    '零'),    '零拾', '零'), '零角', '零'), '零分', '整');  dx := StrTran(StrTran(StrTran(Str

22、Tran(StrTran(dx, '零零', '零'), '零零',    '零'),    '零亿', '亿'), '零万', '万'), '零元', '元');  if dx = '整' then    Result := '零元整'  else    Resul

23、t := StrTran(StrTran(dx, '亿万', '亿零'), '零整', '整');end;(4) FastReport中引用函数如：MoneyCn(<SUM(<frxDBDataset1."M3">,MasterData1,2)>) 8.在FastReport中将两字段连接起来(用脚本实现)  Trim(<frxDBDataset1."C2">)+' '+Trim(<frxDBDataset1.&q

24、uot;C3">) 9.数据栏的动态调试设置MasterData根据数据自动设置其高度（1）首先设置MasterData栏的Stretch为True (2)  再右键单击MasterData栏的各个字段，选中Stretch to Max Height即可 10.在Delphi中定义数据字段  var     frxMemo: TfrxMemoView; 11.分组时打印页号，如1/1,2/1,1/2,2/2,3/2,4/2在FastReport的脚本中写入：var  G

25、Page,GIndex,FGIndex:integer;  PageList:array of integer;                                        

26、;                        procedure PageFooter1OnBeforePrint(Sender: TfrxComponent);begin  GPage := GPage + 1;  FGIndex :=0;         

27、60;                       end; procedure Page1OnBeforePrint(Sender: TfrxComponent);begin  GPage :=1;             &#

28、160;                          end; procedure GroupFooter1OnBeforePrint(Sender: TfrxComponent);begin  if Engine.FinalPass then  /二次遍历时增加分组索引    FGIndex := FGIndex + 1  else  begin    setLength(PageList,GIndex + 1);