Delphi FastReport动态向指定控件填入内容

最新推荐文章于 2024-10-17 13:22:16 发布

liang08114

最新推荐文章于 2024-10-17 13:22:16 发布

阅读量3.1k

点赞数

分类专栏： delphi

本文链接：https://blog.csdn.net/liang08114/article/details/78426223

版权

delphi 专栏收录该内容

51 篇文章 1 订阅

订阅专栏

constructor TPrinter.Create(sFileName: string);
begin
  frxReport := TfrxReport.Create(nil);
  frxReport.LoadFromFile(sFileName, True);
  frxReport.PrintOptions.Printer := sPrinterName;  //设置指定打印机 'BOSHI BS-280K'
  frxReport.OnBeforePrint := frxReport1BeforePrint;
end;

procedure TPrinter.frxReport1BeforePrint(Sender: TfrxReportComponent);
var
  sTemp: string;
begin
  if (Sender is TfrxMemoView) then
  begin
    if ((Sender as TfrxMemoView).Name = 'Memo_FPHM') then
      (Sender as TfrxMemoView).Memo.Text := Inv.FFPHM
    else if ((Sender as TfrxMemoView).Name = 'Memo_JQBH') then
      (Sender as TfrxMemoView).Memo.Text := Card.JSPBH
    else if ((Sender as TfrxMemoView).Name = 'Memo_XFMC') then
      (Sender as TfrxMemoView).Memo.Text := Inv.FXFMC
    else if ((Sender as TfrxMemoView).Name = 'Memo_XFSH') then
      (Sender as TfrxMemoView).Memo.Text := Inv.FXFSH
    else if ((Sender as TfrxMemoView).Name = 'Memo_GFMC') then
      (Sender as TfrxMemoView).Memo.Text := Inv.FGFMC
    else if ((Sender as TfrxMemoView).Name = 'Memo_GFSH') then
      (Sender as TfrxMemoView).Memo.Text := Inv.FGFSH
    else if ((Sender as TfrxMemoView).Name = 'Memo_KPRQ') then
      (Sender as TfrxMemoView).Memo.Text := FormatDateTime('yyyy年MM月dd日', Now)
    else if ((Sender as TfrxMemoView).Name = 'Memo_SKR') then
      (Sender as TfrxMemoView).Memo.Text := Inv.FSKR
    else if ((Sender as TfrxMemoView).Name = 'Memo_JSHJ') then
      (Sender as TfrxMemoView).Memo.Text := Inv.FHJJE
    else if ((Sender as TfrxMemoView).Name = 'Memo_JSHJDX') then
    begin
      TransMoney(StrToFloat(Inv.FHJJE), sTemp);
      (Sender as TfrxMemoView).Memo.Text := sTemp //转大写
    end
    else if ((Sender as TfrxMemoView).Name = 'memo_FWM') then
      (Sender as TfrxMemoView).Memo.Text := Inv.FFWM
    else
    begin
      sTemp:= (Sender as TfrxMemoView).Name;
      (Sender as TfrxMemoView).Memo.Text :=GetValue(sTemp);
    end;
  end
  else if (Sender is TfrxBarCodeView) then
  begin
    if ((Sender as TfrxBarCodeView).Name = 'bcFWM') then
      (Sender as TfrxBarCodeView).Text := Inv.FFWM;
  end;
end;