16,748
社区成员
发帖
与我相关
我的任务
分享Delphi二维码、分组、批量打印经验小结
Delphi二维码中文支持、分组、批量打印经验小结
FastReport设计入库单报表实例
Delphi 二维码 分组批量打印 fastreport 控件
背景：
一直也没接触到什么复杂的报表，都是一些简单的报表，在DelphI下使用QuickReport一般也就能满足需要了，由于公司现在需求的变化，对条码扫描提出了新的要求，主要是扫码要包含更多地内容，以前的一维码显然不能完全满足，再说二维码也是一种趋势，故而需要解决二维码的问题，网上搜了一下，方式有多种多样，我花了3天时间找了很多，也尝试了很多。也经历了很多失败！总结一下在Delphi下实现二维码主要有三种方法：
1、使用PtImageRW.dll和PtQREncode.dll动态连接库，使用uQRCode生成二维码图像，如此就可以在报表中予以打印了，具体如何用uQRCode实现绘制二维码，本人水平太低，无法参透；结合QuikReport就可以实现打印二维码了，但此种有一个问题就是不支持中文，如source1（整合到FastReport中也无法实现对中文的支持）；
2、还有一种就是生成控件,利用ZINT制作的控件，如source2；此种有个问题就是无法在报表中使用（也许是我不会用），只可在窗体上显示，当然理论上说能在窗体上使用就完全可以用于打印报表了，可问题时我不会，哎，还是技术水平太低。还有一种叫Han-sof 2D Barcodes的控件，我可以安装，但却无法使用，无法生成二维码到图片。可上网搜索一下下载这个控件安装一下，有搞定的与我共享一下。
3、用ZINT整合到FastReport中，也是下面我要叙述的形式:source3。完全可以满足我的需求。
例子实现了对采购入库数据的分组批量打印，加入了二维码的使用，当然实际工作当中制作入库单基本上用不到批量打印的，一般都是一单一打，但在我这里没办法，必须设计这样的功能，历史遗留问题吧，这里也牢骚一下吧！
如做一些延伸，很多的打印都和这个有很多的类似之处，我说的是并不太复杂的应用，至于什么更复杂得我想FS也能搞的定，这里做一个总结是希望对和我一样水平的人提供一些帮助吧，也许现在很多人根本不用Delphi了，权且当作自己的一个笔记吧！
入库单样式如下：
一、环境及所用组件程序
1、Delphi2010
2、FastReport4.9 for 2010
3、zint.dll
4、frx2DBarcode.pas
5、frx2DBarcodeRTTI.pas
6、uBitMapOverriden.pas
7、ufrxZintBarcode.pas
8、uRegZintBarcode.pas
9、uZintInterface.pas
二、安装FastReport4.9 for 2010
注意：安装有一定要新建一个工程，并放置一个frxReport1控件，看看是否可以正常运行，如果不能正常运行，那么到安装目录检查一下权限，将EVERYONE添加到文件夹权限，应该就可以了，我的就是这样。一定要确保frxReport可以正常运行，否则一切都是白搭。
在2010下安装，直接下一步到底就可以了，并不需要重新编译；
Fastreport5在安装的时候无法生成相应版本的文件进行编译，不知道是何原因。
三、zint.dll与相关文件
1、将Zint.dll复制到工程文件的当前目录及windows的system32目录下；不过好像不复制在当前目录页不要紧，谨慎起见还是放一个吧！
2、在单元文件中引用frx2DBarcode，即可调用二维码；我参考网上的例子，多引用了很多，具体如下，具体什么意思，也没有细细研究。反正多几个也没坏处frxDesgn, frxClass, frxDCtrl, frxChart,frxDBSet, frxRich, frxBarcode,frxOLE, frxCross, frxDMPExport, frxExportImage, frxExportRTF, frxExportXML, frxExportXLS, frxExportHTML, frxGZip, frxExportPDF, frxChBox, frxExportText, frxExportCSV, frxExportMail, frxADOComponents, frxCrypt, frxExportODF, frxGradient,frx2DBarcode;
3、窗体中加入以下控件。
属性设置参考例程
4、打开设计
procedure TMain_Form.RzBitBtn1Click(Sender: TObject);
begin
frxReport1.DesignReport;
end;
5、打开预览
frxReport1.Clear;
frxReport1.LoadFromFile('group.fr3');
frxReport1.DataSets.Clear;
frxReport1.DataSets.Add(frxDBData);
frxReport1.ShowReport;
frxReport1.Modified:=false;
6、设置ADOquery1的SQL为“select * from data_in order by bill_code_in desc”;再设置Active为True；
7、设置frxDBData的DataSet为ADOQuery1；右击控件可以打开Edit aliases对话框，如此在设计其中就可以使用数据源了。当然在设计中也可自己设定。
UserName就是在FastReport下课见的数据连接名。
四、设计报表
注意：此种用法只能在运行程序文件时才能设计报表，否则直接Delphi环境下的控件是无法显示含有二维码的设计页面的。
运行程序，单击设计即可打开“设计”界面；
1、双击页面可以打开此对话框，选择Large height in design mode可以最大限度显示设计的的幅面，不选择此项目，添加几个Band后你就会发现有的Band就找不到了！
2、在FASTREPORTX下用到的控件及布局区域；
3、page设计模式，主要用到Header、GroupHeader、MasterData、GroupFooter、PageFooter
4、添加完MasterData后，双击该BAND，如下图选择，之后再MasterData的右上角出现frxDB，表示数据选择成功
5、双击GroupHeader，选择bill_code_in作为筛选条件；Options如下，之后右上角显示frxDB.”bill_code_in”：
6、在各Band添加数据，直接将右边的字段拖入相应区域即可，从这一点来看还是有优势的。
五、注意事项
（1）页脚以
形式显示，必须选择Report的DoublePass属性为True，否则显示总页数位0，记得插入那个不带#好的page和totalpage，带#好的事表示全部，试一下就知道什么意思了。
（2）如果需要在每页都显示Header，则在设计时选择ReprintOnNewPage为True
（3）在使用到frx2DBarcode.pas文件时可能出现无法加载，即便已在USE里做了引用，因此最好的办法就是直接加入到项目里来。Add to project
（4）在Delphi下如何改变FastReport的控件属性。
TfrxMemoView(frxReport1.FindObject('memo16')).Text:=’设定的内容’
（5）二维码大小调整
二维码大小调整可以在设计模式下设置参数AutoSizeZoom改变，也就是放大的比例；但这样容易出现一个在你批量打印的时候滚动鼠标你会发现二维码底部会少一小部分，也就无法扫描了，不知道打印是否有影响。
我是通过设置代码来完成，我觉得这样更方便一下，也不会出现上面的情况。
备注：
1、fastreport for 2010是我用的，可以正常使用也是例子里用到的4.9版本
2、fastreport5 for delphi7,已经好久不用7了，故也没测试，这是下载到的！测试成功的告诉我一下！
3、fastreport5 for xe8，我朋友测试通过的，也是他发给我的，但在我的xe8下就是不行，可以看到控件，但一运行，就报错，还没时间研 究，我记得在装XE8的时候是自带了fastreport5的，但并没有二维码的选项，我是卸载了自带的，然后再安装的，然后出现了一系列的问题，实在没时间，因为大部分程序是在2010下的，还没时间向XE8切换，不知道是不在安装的时候不能安装自带的FS5，我朋友在第一次安装的时候就没有选择，然后手动安装的，效果很好！
有知道fastreport5如何在2010下用的，麻烦指教一下！
4、source1-3，前面有说过了，主要是一些例子，我所总结的三种方法，也不知道对不对！
5、zinBarcode文件里也是一个例子，也是用fastreport，可以比较完美的显示中文fastreport，但二维码不能显示中文，设置成中文即报错。
感觉FastReport的功能实在是太强大了，但好多功能还不太会用，以后愿意与大家多交流这方面的信息！
联系方式：jacdfb@163.com;qq:505689211
http://download.csdn.net/detail/daifubing/8957447
FastReport设计入库单报表实例
Delphi 二维码 分组批量打印 fastreport 控件
背景：
一直也没接触到什么复杂的报表，都是一些简单的报表，在DelphI下使用QuickReport一般也就能满足需要了，由于公司现在需求的变化，对条码扫描提出了新的要求，主要是扫码要包含更多地内容，以前的一维码显然不能完全满足，再说二维码也是一种趋势，故而需要解决二维码的问题，网上搜了一下，方式有多种多样，我花了3天时间找了很多，也尝试了很多。也经历了很多失败！总结一下在Delphi下实现二维码主要有三种方法：
1、使用PtImageRW.dll和PtQREncode.dll动态连接库，使用uQRCode生成二维码图像，如此就可以在报表中予以打印了，具体如何用uQRCode实现绘制二维码，本人水平太低，无法参透；结合QuikReport就可以实现打印二维码了，但此种有一个问题就是不支持中文，如source1（整合到FastReport中也无法实现对中文的支持）；
2、还有一种就是生成控件,利用ZINT制作的控件，如source2；此种有个问题就是无法在报表中使用（也许是我不会用），只可在窗体上显示，当然理论上说能在窗体上使用就完全可以用于打印报表了，可问题时我不会，哎，还是技术水平太低。还有一种叫Han-sof 2D Barcodes的控件，我可以安装，但却无法使用，无法生成二维码到图片。可上网搜索一下下载这个控件安装一下，有搞定的与我共享一下。
3、用ZINT整合到FastReport中，也是下面我要叙述的形式:source3。完全可以满足我的需求。
例子实现了对采购入库数据的分组批量打印，加入了二维码的使用，当然实际工作当中制作入库单基本上用不到批量打印的，一般都是一单一打，但在我这里没办法，必须设计这样的功能，历史遗留问题吧，这里也牢骚一下吧！
如做一些延伸，很多的打印都和这个有很多的类似之处，我说的是并不太复杂的应用，至于什么更复杂得我想FS也能搞的定，这里做一个总结是希望对和我一样水平的人提供一些帮助吧，也许现在很多人根本不用Delphi了，权且当作自己的一个笔记吧！
入库单样式如下：
一、环境及所用组件程序
1、Delphi2010
2、FastReport4.9 for 2010
3、zint.dll
4、frx2DBarcode.pas
5、frx2DBarcodeRTTI.pas
6、uBitMapOverriden.pas
7、ufrxZintBarcode.pas
8、uRegZintBarcode.pas
9、uZintInterface.pas
二、安装FastReport4.9 for 2010
注意：安装有一定要新建一个工程，并放置一个frxReport1控件，看看是否可以正常运行，如果不能正常运行，那么到安装目录检查一下权限，将EVERYONE添加到文件夹权限，应该就可以了，我的就是这样。一定要确保frxReport可以正常运行，否则一切都是白搭。
在2010下安装，直接下一步到底就可以了，并不需要重新编译；
Fastreport5在安装的时候无法生成相应版本的文件进行编译，不知道是何原因。
三、zint.dll与相关文件
1、将Zint.dll复制到工程文件的当前目录及windows的system32目录下；不过好像不复制在当前目录页不要紧，谨慎起见还是放一个吧！
2、在单元文件中引用frx2DBarcode，即可调用二维码；我参考网上的例子，多引用了很多，具体如下，具体什么意思，也没有细细研究。反正多几个也没坏处frxDesgn, frxClass, frxDCtrl, frxChart,frxDBSet, frxRich, frxBarcode,frxOLE, frxCross, frxDMPExport, frxExportImage, frxExportRTF, frxExportXML, frxExportXLS, frxExportHTML, frxGZip, frxExportPDF, frxChBox, frxExportText, frxExportCSV, frxExportMail, frxADOComponents, frxCrypt, frxExportODF, frxGradient,frx2DBarcode;
3、窗体中加入以下控件。
属性设置参考例程
4、打开设计
procedure TMain_Form.RzBitBtn1Click(Sender: TObject);
begin
frxReport1.DesignReport;
end;
5、打开预览
frxReport1.Clear;
frxReport1.LoadFromFile('group.fr3');
frxReport1.DataSets.Clear;
frxReport1.DataSets.Add(frxDBData);
frxReport1.ShowReport;
frxReport1.Modified:=false;
6、设置ADOquery1的SQL为“select * from data_in order by bill_code_in desc”;再设置Active为True；
7、设置frxDBData的DataSet为ADOQuery1；右击控件可以打开Edit aliases对话框，如此在设计其中就可以使用数据源了。当然在设计中也可自己设定。
UserName就是在FastReport下课见的数据连接名。
四、设计报表
注意：此种用法只能在运行程序文件时才能设计报表，否则直接Delphi环境下的控件是无法显示含有二维码的设计页面的。
运行程序，单击设计即可打开“设计”界面；
1、双击页面可以打开此对话框，选择Large height in design mode可以最大限度显示设计的的幅面，不选择此项目，添加几个Band后你就会发现有的Band就找不到了！
2、在FASTREPORTX下用到的控件及布局区域；
3、page设计模式，主要用到Header、GroupHeader、MasterData、GroupFooter、PageFooter
4、添加完MasterData后，双击该BAND，如下图选择，之后再MasterData的右上角出现frxDB，表示数据选择成功
5、双击GroupHeader，选择bill_code_in作为筛选条件；Options如下，之后右上角显示frxDB.”bill_code_in”：
6、在各Band添加数据，直接将右边的字段拖入相应区域即可，从这一点来看还是有优势的。
五、注意事项
（1）页脚以
形式显示，必须选择Report的DoublePass属性为True，否则显示总页数位0，记得插入那个不带#好的page和totalpage，带#好的事表示全部，试一下就知道什么意思了。（2）如果需要在每页都显示Header，则在设计时选择ReprintOnNewPage为True
（3）在使用到frx2DBarcode.pas文件时可能出现无法加载，即便已在USE里做了引用，因此最好的办法就是直接加入到项目里来。Add to project
（4）在Delphi下如何改变FastReport的控件属性。
TfrxMemoView(frxReport1.FindObject('memo16')).Text:=’设定的内容’
（5）二维码大小调整
二维码大小调整可以在设计模式下设置参数AutoSizeZoom改变，也就是放大的比例；但这样容易出现一个在你批量打印的时候滚动鼠标你会发现二维码底部会少一小部分，也就无法扫描了，不知道打印是否有影响。
我是通过设置代码来完成，我觉得这样更方便一下，也不会出现上面的情况。
备注：
1、fastreport for 2010是我用的，可以正常使用也是例子里用到的4.9版本
2、fastreport5 for delphi7,已经好久不用7了，故也没测试，这是下载到的！测试成功的告诉我一下！
3、fastreport5 for xe8，我朋友测试通过的，也是他发给我的，但在我的xe8下就是不行，可以看到控件，但一运行，就报错，还没时间研 究，我记得在装XE8的时候是自带了fastreport5的，但并没有二维码的选项，我是卸载了自带的，然后再安装的，然后出现了一系列的问题，实在没时间，因为大部分程序是在2010下的，还没时间向XE8切换，不知道是不在安装的时候不能安装自带的FS5，我朋友在第一次安装的时候就没有选择，然后手动安装的，效果很好！
有知道fastreport5如何在2010下用的，麻烦指教一下！
4、source1-3，前面有说过了，主要是一些例子，我所总结的三种方法，也不知道对不对！
5、zinBarcode文件里也是一个例子，也是用fastreport，可以比较完美的显示中文fastreport，但二维码不能显示中文，设置成中文即报错。
感觉FastReport的功能实在是太强大了，但好多功能还不太会用，以后愿意与大家多交流这方面的信息！
联系方式：jacdfb@163.com;qq:505689211
http://download.csdn.net/detail/daifubing/8957447
...全文
请发表友善的回复…
发表回复
taste品味 2015-08-05
- 打赏
- 举报
谢谢楼主，学习了。牛人！
mastersky 2015-08-05
- 打赏
- 举报
谢谢楼主，学习了。
daifubing 2015-08-05
- 打赏
- 举报
其他的文件没有引用！你的方法我没弄过！
Playmaster 2015-08-05
- 打赏
- 举报
支持分享 
zrygo 2015-08-05
- 打赏
- 举报
支持分享
缘中人 2015-08-04
- 打赏
- 举报
感谢分享，赞一个
yexiaoxicx 2015-08-04
- 打赏
- 举报
其余的这几个文件5、frx2DBarcodeRTTI.pas 6、uBitMapOverriden.pas7、ufrxZintBarcode.pas8、uRegZintBarcode.pas9、uZintInterface.pas
不用引用到工程里面吗？
我的是用delphi7 fastreport4.0写的一个打印ocx控件 引用frx2DBarcode.pas这个之后ocx就不能用了
lyhoo163 2015-08-04
- 打赏
- 举报
资料共享，楼主姿态高。
tangbin151 2015-08-04
- 打赏
- 举报
感谢楼主，不错的文章!
wsxcdx 2015-08-04
- 打赏
- 举报
sharebei 2015-08-04
- 打赏
- 举报
支持楼主
