2. 程式人生 > >uniGUI for C++ builder下如何利用FastReport實現數據記錄本地打印

uniGUI for C++ builder下如何利用FastReport實現數據記錄本地打印

阿新 • • 發佈：2018-10-02
ces sof dbus 實現 Owner 查詢 設置 web 同時

版權聲明：本文為博主原創文章，未經博主允許不得轉載。 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

uniGUI for C++ builder下如何利用FastReport實現數據記錄本地打印

相關推薦

uniGUI for C++ builder下如何利用FastReport實現數據記錄本地打印

ces sof dbus 實現 Owner 查詢 設置 web 同時 版權聲明：本文為博主原創文章，未經博主允許不得轉載。 https://blog.csdn.net/dlboy2018/article/details/81040260 (中行雷威2018.7.14於杭州

uniGUI for C++ builder之雜七雜八小知識

idt 類型 ble click width 模式 tails data- 轉載 uniGUI for C++ builder之雜七雜八小知識 2018年09月30日 22:16:05 中國銀行之路在腳下 閱讀數：41 標簽： uniguibuilder 更多 個

（25）uniGUI for C++ builder之UniHTMLMemo初使用及uniGUI如何調用javaScript

fix 點擊 -s uil 功能 位置 初使用 clear nal （25）uniGUI for C++ builder之UniHTMLMemo初使用及uniGUI如何調用javaScript 2018年09月29日 22:58:20 中國銀行之路在腳下 閱讀數：

（27）uniGUI for C++ builder之雜七雜八小知識

                                                                                          (中行雷威2018.9.30) （同一個世界，同一個夢想，交流學習C++Builder XE1

EF Core下利用Mysql進行數據存儲在並發訪問下的數據同步問題

sta 分享 AC point 解釋 evel post mysql數據庫 cor 小故事 在開始講這篇文章之前，我們來說一個小故事，純素虛構（真實的存錢邏輯並非如此） 小劉發工資後，趕忙拿著現金去銀行，準備把錢存起來，而與此同時，小劉的老婆劉嫂知道小劉的品性，知道他發

利用Jexl實現數據庫的計算公式在Java中執行

bject urn arp key cal object num regex ply public class JexlEngineUtils { public static BigDecimal evaluateExpression ( Map <

利用Promise實現數據多個請求加載完成時執行某個方法

art data 關於 es6 下一個 方法 csdn tails blog 在實際開發中常常有些業務的數據是來自多個接口的，因為ajax是異步，這樣就導致我們需要判斷是否請求到了數據然後在做其他的邏輯，在Promise沒有出現之前，通常我們的解決方法是，第一粗暴的改異步為

將文件拖曳到窗體上， 並獲取其完整路徑 【C++ Builder下實現】轉

pat ext stc fff led CP tle 聲明 net 1. 在窗體的頭文件.h裏聲明處理函數和消息映射， 如： [cpp] view plain copy class TForm1 : public TForm {

C++ Builder下三種UDP通訊實現方法的比較 選擇自 findheart 的 Blog

 C++ Builder下三種UDP通訊實現方法的比較     選擇自 findheart 的 Blog  關鍵字   C++ Builder下三種UDP通訊實現方法的比較 出處      主要討論一下資料的接受：1.NMUDP控制元件   這個控制元件使用起來比較簡單，設定

Victor 串口控件 1.5.0.6 VCL/FMX for C++ Builder 10.2 Tokyo, 10.1 Berlin, 10.0 Seattle, XE8, XE7, XE6 已經發布

blank sms mac 使用 模板 www 文本 clas stat Victor 串口控件 1.5.0.6 更新內容： ? 增加支持 FMX (Firemonkey) Win32/Win64，控件包含 VCL 和 FMX 兩個框架版本的，可以同時安裝 ? 增加

發布 Victor 串口控件 1.5.0.6 VCL for C++ Builder 6.0

引腳 amp ans dem mode 發的 結構 base 設計思路 Victor 串口控件 1.5.0.6 VCL BCB6/BCB5 版本更新的內容： ? 和新版 BCB 的控件同步更新，BCB6 版本和新版 C++ Builder 控件只是 UNICODE/AN

jstl中c:foreach下的表格實現異步刷新

items string top foreach cti str type tin lis setInterval(function(){ var url = "${ctx}/alarm/alarm/CompanySort";//填你自己的路徑 var data =

pthon3環境下利用socket實現server，client互動例項

1、例項要求 使用socket實現一個基於C/S架構的通訊程式 （1）客戶端傳送給伺服器請求，傳送表徵身份的使用者名稱和密碼(“admin”,“123456”)； （2）伺服器根據客戶端發來的資訊驗證身份，如果驗證錯誤，返回“refuse”字串,並且斷開連線通道；

Linux系統下利用OpenCV實現人臉檢測和基於LBPH演算法的人臉識別

        本文主要的目的是進行人臉檢測和人臉識別。實驗環境為Ubuntu16.04 LTS虛擬機器版，技術為OpenCV，語言為c++。其中人臉檢測的主要過程是從一張圖片中檢測出人臉可以是一個或者是多個，然後用矩形或者圓形線圈標註出來。人臉識別是基於LBPH演算法實現

在ubuntu下利用minicom實現串列埠通訊

    windos有串列埠除錯助手，linux下也有這樣的工具——minicom。不過，minicom和linux下的許多工具都一樣，也是命令列模式，沒有圖形化介面供我們享受。作為一款串列埠除錯工具，雖然難看但總比沒有的好。     為什麼linux下的工具都這麼的簡樸，沒什麼華麗的介面，好像回到瞭解放前

Windows下利用live555實現H264實時流RTSP傳送

    文如其名，最近在做的專案要求利用RTSP協議轉發處理完的H264視訊資料給上一層客戶端，環境是Windows的VS2013，於是就各種百度谷歌找程式碼。結果在得到利用live555去做比較簡單的結論的同時也悲情地發現，網上別人貼出來的程式碼基本都是Linux上面的。

在Visual Studio中的mvc專案下利用AngularJS實現單頁面中的增刪改操作

執行效果如下（利用了AngularJS的雙向繫結進行修改）： 原始碼如下： @{ ViewBag.Title = "Index"; } <script src="https://cdn.staticfile.org/angular.js/1.4.6/angular.mi

ubuntu下利用Dlib實現目標跟蹤（上）

                        本文將介紹在Ub

C++Builder下如何用FireDAC控制元件訪問SQLite資料庫

（同一個世界，同一個夢想，交流學習C++Builder XE10，傳承c++builder的魅力！歡迎各地朋友加入我的QQ群484979943，進群密碼“BCB”，同時也請將該群號廣為宣傳，希望能夠廣集各方高手，共同進步。） 軟體及版本：C++Builder 10.2.2

在VB.NET下利用Socket實現簡單的字串傳送接收程式

我們使用多執行緒來實現先匯入名稱空間：Imports System.Net.socketsImports System.netImports System.TextImports System.Threading定義兩個窗體變數Dim s As Socket = NothingDim t As Thread新