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

在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的从左至右,从上到下的多栏报表。

在VB中利用API实现窗体的平滑显示 在vb中让控件大小和位置随着表单的大小成比例变化的方法 在VB中实现闪动标题栏 在VB中实现位图的透明放置 在VB中使用数据窗体设计器插件 在VB中制作单独程序封面的两种方法 在VB中制作透明按钮 在Visual Basic中如何拖动窗体或控件 在Visual Basic中显示动态运行进度 在菜单中加入图标 -VB资料 在程序中调用关闭Windows对话框-VB资料 在任务栏中显示无边框窗体的图标-VB资料 在系统菜单上添加自定义菜单项 -VB资料 在运行时动态生成多个相同的控件?-VB资料 在最小化状态时提供提示 -VB资料 暂时禁止窗口更新-VB资料 VB怎样得到文本框(TextBox)中的文本行数? 制造出透明的Form -VB资料 VB制作半透明窗体和形状不规则的窗体 VB制作方向按钮 VB制作渐变的窗口背景色 字体闪烁 -VB资料 自动改变控件大小-VB资料 自制IE风格按纽控件-VB资料 VB6.0中通过MSChart控件调用数据库 用VB6实现动态增减控件 ActiveX控件的创建-VB资料 ADO控件和DATA控件的冲突(不能共存)的解决方法-VB资料 Combo的自动查询技术 -VB资料 DirectX7.0使用心得(1) -VB资料 DirectX7.0使用心得(2) -VB资料 各位大哥:在下高分请教Rational Rose2002 的注册。急急急!!! 如何把.net framework和Web Application一起打包到安装程序中 一个简单问题,在一个Win32 applicaion 中如何使用CString变量! 在线等待! 如何得到动态生成的TreeView的ExpandLevel值? 在JavaScript里面怎么输出Asp里面的变量值? 追加数据 打印数据窗口 送分的菜问题!小弟我第一个servlet程序就没运行起来! 怎么样抓屏,然后把它保存成一文件! 想问一下用过jsp就会的问题!!! 两条sql语句的写法 wltsui(前途未必光明,道路一定曲折!) ,,xxx94x(岁寒三友) ,,jnxulei(石头)近来接分 这个错误怎么改阿,大家帮帮我吧 请问怎样将一个*.DLL文件,翻译成源码,谢谢/ 机器上有两个网卡(2个IP),如何使tomcat在某一个网卡的80口上运行 请问:soure inside 诗作什么的。具体功能是什么? 获取串口后数据的实时曲线绘制 请教WIN CE 与 PC 通过SOCKET进行通讯的问题(紧急) ==>Server.Transfer 和 response.rdirect 有新打开页面和控制ie显示(工具栏、地址栏)的功能吗? 输出是怪码,为什么 錯誤代碼:0x80040E4D,錯誤信息:使用者登入失敗.(ASP中出現此錯誤,VB中是可以的),急!! 请问怎样在SQL中组织一临时表?(立即给分) 关于asp和SQLSERVER2000问题!郁闷之中..... 使用showModalDialog遇到的问题,再线等候!!!!!!!! 我使用jbuilder做的软件系统包括servlet,jsp,applet,打成了war包,可是却始终不能运行applet。 ***内核的networking问题*** 讨论:大家都用什么工具进行数据库比较 ? 我的鼠标提示刷新的速度不是很快,谁能给在下提供一些好的建议? 发短信的web service 请教一个服务端和客户端交互的问题? 高手帮忙 请问谁又对第三方控件imgscan.ocx操作的例子,发给我bit_hj@163.com。小弟不胜感激 肯请各位帮忙! 应该是简单问题,求高手帮忙,100分相送,绝不食言,一下午都没弄出来,太灰心了..... linux下,mysql数据库密码怎么找回?(在线等) 新手求救:关于8086和80386的中断类型号上的冲突? sleep函数 网络难题,跨网段传输 恢复数据库 有谁的信誉分比我低阿!!我送给他50分阿!! 谁能提供一个切实可用的“防止刷新页面重复提交表单”的方法 Web安装项目中的managed.msm和stdole.dll是何东东,何用?? java中字符串操作函数在哪?java中分解字串的函数(如asp中的:split)在哪个类中? 为何ACCESS出现“#已删除的”的记录? 欲交Java良师益友,愿伸援助之手请进。 关于复选框的初始问题(100份在线4:00-8:00 怎样在asp中把一个文件变成临时文件?? 求解奇怪问题,非常奇怪,分不够再加! 高分求IPMI开发资料 如何用Jtree将一个xml文件显示出来? 招聘系统分析员(北京) 五代十国哦都有哪些政权 不期而遇 照样子 成语 下面这道题如何解,同类型题的步骤一般是什么? 宋太祖和他的弟弟宋太宗在位期间,陆续消灭南唐等割据政权,结束五代十国的分裂局面.为了巩固统治,宋太祖接受宰相赵普的建议,采取措施加强中央集权.他首先利用设酒宴的手段,解除石守信 c++语言求输入10个整数,将其中最小的书与第一个数对换,把最大的数与最后的一个数对换,然后输出者10个数 请大家给出具体的定义或说明,再附加一道例题. 如图是有六个小正方形接拼而成的,其中两个正方形中已经分别填入-6和-3,使得如图是有六个小正方形接拼而成的,其中两个正方形中已经分别填入数-6和-3,使得在同一个正方形两侧的两个数 不期而遇是成语吗? 求范围内的最大值~ 把负一,负二,负三,负五,负八这5个数字填入如图的框内,使正方形四边的等式成立如图:2 + () = ()乘 减4 ()等于 等于8 除以 () 等于 () 几道初三英语题求解,答案和解析是啥?1.—Linda, how is your classmate, Lisa?—She never says anything ________ her friends. She’s the kindest girl I’ve ever met.A. for B. to C. with D. again 有数学期望这个概念么 某面粉厂有一个容积是16立方米的长方体储粮池,它的长是宽或高的2倍,当贴着它一最大的内侧面将小麦堆成一个最大的半圆锥体时,求这堆小麦的体积. ∫x/(4+9x^2)dx 现在急求一篇中等长度的英语笑话或者小故事...不要太长也不要太短,要有中文翻译和3个小问题~ 大学英语三级ab卷不一样的地方多吗?题打乱的顺序多吗?我听说只有单选和阅读理解的带选项的打乱了,其他的都一样是真的吗?我问的2011年12月18号的英语三级,是ab小卷,不是AB级卷 "阝"共有几画? 一束光线从点A(3,3)出发,经过y轴上点C反射后经过点B(1,0)则光线从A点到B点经过的路线长是( )A.4 B.5 C.6 D.7 海拉细胞是什么东西? 阝是几画?是两画还是三画? 1.有一个等腰三角形的周长是48厘米,且其中两边之差为6厘米,则这个等腰三角形的三边边长分别是?2.等腰三角形一腰上的高与底边所成的夹角为m°,则这个等腰三角形的顶角的度数为?3.三角形AB 已知数列{an}中a1=1,a2=3,an=3an-1_-2an-2.求数列an的通项公式 阝以前是不是3画后来改为2画 已知a,b,c是三角形ABC的三条边,且满足a的平方+b的平方+c的平方-ab﹣ac-bc=0,求判断三角形的形状. 已知抛物线y=x^2-(a+2)x+12的顶点在x=-3上,求a的值及顶点坐标 怎么画简sin^2a·sin^2阝+cos^2a·cos^2阝-1/2cos2a.cos2阝所以麻烦大神们帮我画简一次 当DNA丢失一个密码子时,其密码子后的脱氧核糖核苷酸链怎么遵循碱基互补配对的?不是减少一个碱基,后面的都要往上挨一个,可后面的还要与互补链配对啊, 这是什么动漫? 关于海拉的这是什么动漫? 初二物理短路问题在相距2KM的甲、已两地之间有两条输电线,已知输电线线米长的电阻为10欧姆,现输电线在某处发生了短路,为确定短路位置,检修员利用电压表、电流表和电源在甲地测量,当电 英语字母猜谜1.What letter(字母) is drink?_______ 猜英语字母2.What letter has much(许多)water?_______ 猜英语字母事成之后给100积分啊实在想不起来拜托了 海拉灯 是什么灯如题 初二物理中的短路的原因有哪几种? 猜谜语-字母字母A-Z去了火星,小A、小B、小C 做宇宙飞船回地球了,问,火星上还有几个字母? 已知数列{an},a1=1,an+1=2an+4,求{an}的通项公式 这里有一道数学题,大家帮我解解某实验室有一架旧天平,砝码已经丢失一些,只剩下两个砝码,一个是5克,一个是30克的.实验员巧用天平,只用这两个砝码,在天平上称了两次,就把300克化学品分成 猜谜 什么字母What letter is a drink ___What letter has much water?___What letter are people?___ 请教两道数学题,急!1.一批货物,一辆汽车运了3次,运走总数的54%,照这样的速度又运了2次还余下货物2.5吨,这批货物原来有多少吨?2.客车从公园开出时正好满座.到商场站时,有25%的乘客下车,又有 你们说这个字写的怎么样,这个词是谁写的啊? 小学英语字母猜谜趣味字母猜谜 Which letter is a kind of animal? 在标准状况下,11.2L氧气含有n个氧原子.则阿伏伽德罗可表示为 A n B 2n C 3n D 4n 语文中首尾呼应的句子有哪些 长方形OABC中,o为平面直角坐标系的原点,A,C两点的坐标分别为(4,0),(0,6) 1)写出点B的坐标 (2)长方形OABC中,o为平面直角坐标系的原点,A,C两点的坐标分别为(4,0),(0,6) 1)写出点B的坐标 试管婴儿降调针后月经推迟 降调针后月经推迟降调针后月经推迟 所患疾病:试管婴儿降调针后月经推迟 所就诊医院科室:烟台毓璜顶医院 生殖中心检查及化验:您好,盛主任,我现在试管婴 阝有几画 如图,长方形OABC中,O为平面直角坐标系的原点,A点的坐标为(4,0),C点的坐标为(0,6),点B在第一象限内,点P从原点出发,以每秒2个单位长度的速度沿着O-A-B-C-O的路线移动(即沿着长方形移动一 .椭圆焦三角形中,内心将内点与非焦顶点连线段分成定比e证明 “阝”有几画,第一画的名称叫什么“阝”旁有几画,第一画的名称叫什么? 研究数学期望的目的和意义研究数学期望的计算和应用,有什么目的和理论、实践的意义? 椭圆焦三角形的非焦顶点到其内切圆的切线长为定值a-c椭圆焦三角形的非焦顶点是什么意思 阝:笔画是几画 求几道高数题详细解析, 做试管婴儿打降调针的作用是什么 有一个两位数,个位上的数比十位上的书大5,如果把这个两位数的个位于十位上的数兑换,所得新数与原数的差是 45,求原两位数 高等数学题,高数题,rt 兴xing组词是什么 一个数的小数点向左移动一位,所得的书比原来小3.33,原来的小数是多少?怎样做? 求解高数题, 混乱,混拼音, 14.在相距20km的甲、乙两地之间有两条输电线,已知输电线每米长的电阻为O.01Ω.现输电线在某处发生了短路,为确定短路位置,检修员利用电压表、电流表和电源接成如图所示电路进行测量.当 求高手讲讲数学期望的意义那个数学期望我会求,但不知求出后有什么用.那个离散型随机变量的期望到底有什么实际意义或作用.望高手赐教,最好举个例子 开封官方回应批准庄园打深水井事件称:江苏通报今秋秸秆焚烧“第一把火”处理公园免费后质量下降 南京市民质问财政南京出现“烂尾工程”现象 财政部门称南京财政局谈政府采购“挑贵的买”:综南京中小河治理工程将收官:14条河流苏州小朋友上演变装T台秀迎接万圣节马来西亚副首相为选举造势 出席者可获日本内阁官房副长官力挺《特定秘密保护数据显示中国赴美名校留学生每4人就有韩称中韩2014年起联手管制黄海非法法国数百活动人员斗牛场前集结 抗议斗韩国“科学技术卫星3”号抵达俄罗斯 500万叙利亚人在国内成难民 冲突严新警方樟宜机场缴7.1公斤冰毒 一外阿富汗总统选举唯一女候选人被取消竞选澳85岁志愿者因慈善工作获得“默多克韩国自主研发太空观测卫星抵俄基地 拟新加坡建房局凭借公共住房项目获得国际阿富汗总统选举唯一女候选人被取消竞选巴西男子计划耗时8个半月穿夹脚拖走遍美的集团半年报净利预增近50%北大在粤录取134人中国电子信息百强企业 14深企上榜省下四五百 就能查肺癌部分降价房靠马路朝向差男子扮女装 酒行中行窃失业保险七月起统一费率 农民工享受同瑞银中国首席经济学家汪涛:经济回升势红星美凯龙否认网上传闻中大南方学院首办“政商班”乌军用运输机失联黄晓明否认向杨颖求婚两千学生找暑期工“赚能力”微电影广告发展的困与变一本录取基本结束启事·情感天地不要硬将汽车开上台阶乘客每次出行节约6.6分钟广州酒驾降2成严禁教师收受学生家长礼品礼金印刷宣传
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘