版权声明:本文为博主原创文章,未经博主允许不得转载。 https://blog.csdn.net/dlboy2018/article/details/81040260

(中行雷威2018.7.14于杭州机场)

(同一个世界,同一个梦想,交流学习C++Builder XE10,传承c++builder的魅力!欢迎各地朋友加入我的QQ群484979943,进群密码“BCB”,同时也请将该群号广为宣传,希望能够广集各方高手,共同进步。如需下载开发工具及源代码请加入我的QQ群。)

【阅读倡议】

1、有问题请留言;

2、没问题请点赞;

3、看连载请加群;

4、下源码请加群;

【开发工具】

1、C++Builder10.2.2tokyo

2、FMSoft_uniGUI_Complete_Professional_1.10.0build1462(正版)

3、FastReport5.6.2 (安装使用请访问我的另一篇博客https://blog.csdn.net/dlboy2018/article/category/7492809)

本例子将详细教授如何通过FastReport的PDF导出功能实现数据库记录的打印,本教程的源代码清到我的QQ群共享文件A02-源代码里下载。

一、新建项目

1、新建项目,主目录d:\testPrint

2、将MainModule窗口上放置一个UniConnection数据库联接控件和OracleUniProvider数据库驱动控件。

对UniConnection进行属性设置。

3、在UniMainModule窗口的OnCreate事件中添加连接数据库代码
void __fastcall TUniMainModule::UniGUIMainModuleCreate(TObject *Sender)
{
String dbIp="127.0.0.1",dbPort="1521",dbSid="ORCL",dbUser="webframe",dbPass="webframe2018";
UniConnection1->Disconnect();
UniConnection1->ProviderName="Oracle";
UniConnection1->SpecificOptions->Add("direct=true");
//UniConnection1->SpecificOptions->Add("Charset=ZHS16GBK");
UniConnection1->Username=dbUser;
UniConnection1->Password=dbPass;
UniConnection1->Server=dbIp+":"+dbPort+":"+dbSid;
//ShowMessageN(UniConnection1->Server);


try
{
UniConnection1->Connect();
}
catch(...)
{
Uniguidialogs::ShowMessageN("连接数据库["+dbIp+"]失败!");
//FormMain->Close();
}
}

//---------------------------------------------------------------------------

4、在UniMainModule窗口的OnBrowserClose事件中添加断开数据库代码

void __fastcall TUniMainModule::UniGUIMainModuleBrowserClose(TObject *Sender)
{
UniConnection1->Close();
}

//---------------------------------------------------------------------------

5、在UniMainModule.h中定义rowId全局变量

//---------------------------------------------------------------------------


#ifndef MainModuleH
#define MainModuleH
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
#include <UniGUIMainModule.hpp>
#include "DBAccess.hpp"
#include "OracleUniProvider.hpp"
#include "Uni.hpp"
#include "UniProvider.hpp"
#include <Data.DB.hpp>
//---------------------------------------------------------------------------
class TUniMainModule : public TUniGUIMainModule
{
__published: // IDE-managed Components
TUniConnection *UniConnection1;
TOracleUniProvider *OracleUniProvider1;
void __fastcall UniGUIMainModuleCreate(TObject *Sender);
void __fastcall UniGUIMainModuleBrowserClose(TObject *Sender);
private: // User declarations
public: // User declarations
String rowId;
__fastcall TUniMainModule(TComponent* Owner, TComponent* AUniApplication);
};
//---------------------------------------------------------------------------
TUniMainModule *UniMainModule(void);
//---------------------------------------------------------------------------

#endif

6、包含FastReport的头文件和静态库目录

C:\Program Files (x86)\Embarcadero\Studio\19.0\FastReport\LibD25

C:\Program Files (x86)\Embarcadero\Studio\19.0\FastReport\Source

 

二、设置UniMainForm主窗口

1、包含MainModule窗口

//---------------------------------------------------------------------------
#include <vcl.h>
#include <uniGUIVars.hpp>
#pragma hdrstop


#include "Main.h"
#include "MainModule.h"
#include "Unit1.h"

2、main.h定义变量

class TMainForm : public TUniForm
{
__published: // IDE-managed Components
TUniBitBtn *UniBitBtn1;
TUniQuery *UniQuery1;
TUniDBGrid *UniDBGrid1;
TUniDataSource *UniDataSource1;
void __fastcall UniBitBtn1Click(TObject *Sender);
void __fastcall UniDBGrid1CellClick(TUniDBGridColumn *Column);
void __fastcall UniFormShow(TObject *Sender);
private: // User declarations
String mySql,rowId;
public: // User declarations
__fastcall TMainForm(TComponent* Owner);
};
//---------------------------------------------------------------------------
TMainForm *MainForm(void);
//---------------------------------------------------------------------------

#endif

3、摆放UniQuery,UniDBGrid,UniDataSource控件

UniDBGrid的DataSource指向UniDataSource1,UniDataSource1的DataSet指向UniQuery1,UniQuery1的connection指向UniMainModule.UniConnection1,

UniDBGrid1->Options->dgRowSelect=true

UniDBGrid1->Options->dgCheckSelect=true

4、UniDBGrid1添加OnCellClick事件

void __fastcall TMainForm::UniDBGrid1CellClick(TUniDBGridColumn *Column)
{
//点击表格选择记录
if(UniQuery1->RecNo<1)
{
return;
}
//取打印的行编号
UniMainModule()->rowId=UniQuery1->FieldByName("rowid")->AsString;

}

5、UniBitBtn1打印按钮事件

void __fastcall TMainForm::UniBitBtn1Click(TObject *Sender)
{
//打印
TUniForm1 *form1=new TUniForm1(UniApplication);
form1->ShowModal();

}

6、初始显示查询记录

void __fastcall TMainForm::UniFormShow(TObject *Sender)
{
//查询
UniQuery1->Close();
UniQuery1->SQL->Clear();
mySql="select work_id 申请编号,work_man 申请人,work_list 内部加班人,work_corp 外部加班人,";
mySql+="work_date1 计划开始时间,work_date2 计划结束时间,auth_team 审批部门,auth_name 审批人,";
mySql+="auth_date 审批时间,auth_stat 审批状态,work_reason 加班事由,work_date3 实际开始时间,";
mySql+="work_date4 实际结束时间, work_rest 酬劳方式,work_times 加班工资倍数,team_name 申请团队,part_name 申请部门,inst_name 申请机构,rowid";
mySql+=" from work_apply  order by work_id desc";
UniQuery1->SQL->Add(mySql);
UniQuery1->Open();


UniDBGrid1->Columns->Items[0]->Width=100;
UniDBGrid1->Columns->Items[1]->Width=60;
UniDBGrid1->Columns->Items[2]->Width=150;
UniDBGrid1->Columns->Items[3]->Width=150;
UniDBGrid1->Columns->Items[4]->Width=110;
UniDBGrid1->Columns->Items[5]->Width=110;
UniDBGrid1->Columns->Items[6]->Width=80;
UniDBGrid1->Columns->Items[7]->Width=60;
UniDBGrid1->Columns->Items[8]->Width=110;
UniDBGrid1->Columns->Items[9]->Width=80;
UniDBGrid1->Columns->Items[10]->Width=200;
UniDBGrid1->Columns->Items[11]->Width=100;
UniDBGrid1->Columns->Items[12]->Width=100;
UniDBGrid1->Columns->Items[13]->Width=100;
UniDBGrid1->Columns->Items[14]->Width=100;
UniDBGrid1->Columns->Items[15]->Width=100;
UniDBGrid1->Columns->Items[16]->Width=100;
UniDBGrid1->Columns->Items[17]->Width=100;




UniMainModule()->rowId="";


}
//---------------------------------------------------------------------------

三、新建一个打印窗口

 

1、在新建窗口上放置UniPDFFrame1控件用于显示生成的PDF文件和自动出现打印机选择和打印按钮。

frxReport1用于配置打印页面,frxDBDataset1用户关联打印模板和数据集,frxPDFExport1用于将打印页面frxReport1导出PDF文档。

frxBarCodeObject1是打印模板用到的条形码控件。UniQuery1用于查询要打印的数据。

UniQuery1-〉Connection=UniMainModule.UniConnection1

 

2、包含UniMainModule和UniServerModule头文件

#include <vcl.h>

#pragma hdrstop


#include "Unit1.h"
#include "MainModule.h"
#include "ServerModule.h"

3、双击frxReport1打开打印模板设计

逐个编辑对应的数据字段,比如申请编号,双击输入:

设计好打印模板后,将其保存到执行代码运行的同级目录下,D:\testPrint\Win32\Debug。

4、打印代码

在本打印窗口的BefroeShow事件中添加打印事件

void __fastcall TUniForm1::UniFormBeforeShow(TObject *Sender)
{
//打印
AnsiString rptFileName,mySql;
String url;
//
UniQuery1->Close();
UniQuery1->SQL->Clear();
mySql="select work_id 申请编号,work_man 申请人,work_list 内部加班人,work_corp 外部加班人,";
mySql+="work_date1 计划开始时间,work_date2 计划结束时间,auth_team 审批部门,auth_name 审批人,";
mySql+="auth_date 审批时间,auth_stat 审批状态,work_reason 加班事由,work_date3 实际开始时间,";
mySql+="work_date4 实际结束时间, work_rest 酬劳方式,work_times 加班工资倍数,team_name 申请团队,part_name 申请部门,inst_name 申请机构,rowid";
mySql+=" from work_apply where rowid=:w1";
UniQuery1->SQL->Add(mySql);
UniQuery1->ParamByName("w1")->Value=UniMainModule()->rowId;
UniQuery1->Open();
rptFileName="report_jiaban.fr3";
if(UniQuery1->RecordCount>0)
{
if(!FileExists(UniServerModule()->StartPath+rptFileName))
{
ShowMessage("【打印失败】打印模板文件"+rptFileName+"不存在!");
return;
}
frxReport1->Clear();
frxDBDataset1->UserName="frxDBDataset1";
frxReport1->LoadFromFile(UniServerModule()->StartPath+rptFileName);
frxReport1->DataSets->Clear();
frxDBDataset1->DataSet=UniQuery1;
frxReport1->DataSets->Add(frxDBDataset1);
frxReport1->PrintOptions->ShowDialog=false;
frxReport1->ShowProgress=true;
frxReport1->EngineOptions->SilentMode=true;
frxReport1->EngineOptions->EnableThreadSafe=true;
frxReport1->EngineOptions->DestroyForms=false;
frxReport1->EngineOptions->UseGlobalDataSetList=false;


frxPDFExport1->Background=true;
frxPDFExport1->ShowProgress=true;
frxPDFExport1->ShowDialog=false;
frxPDFExport1->FileName=UniServerModule()->NewCacheFileUrl(false,"pdf","","",url,true);
frxPDFExport1->DefaultPath="";


frxReport1->PreviewOptions->AllowEdit=false;
frxReport1->PrepareReport();
frxReport1->Export(frxPDFExport1);


UniPDFFrame1->PdfURL=url;


}
else
{
ShowMessage("没有可以打印的记录!");
}
}


四、ORACLE数据表结构

1、表结构

2、建用户代码

DROP USER WEBFRAME CASCADE;


CREATE USER WEBFRAME
  IDENTIFIED BY <password>
  DEFAULT TABLESPACE USERS
  TEMPORARY TABLESPACE TEMP
  PROFILE DEFAULT
  ACCOUNT UNLOCK;
  -- 3 Roles for WEBFRAME 
  GRANT CONNECT TO WEBFRAME;
  GRANT DBA TO WEBFRAME;
  GRANT RESOURCE TO WEBFRAME;
  ALTER USER WEBFRAME DEFAULT ROLE ALL;
  -- 1 System Privilege for WEBFRAME 
  GRANT UNLIMITED TABLESPACE TO WEBFRAME;

3、建表代码

ALTER TABLE WEBFRAME.WORK_APPLY
 DROP PRIMARY KEY CASCADE;


DROP TABLE WEBFRAME.WORK_APPLY CASCADE CONSTRAINTS;


CREATE TABLE WEBFRAME.WORK_APPLY
(
  INST_NAME    VARCHAR2(50 BYTE),
  PART_NAME    VARCHAR2(50 BYTE),
  TEAM_NAME    VARCHAR2(50 BYTE),
  WORK_ID      VARCHAR2(20 BYTE),
  WORK_MAN     VARCHAR2(20 BYTE),
  WORK_LIST    VARCHAR2(100 BYTE),
  WORK_CORP    VARCHAR2(200 BYTE),
  WORK_DATE1   DATE,
  WORK_DATE2   DATE,
  WORK_DATE3   DATE,
  WORK_DATE4   DATE,
  WORK_REASON  VARCHAR2(200 BYTE),
  AUTH_TEAM    VARCHAR2(50 BYTE),
  AUTH_NAME    VARCHAR2(20 BYTE),
  AUTH_DATE    DATE,
  AUTH_STAT    VARCHAR2(10 BYTE),
  WORK_HOURS   FLOAT(126),
  WORK_TIMES   FLOAT(126),
  WORK_FEES    FLOAT(126),
  WORK_REST    VARCHAR2(10 BYTE)
)
TABLESPACE USERS
RESULT_CACHE (MODE DEFAULT)
PCTUSED    0
PCTFREE    10
INITRANS   1
MAXTRANS   255
STORAGE    (
            INITIAL          64K
            NEXT             1M
            MINEXTENTS       1
            MAXEXTENTS       UNLIMITED
            PCTINCREASE      0
            BUFFER_POOL      DEFAULT
            FLASH_CACHE      DEFAULT
            CELL_FLASH_CACHE DEFAULT
           )
LOGGING 
NOCOMPRESS 
NOCACHE
NOPARALLEL
MONITORING;


COMMENT ON TABLE WEBFRAME.WORK_APPLY IS '加班申请表';


COMMENT ON COLUMN WEBFRAME.WORK_APPLY.INST_NAME IS '机构';


COMMENT ON COLUMN WEBFRAME.WORK_APPLY.PART_NAME IS '部门';


COMMENT ON COLUMN WEBFRAME.WORK_APPLY.TEAM_NAME IS '团队';


COMMENT ON COLUMN WEBFRAME.WORK_APPLY.WORK_ID IS '编号';


COMMENT ON COLUMN WEBFRAME.WORK_APPLY.WORK_MAN IS '申请人';


COMMENT ON COLUMN WEBFRAME.WORK_APPLY.WORK_LIST IS '行内人员';


COMMENT ON COLUMN WEBFRAME.WORK_APPLY.WORK_CORP IS '行外人员';


COMMENT ON COLUMN WEBFRAME.WORK_APPLY.WORK_DATE1 IS '计划开始时间';


COMMENT ON COLUMN WEBFRAME.WORK_APPLY.WORK_DATE2 IS '计划结束时间';


COMMENT ON COLUMN WEBFRAME.WORK_APPLY.WORK_DATE3 IS '实际开始时间';


COMMENT ON COLUMN WEBFRAME.WORK_APPLY.WORK_DATE4 IS '实际结束时间';


COMMENT ON COLUMN WEBFRAME.WORK_APPLY.WORK_REASON IS '加班原因';


COMMENT ON COLUMN WEBFRAME.WORK_APPLY.AUTH_TEAM IS '审批团队';


COMMENT ON COLUMN WEBFRAME.WORK_APPLY.AUTH_NAME IS '审批人';


COMMENT ON COLUMN WEBFRAME.WORK_APPLY.AUTH_DATE IS '审批时间';


COMMENT ON COLUMN WEBFRAME.WORK_APPLY.AUTH_STAT IS '审批状态';


COMMENT ON COLUMN WEBFRAME.WORK_APPLY.WORK_HOURS IS '小时数';


COMMENT ON COLUMN WEBFRAME.WORK_APPLY.WORK_TIMES IS '加班费倍数';


COMMENT ON COLUMN WEBFRAME.WORK_APPLY.WORK_FEES IS '加班费';


COMMENT ON COLUMN WEBFRAME.WORK_APPLY.WORK_REST IS '调休、加班费';






CREATE UNIQUE INDEX WEBFRAME.WORK_APPLY_PK ON WEBFRAME.WORK_APPLY
(WORK_ID, WORK_DATE1, INST_NAME, PART_NAME, TEAM_NAME)
LOGGING
TABLESPACE USERS
PCTFREE    10
INITRANS   2
MAXTRANS   255
STORAGE    (
            INITIAL          64K
            NEXT             1M
            MINEXTENTS       1
            MAXEXTENTS       UNLIMITED
            PCTINCREASE      0
            BUFFER_POOL      DEFAULT
            FLASH_CACHE      DEFAULT
            CELL_FLASH_CACHE DEFAULT
           )
NOPARALLEL;




ALTER TABLE WEBFRAME.WORK_APPLY ADD (
  CONSTRAINT WORK_APPLY_PK
  PRIMARY KEY
  (WORK_ID, WORK_DATE1, INST_NAME, PART_NAME, TEAM_NAME)
  USING INDEX WEBFRAME.WORK_APPLY_PK
  ENABLE VALIDATE);

 

 

 

五、运行结果

http://127.0.0.1:8077

就要起飞了,时间好紧张,终于搞定.本文仅简单介绍了单条记录的打印,其实如何打印全权取决于UniQuery查询回来多少数据和FaseReport如何设置打印模板..,飞了,大连见。

 

--------------------- 本文来自 中国银行之路在脚下 的CSDN 博客 ,全文地址请点击:https://blog.csdn.net/dlboy2018/article/details/81040260?utm_source=copy