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

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

MS Office 开发工具VBA TextBox 中英文输入方法切换-VB资料 TXT文件的读取-VB资料 VB 如何将dbgrid印出来 VB5.0调用Office97技巧 VB5如何把帮助文件加到设计的程序内? VB编程步步高-打印篇(二) VB编程的好帮手资源文件 VB的OPEN对话框控件图示功能扩充 VB通用数据表格输出程序的设计 VB网格中输入数据 VB应用程序中打印条形码的两种方法 VB与Windows资源管理器互拷文件 VB中DOS文件名与长文件名的转换 VB中的Unicode 和 Ansi 格式 VB中如何实现文本查找功能 VB中自制文件搜索器 Windows 初始化文件的修改 -VB资料 Word 97与WPS97的完美结合 -VB资料 比较两个文件-VB资料 采用递归算法删除带有多级子目录的目录-VB资料 菜单项的动态装入 -VB资料 处理加了密码的MDB文件-VB资料 VB创建临时文件 从公共对话框控件中提取多个文件名称 -VB资料 从全路径名中提取文件名 -VB资料 打印MsChart之类的控件 -VB资料 谈谈在VB6.0中如何使用资源文件进行编程 动画图像分解在VB动画设计中的应用 多重文档界面设计方法-VB资料 恢复回收站中的文件 -VB资料 动态创建数据表 DLL问题 小仙妹,浪人支持你!!!!穷人不是错,人穷还不自卑就错了,,,,,,,,,,,,,, 我不明白了,ntfs格式的硬盘,一簇到底有多大? 无锡的朋友,提供一些信息吧(内详) 关于New和CreateObject的问题。(Windows Script Host Model) 20分请教关于考试答案区的设计 怎样才能隐藏在ctrl+atl+del中进程列表中的项目啊 关于Office的一个隐藏功能 请问有 ORACLE 的错误码 文档吗?倾我所有300分。 有 ORACLE 错误码文档吗? 谢谢大家! 请进来解决小弟的一个问题,谢谢 请问在对话框类里如何获得文档类的指针??? java开发工具的一些问题 如何知道一个子目录是否存在,如不存在,新建一个? 如何做activebar2.0控件 有关文件操作的问题 今日给分王 请问如何在一个CStatic控件中显示一个位图?很急的! 如何将image中的图转换成灰度图!!!然后如何转换成ascii字符画?急救! Apache_1.3.24,php-4.1.2,mysql3.2349a,环境RedHat7.2,make apache的时候出现error. 谁能告诉我这样把对话框的背景变成一个位图? icon to bmp的 代码???????????????? 图的表示问题 关于逻辑坐标和物理坐标问题的讨论 这是怎么了--winme 的工具栏没了,SOS SOS 请各位帮忙!!!! 烦请各位告诉我CBitmap和HBITMAP的区别及相互转换方法。多谢了 请问,当我将应用程序和我的指定文件类型相关联时候,我怎么才能指定该文件类型的图标。我试了将ResourceView中的ICON修改,可还是不行。 如何读AVI文件到缓冲区 今日我要把分全送人,我要隐退江湖了 关于关闭“进程”的问题???,help!!!!!!! 在家用SQL server7.0 做的數據庫backup文件怎麼不能在公司的機器上restore,急死我了!!! 关于MTS问题 给分王,我要功成隐退了 关于fdisk的使用出现意想不到的问题!!!!! 在公司做好的本地程序,和数据库,如何上传 有缘人,送分人,功成身退 誰有Java的在線网絡游戲,就象263,yahoo上那樣的. error C2664是怎么回事?十万火急!!! 我的编译器总出 LINK : fatal error LNK1104: cannot open file "Debug/Typer.exe" 是什么原因? 送分喽 vb中的问题!!!急 请问:fastreport的自定义变量如何与delphi变量进行互相传递!!! 请问各位高手关于局域网共享上网的设置问题。 basic 的数据结构问题 asp与xml 百分求维护经验 初级问题 求救:如何用fileup组件将一个文件同时存到两台机子的硬盘上! 有关netmeeting、AVPhone或其它做视频会议相关控件的使用方法。 a question about String Type!Please help me! 请问下有没有英语音标图的详细解释嗯.就是问下英语音标图啦.某只现在都已经是初三了.英语是会啦.但音标图都忘记了七七八八.主要是想了解一下一个单词的音标是怎样拼写出来的.- -a 我 某公司年经营收入为500万元,变动成本率万恶哦40%,经营杠杆系数1.5,财务杠杆系数2.如果固定成本增加50万元,求新的总杠杆系数. 风雨的比喻意义是什么还有风雷、风浪、风霜、风暴 陋室铭的意思?快来!全文.准确.真实.急死了!快 什么事杠杆系数 求“my mother”为题英语作文!要求:1,你母亲是个农村妇女,40多岁,没上过学,但懂得年轻人掌握知识的重要性,她很关心你的学习情况;2,你的母亲为了让你有的时间学习,总是竭尽全力来照顾你, 陋室铭的意思我急用 快 井然有序的意思是什么 能不能问下这个财富值有什么用啊? 《陋室铭》寓意如题,寓意是什么 求圆柱体积 1.一个圆柱底面积是20平方厘米 高5cm 求体积 2.一个圆柱的底面半径是2cn 高5cm 求体积3.一个圆柱底面直径是2cm 高5cm 求体积4.一个圆柱的底面周长是31.4cm 高5cm 求体积 陋室铭的意思是:每小段的意思是: 求《陋室铭》意思要最短的意思,高分悬赏 半径是12.5cm,高是137cm的圆柱体积是多少 陋室铭中之的意思 "绞缆"用英语怎么翻译 高中政治必修二文化生活:如何增强我国文化的国际影响力?什么时间给答案?急用 设备总功率270KW.距离150M.请问要用多大的地埋电缆? 英语翻译 井然有序的井字什么意思 总功率75KW左右,用95平方的铝芯地埋电缆够用吗,长度400米左右.如果用铜芯地埋电缆,需要什么规格比较合适? 把一个底面直径为10cm的圆锥体铅锤,完全放入底面半径为10cm的圆柱形水杯中,水面上升0.5cm.铅锤的高是多厘米? 与井然有序意思相近的词语有哪些 5万瓦的功率用多大铝蕊地埋电缆.能有三个回路?我算下来也就四万不到五万,但是安五万瓦的算了, 把一个底面直径为10cm的圆锥体铅锤,完全浸入底面半径为10cm的圆柱形水杯中,水面上升0.5cm,铅锤的高是多少厘米?谢谢 倾盆大雨 扶摇直上 井然有序 绚丽多彩的倾 摇 井 小圆柱的直径是8cm,大圆柱的直径是10cm,并且它的体积是小圆柱体积的2.5倍,则大圆柱的高是小圆柱高的多 圆锥形谷堆地面周长6.28m把底面直径10厘米的圆锥体铅锤放入地面半径为10cm的圆柱杯中水上升0.5cm铅锤高是 井然有序的意思,1 总功率110KW左右,用95平方的铝芯地埋电缆够用吗,长度50米左右 一个底面半径10cm,水里放着半径5cm的圆锥体,取出后水下降5cm.圆锥体高多少 一般多大男女心理和生理成熟 小圆柱的直径是8cm,高6cm,大圆柱的直径是10cm并且它的体积是小圆柱体体积的2.5倍,则圆柱的高是 我是文盲,最好是写下来,拍张上传啊!关于概率只要回答第二道就可以了 出自荀子《劝学》中的成语有哪些(至少四个 )从“君子曰:‘学不可以已.’”到“用心躁也”的选段除了“青出于蓝而胜于蓝”和“锲而不舍” 一个圆柱体高2cm直径10cm上面有一个圆锥体高8cm,求体积(下面是圆柱上面是圆锥)答案是366又三分之一 急 已知一圆锥的母线长为10CM,底面半径为5CM (1)求他的高(2)若该圆锥内有一球,球与圆锥的底面及所有母线都相切,求球的体积.第二问详细点. 急 好的我给50财富值五年一班的同学参加兴趣小组活动情况如下:占全班学生总数的几分之几:船模组:八分之三 小记者组:六分之一 象棋组:剩下的同学参加象棋组 参加象棋组的同学占 荀子劝学 第三段分层用三个成语概括积土成山,风雨兴焉;积水成渊,蛟龙生焉;积善成德,而神明自得,圣心备焉.故不积跬步,无以至千里;不积小流,无以成江海.骐骥一跃,不能十步;驽马十驾 已知一个圆锥形纸帽的底面半径为5cm,母线长为10cm,则该圆锥的侧面积为_ 一道关于概率的数学题(答对给50分)某抽奖活动一共有30个号码,抽奖者每次选5个号码.官方每次抽出5个作为中奖号码,全部猜中为一等奖,猜中四个为二等奖.而且5个号码不可能有重复的.请问 荀子的劝学中都有那些成语出现?君子曰:学不可以已.青,取之於蓝而青於蓝;冰,水为之而寒於水.木直 中绳,輮以为轮,其曲中规,虽有槁暴,不复挺者,輮使之然也.故木受绳 则直,金就砺则利,君 英语翻译BV 1.5mm2 450/750V 1/1.3MM CU/PVC中,1/1.3MM 是啥意思?单丝直径? 仿照“远看这些字,有如鸿鹄群游,迂回绵延;近看这些字,好像布阵排兵,井然有序.”写句子 ·中的成语及解释 荀子的不是孙权劝学里的 英语翻译S.S knitted wire mesh rolls (material:S.S 304)1.Medium fine meshNo.of stitches per cm on lengthNo.of stitches per cm across lay flat关于电缆的英文怎么翻译啊 一个圆柱的底面是4CM,高是5CM.这个圆柱比和它等底等高的圆柱的体积多( )%,圆锥的体积比它少( )%. 荀子的45条成语谁能找全啊 我急有20分钟内 一个圆锥和圆柱的高都是10CM,圆锥底面半径6CM,圆柱底面半径5CM,给圆锥灌满水,圆柱水深多少?给说出答案,和为什莫这样做. 有A B两个容器,把A倒满水,再倒入B中 B水有多高 圆柱高10cm半径4cm圆锥高10cm半径5cm 除不开用分数表示 井然有序的相对词是什么 把一个底面直径为10cm的圆锥体铅锤,完全放入底面半径为10cm的圆柱水杯中,水面上升0.5cm,圆锥高是多少? 1平方米的电缆线能承载多少电流量! 请高手将古文翻译成英文 友者,所以相有也.——战国•荀子《大略》 底面半径6cm高10cm.圆柱装水后倒一底面半径5cm的圆锥里,里面水多高?下面还有,追分100!底面半径10cm圆柱装水,把一个底面直径8cm高15cm的圆锥放入水里,水有多少升?3,圆柱底面半径4dm,高4.5dm熔圆锥 总杠杆系数的计算某公司去年营业收入为500万元,变动成本率为40%,经营杠杆系数为1.5,财务杠杆系数2,如果固定成本增加50万元,求总杠杆系数 英语翻译哪位好心人有《荀子》的英语翻译啊,江湖救急.帮吗看看这句怎么翻译“故有社稷者而不能爱民,不能利民,而求民之亲爱己,不可得也.民不亲不爱,而求为己用,为己死,不可得也.民不为 1,底面半径6cm高10cm.圆柱装水后倒一底面半径5cm的圆锥里,里面水多高?下面还有,追分100!2,底面半径10cm圆柱装水,把一个底面直径8cm高15cm的圆锥放入水里,水有多少升?3,圆柱底面半径4dm,高4.5dm熔 杠杆系数的含义具体答案 井然有序是什么意思
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘