说三道四技术文摘-感悟人生的经典句子
说三道四 > 文档快照

在Delphi中运用QuickReport实现多栏列印

HTML文档下载 WORD文档下载 PDF文档下载
在Delphi中运用QuickReport实现多栏列印

---- 在所有有关Delphi的书籍中,都没有讲解如何实现一个打印项的多栏打印,而实现生活中往往有许多报表要求同一项目多栏打印,QuickReport提供了报表打印一整套完整的解决方案,完全可以实现同一项目的多栏打印,技术关键是如何控制表中记录提取个数,如果在Treport的DataSet属性中选定一个Table

那么QuickReport每次打印详细列表(BandType=rbDetail)属性的TQRBand时,系统会自动取出一个记录供打印,并将表中的记录指针移到下一位,这样程序无法控制表中记录指针的移动,就无法实现多栏打印,只要程序不在Treport的DataSet属性选定任何表

QuickReport便不会控制表记录的提取,QuickReport特为其它类型数据打印提供了一个OnNeedData事件,QuickReport 每次打印详细列表(BandType=rbDetail)属性的TQRBand时,会触发这个事件,要求提供打印数据,如果程序在OnNeedData事件中编写运用表中数据提供打印资料,便能实现多栏打印,现举例说明:

---- 现在要实现一个Table1中Name项两栏打印,在窗口上放TquickReport组件 quickReport1,并在上面放Tband组件band1,将其BandType属性改为Detail,在Tband 组件上并排放两个QRLabel组件QRLabel1和QRLabel2,在quickReport1的OnNeedData事件中写如下代码:

procedure TForm1.QuickRep1NeedData(Sender:

TObject; var MoreData: Boolean);

var

I: integer;

begin

MoreData := True;

for I:= 1 to 2 do

begin

if Table1.Eof then Break;

case I of

1: QRLabel1.Caption :=

Table1.FieldByName('Name').AsString;

2: QRLabel2.Caption :=

Table1.FieldByName('Name').AsString;

end;

Table1.Next;

end;

if Table1.Eof then MoreData := False;

end;

---- 为了保证打印或者打印预览开始时Table1指针在第一条记录,在quickReport1的 BeforePrint事件中写如下代码:

procedure TForm1.QuickRep1BeforePrint

(Sender: TCustomQuickRep;

var PrintReport: Boolean);

begin

Table1.First;

end;

---- 这样程序调用QuickRep1.Preview或者QuickRep1.Print便能预览或者打印到一个关于 Name的从左至右,从上到下的多栏报表。

收购传闻:Apple一厢情愿还是Waze待价而沽 回顾过去,展望2013:移动开发引擎、工具和语言盘点 成本为0!Netflix开源工具Janitor Monkey清理AWS iOS开发者讲述在Google工作的三个月 GitHub历史上最糟糕宕机事故回放及反省 疑因竞争 谷歌有意让地图与WP手机不兼容 移动游戏开者必看:海外VC最关心什么? 淘宝UED:随侃设计师的个人素养 TIOBE 2013年1月:不负重望 Objective-C再次赢得桂冠! 大数据:商业或技术的挑战? 开源移动统计:Cobub Razor近期版本大升级 无人机应用,为何屡遭苹果拒绝 2013年Java继续火的五大理由 Rails所有版本都有SQL注入漏洞?其实没那么严重 如何设置Windows Server 2012 NTFS权限 智能手机大局已定 HTC难扭转乾坤? 比谷歌手表更酷!基于大数据分析的睡衣 众投资金:改变了移动游戏开发的一切一切 这些科技产品和革新或在今年“横空出世”?! 现代Objective-C七宗罪 Google工程总监Ray Kurzweil意欲打造“虚拟朋友” 惠普开源JavaScript框架Enyo更新:支持桌面和移动平台 分析:三星或将成为科技行业第五巨头 是真的 诺基亚真有可能推Android手机 如何打造IE10的指尖触碰式用户体验 SUSE全球OEM联盟总监:为何SAP HANA只选择SUSE? 推荐2013年最佳PHP开发框架 Patrick Wyatt:代码没问题 程序却有bug? NoSQL的可靠性及扩展操作 最新Skype加密技术:“无声”通话能躲过FBI监听 谷歌锁死SDK,能阻止Android碎片化吗? 我用extracticon将图标从exe文件中提取出来了,请问高手们,如何保存为ICO文件。 急急急,如何解决多窗口关联及激活问题!高分相送 请教一下,如何刷新ie浏览器,我用postmessage模拟按键F5,没成功,谢谢 怎么样把多个程序打包到一个文件中,然后怎么样释放出来!高分求答案(分两次给100分)! 为什么计算字段不能排序 我是新手,高手教教我吧!!! 如何激活oracle8.16的监听??? Domino Administrator 中的“配置”->“消息处理”->“网络域” C#究竟是什么东东?象C++还是象JAVA? 求dxdbtreeview 1.2 for d5 有人知道天津英业达吗? vb6如何结合DirectX编程? 怎樣才能把數據寫入BIOS中的DMI里去? 我要用vb得到一个EXCEL表格中的内容,经过数据处理再把数据写入新的EXCEL表格,如何实现? 心情不好,散分 我怎樣才能把mssqlserver中的數據庫導出到mysql中? >>有人知道天津英业达吗? 在VC中,如何编写Makefile,及如何用 .mak 文件编译,联接程序(来者有分) 我的电脑经常在使用时出现“EXPLORER出现非法操作即将关闭……”然后死机,怎么办? JavaScript一问!!! windows nt 的问题(急)? 如何设定paradox的自增长自段 关于报表中零值显示问题求助 那位知道控制打印机的win32函数,1、使其打印完毕不换页(卷纸) 2、以及换行的函数!!! 请问怎样捕获WINDOWS的文件拷贝事件? ■■请问WIN2000下对内存区的访问如何进行,类似于游戏修改等软件?■■ 内存分配不能分配?该用什么来分配内存? 做图象处理可以,作这个不可以? 如何将上次表单的残余值给清掉? 如何打开一个窗口? 搞不明白?各位高手帮帮忙!! 如何在win98与2000共同使用同一软件? 有个问题,怪怪怪 高分求救:做单片机的前途怎么样? 如何在VB中制作复杂的动态报表? (新手急需) 一个分页进行选择的问题!!!急呀。。。。。。。。。 虚心求教DataReport打印问题,特着急! 有用DirectX作软件界面的吗?(不是游戏) VB中有没有类似日历的哪种控件啊?详细一点,thx 如何上传图文混排的的文件到数据库中? 菜鸟提问 怎么样才能实现这样的界面啊?各位高手请帮忙! 建Lotus表再把数据导进去,用delphi怎么做? 哪里可以找到数据库及相应的某系统需求分析 请教如何控制showmessage弹出对话框的外观. 统计出table1中dm字段的内容为"002"的有几个,怎么办?请指教! 有一个字段名叫DM,原来是2位字符型的,现在需要改成3位,即在前面自动加一个0即可,请问用什么语句? 当table1表中的dm字段变化时,同时想要table2表的dm字段也跟着变过来,是不是可能呢? 我想添加一个字段,当新记录时,该字段是系统当前时间 那位大虾告诉我win32程序的格式,好嘛??? 请问将mdb数据库的表导成文本文件的最佳方法 想找一个MM合租,条件是必须是女程序员,请兄弟们指教是否可行 哈哈!我终于用上超星了! 以"__________的日子"为题,写一篇作文,600字以上!快开学了! 请列出十个描写"宇宙"的词或句子 2013春节作文600字,文体不限(除诗歌) 求一篇600字的,以"做个有心人"为题的文章! 描写“神舟号”和宇宙的好词好句 请以“心中的丰碑”为题写一篇800字的作文,文体不限,诗歌除外. 1、皇上招你进上书房伺候时,你无意间听到与有大臣参奏与你世家有关的不利的事情.皇上已经知道你听见了,你应当怎样应对?请自行演绎.演绎时请注意心理和动作的描写.字数不少于100.2、皇 描写宇宙的好词好句好段 以“多走一步”为题写篇800字以上作文,诗歌除外文体不限,急! 若在宫中,你的好姐妹因嫉妒你得到皇上的宠爱,故意散布谣言,说你对皇上不忠,在宫中有相爱的男子,宫中有很多人都在背后说你的坏话,而你朋友也因此离你而去,你该怎么办? 普通友爱,父爱,母爱作文各4篇 关于母爱、父爱的作文(400字)不要复制的, 推荐些纯宫斗小说甄嬛传 金枝玉叶 .倾世皇妃 落尽梨花春又了 媚行深宫 宸宫这些都看过啦 关于父爱,母爱,友爱,博爱等的作文任选其一 形容天空 诗句写小说用的. 六年级语文第一课山中访友 六年级下册语文评价手册第十课预习导航答案 我的舞台作文800字 山中访友命题 语文评价手册不见了!最好有答案. 《我的舞台》作文700字怎么写 为什么以山中访友为题? 我的舞台 作文600字不要随处可见的 不要跳舞练字的那些 一些具体的事例就行了. 作文我的舞台如何写(800字) 在括号里填上合适的词语 什么的宇宙 宫斗是什么怎么玩啊.给我举几个例子. 求宫斗记录要侍女和自己的主子宫斗滴 我们的天空给予我们遍地的彩虹,我们将共享.我们的河水给予我们不朽的生命我们将报纸他们的洁净.仿写.给予我们.,我们将.两个 帮帮忙是关于和平的~好的话再加悬赏 形容宇宙大的词语 宫斗是什么意思? 描写宇宙的词语今天晚上就要10月20日6点以前谢谢!不要太少不然我不给分的另外这些我已经写过了不要再发:广袤无垠 浩淼 神秘莫测 未知 无边无际 以《我的理想》为题写一篇作文500-600字 谁能告诉我宫斗是什么意思 描写宇宙的词越多越好 以永远的什么为题写一篇600字作文 宫斗,到底是什么?怎么才能演绎好宫斗. BEYOND的歌《我们的天空》歌词家驹永恒的乐神,四大天王只是浮云,你是永远的好声音,家驹,爱你 宫斗考题1.如果冒犯了主子,2.请说出2种以上请安的方式 3.当主子问话需要回答时,应该以什么话开头?4.什么话是不能和主子说的?5.对主子该自称什么?6.你认为,妃嫔贵人等,对于比她等级高的,应 宫斗是啥怎么玩 求高手帮忙找一些描写宇宙的句子如题.我写作文要用. 六年级下语文同步第一课长江之歌全部答案,快答 那份爱的作文 母爱父爱 六年级课文山中访友主要内容,急用 以母爱或父爱为话题的作文“爱是人间的春风,爱是生命的源泉”.学了【秋天的怀念】一课,你一定更加感到母爱或父爱的伟大.请以“母爱或父爱”为话题,选择你与母亲或父亲之间发生的意 六年级下册第一课《长江之歌》仿写句子多写点 描写宇宙的句子一定要是句子,诗词,或者是一小段(不要一大段的,要不要词语) 要一篇 以 改变之后 为题目的作文 600字左右 六年级下册人教版第一课感受最深的句子?!?!?!?!?!?!?!?!?!?!?!?!?!?!?!?!?!?!?!?!?!?!?!?!?!?!? 谁有六年级上册的山中访友原文?人教版的六上第一课 宫斗:答题一天!你和皇后、羽妃,一起去湖边撒步,走到湖边,皇后不小心被香蕉皮滑了一跤!不小心,她掉入湖中!羽妃看见了!就去皇上那里告你!你该怎么办、怎么给皇上解释、为什么、说出理由 从六年级下册第一课长江之歌中懂得了什么明白了什么感受到了什么学到了什么? 描写太空中景物的句子就是我来到了太空,看见行星、白羊星座、火星……这些景物,他们长什么样,最好运用修辞手法 宫斗求答题1.若在宫中,有人散布谣言,说汝对皇上不忠,在宫外有相爱的男子,宫中有很多人都在背后说汝的坏话,而汝最好的朋友也因此离你而去,汝该怎么办?2.若有朝一日,你登得凤位,与你争夺 六年级下册第一课是什么 描写宇宙变化的语句 宫斗问题答题啊...你生母早逝,自幼便是贵妃抚养长大.贵妃膝下有一子一女,抚养你不过是为了在皇帝面前搏个好名声,面上对你只是淡淡的.你长大后也知晓一点,一日皇帝来此,你当着众人的面 形容天空广大的词语 以“高度”为题的作文,600字,快 关于描写感概宇宙的古诗词 形容春天的天空的词语
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn