zoukankan      html  css  js  c++  java
  • unigui+fastReport实现web打印方案

    近日单位需要用到会议通知单的打印功能,故引出篇。

    unigui是delphi环境下快速开发web应用的优秀工具,不再赘述,下面直接记录使用搭配使用,基本逻辑就是:

    unigui实现数据录入和浏览的web页---->点击打印按钮时使用【frxPDFExport】动态将报表导出为pdf------>将pdf文件动态载入打印预览窗口(UniURLFrame)实现打印预览功能。

    具体实现:

    1,用unigui控件实现数据的“增改删”,如下图:

    2,unigui实现预览窗口,如下图,需要引入frxReport、frxPDFExport和frxRichObject组件:

    3,双击frxReport设计好会议通知单模板,且将文件另存到unigui发布目录的files文件夹下,文件名为”会议通知单模板.fr3“,如下图:

    4,点击【打印会议通知单】按钮实现如下代码(利用frxReport打开已设计好的会议通知单模板.fr3,通过frxPDFExport将frxReport的报表导出为pdf文件):

    procedure TfrmMeetingInf.btnPrintClick(Sender: TObject);
    begin
        with frmMeetingInfPrint do begin
            try
                sTitle := memTitle.Lines.Text;
                sTime := edTime.Text;
                sPsn := edPsn.Text;
                sAddress := memAddress.Lines.Text;
                ShowModal(nil);
            finally
            end;
        end;
    end;
    procedure TfrmMeetingInfPrint.UniFormBeforeShow(Sender: TObject);
    var
        rptFileName,url: string;
    begin
        rptFileName := '会议通知单.fr3';
        frxReport1.Clear();
        try
            frxReport1.LoadFromFile(UniServerModule.FilesFolderPath+rptFileName);   //存放在files目录下面
            frxReport1.PrintOptions.ShowDialog := false;
            frxReport1.ShowProgress := false;
            frxReport1.EngineOptions.SilentMode := true;
            frxReport1.EngineOptions.EnableThreadSafe := true;
            frxReport1.EngineOptions.DestroyForms := false;
            frxReport1.EngineOptions.UseGlobalDataSetList := false;
    
            frxPDFExport1.Background:=true;
            frxPDFExport1.ShowProgress:=False;
            frxPDFExport1.ShowDialog:=false;
            frxPDFExport1.FileName:=UniServerModule.NewCacheFileUrl(False,'pdf','','',url,true);
            frxPDFExport1.DefaultPath := '';
    
            frxReport1.PreviewOptions.AllowEdit := false;
            frxReport1.PrepareReport();
            frxReport1.Export(frxPDFExport1);
    
            UniURLFrame1.URL := url;
        finally
        end;
    end;
    procedure TfrmMeetingInfPrint.frxReport1BeforePrint(
      Sender: TfrxReportComponent);
    begin
        if (Sender is TfrxMemoView) then begin
            if ((Sender as TfrxMemoView).Name = 'memTitle') then begin
                (Sender as TfrxMemoView).Memo.Text := sTitle;
            end;
            if ((Sender as TfrxMemoView).Name = 'memPsn') then begin
                (Sender as TfrxMemoView).Memo.Text := sPsn;
            end;
            if ((Sender as TfrxMemoView).Name = 'memTime') then begin
                (Sender as TfrxMemoView).Memo.Text := sTime;
            end;
            if ((Sender as TfrxMemoView).Name = 'memAddress') then begin
                (Sender as TfrxMemoView).Memo.Text := sAddress;
            end;
        end;
    end;

    完成上述几步,就能看到成果了:

     

    BTW,unigui配合Chrome浏览器效果最佳,与旧版IE的兼容性不太好。

    QQ:508882988。

  • 相关阅读:
    ASP.NET WebApi项目框架搭建(六):数据库ORM之Sqlsugar
    sqlsugar与数据库之间的相互操作
    C# SqlSugar框架的学习使用(一)SqlSugar简介及创建
    SqlSugar直接执行Sql
    在项目中迁移MS SQLServer到Mysql数据库,实现MySQL数据库的快速整合
    SqlSugar 简易操作数据库
    C# SqlSugar框架的学习使用(二) 类的生成及增删改查的应用
    使用开源框架Sqlsugar结合mysql开发一个小demo
    devops起源的各种ops概念
    STC8H开发(四): FwLib_STC8 封装库的介绍和注意事项
  • 原文地址:https://www.cnblogs.com/fireboxsoft/p/10293068.html
Copyright © 2011-2022 走看看