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;