fast report for delphi

 1)fast report的简单的主从表使用（subreport）
fast report报表打印可分两种：一种为动态打印，也就是我们一般的打印预缆（rptMain.ShowReport()），另外一种为设计（rptMain.DesignReport()）可以通过设计来排好我们需要的打印格式。首先在界面上添加一个TfrxReport一个TFrxDBDataset和TDataSource及相关数据源，
打印预览在报表中可以拉一个MasterData1并右键编辑配置数据集，在MasterData里面放入控件Subreport1双击他并且在里面也放入MasterData1，这样循环就可以建立无数层次的主从报表，但必须几个表中要有字段相同的字段才会去关联。详细离子请查看：C:/Program Files/FastReports/FastReport 4/Demos/Main


//用于发票打印，传入大写金额


function TFdmReport_FR.ReportPreview_para(strSQL: string; AFileName: string;strPara:string): boolean; //打印预览，需要传入一个报表显示参数


var


  FrMemo_obj: TfrxMemoView;


begin


  AFileName:= rptPath+ AFileName;


  if trim(strSQL) <> '' then


     OpenReportDS(strSQL);




  if FileExists(AFileName) then


     rptMain.LoadFromFile(AFileName);




  MainDS.OpenDataSource := true;


  //传入报表显示参数


  FrMemo_obj:=rptMain.FindObject('UPNumChinese') as TfrxMemoView;


  FrMemo_obj.Text:=strPara;


  rptMain.ShowReport();


end;打印设计


procedure TFdmReport_FR.ReportDesign(strSQL,AFileName: string);


begin


  AFileName:= rptPath+ AFileName;


  if trim(strSQL) <> '' then


     OpenReportDS(strSQL);


  if FileExists(AFileName) then


     rptMain.LoadFromFile(AFileName);


  rptMain.DesignReport();


end;