在通常的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下调试通过。
分享到:
相关推荐
在通常的Server/Client方式MIS开发中,总是有没完没了的报表需要制作,调试报表花费的时间也是最多而且乏味,还常常...根据数据窗口可以直接读取PSR文件生成报表的原理,程序通过生成PSR文件,实现动态报表格式的保存。
具体来说,是通过生成 PSR 文件的方式来实现报表格式的保存。 #### 三、关键技术点 1. **PSR 文件的理解与生成:** - PSR 文件是一种特定于 PowerBuilder 的报表格式文件,可以存储报表的设计布局和样式信息。 -...
PB 动态报表的实现基于 PowerBuilder 的 PSR 文件格式,该文件格式可以保存报表的格式和内容。数据窗口对象可以直接读取 PSR 文件生成报表,而程序通过生成 PSR 文件,可以实现动态报表格式的保存。 首先,通过设置...
// 先把dw对象保存为PSR报表文件 dw_1.saveas(ls_filenam_e, PSReport!, false); // 从硬盘临时报表文件读取数据保存到数据库表中 sqlca.autocommit = true; ``` **第三步:读取报表格式文件** - 从数据库表`t_...
PSR (PowerBuilder Report) 文件是一种特定于 PowerBuilder 的报表文件格式,用于存储报表的布局信息。当需要创建动态报表时,通常会将预先设计好的报表模板保存为 PSR 文件。这样做的好处在于,可以在运行时读取...
通过这些文件,我们可以看出开发人员在构建这个报表阅览程序时,考虑到了用户体验、功能实现和测试验证的各个方面。用户在使用这个程序时,可以期待一个图形化、交互性强的界面,以及方便的数据操作和管理功能。同时...
小工具,有些交叉报表另存不方便,转成psr文件可以用小工具阅读,给大家参考
4. `temp-cond.psr`:与`temp-detail.psr`类似,这可能是一个包含报表条件设置或过滤逻辑的报表文件,用于根据用户输入动态调整报表内容。 5. `selfreport.pbw`:这是PowerBuilder工作区(Workspace)文件,保存了...
**PSR重构与PSR结构重构** ...总之,"PSR重构_psr_结构重构"是一个深入理解非线性时间序列动态的重要工具,通过这个压缩包提供的数据和代码,学习者可以亲手实践PSR方法,加深对非线性系统分析的理解。
通过以上步骤,我们可以在MATLAB环境中深入理解和实现SWIPT的TSR和PSR功能,同时也能够对AF放大协议在瑞利信道下的表现有直观的认识。这样的仿真研究对于优化无线通信系统的能源效率和信息传输性能具有重要意义。
ABB软启动器PSR25和PSR30系列是工业领域中用于电机起动的电子设备,这类设备通过逐渐增加电机电压的方式来减少电机起动时的电流冲击,从而保护电机和电网设备不受损害。从提供的文件内容中,我们可以提取以下技术...
netbeans-psr-formatting, PSR 1 & 2的NetBeans配置设置 用于NetBeans的 PSR自动格式库提供了 PHP PSR1 和 PSR2标准的源代码自动格式设置。尽管并不提供对所有和 PSR2'规则'的自动格式支持( 例如。 重构类和方法名...
综上所述,ABB PSR37和PSR45系列软启动器在设计上考虑了多种因素,旨在确保在不同工业应用中实现电机的平稳启动,同时保证操作安全和设备可靠性。软启动器提供了一系列可调参数,使得用户能够根据实际应用和负载特性...
【标题】: "Yamaha PSR3000.zip" 是一个包含有关Yamaha PSR-3000电子键盘的资源文件的压缩包...通过这个压缩包,用户不仅可以获取到PSR-3000的详细信息,还可以获得操作指导,提升使用体验,实现更多音乐创作的可能性。
在"mosse_psr.rar"压缩包中,可能包含的文件有实现MOSSE算法的源代码以及PSR(Probabilistic State Representation)的代码。PSR是一种概率状态表示法,通常用于增强MOSSE算法的跟踪性能,特别是在目标出现遮挡、...
### “一点接地”布局实现PSR电源设计的EMC设计技巧 #### 一、引言 电磁兼容性(EMC)对于任何电子设备都至关重要,特别是在电源设计领域。本文将详细介绍如何通过“一点接地”布局策略来优化PSR(Primary Side ...
这些型号可能代表了不同电流容量的设备,文件中提到了不同型号对应的电流值,如PSR60为110A、PSR72为125A、PSR85为150A、PSR105为200A。这些数值指的可能是软启动器能够安全控制的最大电流值。 文件内容还提到了...
PSR-120还具备CTCSS(连续语音编码静音系统)和DCS(数字编码静噪系统)功能,用户可以通过编程将特定的CTCSS/DCS编码存储至频道内存中。此外,收信机还支持优先监听、衰减器、延迟锁定、以及显示屏背光等功能。 ##...
主文件“PSR-3821103150.pdf”则是PSR-38的详细操作指南。它将详细介绍电子琴的物理布局,包括键盘、音色选择按钮、节奏控制、音效调整等。用户可以学习如何通过这些控制来创建丰富的音乐效果。例如,PSR-38可能有...