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

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

轻轻松松在DELPHI3.0中实现三态按钮 全部窗体可使用鼠标移动-Delphi资料 让按钮连续工作--兼谈Delphi元件开发 让彩色光标出现在Delphi程序中 让彩色光标出现在程序中-Delphi资料 在Windows桌面的任务栏上有一个凹陷的区域,其中显示着系统时钟以及一些图标,这个长方形的区域便 如何使用Show方法来显示一个模态窗口-Delphi资料 如何旋转字体-Delphi资料 如何隐藏和显示Windows的任务条-Delphi资料 如何在DELPHI界面上运行可执行文件 设计Form时的快捷键-Delphi资料 生成非矩形窗口-Delphi资料 时隐时现的鼠标-Delphi资料 无标题窗口的移动-Delphi资料 应用程序敏感键的实现-Delphi资料 用Delphi 4.0 设 计 新 型 界 面 用Delphi 实 现 自定 义 颜 色 对 话 框 及 其 构 件 用Delphi 实现自定义颜色对话框及其构件 用Delphi4实现风Word97风格的工具栏 用Delphi 开 发windows 屏 幕 保 护 预 览 程 序 用Delphi设置墙纸 用DELPHI实现无边界窗体的移动 用Delphi实现自定义颜色对话框及其构件 用DEPHI 3.0实现动画ABOUT窗口-Delphi资料 用鼠标拖动无标题窗口-Delphi资料 在Delphi编程中创建一个启动闪现窗口 在form中想用enter来代替tab,请问如何实现?-Delphi资料 在Listboxes中加背景图-Delphi资料 在Window右下角的添加图标-Delphi资料 在程序中使用自定义的鼠标-Delphi资料 怎样建立简单的任务栏应用程序-Delphi资料 VC高手,怎样以编程的方法实现磁带机的Backup 和 Restore. enmity,进来,我给你结帐.共200分 支援白菜300分,支持白菜个人网站建设:))) CMM 的缩写是什么? 想和大家讨论一下怎样系统的编制软件 如何实现和Word、CorelDRAW同样效果缩放位图 请问各位大哥大爷大妈大。。。。。。。。。。。。。哪里有支持 ASP 的服务器软件下载 我该如何控制IP地址??高手请进。。。 弱弱地问:关于SQL server中的中括号。 各位侠客帮忙啊,重新装系统出了问题!! 一点点小问题????? 请问在 WINDOWS98 下面,除了IIS,还有没有支持 PHP 的服务器软件呢? 在ADO中如何获取表名 关于ASN树的问题(snmp中的MIB的拓扑树) 你是高手你进来!!!!! 各位的顶级域名都在哪申请?价格/速度如何?大家都来说说! DirectX8的MultiFileReader过滤器怎么找不到? 关于用VB显示ado数据库中的图像字段问题 大家来谈谈Msdn如何有效利用 请各位帮忙查看我这段程序错在哪里 , 我是照书上做的 , 可就是无法保存. SQL plus 为何无法登录?? 谁要下载msdn? 紧急求救!寻找工作! 最新新消息~~~~~~~台灣地區中午地震最大震度花蓮市5級 有没有大连的公司要俺? 请教大家!!!java如何实现多重继承?接口该如何使用?份数可以再加,只要我明白了 怎样以编程的方法实现磁带机的Backup. 愿者请进,请各位留下自己的QQ或E-mail,以后大家可以多多交流!!! solaris unix8 的一个问题 asp是用什么软件的阿?我用了interdev,可是开始新建项目时就不行,叫你输入serve时,总是不对?应该输什么啊? 关于字符集 哪里有好的LAN管理软件??? 一个去美国的机会,保签(替朋友贴的,信誉没问题) 打印没有输出? 动态分配内存 因为本人准备过一段时间出去找软件开发工作,本人手头有一张高级程序员资格证书,但没有本科学历请问?? delphi6.0中 data access中怎么没有ttable 和tquery部件了, 该怎么办? 在w2k 下多用户的自动登录。。请指教? SubclassWindow的问题,急,多谢!!!! 高分求购高程经验 一个留学美国的机会,保签 本人手头只有一张高级程序员资格证书,但没有本科学历请问?? 请问如何制作多表头报表,有什么好的VCL吗? 关于水货手机的问题 Is there very large defferent between VB and delphi? Wise INSTALL 安装 DELPHI 出现了问题? 怎么能得到系统中所有窗体(包括其他应用程序打开的窗体)的句柄 bmp图像 网络是泡沫 网络文学是垃圾!! 请教WIN2000下协议绑定的问题 VC++ 中,如何更改TAB控件的每个页签的标题? 饮水机上的水,热水温度最高能达到多少度?另外喝自来水加热过的水好还是喝饮水机上的热水好? 长期饮用纯净水有利健康吗? 什么洗衣液能杀死白色念珠菌 饮水机桶中的水会不会和烧开的热水混合?如果把自来水灌进桶里,当做饮用水好不好? 饮用纯净水和自来水相比哪个对身体好 最近两次性生活后,男朋友说有搔痒,小白点,他今天去查了是龟头炎,白色念珠菌感染,而我没什么症状,白带常规检查霉菌滴虫上皮细胞白细胞都未发现,就是清洁度为3.我想问一下,有没有可能我 饮水机的水是烧开的吗?有没有到100度?我想用自来水放到桶里来用不知行不行. 家庭过滤饮用的纯净水哪种对健康比较好?现在市场上提供的家庭用过滤饮用水装置有多种类型,价格从几百到几千不等.有的用反渗透膜把水过滤得除了H2O之外,几乎没有别的东西.有的(不用 得了白色念珠菌,怎么办前个月的大姨妈3号来,上个月是5号凌晨现在已经11号了,还没来(这段时间经常跑步打球,偶尔啤酒,一般这样的情况会提前来的),这两天小腿肚发酸,像是抽筋过,更糟糕, 我们家自来水烧开后特别难喝,现在每天喝饮水机过滤的水,长期喝有好处还是坏处阿?饮水机过滤的东西是碳粒我家水壶是不锈钢的,很干净的!没有水垢,自来水里应该不含碱(烧开的水没碱,没 长期饮用纯净水对身体好吗 用一副三角尺,分别画出15°,75°,150°,165°的角请问是多少呢? 现在那些饮水机的水被反复反复的烧开,喝了这对身体有什么影响?据说烧开5分钟还是10分钟之后的水就不宜喝的了具休是几分钟啊?忘记了 末端直饮机出来的水是纯水还是矿物质水?直接饮用对健康有益吗?纯水是不能饮用的吧? 用一副三角尺怎么画出165度 饮水机是过滤的,现在不想用过滤桶,能用桶装水吗 桶装水和烧的自来水哪一个对身体健康更有利? 用三角尺画出165度的角怎么画? 过滤饮水机用自来水过滤可以吗不要复制``我想买一个过滤饮水机``就是桶上有过滤东西的`自来水直接倒进去能喝吗? 喝烧开的水是不是比纯净水对身体好呢?> 用一副三角板怎么画成165度的角 生活中的黄金分割比,快一点,一定要写出比. 请问饮水机是买桶装水的好还是自来水过滤的好? 烧开的纯净水与没烧过的纯净水,混在一起喝, 能举例告诉我黄金分割广泛应用于生活用品的例子吗 美的的饮水机过滤器过滤之后水里有自来水味道? 喝烧开的自来水好 还是喝桶 装的纯净水好 【】“黄金分割”在生活中的例子?【】如题 美的饮水机过滤后的水直接饮用还有自来水的味道,能直接喝吗?新买的美的饮水机,带陶瓷加活性碳过滤的,过滤后的水还是有自来水的味道,可以直接饮用吗? 纯净水可以烧开喝嘛 我们喝什么水健康烧开的自来水致癌 婴幼儿喝桶装水好,还是自来水好? 在水处理中,超滤能除去水中的细菌病毒吗,超滤产水可以钦用吧我们公司用的就是超滤产水用作钦用水,但水质不得而知,最为严重的是喝这水有一种味道,有种土腥味,大家都不知道到底能不能 水二次烧开喝,对身体健康有影响吗?二次烧开的水是什么味道?蒸馏水一样的无味吗? 城市居民一般喝什么水,烧开的自来水,还是桶装水,还是买的矿泉水 自来水中细菌病毒含量多吗?加热煮沸能除去水中多少的细菌病毒? 如何饮水更健康? 专家:自来水烧开喝安全 喝什么水好呀?是烧开的自来水还是桶装水呢? 〓合格的糖果.饼干包装能抵挡细菌病毒吗?放在水中会入水吗 自来水烧开就是安全的饮用水吗? 桶装水健康还是家用电壶烧开的自来水好? 水可以冲走细菌和病毒吗如果只用清水洗碗,可以冲洗掉细菌和病毒吗?比如大肠肝菌和流感病毒,如果家里有人得了流感,那用过的碗单独用清水冲几分钟能去掉流感病毒吗 饮水机的水反复烧开能喝吗? 武汉的自来水和桶装水哪个更健康?(自来水有味道) 100度高温是不是可以杀灭所有的病毒和细菌? 自来水安全吗?烧开就可以喝了吗? 喝桶装水好还是自来水更好? 白开水可以放多长时间 饮水机一般把水烧到几度? 喝自来水好还是桶装水好 白开水放多久就不能喝了,为什么?不是还说放一天后的开水治便泌吗,又是为什么?两个是不是矛盾呢? 饮水机里面的水一定需要烧开了才能喝吗? 用自来水烧水好还是用桶装水烧好? 煮过的白开水可以存放多久? 饮水机喝的水是用自来水烧的,红的一边是开水,蓝的一边接的水可以喝吗?拜托了各位 谢谢 自来水烧开了和桶装水有区别吗? 白色念珠菌感染怎么治疗?高危10天后发现自己大腿出现丘疹..出现疼痒..拖延了3个多月才到医院检查医生没问病情直接做血常规检测.和涂片.后来说是白色念珠菌感染..请问下..做血常规检测 饮水机放自来水饮用对身体有害吗? 喝桶装水好还是自来水烧开好 100度的开水能杀死所有的细菌吗
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn