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

Delphi编制的程序运行中动态制作报表

HTML文档下载 WORD文档下载 PDF文档下载
Delphi编制的程序运行中动态制作报表

Delphi中的quickreport是挪威的QuSoft AS公司专门为Delphi设计的用于制作报表的组件,具有很强的访问数据库的能力。但是,从我个人的使用经验来看,这个组件的帮助写的不够详尽,例程也不多。因而一般编程人员都是在设计期间设计好报表的所有格式,并在运行时连上数据源(即delphi中的dataset)运行程序的。显然,这种方法不具备很强的灵活性。在这里我想向大家介绍一种在程序运行时如何动态制作报表的方法。

---- 首先,建立form1;unit1(调用窗体),其中放入button1:caption为‘预览’,用以查看报表,再加入label1:caption为‘报表标题’;edit1用以接收用户输入的标题。再建立form2(放置quickreport元件的窗体)

其中放入quickrep元件和三个qrband元件,其bandtype分别为rbTitle

rbColumnHeader

rbDetail.但其中无须放入qrlabel和qrdbtext元件,由程序中自动生成。再在form2;unit2中放入table1

table2。在databasename属性中填入数据库所在的Alias Name.在tablename中分别填入Goods

TableInformation.其中Goods中存放商品信息,可以设置以下字段:ID;Name;Unit;Price。TableInformation中的字段为TableName; FieldsName; DisplayName数据库中填入以下信息。

————————————————————————

Goods ID 商品编号

Goods Name 商品名称

Goods Price 商品单价

---- 好了,准备工作完成了一半,现在写入代码。在unit1的implementation下写入uses Unit2;在button1的click事件中写入以下代码:

begin

PreparePrint;

with Form2 do

begin

Preview;

Table1.Close;

Table2.Close;

end;

end;

在unit1中添加一个过程PreparePrint;

procedure TForm1.PreparePrint;

var LeftValue:integer;

aLabel : TQRLabel;

aText:TQRDBText;

begin

LeftValue:=100;

with Form2 do

begin

aLabel := TQRLabel.Create(Form2); '设置标题

aLabel.Parent := TitleBand1;

with aLabel do

begin

Width:=300;

Height:=TitleBand1.Height;

Alignment:=taCenter;

Caption := Edit1.Text;

end;

Table1.Open;

Table2.Open;

Table2.First;

while not Table2.EOF do

begin

aLabel := TQRLabel.Create(Form2);

’设置显示字段标题

aLabel.Parent := HeaderBand1;

with aLabel do

begin

AutoSize:=False;

AutoStretch:=True;

Left :=LeftValue;

Top := 0;

Width:=80;

Height:=HeaderBand1.Height;

Alignment:=taCenter;

Caption := ' '+table2.FieldbyName(

'DisplayName').AsString+' ';

end;

aText := TQRDBText.Create(Form2);

'设置显示字段内容

aText.Parent := DetailBand1;

with aText do

begin

AutoSize:=False;

AutoStretch:=True;

Height:=DetailBand1.Height;

DataSet:=Table1;

DataField:=Table2.FieldbyName(

'FieldsName').AsString;

Alignment:=taCenter;

end;

LeftValue:=LeftValue+80;

Table2.Next;

end;

end;

end;

---- 好了,运行程序可以看到报表预览的效果,显示了Goods中的ID

Name

Price。在运行时完全可以控制table1和table2中的数据内容。显示不同数据库的不同信息,改变table2中的记录顺序可改变报表中的显示顺序。而且,由于报表的各部分,甚至包括各band和system data均可在程序运行时依据上述方法动态生成。其属性也可动态设置。所以我们完全可以制作一个类似于Dephi中Form Wizard一样的报表精灵,还可提供一个灵活而且强大的打印设置功能。

---- 以上代码在delphi3中运行通过。

VB用ActiveX Control Pad VB用API函数改进ListView 控件的显示效果 用VB6.0中文版进行DHTML程序开发 用VB编写标准CGI程序 用VB编写留言板 用VB播放FLASH动画 用VB开发进程管理软件 VB用WinSock设计Chat程序 运用MSChart,生成统计图形-VB资料 向文本框等等控件的系统右键菜单里追加自己定义的菜单-VB资料 在VB中用定时控件实现长定时操作 在Visual Basic中,在GotFocus事件中快速选定文本 在程序中注册和注销 OCX 控件 -VB资料 在运行时维护DBGRID的栏位宽度-VB资料 VB怎样使用VB开发基于Sybase的C/S软件 VB怎样在运行时动态生成多个相同的控件 直接编辑VB中网格控制项的两种方法 自制控件方面的有关知识-VB资料 Unicode vs Ansi -VB资料 VB 中调用 Word 拼写检查 VB4.0安装程序的汉化 VB中对字符串的处理及其扩展 把符串中的一子串替换为另一子串 -VB资料 把数字转成英文字-VB资料 翻转一个字符串-VB资料 混合字符串的长度 -VB资料 将阿拉伯数字转成中文字的程式 -VB资料 将包含有Null结尾的字符串转换为VB字符串 切分字符串-VB资料 清除字符串中指定的字符 -VB资料 VB如何取得计算机的所有字型? 我的显示有问题,大家帮忙看一下好吗? 统计,大家都用哪里的php收费空间? 请教JTree中怎么任意设置TreeNode的图标? 在堆栈上分配结构与用new分配结构有何区别 是否可以对datareport中添加的控件编程呢 三层中数据返回的问题 在vb.net里有什么简便的办法可以处理所有控件的keydown消息? 菜鸟问题 在线等 Page.Response.Write("<img height=13 src='images\deleteTrue.gif' width=13 align=middle>");出错 我想买一款数码像机!!! 动态连接excel表的问题 用什么方法可以实现我计算的数字,只有两位小数,谢谢!! 知道26号放假!高兴!!放分!! 问个瓜问题 推荐几个好的编程论坛(中文的),不看的后悔呀!请不要移贴或删除! 关于脚本与代码的通信问题。。。 用WiseInstall作安装程序,怎么让可执行程序自动识别专用的文件,即点击专用文件即可用对应执行程序打开 在POWERDESIGN中将数据库设计倒入WORD报表的中文乱码问题 访问数据库时遇到的问题 如何把Excel的图表另存为图形文件?? 紧急求救!!(关于调用exe的问题) 关于动态删除记录的问题,大侠指点!!! 请问如何把用户上传的文件(所有)都保存在sql里面? 在POWERDESIGN中将数据库设计倒入WORD报表的中文乱码问题 时间设置 年关已到,谁有工作总结的模扳,给小弟发一份。 今天女朋友回家,放分,终于可以自由几天了,头一次放分,只有这么多了 生气!我真的很生气!现在的人怎么都这样? to shibichen(务必请近来一下) 在VC中怎么写关于猫的AT命令的程序?最好又程序。分数不过另外给 问一个傻傻的问题 帮帮忙,我送什莫礼物给女朋友好呢? 如何将选择出的内容存入文本文件??? Delphi中数据库操作Filter的原理,他和SQL语句查询输出的结果有什么不同? 在EXCEL中如何实现分两上SHEET打印!? 帮帮忙,我送什莫礼物给女朋友好呢? 几个linux下典型的应用问题,,高手新手都请进 ;-) 有关IE的奇怪问题 困扰很久的问题了:conn.execute为什么有是不能执行? 请问当一个页面中某个frame包含的网页不断重复刷新的时候怎么不让IE下面的刷新条滚动? 为什么局域网内看不到网站,而在广域网内却可以看到网站! 哪位用过这个控件的3DES,SHA1算法?我调不出来,急~~~~~:( delphi中类似于On Error GoTo的语句是什么 采用缓存模式的Dataset如何一次性进行所有行的数据合法性校验? 运行程序时如何交换数据窗口中的两列的位置呢? 两个sql语句一样只有条件不一样,如何取并集? 无法设置DatabaseName是为什么? 那位高手能给出创建弹出窗口的比较完善的例子(最好经过测试)? 在目前共享软件怎样才能获取美元?除了有自己的产品外,在营销中那些条件是必备的? 我有oracle考单两张1000元/张有需求请email给我 在POWERDESIGN中做的数据库设计倒入SQL中,能否保留住NAME栏的中文注释? 中石油通报四高层接受调查情况 免去其网购谁最容易被骗? 90后网购被骗比上海按“双送检”要求退订5批次问题校上海写字楼市场整体租金下滑 旧楼改造福建一男子阻止工地施工 4岁孙女被推江苏知名企业家吃教师空饷十多年 未教男女认识当天就结婚 新娘落跑男子4年10月起江苏8市汽车改喝“国五”油独家:尼泊尔印度教徒欢度克瑞斯那诞辰南京一医院调查:40%患者送急救才知南京亚青专用道已取消 公交专用道继续中石油通报王永春等四人违纪情况 强调南京新规定:想拆老字号必须先公示和听苏州居民满84周岁可享政府补助 9月习近平:不能什么“菜”都装进高新区的印度两幢民居倒塌致11人死亡30多人美纪念马丁 路德 金演讲50周年 隐中国海军和平方舟医院船抵达缅甸开展医东海舰队舰艇编队进入西太平洋展开训练联合国呼吁各方配合叙化武问题调查小组浙江教育厅将发减负通报 教师流动制度冬日女性美丽保养方法_冬日女性美丽保睡前养生护肤方法_睡前养生护肤技巧嘴馋瘦身两不误方法_嘴馋瘦身两不误技怀孕前要禁忌哪些习惯_怀孕要禁忌什么如何祛除暗黄肌肤_怎么祛除暗黄肌肤简单丰胸秘诀_简单丰胸技巧自然丰胸私家绝招_自然丰胸私家技巧如何让胸部富有弹性_怎么让胸部富有弹Sonia Rykiel 2016秋有氧减肥方法_有氧减肥技巧如何吃出瘦人体质_怎么吃出瘦人体质如何控制食欲燃烧脂肪_怎么控制食欲燃孕期哪些中药不能乱吃_孕妇不能吃的5OL简易瘦腹方法_OL简易瘦腹技巧简单易行的塑身运动_简单易行的塑身方女性吃啥容易变黑_吃什么可以美白皮肤胸肌训练方法_胸肌训练技巧如何丰胸_怎么丰胸怎样预防产前抑郁症淋病的传播途径有哪些紧急叫停首付贷,楼市背后有秘密?
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘