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

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

11月20日:微软正式发布Windows 1.0 回顾历代Windows版本界面 微软CEO鲍尔默卸职前在股东会上的最后演讲 微软改革员工排名制度或将开启新篇章 【快讯】SAP联合中国电信,又一外商公有云曲线入华 微软CloudOS云操作系统构建企业级三云合一 IE11支持JavaScript新型API,Web应用国际化更便捷 谷歌推订阅应用Play Newsstand:杂志+RSS阅读器 【信息图】到2020年开发者、设计师、测试员的数量将达到史无前例的高度 推广与盈利专题论坛:中国影响世界,世界定义中国 SlideIdea CEO李建忠:移动产品的技术面思考 BDTC→→百度林仕鼎、腾讯蒋杰、阿里唐洪论道大数据平台与技术 谷歌首席互联网布道师:隐私保护并不是一种正常行为 微软公开“挑衅”谷歌,出售反谷歌标语T恤 四大UX设计原则,打造网站最佳浏览体验 【BDTC讲师】黄晓庆:从小灵通到Hadoop与实时大数据分析 【BDTC讲师】杨强:从禽流感预测到图片语义解释 2013中国大数据技术大会讲师议题正式发布 “2013中国大数据周”即将开幕 正式发布中国大数据现状白皮书 搜狐畅游发布3D游戏引擎Genesis-3D 基于MIT协议开源 传闻微软将收购AOL旗下的Winamp和Shoutcast 【BDTC讲师】大数据时代“掘金机”:百度、360、一淘搜索技术分享 谷歌董事长:审查,将会在十年内消失 50万奖金+天使投资:创维天赐家庭互联网创新大赛开幕 专利案苹果获胜:获赔2.9亿美元 三星不服将继续上诉 Google正打造Spark:一个基于Chrome App的集成开发环境 研发周报:成为一名PHP专家其实并不难 将Vistual Studio打造成为Node.js IDE 度量Web性能的关键指标 路由器未火够!高通发布互联网处理器 Unite2014大会:移动开发者的饕餮盛宴 玩与学并存 Kano kit让你自制Raspberry Pi电脑 找到一个非常好的javascript编辑工具,支持函数点取功能 大家来讨论一下什末编程语言最好(来者有分) 各位老大帮忙! 高分请教关于这个界面!!加分!!! 男子身怀假炸弹 闯北京路透社被捕 请教高手关于intraweb的相关问题,在线等待 怎样用一条SQL语句更新两个表? 用UTL_SMTP包发送邮件时,如果邮件内容是中文,收到的内容就变成乱码,怎么办? 如何调用非托管DLL的函数。实现 200分紧急求助!!!!! 给Application的open事件添加脚本 在线等待 怎麼每次都會觸發自定義字段的change event? 求救高手!!!!!! 给Application的open事件添加脚本 VB学习资料?/ select語句怎麼寫? 关于构建工资管理系统的想法!请大家踊跃发言! 考,为什么?存储过程就这么麻烦吗? 请问各位高手怎样在toolbar的按钮上载入图片?谢谢 为什么介绍sql server的书都是跟ASP联系的,有没有跟delphi 联系的? session.timeout的设置问题 我是一个初学者,我有6个问题想请教大家!希望给一点帮助 请大家帮忙想一招,我是第一次做这样的问题,简直是不可思意,吓死我了 工资太低!工作难找?提议结成联盟 初学编程,请教个小问题 请问可不可以定义 vector<vector<mystruct>> 类型? 基于单片机的步进电动机的问题,在线给高分!!!!!!!!! 无法打开的文件 怎样判断某天所属的星期的星期一和星期天对应的日期分别是什么? 如何对DBEdit组件中输入的数进行类型检查??? 我的系统是2000 server,可是我在局域网的另一台机器上实现远程登陆 请大家谈谈.net java brew三种平台的优缺点。答者有分。 怎样判断某天所属的星期的星期一和星期天对应的日期分别是什么? 什么问题啊? 怎么样才能将开发手机游戏?? 调查:这里有没有程序员买有PDA的??比较高档的。比如康柏,sony等等 有2个程序有问题,请各位高手找出错误!先谢了! 奇怪,我的BLOWFISH加密算法每次使用同一个密钥加密同一个字符串的结果都不一样! 如何使PICTUREBOX中的底图能缩放,或者哪里有透明的容器控件?在线等。 如何判断鼠标离开了一个窗口的显示区 200分紧急求助! 明天(3月13日)是我一个朋友的生日,我们一起祝福他吧:) 请大家谈谈.net java brew三种平台的优缺点。答者有分。 急急急!!! 怎么配linux的dns服务阿? 有谁知道啊? 点击链接网页竟变成下载对话框,啥会事? title为什么显示不正常 哪里有VC.NET的电子书下载? 急!急!请解释一下 请高教~~建主页~~学校的 手表背后有ST.STEEL BACK WATER RESISTANT ,正面12点处有2颗钻石,写着LAVIE quartz 为什么2个完全相同的导体球接触后要把电荷量平均分配?这是人为规定的吗? 用什么样的灯可以拼字拼图案呢情人节想给女朋友一个惊喜,打算用灯来拼字拼图案,串灯太乱拼起来不好看,霓虹灯带又不能实现按顺序发光的目的,本人想找一个既可以拼字又可以按按顺序从 手表背后有ST.STEEL BACK WATER RESISTANT ,正面12点处有2颗钻石,写着LAVIE quartz 是瑞士表吗什么牌子 伏安特性曲线的实验外接,电阻分压.为什么刚开始 把滑动电阻开到最大,电压会是0?有没什么公式可以表示. 判断运输能力饱和的指标 手表背后有ST.STEEL BACK WATER RESISTANT ,正面12点处有2颗钻石,写着Accent QUARTZ,6点处有swiss move请问此表是什么品牌,价值多少? 接触起电是否只有两个导体外形大小完全一样才会使电荷平分 一个由N15标记的DNA分子,放在没有标记的环境中培养,复制3次后,N15标记的DNA分子占DNA分子总数的多少?复制时,不会把N15遗传给新的DNA吗? 我的也是 polo手表 后面是 water resistant st.steel back 23k gold plated japan quartz 1021L 带同种电荷的导体接触后电子会不会发上转移在线等啊,有几道题都有这个问题啊,有人说是不会,还有人说只有两个带同种(等量)电荷的(相同)小球相互接触,才一定不会发生电子转移.要 衡量人才素质领先的指标是什么? 萘系高效减水剂掺量0.9%'减水率为15%算是好的吗=-O,谁用过最小掺量达到15%的 明白的意思相近的词语是什么 衡量空调参数的两个指标是什么? 从B地返回A地的速度为V2,求A、B两地往返的平均速度.答案为2/(v1+v2)=2v1v2/(v1=v2).那么2/(v1+v2)如何理解? 勤奋努力不知疲倦 赤壁之战涉及哪些重要人物?还有哪些小说.诗词.戏曲涉及赤壁之战? 分式方程 从A地到B地是上坡路,上坡速度为V1,返回时速度为V2,则往返的平均速度是多少? 湮没是电荷消失吗 噬菌体浸染细菌实验 为什么要用P32和S35标记噬菌体?赫尔希 和 蔡司 的那个 间距相等的平行虚线为某电场的一组等势面,x轴垂直于等势面向右,一个带负电的粒子的荷质比为9x10^6C/kg,粒子从坐标原点以初速度v0=10^4m/s向x轴负方向运动,粒子所受重力不计,经过时间t=10^-5s 深思电工的墙壁开关怎么样? 为什么用S35标记噬菌体与细菌混合后离心的结果在上层清液中放射性含量高 在边长为a的正方形的两个对角上各放一电量相等的同性点电荷q,在另外两个对角中各放一个带电量相同的电量Q欲使作用在Q上的合力为0,求Q的大小!正确答案是-根号2q! expenses可数还是不可数?后面用are还是is?一定要确定有把握的答案啊! 在噬菌体浸染细菌实验中 如何获得含有 S35和P32标记的噬菌体 a、b为同一直线上的两点,在a点放有带电量为Q的正的点电荷,在b点放有电量为1×10^(-8)C的点电荷q,若测得q受的电场力为2×10^(-3)N,移去q后,b点的电场强度为____N/C,若ab=1m,则电荷Q=____C. 怎么区别costs与expenses ps拼长图跟朋友的聊天信息,我想截图下来,截了很多张,是手机截图,现在我想把它们拼成长图,去掉上下的东西只留下每张图片的中间文字,求指教 生活中如何回收利用废纸?快 expenses due问一下这个的中文是什么 和account payable有什么区别他们俩确实是以不同的类别出现在了liabilities里.... 怎么把很多小照片拼在同一张图上像这样.是用什么软件做的. 在点电荷Q形成的电场中有一点A当一个-q的检验电荷从电场无穷远处被移到电场中A点时.电场力做工为W.则检验电荷A点的电势能及电场中的A点的电势分别为?A点的电势能为什么是EA=-W?我不知道 米是植物中的哪个部分? 什么p图软件可以拼12张照片 为什么如果作用力是弹力,反作用力也是弹力? 植物分为几部分? 火烧赤壁的好词好句 不废纸回收再利用的危害 这是什么植物?它的直径在2米左右. 有关赤壁之战的诗词都有哪些? 点电荷Q产生的电场中有一A点现在在A点放上一电荷量为q=+2*10^-8C的试探电荷,它受到的静电力为7.2*10^8N,方向向左,则:(1)点电荷Q在电场强度大小为E1=( ),方向()(2)若在A点换上另一电 西藏海拔5000米以上还有植被吗 有关赤壁之战的诗词?急用.除了喔.快~急用咧~ 无论什么情况下,老师总是耐心细致地开导和教育我们,这正像杜甫笔下的诗句( )急啊,快 一个由15N标记的DNA分子放在没有标记的环境中复制五次后,有标记的DNA分子占没有标记的DNA分子的多少? 噬菌体侵染细菌实验中上清液和沉淀物分别是什么?为什么上清液放射性高而沉淀物放射性低? 带电导体与不带电导体接触为什么会带同种电荷 是不是任何正电荷受电场力方向都与场强方向重合若一条电场线为曲线,正电荷在某点,其切线方向为该店的场强方向,那电场力方向是不是也沿切线方向呢? 喝了含有亚硫酸钠的水会有什么反应 两个导体棒,一个带电,一个不带电,相互接触,用手触一下不带电的,为什么会产生与另一导体棒相反的电荷 噬菌体浸染细菌的试验说明什么?A 蛋白质是遗传物B DNA是遗传物C DNA是主要遗传物质D 蛋白质和DNA是遗传物 下列有关细胞的叙述,正确的是()A、病毒是一类具有细胞结构的生物B、蓝藻细胞具有细胞核且DNA分子呈环状C、人体所有细胞的细胞周期持续时间相同D、内质网膜和高尔基体膜都具有流动 人类是否能够移动质子、中子、电子?从而人工造出金银等贵重金属? 在进行噬菌体浸染细菌的实验中,上清液和沉淀里会有什么比如说噬菌体的DNA,蛋白质等是不是沉在下面的都是DNA啊 化学问题 关于铝制品5、 铝制品不宜长期放酸性食品和碱性食品是因为铝表面属于()A金属铝B碱性氧化物C酸性氧化物D两性氧化物 废1.5V干电池的电阻大概是多少新的1.5干电池电阻大概零点几欧到几欧,那么废干电池的电阻大概多少呢? 为什么噬菌体浸染细菌实验中,离心后 细菌在下,噬菌体外壳在上密度? 鼠字开头的成语接龙鼠字开头,中间十个成语,年字结尾 两名法国记者命丧马里 总统强烈谴责美报鼓吹钓鱼岛归日本 日本内顶外拉中美无人机干掉巴塔头目 巴怒斥其炸死和美妇人送儿子手机前“约法18章” 网古巴政府叫停私营影院 称“不是倒退”[实拍]中国新型“中华神盾舰”吊装导埃及前总统穆尔西出庭受审:从囚徒到总法两名记者在马里遇害 遗体遍布弹孔(美媒爆料日本系美监控对象 目的不仅限各国学校扎堆北京招生(图)俄罗斯严防“黑寡妇”袭击 确保冬奥会祭拜烈士墓 金正恩:“心疼得睡不着觉金正恩参谒牺牲烈士墓地 称心疼得睡不从奥巴马借助大数据成功连任说起美国一位妈妈送13岁儿子手机前“约法人民币升值,钱却为何越来越不值钱埃及审判穆尔西或将引发新的流血冲突俄罗斯:严防“黑寡妇”袭击 确保冬奥俄称斯诺登可去德国协助调查窃听事件泰国沉船事故致一中国人遇难 渡轮超载苏格兰首席部长访华 推动双方经贸合作[我财经]林耘:习近平入选《时代》榜高端提琴制作师协会梵婀玲琴会在京成立[我财经]林耘:中企加剧并购欧企 欲[我财经]林耘谈产业寒潮:春天是靠改央行:今年一季度金融机构贷款余额74南宁开通越南岘港航线 至东盟城市达1证监会:正推动起草中小投资者合法权益商标初步审查时限将为9个月山东近岸海域环保压力依然突出济南火车站预计“五一”假期发送旅客3昂嘎:三江源的康巴魂浙北高速交警发布小长假拥堵预报长篇报告文学《一号文件》:兼具学术意山西“8证公安局长”背后隐藏了什么秘天津:政府增加投资一千万元补贴支持公台军一架阿帕奇直升机坠毁 同机型全面小伙带iPhone外形打火机过安检 “寻找江苏最美法官”活动启动 要求为江苏普通高校武装部规范化建设会议召开江苏省内首单创投类企业债发行“武疯子”持刀行凶 民警智勇将其制服
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘