阿
阿朱
Unregistered / Unconfirmed
GUEST, unregistred user!
qucikReport 源代码剖析
按设计期与外部运行Exe单元分类：
外部运行Exe:
qrdatasu 报表数据源设置Dialog
qrdatawz 从报表数据源中选择字段Dialog
qreditor 报表设计器 Dialog，用于外部使用，和qrdatasu,qrdatawz 都有关联
qrexpred 表达式显示格式Dialog
QRLABLWZ - MAILING LABEL SETUP DIALOG
qrmdsu 主从表设置Dialog
qrwizard 新报表的wizard Dialog
设计期与独立Exe公用单元:
qrcomped 设计期报表属性设置Dialog
qrabout about Dialog
qrenved 用户自定义函数Dialog
qrexpbld 表达式设置Wizard Dialog
qrprev 打印预览Dialog
qrprgres 打印进度条Dialog
qrprnsu 打印机设置Dialog
qrLablEd 增强型qrlabel的属性编辑器 Dialog
比较重要的类:
qrexpr 表达式计算
qr3const 定义了一些提示常量，打印纸张列表常量。
qrexport 把报表输出到各种文件，如ascii,csv,xls,html,rtf,text,wmf
qrctrls 设计期控件
重要的类:
qrprntr 打印预览基础类，是一个重要的单元 打印控制时重要.
quickrpt Quickrpt组件源码 设计期重要
未知:
qrextra 附加类，作用未明
TQrPrinterSettings 设置打印属性
TQrStandardPreViewInterface 建立预览窗口
TQrPreviewImage 打印和预览的图象
TQrPreView 控制预览
这是三个很重要的类：
TQrStream 存图象的流
TQrPagelist 图象内存页的列表
TQrPrinter 控制打印
QuickRept在预览时做了些什么？给你段源码你就明白了。
procedure TCustomQuickRep.Preview;
begin
Application.ProcessMessages;
if PrepareQRPrinter and not QRPrinter.ShowingPreview then
begin
QRPrinter.Destination := qrdMetafile;
QRPrinter.Master := Self;
QRPrinter.OnPrintSetup := PrinterSetup;
QRPrinter.OnExportToFilter := ExportToFilter;
QRPrinter.Title := ReportTitle;
if assigned(FOnPreviewEvent) then
QRPrinter.OnPreview := FOnPreviewEvent;
QRPrinter.Preview;
CreateReport(false);
if Cancelled then
begin
QRPrinter.Free;
Exit;
end;
repeat
Application.HandleMessage
until (QRPrinter = nil) or (not QRPrinter.ShowingPreview) or Application.Terminated;
end;
end;
有人说程序压栈了，NO，是REPEAT了,你的退出方式符合QuickRep的条件吗？呵呵。。。
打印原理：
在内存中建立一个内存流，再每一个BAND做处理[其中细节还没有探明],把band信息存到内存流中[writebuffer]。在预览或打印时，建立一个TMetaFile文件,先写入EMFHEADER。把内存流的信息LoadFromStream到MetaFile文件中，在打印或预览时就进行文件的定位，读取[seek,read,write]，然后就在打印机的纸上输出。输出时用Canvas.StreahDraw(Rect, MetaFile);走纸控制是按打印机设置走纸的。如果设置当前打印机不支持，则按默认首选项打印，可以动态用API改变默认打印首选项来控制走纸。
关于metaFile文件类型：
是一种可无级缩放的矢量图。在WINDOWS中有一种WMF文件就是此格式。矢量图可由WINDOWS控制缩放，打印。QUIEKREPORT就是利用了元文件的这个好处，不需自己管走纸，预览打印了。而国人王寒松写的EREPORT用的是DOS下常用的找位置用程序生画线textout的手法。metafile文件一旦建立，得到文件句柄，你就象面对一张白纸一样，往上用函数画你的东西吧。画完用打印机的CANVAS打印即可。ArcoBat Reader得PDF文件也是这个原理。
metafile文件可缩放的工作原理：
在文件中存放的其实是图象的相对位置，在具体的设备上显示时，才通过坐标映射关系转换为具体的坐标。
关于Delphi对MetaFile的编程，Graphics.pas就有TMetaFile的源码，我就不多费口舌了。
主要处理点：
如何把各BAND信息存到流里去。想改变Qr的打印速度和打印方式，需要从此下手。
对MetaFile文件格式的处理。在王寒松做的eReport中是纯粹用线画，用Textout,没有用MetaFile,用MetaFile速度会慢，但处理缩放很好，用线画，对打印速度会有提高，但无级缩放，达不到矢量图的效果。
打印是用Qrprinter打印的。但quickrep.print与quickrep.qrPrinter.print打印在源代码上不一样，还没有深研究。
qrprinter只在预览和打印中才产生，没有预览和打印，没有qrprinter.
quickrep几个最主要的事件：
afterpreview 只在关闭预览窗口才触发
afterprint 只在打印完最后一页才触发
beforeprint 在打印第一页时触发
OnEndPage 在一页末下一页开始前的间隔触发
OnNeedData
OnPreview 在预览前触发
OnStartPage 在每一页开始触发
bandtype
rbtitle 在第一页的头部
rbpageheader 在每一页的头部
rbDetail 记录区
rbPageFooter 在每页纸的尾部
rbsummary 在detail区和group footer区的下
rbcolumnheader 在每页纸的头部。
如何多张互不关联报表连打[节约纸张]？
答：用复合报表制作。在OnAddReports中把报表Reports.add(报表)
缺点：每一个报表的CloumnHeader,PageHeader只能在每张纸的头出现。
如果两张报表在一张纸上，第二个报表的CloumnHeander,PageHeader不出现。
如改为Title，就可出现，但在后续的纸的头部就不出现了。
或许在 TQuickRep.OnNeedData中可以办到，但没仔细想。
用报表生成器做连续打印的思想：
1 建立一个不定长数组，存放quickRep,ClientDataSet
把一个报表取下，把值添好，把它用流的技术复制一份[单纯赋值只是引用指针，因为我们
是用一个QuickRep恢复，所以下一张报表会把我们当前的报表冲掉，而流技术可以复制一份]，
从流里边恢复控件必须把流里控件所涉及到的类都用RegisterClass注册一遍，否则从流中恢复时
Owner有可能不认识这个类[Form类和Components类会系统自动识别],无法利用RTTI信息建立控件和保存控件的运行期信息。然后就把数组中的报表增加到复合报表中连打，因为就一个cdsReportDataSet, 而报表连的都是
cdsReportDataSet,现在新建了一个cdsReportDataSet的副本，所以只能把报表上的控件的DataSet都换掉}
不要在其他地方给复合报表.Reports赋值，因为在复合报表内部处理时，它只认在OnAddReport中增加的报表，具体的内部细节是它有一个内部方法：CreateComposite，第一句就是Reports.Clear;在第5句就有一句:
if Assigned(OnAddReports) then
OnAddReports(Sender);
Createcomposite在 Print,Preview,prepare都有。
按设计期与外部运行Exe单元分类：
外部运行Exe:
qrdatasu 报表数据源设置Dialog
qrdatawz 从报表数据源中选择字段Dialog
qreditor 报表设计器 Dialog，用于外部使用，和qrdatasu,qrdatawz 都有关联
qrexpred 表达式显示格式Dialog
QRLABLWZ - MAILING LABEL SETUP DIALOG
qrmdsu 主从表设置Dialog
qrwizard 新报表的wizard Dialog
设计期与独立Exe公用单元:
qrcomped 设计期报表属性设置Dialog
qrabout about Dialog
qrenved 用户自定义函数Dialog
qrexpbld 表达式设置Wizard Dialog
qrprev 打印预览Dialog
qrprgres 打印进度条Dialog
qrprnsu 打印机设置Dialog
qrLablEd 增强型qrlabel的属性编辑器 Dialog
比较重要的类:
qrexpr 表达式计算
qr3const 定义了一些提示常量，打印纸张列表常量。
qrexport 把报表输出到各种文件，如ascii,csv,xls,html,rtf,text,wmf
qrctrls 设计期控件
重要的类:
qrprntr 打印预览基础类，是一个重要的单元 打印控制时重要.
quickrpt Quickrpt组件源码 设计期重要
未知:
qrextra 附加类，作用未明
TQrPrinterSettings 设置打印属性
TQrStandardPreViewInterface 建立预览窗口
TQrPreviewImage 打印和预览的图象
TQrPreView 控制预览
这是三个很重要的类：
TQrStream 存图象的流
TQrPagelist 图象内存页的列表
TQrPrinter 控制打印
QuickRept在预览时做了些什么？给你段源码你就明白了。
procedure TCustomQuickRep.Preview;
begin
Application.ProcessMessages;
if PrepareQRPrinter and not QRPrinter.ShowingPreview then
begin
QRPrinter.Destination := qrdMetafile;
QRPrinter.Master := Self;
QRPrinter.OnPrintSetup := PrinterSetup;
QRPrinter.OnExportToFilter := ExportToFilter;
QRPrinter.Title := ReportTitle;
if assigned(FOnPreviewEvent) then
QRPrinter.OnPreview := FOnPreviewEvent;
QRPrinter.Preview;
CreateReport(false);
if Cancelled then
begin
QRPrinter.Free;
Exit;
end;
repeat
Application.HandleMessage
until (QRPrinter = nil) or (not QRPrinter.ShowingPreview) or Application.Terminated;
end;
end;
有人说程序压栈了，NO，是REPEAT了,你的退出方式符合QuickRep的条件吗？呵呵。。。
打印原理：
在内存中建立一个内存流，再每一个BAND做处理[其中细节还没有探明],把band信息存到内存流中[writebuffer]。在预览或打印时，建立一个TMetaFile文件,先写入EMFHEADER。把内存流的信息LoadFromStream到MetaFile文件中，在打印或预览时就进行文件的定位，读取[seek,read,write]，然后就在打印机的纸上输出。输出时用Canvas.StreahDraw(Rect, MetaFile);走纸控制是按打印机设置走纸的。如果设置当前打印机不支持，则按默认首选项打印，可以动态用API改变默认打印首选项来控制走纸。
关于metaFile文件类型：
是一种可无级缩放的矢量图。在WINDOWS中有一种WMF文件就是此格式。矢量图可由WINDOWS控制缩放，打印。QUIEKREPORT就是利用了元文件的这个好处，不需自己管走纸，预览打印了。而国人王寒松写的EREPORT用的是DOS下常用的找位置用程序生画线textout的手法。metafile文件一旦建立，得到文件句柄，你就象面对一张白纸一样，往上用函数画你的东西吧。画完用打印机的CANVAS打印即可。ArcoBat Reader得PDF文件也是这个原理。
metafile文件可缩放的工作原理：
在文件中存放的其实是图象的相对位置，在具体的设备上显示时，才通过坐标映射关系转换为具体的坐标。
关于Delphi对MetaFile的编程，Graphics.pas就有TMetaFile的源码，我就不多费口舌了。
主要处理点：
如何把各BAND信息存到流里去。想改变Qr的打印速度和打印方式，需要从此下手。
对MetaFile文件格式的处理。在王寒松做的eReport中是纯粹用线画，用Textout,没有用MetaFile,用MetaFile速度会慢，但处理缩放很好，用线画，对打印速度会有提高，但无级缩放，达不到矢量图的效果。
打印是用Qrprinter打印的。但quickrep.print与quickrep.qrPrinter.print打印在源代码上不一样，还没有深研究。
qrprinter只在预览和打印中才产生，没有预览和打印，没有qrprinter.
quickrep几个最主要的事件：
afterpreview 只在关闭预览窗口才触发
afterprint 只在打印完最后一页才触发
beforeprint 在打印第一页时触发
OnEndPage 在一页末下一页开始前的间隔触发
OnNeedData
OnPreview 在预览前触发
OnStartPage 在每一页开始触发
bandtype
rbtitle 在第一页的头部
rbpageheader 在每一页的头部
rbDetail 记录区
rbPageFooter 在每页纸的尾部
rbsummary 在detail区和group footer区的下
rbcolumnheader 在每页纸的头部。
如何多张互不关联报表连打[节约纸张]？
答：用复合报表制作。在OnAddReports中把报表Reports.add(报表)
缺点：每一个报表的CloumnHeader,PageHeader只能在每张纸的头出现。
如果两张报表在一张纸上，第二个报表的CloumnHeander,PageHeader不出现。
如改为Title，就可出现，但在后续的纸的头部就不出现了。
或许在 TQuickRep.OnNeedData中可以办到，但没仔细想。
用报表生成器做连续打印的思想：
1 建立一个不定长数组，存放quickRep,ClientDataSet
把一个报表取下，把值添好，把它用流的技术复制一份[单纯赋值只是引用指针，因为我们
是用一个QuickRep恢复，所以下一张报表会把我们当前的报表冲掉，而流技术可以复制一份]，
从流里边恢复控件必须把流里控件所涉及到的类都用RegisterClass注册一遍，否则从流中恢复时
Owner有可能不认识这个类[Form类和Components类会系统自动识别],无法利用RTTI信息建立控件和保存控件的运行期信息。然后就把数组中的报表增加到复合报表中连打，因为就一个cdsReportDataSet, 而报表连的都是
cdsReportDataSet,现在新建了一个cdsReportDataSet的副本，所以只能把报表上的控件的DataSet都换掉}
不要在其他地方给复合报表.Reports赋值，因为在复合报表内部处理时，它只认在OnAddReport中增加的报表，具体的内部细节是它有一个内部方法：CreateComposite，第一句就是Reports.Clear;在第5句就有一句:
if Assigned(OnAddReports) then
OnAddReports(Sender);
Createcomposite在 Print,Preview,prepare都有。