简介Quick Report 4.05 是面向 BCB6Borland C Builder 6与 Delphi 7 开发者的报表生成控件包主要解决可视化报表设计、打印预览与自定义纸张打印等场景中的布局与精度问题。资源以完整源码形式提供适合需要将报表模块集成进桌面应用、或希望研究报表引擎内部实现的中高级开发者。压缩包共 65 个文件约 247KB包含 34 个 pas 源码单元、15 个 dfm 窗体布局、7 个 res 资源、2 个 cpp 与 2 个 dpk/bpk 安装包另有 rc、inc、dcr 等辅助文件覆盖报表设计器、预览、导出与打印引擎等模块。目前已有 288 人学习。借助源码与资源文件读者可深入理解报表控件的组件结构、界面布局与打印流程并在此基础上进行二次开发与功能定制满足企业级或个人项目中复杂报表的生成需求。1. 拿到 Quick Report 4.05 源码包我第一反应是翻它的打印管线前阵子有个做工业上位机的朋友找我说他手上一个跑了十几年的老系统报表模块用的是 Quick Report现在要加两个自定义字段和一张套打单据结果发现当年接手的源码只剩一个压缩包连编译环境都凑不齐。我帮他把包解开看到目录里躺着 BCB6 和 D7 两套工程文件才意识到这是个典型的“老控件、老 IDE、老需求”三老项目。Quick Report 4.05 是 Delphi/CBuilder 时代很经典的一套打印报表控件核心价值在于把“数据源 → 报表带区 → 打印机画布”这条链路封装成可视组件开发者拖几个控件、写几行 OnNeedData 就能出报表。它适合两类人一是维护存量 Delphi 7 或 BCB6 项目的开发者二是想研究早期 VCL 打印架构、学习报表引擎设计思路的人。这份源码包能让你直接看到带区布局、分页计算、打印预览这些模块的真实实现而不是只对着文档猜。2. 环境准备与首次编译BCB6 和 D7 两套工程怎么选2.1 先确认你手上是哪种工程形态Quick Report 4.05 的源码包通常包含两类工程文件一类是.bpr/.bpkBCB6 的包工程另一类是.dpk/.dprDelphi 7 的包工程和示例工程。如果你只是想在现有项目里用优先编译运行期包Runtime Package设计期包Design Package可以稍后再装。常见做法是先把QRPkg*.dpk或QRPkg*.bpk打开确认Requires里引用的rtl、vcl版本和你的 IDE 匹配。BCB6 对应的是 VCL 6.0 那一代D7 对应 VCL 7.0两者在TPrinter、TCanvas的接口上基本一致但包引用名不同混用会直接报“找不到 rtl.dcp”。2.2 编译顺序与常见报错编译顺序建议是先编译运行期包再编译设计期包最后编译示例工程。下面这段是 D7 下用命令行编译运行期包的典型命令BCB6 把dcc32换成bcc32即可# 进入源码目录先编译运行期包 dcc32 -B QRPkgRun.dpk # 再编译设计期包设计期包会引用运行期包 dcc32 -B QRPkgDes.dpk # 最后编译一个示例工程验证 dcc32 -B Demo\SimpleReport.dpr参数说明-B表示强制重新编译所有单元避免旧 dcU 干扰如果报“Unit QrPrntr was compiled with a different version”说明你之前装过其他版本的 Quick Report需要先清理 IDE 的 Library Path 和已安装包列表。BCB6 下如果报Unable to find package rtl检查Tools → Environment Options → Library里的包搜索路径是否指向$(BCB)\Lib。2.3 安装到 IDE 与路径设置编译通过后在 IDE 里Component → Install Packages → Add选中刚生成的.bplBCB6或.bplD7 也是 bpl。安装成功后工具栏会出现 Quick Report 页签。这里有个血泪经验源码目录不要放在带中文或空格的路径下BCB6 的编译器对路径里的空格处理很玄学我见过有人放在“我的文档”里编译一整天都过不去换到D:\QR405就秒过。另外Library Path里要把源码目录加进去否则示例工程找不到QrCtrls、QrPrntr这些单元。3. 核心模块拆解从 TQuickRep 到打印画布的完整链路3.1 带区Band体系与分页计算Quick Report 的报表结构是“一个 TQuickRep 挂多个带区”常见带区有TitleBand、PageHeaderBand、DetailBand、PageFooterBand、SummaryBand。每个带区有自己的Height、BeforePrint、AfterPrint事件。分页的核心逻辑在TQuickRep.Prepare和TQuickRep.Print里源码中QrPrntr.pas的TQRPrinter类负责和TPrinter打交道。我一般会先看TQuickRep.Prepare怎么遍历带区、怎么调用TQRBand.Print再看TQRPrinter怎么把画布内容送到打印机。下面这段是简化后的带区打印调用链帮助理解源码里的关键方法// 摘自 QrPrntr.pas 的简化逻辑用于说明调用顺序 procedure TQuickRep.Prepare; begin // 1. 初始化打印机画布 QRPrinter.BeginDoc; // 2. 按顺序遍历带区 for I : 0 to Bands.Count - 1 do begin Band : TQRBand(Bands[I]); // 3. 每个带区先触发 BeforePrint再计算高度 Band.BeforePrint; Band.Height : Band.CalcHeight; // 4. 如果当前页放不下触发换页 if QRPrinter.Y Band.Height PageBottom then QRPrinter.NewPage; // 5. 把带区画到打印机画布上 Band.Print(QRPrinter.Canvas, QRPrinter.Y); QRPrinter.Y : QRPrinter.Y Band.Height; end; QRPrinter.EndDoc; end;逻辑说明BeginDoc会调用TPrinter.BeginDoc并设置Canvas的字体、分辨率CalcHeight是虚方法TQRBand的子类如TQRExpr所在带区会重写它来根据内容动态算高NewPage会调用TPrinter.NewPage并重置Y坐标。参数上PageBottom来自PageSize和Margins的计算改TQuickRep.PageSize或TQuickRep.Margins会直接影响分页位置。如果你要改分页行为优先看TQRPrinter.NewPage和TQuickRep.Prepare里的PageBottom判断而不是去改带区高度。3.2 数据绑定OnNeedData 与 TQRExpr 的求值Quick Report 不强制绑定数据集它用OnNeedData事件按需取数。源码里TQRBand的DetailBand在打印每条记录时会触发TQuickRep.OnNeedData你在这个事件里DataSet.Next并设置MoreData : not DataSet.Eof。TQRExpr则通过Expression属性解析表达式运行时在QrExpr.pas里用TQREvaluator求值。常见做法是简单字段直接用TQRDBText绑DataSource复杂计算用TQRExpr写SUM(Amount)或IF(Amount1000, 大额, 普通)。源码里TQREvaluator支持SUM、COUNT、AVG等聚合函数但聚合范围是当前带区跨页聚合需要自己在OnStartPage/OnEndPage里维护变量。3.3 打印预览与导出TQRPreview 的实现TQRPreview是预览窗体源码在QrPrev.pas。它内部持有一个TQRPrinter的元文件Metafile副本预览时把元文件画到TPaintBox上缩放通过Zoom属性控制。导出功能如导出到 PDF在 4.05 里不是内置的常见做法是遍历TQRPrinter的页面元文件用第三方 PDF 库逐页写。如果你要加导出建议在TQRPrinter.EndDoc之后拿Metafile句柄而不是去改预览代码。下面是一个导出思路的伪代码// 在 TQRPrinter.EndDoc 之后获取元文件并导出 procedure ExportToPDF(QRPrinter: TQRPrinter; const FileName: string); var MetaFile: TMetafile; PageIndex: Integer; begin MetaFile : TMetafile.Create; try for PageIndex : 0 to QRPrinter.PageCount - 1 do begin // 把第 PageIndex 页的元文件画到 PDF 画布 QRPrinter.Metafile[PageIndex].Draw(PDFCanvas, 0, 0); PDFCanvas.NewPage; end; finally MetaFile.Free; end; end;参数说明QRPrinter.PageCount在EndDoc后才准确Metafile[PageIndex]是每页的元文件直接Draw到目标画布即可。注意元文件的坐标系是打印机像素导出到 PDF 时要按 DPI 换算否则会偏大或偏小。4. 避坑与排查老控件在新环境下的 5 个典型翻车现场4.1 现象编译报“Unit QrCtrls was compiled with a different version of QrPrntr”原因源码目录里混了不同版本的.dcu或者 IDE 的 Library Path 里同时存在两个 Quick Report 路径。解决删掉所有.dcu只保留一份源码路径重新-B编译。我一般会在编译前写个批处理del /s *.dcu省得手动找。4.2 现象设计期包安装后工具栏有控件但拖到窗体就报“Class TQRBand not found”原因设计期包只注册了控件但运行期包没编译或没安装或者运行期包的bpl不在系统 PATH 里。解决确认QRPkgRun.bpl已生成并复制到$(BCB)\Bin或系统 PATH 包含的目录然后在 IDE 里Install Packages同时勾选运行期和设计期包。4.3 现象打印出来内容偏移预览正常但打印机偏左/偏上原因TQuickRep的Margins和打印机的硬边距不一致或者QRPrinter的DPI没按打印机实际 DPI 设置。解决在BeforePrint里根据Printer.PageWidth和Printer.PageHeight重新算PageBottom和PageRight不要硬编码。常见做法是设QRPrinter.Canvas.Font.PixelsPerInch : Printer.Canvas.Font.PixelsPerInch。4.4 现象OnNeedData 里MoreData : False后报表还是多打一页空白原因DetailBand的AfterPrint里又触发了取数或者SummaryBand在MoreDataFalse后仍然被打印。解决在OnNeedData里用DataSet.Eof判断并在SummaryBand.BeforePrint里检查DataSet.Eof再决定是否Cancel。源码里TQRBand.Print会检查Cancel标志设Cancel : True可以跳过该带区。4.5 现象BCB6 下编译通过但运行时报“Access violation in QrPrntr.dll”原因BCB6 的运行时包和 D7 的运行时包混用或者QrPrntr单元里用了 D7 特有的TPrinter方法。解决确认Requires里只引用当前 IDE 的rtl、vcl不要跨版本引用。如果必须跨版本把QrPrntr.pas里用到的TPrinter方法用条件编译{$IFDEF BCB6}隔开。5. 二次开发改带区高度、加自定义字段和套打定位的实操5.1 改带区高度别直接改 Height先看 CalcHeight很多人拿到源码第一反应是去TQRBand.Height里改数字结果发现运行时又被CalcHeight覆盖。正确做法是重写CalcHeight或者在BeforePrint里设Height。下面是一个自定义带区类的示例用于根据字段内容动态调整高度type TMyDetailBand class(TQRBand) protected function CalcHeight: Integer; override; end; function TMyDetailBand.CalcHeight: Integer; begin // 先调用父类拿到基础高度 Result : inherited CalcHeight; // 如果备注字段超过 50 字高度翻倍 if Length(DataSet.FieldByName(Remark).AsString) 50 then Result : Result * 2; end;逻辑说明inherited CalcHeight会按当前带区内控件的高度算出一个基准值Result * 2是简单粗暴的翻倍实际项目里建议按行数算Result : Result (行数 - 1) * 行高。参数上DataSet是当前带区绑定的数据集如果没绑数据集可以用TQuickRep.OnNeedData里维护的变量。5.2 加自定义字段从 TQRExpr 继承还是用 OnPrint加自定义字段有两种路子一是用TQRExpr写表达式适合简单计算二是从TQRCustomLabel继承重写Print方法适合复杂逻辑。我一般会先试TQRExpr表达式搞不定再继承。下面是一个继承TQRCustomLabel的例子用于打印“当前页码/总页数”type TPageLabel class(TQRCustomLabel) protected procedure Print(Canvas: TCanvas; X, Y: Integer); override; end; procedure TPageLabel.Print(Canvas: TCanvas; X, Y: Integer); begin // 从 QRPrinter 拿当前页码和总页数 Caption : Format(第 %d 页 / 共 %d 页, [QRPrinter.CurrentPage, QRPrinter.PageCount]); inherited Print(Canvas, X, Y); end;参数说明QRPrinter.CurrentPage在打印过程中实时更新PageCount在EndDoc后才准确所以“共 N 页”在打印时可能显示为 0常见做法是在EndDoc后重新刷一遍或者用两次打印第一次算页数第二次真打。inherited Print会调用父类的绘制逻辑把Caption画到Canvas的X, Y位置。5.3 套打定位用绝对坐标还是相对带区套打在预印单据上打印的关键是定位。Quick Report 的带区是流式布局不适合绝对定位。常见做法是把DetailBand高度设成单据高度里面放多个TQRLabel每个TQRLabel的Left、Top按单据坐标设死然后DetailBand只打一条记录。这样虽然笨但定位准。如果单据有多条明细就在DetailBand里嵌套一个TQRSubDetail子带区里再用绝对坐标。源码里TQRSubDetail的Print会先算子带区总高再决定是否换页套打时要把TQRSubDetail的Height设成固定值避免动态算高导致偏移。5.4 验证方法用元文件对比而不是肉眼改完带区或字段后怎么验证没改坏我一般会写个简单的测试工程把QRPrinter.Metafile保存成.emf然后用画图工具打开对比。元文件是矢量格式能精确看到每个元素的位置和大小。如果元文件里位置对了打印出来基本不会错。下面这段是保存元文件的代码procedure SaveMetafile(QRPrinter: TQRPrinter; const FileName: string); begin // 把第一页元文件保存为 EMF QRPrinter.Metafile[0].SaveToFile(FileName); end;参数说明Metafile[0]是第一页多页就循环保存。保存后用TMetafile的LoadFromFile可以重新加载对比。这个习惯帮我省了很多“打印出来才发现偏了”的时间。5.5 一个具体技巧用条件编译隔离 BCB6 和 D7如果你要同时维护 BCB6 和 D7 两套工程条件编译是必须的。源码里常见的是{$IFDEF BCB6}和{$IFDEF VER150}D7 的版本号。我一般会在QrPrntr.pas顶部加一个统一宏{$IFDEF BCB6} {$DEFINE QR_OLD_VCL} {$ENDIF} {$IFDEF VER150} {$DEFINE QR_OLD_VCL} {$ENDIF} // 然后在用到新 VCL 方法的地方 {$IFNDEF QR_OLD_VCL} // 新版本才有的代码 {$ENDIF}这样改一处就能同时适配两套 IDE。注意VER150是 D7 的编译器版本号BCB6 对应的是VER140但 BCB6 的BCB6宏更直观建议两个都留着。从那以后我每次拿到老控件源码都强制先跑一遍“编译 → 装包 → 跑示例 → 存元文件”这四步确认基线没问题再动代码。希望帮到你。本文还有配套的精品资源点击获取