簡介對于使用 Borland Delphi 3 至 7.1 的開發(fā)者Report Machine 2.6 是一款成熟的報(bào)表生成工具。這套組件支持在 IDE 內(nèi)直接設(shè)計(jì)多列、分組、匯總及自定義樣式并可接入數(shù)據(jù)庫、XML、CSV 等數(shù)據(jù)源幫助項(xiàng)目快速產(chǎn)出高質(zhì)量打印文件。壓縮包共 488 個(gè)文件、2.1MB以 139 個(gè) pas 源碼、119 個(gè) dcu 已編譯單元和 71 個(gè) dfm 表單為主體配合 res 資源、ini 配置、rc 腳本等既便于閱讀運(yùn)行邏輯也可直接安裝使用。值得關(guān)注的是程序擁有 100% 開放源碼開發(fā)者不僅能免費(fèi)用于自身項(xiàng)目還可按需修改或擴(kuò)展功能尤其適合有特殊報(bào)表格式要求或想深入理解報(bào)表引擎實(shí)現(xiàn)的人群。包內(nèi)還附帶 MAKEALL、MK、MKDLL 等批量構(gòu)建腳本以及面向不同 Delphi/C Builder 版本的 bpk、dpk 工程文件版本切換與重新編譯都很方便。目前已有 287 人學(xué)習(xí)或下載對正在維護(hù)老項(xiàng)目或需要輕量離線報(bào)表方案的工程師來說這套體積小巧、源碼完整的歷史工具仍具備很高的參考和實(shí)用價(jià)值。1. Report Machine 2.6 還在 C/S 項(xiàng)目里值錢一款能打的老牌報(bào)表組件Report Machine 2.6 的年紀(jì)比很多開發(fā)者的工齡都大但到了今天它在國內(nèi)大量 C/S 管理信息系統(tǒng)里依然被用于財(cái)務(wù)打單、倉儲備貨、業(yè)務(wù)對賬這些“最后兩公里”的輸出環(huán)節(jié)。它解決的核心問題是在 Delphi/C Builder 項(xiàng)目里用最小成本把數(shù)據(jù)集變成一張能打印、能導(dǎo)出、能存檔的正式報(bào)表。適合三類人看這篇筆記正在維護(hù)存量項(xiàng)目、被要求加報(bào)表卻不想動(dòng)三層架構(gòu)的開發(fā)者剛接手項(xiàng)目、需要判斷這套報(bào)表還能不能繼續(xù)用的新人以及在做技術(shù)選型時(shí)糾結(jié)“舊組件繼續(xù)用還是推倒重寫”的負(fù)責(zé)人。它不新但穩(wěn)定、輕、社區(qū)踩坑記錄足夠多這本身就是選型時(shí)值得認(rèn)真權(quán)衡的理由。2. 先摸清 RM 2.6 的運(yùn)行機(jī)制設(shè)計(jì)器、腳本引擎與三段式渲染2.1 三層架構(gòu)拆解Engine、Report 對象與 DataSet 各管什么用 RM 2.6 之前先理解它的三個(gè)層次否則后面調(diào)試起來會感覺全是黑匣子。最底層是報(bào)表引擎一般以 rmEngine 組件形式存在。它負(fù)責(zé)把報(bào)表對象的描述——行列坐標(biāo)、字體、邊框、單元格內(nèi)容、表達(dá)式——轉(zhuǎn)換成實(shí)際的打印坐標(biāo)和導(dǎo)出指令。開發(fā)者平時(shí)不直接碰它但它決定了所有渲染環(huán)節(jié)的行為。第二層是面向開發(fā)者的報(bào)表對象最常用的是 rmGridReport 和 rmLibReport。rmGridReport 是網(wǎng)格型報(bào)表適合結(jié)構(gòu)規(guī)整的明細(xì)表、分組表rmLibReport 是自由版式適合單據(jù)、票據(jù)、標(biāo)簽這類需要元素隨意擺放的場景。兩個(gè)對象最終都掛在窗體或數(shù)據(jù)模塊上它們在設(shè)計(jì)器里編輯在運(yùn)行期被驅(qū)動(dòng)。第三層是數(shù)據(jù)橋接RMDataSet、RMDBDataSet 這類組件負(fù)責(zé)把 BDE、ADO 或自定義數(shù)據(jù)源里的記錄集交給報(bào)表對象。這里有個(gè)新手容易犯的誤解RM 2.6 的報(bào)表文件不只是布局描述它把數(shù)據(jù)源引用和腳本一起打包在 .rmd 文件里。所以運(yùn)行期加載模板后如果客戶機(jī)的數(shù)據(jù)源名稱、字段名對不上預(yù)覽界面會直接白屏而且不報(bào)具體錯(cuò)誤這是它年代久遠(yuǎn)、錯(cuò)誤提示不夠友好的典型表現(xiàn)。報(bào)表從加載到輸出的完整生命周期可以概括成三步LoadFromFile 讀入模板Initialize 根據(jù)當(dāng)前數(shù)據(jù)集重建行列結(jié)構(gòu)PreviewModal 渲染預(yù)覽。我一般建議把“加載模板-綁定數(shù)據(jù)-初始化-預(yù)覽/導(dǎo)出”固定成一套操作順序所有報(bào)表都按這個(gè)順序走后面排查問題時(shí)思路會清晰很多。2.2 兩種報(bào)表對象的差異rmGridReport 與 rmLibReport 的選型邏輯很多剛接觸 RM 2.6 的人在兩種報(bào)表對象之間拿不準(zhǔn)其實(shí)判斷標(biāo)準(zhǔn)很簡單內(nèi)容能不能規(guī)整地落成行列。對比維度rmGridReportrmLibReport布局模型網(wǎng)格行列驅(qū)動(dòng)自由坐標(biāo)與帶區(qū)驅(qū)動(dòng)典型場景明細(xì)表、分組表、匯總表單據(jù)、發(fā)票、標(biāo)簽、排班表數(shù)據(jù)組織每一行綁定記錄對象綁定位置隨意腳本復(fù)雜度較低關(guān)注行號與單元格較高關(guān)注對象坐標(biāo)與事件導(dǎo)出兼容性PDF/Excel 導(dǎo)出更穩(wěn)定自由版式導(dǎo)出易錯(cuò)位具體到選型我一般遵循一條原則只要內(nèi)容能落成行列優(yōu)先用 rmGridReport。它在導(dǎo)出 PDF 和 Excel 時(shí)幾乎不需要額外處理列對齊而 rmLibReport 雖然版式靈活但導(dǎo)出時(shí)容易因?yàn)樽煮w寬度、邊距計(jì)算差異出現(xiàn)對象錯(cuò)位調(diào)試成本高一個(gè)量級。反過來如果做的是送貨單、報(bào)銷單這種“一個(gè)單據(jù)占一頁紙、各個(gè)字段散布在固定位置”的版式硬用網(wǎng)格報(bào)表去拼反而別扭這時(shí)候 rmLibReport 才是對的選擇。一個(gè)細(xì)節(jié)值得注意rmGridReport 的列數(shù)、行寬在設(shè)計(jì)器里已經(jīng)確定但運(yùn)行期數(shù)據(jù)記錄數(shù)變化后需要調(diào)用 Initialize 重新計(jì)算“這個(gè)報(bào)表實(shí)際要打印多少行”。如果省掉這一步預(yù)覽時(shí)容易出現(xiàn)多頁空白或末頁數(shù)據(jù)行被截?cái)唷?.3 報(bào)表腳本到底寫了什么事件鉤子決定執(zhí)行順序RM 2.6 的腳本是類 Pascal 語法掛在報(bào)表對象的事件上。它不算完整的編程語言但支持變量、函數(shù)、循環(huán)和基本對象訪問足夠應(yīng)付分組、累加、動(dòng)態(tài)顯隱這些需求。常見事件按執(zhí)行順序排列Initialize報(bào)表初始化。在這里做全局變量清零、數(shù)據(jù)集綁定、初始參數(shù)設(shè)置。BeforeRow / AfterRow行級鉤子分別在每行處理前后觸發(fā)。分組判斷、累加器更新都寫在這里。BeforePrint頁級鉤子在每一頁真正輸出前觸發(fā)。頁腳內(nèi)容、動(dòng)態(tài)顯示隱藏對象在這里控制。OnExport / BeforeExport導(dǎo)出前的干預(yù)點(diǎn)適合做字體替換、導(dǎo)出文件名拼接。下面是一個(gè)典型的 Initialize 腳本做累加變量清零procedure rmGridReport1Initialize(Sender: TObject); begin // 全局累加變量在報(bào)表重建時(shí)清零 totalAmount : 0; // 同時(shí)把報(bào)表標(biāo)題里的日期刷新到當(dāng)前系統(tǒng)時(shí)間 RMGridReport1.TextTo(0, 0, 統(tǒng)計(jì)日期 DateToStr(Date)); end;這段腳本的關(guān)鍵在于 Initialize 觸發(fā)時(shí)機(jī)它在數(shù)據(jù)集綁定之后、分頁計(jì)算之前執(zhí)行。也就是說此刻數(shù)據(jù)集已經(jīng)打開但報(bào)表還沒開始逐行處理適合做“整個(gè)報(bào)表只執(zhí)行一次”的初始化工作。TextTo 的作用是把文本寫入指定坐標(biāo)的單元格參數(shù)分別是列號、行號、內(nèi)容如果不調(diào)用 InitializeTextTo 寫入的內(nèi)容可能被后續(xù)的行刷新機(jī)制覆蓋。腳本編譯失敗時(shí)運(yùn)行期預(yù)覽會彈出腳本錯(cuò)誤框并定位到具體行號這是全流程里最有價(jià)值的排錯(cuò)信息。我見過不少同事在腳本報(bào)錯(cuò)后回去翻設(shè)計(jì)器屬性其實(shí)應(yīng)該先看錯(cuò)誤框指向的行號那才是問題根源。3. 把第一張報(bào)表跑起來安裝、最小示例與兩種交付方式3.1 環(huán)境準(zhǔn)備組件的安裝順序決定你后面省不省事在 Delphi 里裝 RM 2.6 不算難但順序錯(cuò)了會消耗大量時(shí)間。我的固定步驟如下第一步把組件包解壓到不含中文、不含空格的目錄比如 D:\Components\RM2_6。老組件對中文路徑的兼容非常玄學(xué)目錄帶中文時(shí)編譯期可能找不到 DCU 文件報(bào)錯(cuò)信息又模棱兩可。第二步在 IDE 的 Component Install Packages 里添加運(yùn)行期包和設(shè)計(jì)期包。先裝運(yùn)行期包再裝設(shè)計(jì)期包順序反了可能導(dǎo)致組件面板出現(xiàn)重復(fù)項(xiàng)或圖標(biāo)缺失。裝完后重啟 IDE這一步很關(guān)鍵因?yàn)樵O(shè)計(jì)期包的注冊信息需要 IDE 重啟后才能生效。第三步把組件目錄下的 Lib 子目錄加入 Tools Environment Options Library 的搜索路徑。否則編譯工程時(shí)會出現(xiàn)找不到 RM_*.dcu 的錯(cuò)誤。第四步新建一個(gè)窗體確認(rèn)組件面板多了一個(gè) RM 頁拖一個(gè) RMGridReport 到窗體上。雙擊組件能打開設(shè)計(jì)器說明安裝成功。安裝完成后我建議先做一個(gè)最小驗(yàn)證新建一個(gè)空工程拖一個(gè) RMGridReport在設(shè)計(jì)器的數(shù)據(jù)集屬性里隨便綁定一個(gè)本地表預(yù)覽一次。這一步花不了五分鐘但能把“組件沒裝好、設(shè)計(jì)器打不開、腳本引擎異?！边@三類環(huán)境問題在寫業(yè)務(wù)代碼之前全部暴露出來。3.2 最小示例從外部模板跑通“加載-綁數(shù)據(jù)-初始化-預(yù)覽-導(dǎo)出”環(huán)境沒問題后按下面這段代碼建立一個(gè)最小可運(yùn)行示例。它的作用是從外部 .rmd 模板加載報(bào)表綁定 ADO 數(shù)據(jù)集預(yù)覽并導(dǎo)出 PDFprocedure TForm1.Button1Click(Sender: TObject); var ReportPath: string; begin // 模板放在 exe 同級的 templates 目錄下 ReportPath : ExtractFilePath(Application.ExeName) templates\rpt_demo.rmd; // 1. 指定模板路徑并加載 RMGridReport1.ReportName : ReportPath; RMGridReport1.LoadFromFile; // 2. 綁定數(shù)據(jù)集必須在 Initialize 之前完成 RMGridReport1.DataSet : ADODataSet1; ADODataSet1.Open; // 3. Initialize 會根據(jù)當(dāng)前數(shù)據(jù)行數(shù)重建報(bào)表結(jié)構(gòu) RMGridReport1.Initialize; // 4. 模態(tài)預(yù)覽由用戶在預(yù)覽窗口里決定打印或?qū)С?RMGridReport1.PreviewModal; end;這段代碼的順序是硬約束先 LoadFromFile、再綁數(shù)據(jù)集、再 Initialize、最后 PreviewModal。如果數(shù)據(jù)集還沒打開就調(diào)用 Initialize報(bào)表會按零行數(shù)據(jù)計(jì)算分頁預(yù)覽結(jié)果是一張空表如果 LoadFromFile 之后不調(diào)用 Initialize數(shù)據(jù)集換了但報(bào)表的行數(shù)還是模板里保存的舊值最典型的表現(xiàn)是“預(yù)覽第一頁數(shù)據(jù)是對的后面全是空行”。參數(shù)說明ReportName 傳入的是完整路徑這里用 ExtractFilePath(Application.ExeName) 拼出當(dāng)前程序所在目錄是為了避免路徑寫死導(dǎo)致部署到其他機(jī)器時(shí)報(bào)“無法打開模板”。模板加載成功后PreviewModal 是阻塞式調(diào)用用戶關(guān)掉預(yù)覽窗口后代碼才會繼續(xù)往下走如果不想阻塞可以換 Preview 調(diào)用但那樣打印任務(wù)和界面會同時(shí)進(jìn)行容易觸發(fā)句柄沖突我一般不用。如果要跳過預(yù)覽直接導(dǎo)出 PDF可以改成RMGridReport1.ExportToPDF(OutputDir rpt_demo.pdf, True);其中最后那個(gè)布爾參數(shù)表示“導(dǎo)出完成后是否立即用系統(tǒng)默認(rèn) PDF 閱讀器打開”。正式環(huán)境里我更習(xí)慣傳 False因?yàn)榭蛻魴C(jī)上不一定裝了 PDF 閱讀器自動(dòng)打開反而會彈出錯(cuò)誤對話框。3.3 兩種交付形態(tài)內(nèi)嵌模板與外部 .rmd 的取舍RM 2.6 的報(bào)表模板有兩種存放方式取舍不同直接影響后期維護(hù)成本。第一種是模板內(nèi)嵌在窗體或數(shù)據(jù)模塊的 DFM 里。做法是設(shè)計(jì)器里設(shè)計(jì)完成后不調(diào)用 LoadFromFile直接讓組件使用設(shè)計(jì)時(shí)保存的模板。優(yōu)點(diǎn)很明顯exe 單文件交付不存在模板文件丟失的問題缺點(diǎn)是每次修改報(bào)表樣式都要重新編譯整個(gè)程序?qū)嵤┤藛T在現(xiàn)場改不了任何布局只能干等開發(fā)發(fā)新版。第二種是模板作為獨(dú)立 .rmd 文件放在程序目錄下。運(yùn)行期通過 ReportName 指定路徑加載。優(yōu)點(diǎn)是修改版式只替換文件不需要重新編譯實(shí)施人員經(jīng)過簡單培訓(xùn)就能調(diào)整表頭、列寬、字體缺點(diǎn)是要處理好三件事路徑一致性、版本覆蓋、權(quán)限?？蛻魴C(jī)上模板文件被殺毒軟件隔離、舊模板覆蓋新模板導(dǎo)致樣式回退都是實(shí)際發(fā)生過的問題。我的常規(guī)做法是開發(fā)驗(yàn)證階段全部用外部 .rmd 文件方便反復(fù)調(diào)整驗(yàn)證通過后把最終模板嵌入到程序資源里隨 exe 發(fā)布輸出端用 LoadFromResource 加載避免客戶現(xiàn)場丟文件。這樣兼顧了開發(fā)效率和交付可靠性但犧牲了一點(diǎn)現(xiàn)場改樣式的靈活性。如果項(xiàng)目里實(shí)施人員確實(shí)需要經(jīng)常調(diào)樣式那就保留外部文件方案同時(shí)部署一個(gè)模板版本管理工具覆蓋前自動(dòng)備份舊文件這就是后悔藥。4. 導(dǎo)出 PDF/Excel 的避坑清單字體、合并單元格與五個(gè)高頻坑4.1 導(dǎo)出器的工作流程為什么“先初始化再導(dǎo)出”是底線RM 2.6 的導(dǎo)出模塊在內(nèi)部把報(bào)表引擎的頁描述逐頁翻譯成目標(biāo)格式。PDF 導(dǎo)出器直接解釋頁面坐標(biāo)Excel 導(dǎo)出器則通過單元格接口逐格寫入。這意味著一個(gè)事實(shí)導(dǎo)出效果嚴(yán)重依賴 Initialize 之后的內(nèi)存頁面模型。如果數(shù)據(jù)沒刷新就導(dǎo)出導(dǎo)出文件里可能就是上一次數(shù)據(jù)的殘留如果報(bào)表對象內(nèi)部還處于“設(shè)計(jì)態(tài)”而非“運(yùn)行態(tài)”導(dǎo)出的 PDF 可能是空頁。我一般在導(dǎo)出前固定做三件事// 先加載模板 RMGridReport1.ReportName : rpt_sales.rmd; RMGridReport1.LoadFromFile; // 再綁定數(shù)據(jù)并初始化 RMGridReport1.DataSet : ADODataSet1; RMGridReport1.Initialize; // 最后執(zhí)行導(dǎo)出 RMGridReport1.ExportToPDF(rpt_sales.pdf, False);這三段順序里Initialize 是導(dǎo)出前的最后一道門檻。它同時(shí)重算行數(shù)、列寬、分頁和字體映射跳過它導(dǎo)出的文件大概率是“半成品”。尤其在批量導(dǎo)出多個(gè)報(bào)表時(shí)每個(gè)報(bào)表都要獨(dú)立走一遍這套流程不能圖省事共用一個(gè)報(bào)表對象連續(xù)導(dǎo)出不同模板。4.2 PDF 導(dǎo)出中文字體映射與頁邊距設(shè)置PDF 導(dǎo)出最典型的問題是中文變成方塊。原因不復(fù)雜2.6 的 PDF 導(dǎo)出器在生成文件時(shí)要把字符映射成字體輪廓如果找不到能覆蓋漢字的系統(tǒng)字體就會退化為占位符。預(yù)覽界面用的是 Windows GDI 字體顯示正常導(dǎo)出器直接走字符映射字體不匹配就露餡。處理方法有兩層。第一層在設(shè)計(jì)器里解決報(bào)表里所有文本對象的字體統(tǒng)一設(shè)置為系統(tǒng)中文字體最常見的是宋體。注意字體名必須和客戶機(jī)系統(tǒng)字體完全一致大小寫都別錯(cuò)否則導(dǎo)出器同樣不認(rèn)識。第二層在代碼里兜底用字體替換函數(shù)把報(bào)表里的自定義字體統(tǒng)一替換成中文字體// 把報(bào)表中名為 MyFont 的字體統(tǒng)一替換為宋體 RMGridReport1.ReplaceFont(MyFont, 宋體);ReplaceFont 常見做法是遍歷報(bào)表內(nèi)所有文本對象當(dāng)某個(gè)對象的字體名匹配第一個(gè)參數(shù)時(shí)改成第二個(gè)參數(shù)。這里有個(gè)易錯(cuò)點(diǎn)ReplaceFont 必須在 Initialize 之后調(diào)用否則報(bào)表重建時(shí)字體又被重置回模板里的默認(rèn)值。執(zhí)行完替換后建議補(bǔ)一句 Initialize讓替換結(jié)果固化到頁面模型里。頁邊距問題也常出現(xiàn)在 PDF 導(dǎo)出中。RM 2.6 的 PDF 頁面尺寸默認(rèn)沿用當(dāng)前打印機(jī)的紙張?jiān)O(shè)置如果客戶機(jī)沒有安裝設(shè)計(jì)時(shí)用的打印機(jī)PDF 的紙張大小可能退化成 Letter 而不是 A4導(dǎo)致右側(cè)或底部多出空白。解決方法是顯式指定紙張RMGridReport1.PageSetup.Orientation : poLandscape; RMGridReport1.PageSetup.PaperSize : 9; // 9 在多數(shù)版本里對應(yīng) A4注意 PaperSize 的枚舉值在不同版本里不一定相同寫代碼前先在當(dāng)前安裝包里查一下常量定義表別直接抄網(wǎng)上的數(shù)值。橫向報(bào)表尤其要確認(rèn) Orientation這是后面第 4.4 節(jié)里會展開的坑。4.3 Excel 導(dǎo)出合并單元格、列寬與大數(shù)據(jù)量導(dǎo)出Excel 導(dǎo)出是另一個(gè)重災(zāi)區(qū)。RM 2.6 的 Excel 導(dǎo)出器按單元格逐格寫入對合并單元格支持相當(dāng)有限跨頁表頭的合并區(qū)域在導(dǎo)出后經(jīng)常被拆成斷裂狀態(tài)列寬也只能保留整數(shù)精度導(dǎo)出后需要人工微調(diào)。我的處理原則客戶要“繼續(xù)加工數(shù)據(jù)”時(shí)導(dǎo) CSV客戶要“存檔看不改”時(shí)導(dǎo) PDF盡量不導(dǎo) Excel。如果項(xiàng)目里確實(shí)必須導(dǎo) xls那就接受兩個(gè)現(xiàn)實(shí)一是大數(shù)據(jù)量導(dǎo)出的時(shí)間可能是分鐘級兩三萬行數(shù)據(jù)卡上半分鐘是常態(tài)二是合并單元格的樣式還原度六成上下關(guān)鍵字段要多看一眼導(dǎo)出結(jié)果。此外導(dǎo)出 Excel 前最好關(guān)閉客戶機(jī)上的 Excel 進(jìn)程否則導(dǎo)出組件與已打開的 Excel 實(shí)例交互時(shí)可能因?yàn)?OLE 沖突直接崩潰。這屬于典型的“環(huán)境坑”代碼里沒辦法規(guī)避只能通過操作規(guī)范來約束。4.4 五個(gè)高頻坑現(xiàn)象、原因、解決坑一PDF 里中文全部變成方塊現(xiàn)象報(bào)表在預(yù)覽窗口里一切正常點(diǎn)導(dǎo)出 PDF 后打開文件發(fā)現(xiàn)中文全成了方塊英文和數(shù)字正常。原因?qū)С銎髟谧鲎址成鋾r(shí)沒有可用的中文字體文本對象的字體名在客戶機(jī)上不存在或字體名稱大小寫不匹配。解決設(shè)計(jì)器里所有文本對象統(tǒng)一用系統(tǒng)中文字體導(dǎo)出前用 ReplaceFont 把自定義字體替換成宋體替換完成后再調(diào)用一次 Initialize 固化。格式化輸出后必須抽查首頁和末頁確認(rèn)漢字輪廓正確。坑二導(dǎo)出 Excel 非常慢甚至卡死現(xiàn)象一個(gè)兩三萬行的明細(xì)表導(dǎo)出 xls進(jìn)度條長時(shí)間不動(dòng)CPU 占用高Excel 彈“未響應(yīng)”。原因?qū)С銎髯叩氖?OLE 逐單元格寫入數(shù)據(jù)量越大寫入次數(shù)越多性能呈線性惡化實(shí)時(shí)殺毒還會逐格掃描進(jìn)一步放大耗時(shí)。解決數(shù)據(jù)量大時(shí)先導(dǎo)出 CSV 或 TXT 讓客戶自己轉(zhuǎn)格式如果必須導(dǎo) xls把報(bào)表拆成多個(gè)小文件導(dǎo)出再用腳本合并不要在一個(gè)報(bào)表對象里硬撐?？尤龣M向報(bào)表打印/導(dǎo)出時(shí)右邊少一列現(xiàn)象設(shè)計(jì)器里表格完整打印機(jī)出紙后最后一列被截?cái)嗷蛘咴?PDF 里最后一列跑到第二頁。原因圖紙方向還是縱向報(bào)表內(nèi)容寬度超過頁面可用寬度部分客戶機(jī)默認(rèn)打印機(jī)紙張?jiān)O(shè)成了 Letter可用寬度比 A4 窄。解決在代碼和設(shè)計(jì)器里同時(shí)把方向設(shè)為橫向并顯式指定 A4。注意設(shè)計(jì)器里的 Paper Setup 和代碼里的 PageSetup 必須保持一致否則代碼會在運(yùn)行期覆蓋設(shè)計(jì)器設(shè)置。RMGridReport1.PageSetup.Orientation : poLandscape; RMGridReport1.PaperSize : 9; // 以當(dāng)前安裝包的常量表為準(zhǔn)坑四預(yù)覽總顯示上一次的數(shù)據(jù)現(xiàn)象同一個(gè)報(bào)表對象先打開數(shù)據(jù)集 A 預(yù)覽正常換成數(shù)據(jù)集 B 后預(yù)覽第一頁還是 A 的數(shù)據(jù)刷新無效。原因數(shù)據(jù)集換了但報(bào)表對象沒有重新 Initialize行列緩存、分頁數(shù)據(jù)都停留在上一次運(yùn)行態(tài)。解決切換數(shù)據(jù)集后強(qiáng)制調(diào)用 Initialize。如果行數(shù)仍不對先把 RowsCount 置為 0 再調(diào)用 Initialize強(qiáng)制清空內(nèi)部行索引。這一步是解決“殘留數(shù)據(jù)”最直接的手段?？游暹B續(xù)導(dǎo)出多張報(bào)表頁碼不重置現(xiàn)象用同一個(gè)報(bào)表對象連續(xù)導(dǎo)出兩個(gè) .rmd第二張 PDF 的第一頁頁碼顯示“第 3 頁”而不是“第 1 頁”。原因頁碼計(jì)數(shù)是引擎級變量報(bào)表對象切換數(shù)據(jù)后沒有同步重置頁碼在上次基礎(chǔ)上繼續(xù)累計(jì)。解決每張報(bào)表導(dǎo)出前獨(dú)立執(zhí)行一次 Initialize如果仍不重置查找腳本里有沒有手動(dòng)修改頁碼變量的代碼特別是 BeforePrint 事件里對頁碼變量的賦值刪掉后在設(shè)計(jì)器里改用系統(tǒng)內(nèi)置頁碼字段。5. 真實(shí)報(bào)表的復(fù)雜度分組、交叉表與主子報(bào)表的落地做法5.1 分組小計(jì)與合計(jì)腳本鉤子里的累加和換頁業(yè)務(wù)報(bào)表十有八九要分組小計(jì)RM 2.6 里最常見的實(shí)現(xiàn)方式是在行級腳本鉤子里做累加和換頁判斷。下面這段腳本按部門編號分組部門切換時(shí)輸出小計(jì)并重新開始累加procedure rmGridReport1BeforeRow(Sender: TObject); var curDept, prevDept: string; begin // 讀取當(dāng)前行與上一行的部門編號 curDept : RMGridReport1.GetCellValue(0, RMGridReport1.RowNo); prevDept : RMGridReport1.GetCellValue(0, RMGridReport1.RowNo - 1); // 部門發(fā)生變化時(shí)在上一組末尾寫出小計(jì)然后重置累加器 if curDept prevDept then begin RMGridReport1.TextTo(2, RMGridReport1.RowNo - 1, 小計(jì): FloatToStr(subTotal)); subTotal : 0; RMGridReport1.NewRow; end; // 把當(dāng)前行金額累加進(jìn)小計(jì) subTotal : subTotal StrToFloat(RMGridReport1.GetCellValue(2, RMGridReport1.RowNo)); end;參數(shù)說明GetCellValue 返回指定坐標(biāo)單元格的文本內(nèi)容第一個(gè)參數(shù)是列號第二個(gè)是行號RowNo 是當(dāng)前數(shù)據(jù)處理到的行索引TextTo 把字符串寫入指定單元格NewRow 在當(dāng)前行下方插入一行。這段腳本的邏輯是“邊打邊判斷”遍歷每個(gè)數(shù)據(jù)行發(fā)現(xiàn)部門變了就把上一組的小計(jì)寫到上一組最后一行下面然后插入一行空白行把兩組隔開。subTotal 是腳本變量區(qū)聲明的全局變量需要在 Initialize 事件里清零否則多張報(bào)表連續(xù)預(yù)覽時(shí)累加器會帶著上一張的數(shù)據(jù)跑。這種寫法在報(bào)表行數(shù)不多、分組層級不深時(shí)夠用維護(hù)屬于“看得懂但有點(diǎn)碎”的水平。分組層級多、需要多級合計(jì)時(shí)我更建議在設(shè)計(jì)器里使用分組頭尾帶區(qū)在帶區(qū)的數(shù)據(jù)集屬性里指定分組字段運(yùn)行期引擎會自動(dòng)處理分組腳本只負(fù)責(zé)小計(jì)計(jì)算。把“換頁、插行”這類結(jié)構(gòu)邏輯交給帶區(qū)把“累加、格式化”留給腳本兩邊職責(zé)清楚后期改起來不費(fèi)勁。5.2 交叉表把翻轉(zhuǎn)邏輯前置到 SQL報(bào)表只做渲染交叉表這類“行轉(zhuǎn)列”的需求RM 2.6 的交叉表組件能力有限動(dòng)態(tài)列需要寫大量腳本做單元格拼接調(diào)試成本很高。我的建議是除非列數(shù)固定且業(yè)務(wù)不會再增加維度否則不要在報(bào)表里做交叉把翻轉(zhuǎn)邏輯前置到 SQL。固定列數(shù)的典型寫法SELECT dept_id, SUM(CASE WHEN MONTH(create_date) 1 THEN amount ELSE 0 END) AS m1, SUM(CASE WHEN MONTH(create_date) 2 THEN amount ELSE 0 END) AS m2, SUM(CASE WHEN MONTH(create_date) 3 THEN amount ELSE 0 END) AS m3 FROM biz_order GROUP BY dept_id這段 SQL 做的事情是把月份作為列方向維度用 CASE WHEN 把每個(gè)月的數(shù)據(jù)拆到獨(dú)立的 m1、m2、m3 列上。報(bào)表端只拿到一個(gè)規(guī)整的結(jié)果集直接在 rmGridReport 里加三列綁定字段即可腳本量趨近于零。報(bào)表端動(dòng)態(tài)加列的寫法也能實(shí)現(xiàn)交叉表但腳本要處理列號自增、列標(biāo)題動(dòng)態(tài)寫入、數(shù)據(jù)行定位復(fù)雜度是指數(shù)級上升。我見過有人在腳本里寫了七十多行實(shí)現(xiàn)動(dòng)態(tài)列交叉表結(jié)果隔兩個(gè)月業(yè)務(wù)加了兩個(gè)維度排錯(cuò)排到凌晨。從那以后我的原則就是能在 SQL 里翻的絕不在報(bào)表里翻數(shù)據(jù)庫的擴(kuò)展能力和調(diào)試手段都比老報(bào)表腳本強(qiáng)得多。5.3 主子報(bào)表主表定位變化時(shí)子表如何跟著變主子報(bào)表的經(jīng)典場景是訂單頭加訂單明細(xì)主表位置滾動(dòng)時(shí)子表要同步顯示當(dāng)前訂單對應(yīng)的明細(xì)記錄。RM 2.6 里我用的方案是 rmLibReport 做主表版式內(nèi)部嵌一個(gè) RMGridReport 子對象子對象的定位跟隨主表記錄。關(guān)鍵代碼寫在主版的 BeforePrint 事件里procedure rmLibReport1BeforePrint(Sender: TObject); begin // 主表當(dāng)前記錄定位完成后按主鍵過濾明細(xì) ADOQueryDetail.Close; ADOQueryDetail.SQL.Text : SELECT * FROM order_detail WHERE order_id IntToStr(ADOQueryMaster.FieldByName(order_id).AsInteger); ADOQueryDetail.Open; // 明細(xì)數(shù)據(jù)集變化后子報(bào)表需要重新初始化 RMGridReportDetail.Initialize; end;參數(shù)說明ADOQueryMaster 是主表查詢order_id 是兩張表的主外鍵ADOQueryDetail 是明細(xì)查詢RMGridReportDetail 是嵌在 rmLibReport 里的子網(wǎng)格報(bào)表它在同一張單據(jù)頁面上固定占一塊區(qū)域區(qū)域大小在設(shè)計(jì)器里調(diào)好。為什么把這段邏輯放在 BeforePrint 而不是 Initialize因?yàn)?BeforePrint 在每一頁輸出前都會觸發(fā)此時(shí)主表記錄指針已經(jīng)定位到當(dāng)前頁對應(yīng)的訂單子報(bào)表按這個(gè)主鍵過濾明細(xì)才能保證“這一頁打印哪個(gè)訂單子表就是哪個(gè)訂單的明細(xì)”。如果放在 Initialize 里只會執(zhí)行一次而后面的頁面在打印時(shí)主表記錄已經(jīng)滾動(dòng)子報(bào)表內(nèi)容就錯(cuò)位了。要注意的是子報(bào)表重新 Initialize 的代價(jià)是重新計(jì)算分頁如果明細(xì)行數(shù)特別多每頁都 Initialize 一次會有性能損耗。遇到這種情況我會把主表記錄分組輸出讓一個(gè)訂單的所有明細(xì)盡量集中在同一頁或連續(xù)幾頁減少重復(fù)初始化的次數(shù)。6. 交付前的三查清單把預(yù)覽、PDF、打印三個(gè)風(fēng)險(xiǎn)點(diǎn)一次摁住前面各章把 RM 2.6 的安裝、開發(fā)、導(dǎo)出和踩坑都過了一遍最后一章不聊新功能聊一個(gè)我已經(jīng)堅(jiān)持了很多年的交付前三查清單。每次給客戶發(fā)版本前我會強(qiáng)制走一遍這三項(xiàng)檢查每項(xiàng)都只在容易翻車的地方設(shè)檢查點(diǎn)。檢查項(xiàng)檢查內(nèi)容典型問題表現(xiàn)紙張與方向設(shè)計(jì)器 PageSetup、代碼里的 PageSetup、客戶機(jī)默認(rèn)打印機(jī)紙張橫向報(bào)表缺列、PDF 紙張變成 Letter字體映射PDF 導(dǎo)出后抽查首頁、中間頁、末頁的中文與數(shù)字中文方塊、字體重疊、數(shù)字錯(cuò)位數(shù)據(jù)刷新連續(xù)打開多張報(bào)表確認(rèn)每張第一頁數(shù)據(jù)都是新數(shù)據(jù)殘留上一次報(bào)表的數(shù)據(jù)、頁碼不重置紙張檢查不是單純在代碼里看一眼我通常在放行前用批量導(dǎo)出腳本把所有交付模板跑一遍 PDF重點(diǎn)看橫向報(bào)表和含窄列的報(bào)表。這里有一段我用于批量自檢的 Delphi 代碼procedure TSelfCheckForm.btnCheckClick(Sender: TObject); var i: Integer; begin // FileList 里是所有要交付的 .rmd 模板路徑 for i : 0 to FileList.Count - 1 do begin RMGridReport1.ReportName : FileList[i]; RMGridReport1.LoadFromFile; RMGridReport1.Initialize; RMGridReport1.ExportToPDF(OutputDir IntToStr(i) .pdf, False); end; end;這個(gè)循環(huán)不是自動(dòng)化測試它只做一件事讓每一個(gè)模板在無人值守的情況下跑過“加載-初始化-導(dǎo)出”全流程。如果某個(gè)模板 PDF 生成失敗、導(dǎo)出來是空頁、或者內(nèi)容被截?cái)啻a會停在那一輪錯(cuò)誤信息就是排查線索。我一般會順手把 PDF 文件按模板名重命名并編好序號方便對檢查結(jié)果關(guān)聯(lián)回原始報(bào)表文件。這輪自檢解決不了所有問題但能在發(fā)版前把兩大類問題攔下來模板文件結(jié)構(gòu)損壞、數(shù)據(jù)集綁定字段錯(cuò)誤。字體和紙張這類和客戶機(jī)環(huán)境強(qiáng)相關(guān)的問題自檢代碼攔不住需要配合部署說明文檔在客戶現(xiàn)場裝完第一版時(shí)人工跑一張典型報(bào)表確認(rèn)。我把字體和方向檢查寫進(jìn)部署說明文檔的驗(yàn)收一節(jié)讓實(shí)施人員照著打一張“驗(yàn)收專用報(bào)表”只要這張表方向?qū)?、中文正常、?shù)據(jù)對就默認(rèn)環(huán)境沒問題。印象最深的一次交付客戶現(xiàn)場打出來的所有單據(jù)都向右偏移折騰一晚上最后發(fā)現(xiàn)是客戶機(jī)默認(rèn)打印機(jī)紙型設(shè)成了 Letter而報(bào)表設(shè)計(jì)器里一直是 A4 橫向。從那以后我每次交付報(bào)表都強(qiáng)制把三查清單走一遍先看紙、再看字體、最后看數(shù)據(jù)刷新。這三步看著笨但真的幫我擋掉過好多次低級事故多花十分鐘少返一次工。希望幫到你。本文還有配套的精品資源點(diǎn)擊獲取