【PB】动态报表格式自由定义的实现

在通常的Server/Client方式MIS开发中，总是有没完没了的报表需要制作，调试报表花费的时间也是最多而且乏味，还常常不能满足客户的要求。要是能够让用户自己调整报表的格式和内容，然后将它保存下来，程序下次启动时它自动调用保存了的报表格式那有多好。本人通过如下方法最终实现了用的要求。
PB（PowerBuilder）有一种以PSR结尾的特殊的保存报表的文件格式（本文简称作PSR文件）。根据数据窗口可以直接读取PSR文件生成报表的原理，程序通过生成PSR文件，实现动态报表格式的保存。

　　一、实现原理：

　　PB中的报表其实就相当于是数据窗口。

　　第一步，动态报表的实现。通过设置数据窗口对象（dataobject）中文本、列等的Resizeable和moveable属性为1来实现对象位置的拖动控制，通过数据窗口的Modify函数实现对象值的更改（包括增加和删除）。

　　第二步，报表格式的保存。在一个应用当中，数据窗口对象的名称总是唯一的，将每一个数据窗口对象转化成PSR文件存于数据库表中。在窗口打开时，程序先校验报表格式是否存在。如果存在，先将报表格式读取出来放在一个临时文件当中，然后设置数据窗口（datawindow）的数据对象(dataobject)为这个报表文件，然后提取数据；如果不存在，直接提取数据即可。

　　二、实现过程：

　　 1、建立一个数据库表用以保存报表格式文件。

表名：dyn_report
Dwobject	Varchar2(20)	数据窗口对象名称	Primary key
Rptitle	Varchar2(80)	报表的标题名称
Memo	Long raw	报表格式

　　 2、建立一个窗口w_temp。定义实例变量如下：

　　 string is_dwtype，is_dwobject //保存报表中对象的类型及名称

控件名称	控件含义
Dw_print	数据窗口对象
Cb_exit	退出按钮
Cb_savereport	报表格式保存按钮

　　
　　 3、在窗口的OPEN事件中加入如下代码, 校验报表格式是否存在，如果存在读取定义好的报表格式到数据窗口。

　　blob emp_pic
　　 long ll_handle
　　 string ls_dwobject,ls_reportfile,ls_path
　　 ls_dwobject = dw_print.dataobject
　　 //判断是否存在该数据窗口的报表格式
　　 select count(*) into:ll_count from dyn_report where dwobject =:ls_dwobject;
　　 if ll_count>0 then
　　　　 //读取报表格式文件到大文本变量
　　　　 selectblob memo into:emp_pic from dyn_report where dwobject =:ls_dwobject;
　　　　 //创建psr临时文件到硬盘
　　　　 ls_reportfile = '\temp7089.psr'
　　　　 ll_handle = FileOpen(is_reportfile,StreamMode!,write!,LockWrite!,Replace!)
　　　　 FileWrite(ll_handle,emp_pic)
　　　　 FileClose(ll_handle)
　　　　 dw_print.dataobject = ls_reportfile
　　　　 dw_print.settransobject(sqlca)
　　 else
　　　　 Dw_print.settransobject(sqlca)
　　 End if
　　 Dw_print.retrieve()
　　 4、报表格式的保存。通过Cb_savereport按钮的clicked实现。
　　 string ls_filename
　　 long ll_count
　　 blob Emp_id_pic
　　 ls_filename = "temp70201.psr"
　　 //保存报表格式到硬盘临时文件
　　 dw_print.saveas(ls_filename,PSReport! ,false)
　　 sqlca.autocommit = true
　　 select count(*) into :ll_count from dyn_report where dwobject =:is_dwobject;
　　 if ll_count =0 then
　　　　insert into dyn_report(dwobject,rptitle)
　　　　 values(:is_dwobject,:ls_filename,:ls_path);
　　 end if
　　 //从硬盘临时文件读取数据保存到数据库表中
　　 emp_id_pic = of_readbmpfile(ls_filename)//该函数将二进制文件内容读到大文本对象中
　　 //更新数据库
　　 UPDATEBLOB dyn_report SET memo = :Emp_id_pic where dwobject = :is_dwobject;
　　 sqlca.autocommit = false

　　5、动态报表的实现。通过数据窗口dw_print的clicked事件捕获数据窗口中对象，并将对象名存放在实现变量is_dwobject中，为下一步修改报表作准备。

　　 string ls_type,ls_dwoname
　　 //得到对象类型和名称
　　 ls_type = trim(upper(dwo.type))
　　 ls_dwoname = trim(dwo.name)
　　 is_dwtype = ls_type
　　 choose case ls_type
　　　　case "TEXT","CommandButton","GROUPBOX"
　　　　　　 is_dwobject = ls_dwoname
　　　　　　 //设置为可以拖动和改变大小，其它类同
　　　　　　 this.modify(ls_dwoname+".Resizeable='"+"1'")
　　　　　　 this.modify(ls_dwoname+".moveable="+"1")
　　　　 case "LINE" //直线对象不能通过设置Resizeable和moveable属性进行调整,必须通过其它路径
　　　　　　 is_dwobject = ls_dwoname
　　　　 case "RECTANGLE","ELLIPSE","GRAPH","BITMAP"
　　　　　　 is_dwobject = ls_dwoname
　　　　　　 this.modify(ls_dwoname+".Resizeable='"+"1'")
　　　　　　 this.modify(ls_dwoname+".moveable='"+"1'")
　　　　 case "COLUMN","COMPUTE"
　　　　　　 is_dwobject = ls_dwoname
　　　　　　 this.modify(ls_dwoname+".Resizeable='"+"1'")
　　　　　　 this.modify(ls_dwoname+".moveable='"+"1'")
　　 end choose

　　然后再通过modify()函数可以实现基本的动态报表操作，这一类的文章较多，PB中也有大量的例子可直接使用，在此这不再累述。

　　 6、在cb_exit按钮的clicked()事件中加入：close(parent)。

　　 7、在应用的open事件中加入: open(w_temp)。然后保存并运行，大功告成啦!

　　 8、本程序在PB7.0加Oracle8.05下调试通过。

【PB】动态报表格式自由定义的实现相关推荐

easyui 动态设置单元格控件_比Excel还简单，实现动态报表原来只需要十分钟！
做过报表的人,尤其是经常有报表需求的人,想必都会有这样一个困惑: 为什么同样是做报表,其他人的报表就能够得到领导的肯定,而自己的报表就会被老板丢掉一边? 这个问题其实很好回答,你想一想,如果你是老板, ...
报表被老板吐槽又多又丑？因为你没有掌握这些动态报表的技巧
昨晚大师兄和一个做报表的朋友喝酒的时候,朋友抱着我大声哭诉: 都是做报表的,为什么别人做出来的报表就能得到老板的肯定,而我幸幸苦苦加班熬夜做出来的报表老板连看都不看一眼!居然还吐槽我技术不过关,做出来 ...
用PB从ORACLE导出DBF文件,PB导出规定格式DBF文件
最近在做一个给卫计委做数据上报的数据接口,接口要求使用奇葩的dBase 3数据库存储上报数据,忙活了几天总算搞好了,使用开发工具为powerbuild 12,222个字段的上报数据表生成DBF文件,写 ...
火爆数据圈的数据分析工具，快速上手动态报表就是这么简单
在汇报工作的时候,老板为什么都爱看动态报表?因为动态报表能更直观的展现出数据变化结果,为决策带来更准确的支持. 报表动态可视化是指能够进行交互,不需要固定格式,可以根据业务的需求变化而变化的报表,同时 ...
使用FastReport 3.0及以上版本创建动态报表的几个技巧（转）
使用FastReport 3.0及以上版本创建动态报表的几个技巧 2007年07月03日星期二 09:18 2007年03月13日星期二 16:20 1.已经生成的报表保存到流中,再从流中取出 ...
Jasper Report 6.8 根据后台数据生成动态报表（JRXML文件实现）（三）JRXML文件生成过程（支持json,bean,map list数据源）
1.生成头信息及页面 protected Element createPageXmlFileRoot( ) {DftRptMaster dftRptMaster = rptInfo.getDftRpt ...
EBS 多sheet页Excel动态报表开发过程
摘自:EBS 多sheet页Excel动态报表开发过程_ITPUB博客前言本文讲述的多Sheet页EXCEL报表开发方式和开发HTML,PDF这类报表的方法大致是一致的,唯一不同的是该报表输出是一 ...
java sql编辑器动态报表数据库备份还原 quartz定时任务调度自定义表单 java图片爬虫...
A代码编辑器,在线模版编辑,仿开发工具编辑器,pdf在线预览,文件转换编码 B 集成代码生成器 [正反双向](单表.主表.明细表.树形表,快速开发利器)+快速表单构建器 freemaker模版技术 , ...
【得物技术】基于配置的通用化动态报表平台设计与使用
引言不会写代码的业务方不是好研发!报表作为一种供业务人员随时随地掌握业务情况必不可少的工具,在开发阶段往往存在种类繁杂.前后端开发繁琐等问题,开发一张报表可能需要几个工作日.如何提高报表的制作效率, ...
python读取gif图片并显示_Python爬虫实现获取动态gif格式搞笑图片的方法示例
本文实例讲述了python爬虫实现获取动态gif格式搞笑图片的方法.分享给大家供大家参考,具体如下: 有时候看到一些喜欢的动图,如果一个个取保存挺麻烦,有的网站还不支持右键保存,因此使用python来 ...

【PB】动态报表格式自由定义的实现

【PB】动态报表格式自由定义的实现相关推荐

最新文章

热门文章