PB动态报表格式自由定义的实现
时间:2007-12-23 来源:不详 作者:迈克DB
PB(PowerBuilder)有一种以PSR结尾的非凡的保存报表的文件格式(本文简称作PSR文件)。根据数据窗口可以直接读取PSR文件生成报表的原理,程序通过生成PSR文件,实现动态报表格式的保存。
一、实现原理:
PB中的报表其实就相当于是数据窗口。
第一步,动态报表的实现。通过设置数据窗口对象(dataobject)中文本、列等的Resizeable和moveable属性为1来实现对象位置的拖动控制,通过数据窗口的Modify函数实现对象值的更改(包括增加和删除)。
第二步,报表格式的保存。在一个应用当中,数据窗口对象的名称总是唯一的,将每一个数据窗口对象转化成PSR文件存于数据库表中。在窗口打开时,程序先校验报表格式是否存在。假如存在,先将报表格式读取出来放在一个临时文件当中,然后设置数据窗口(datawindow)的数据对象(dataobject)为这个报表文件,然后提取数据;假如不存在,直接提取数据即可。 织梦内容管理系统
二、实现过程:
1、建立一个数据库表用以保存报表格式文件。
表名:dyn_report
DwobjectVarchar2(20)数据窗口对象名称Primarykey
RptitleVarchar2(80)报表的标题名称
MemoLongraw报表格式
2、建立一个窗口w_temp。定义实例变量如下:
stringis_dwtype,is_dwobject//保存报表中对象的类型及名称
控件名称控件含义
Dw_print数据窗口对象
Cb_exit退出按钮
Cb_savereport报表格式保存按钮
3、在窗口的OPEN事件中加入如下代码,校验报表格式是否存在,假如存在读取定义好的报表格式到数据窗口。
blobemp_pic
longll_handle
stringls_dwobject,ls_reportfile,ls_path
ls_dwobject=dw_print.dataobject
//判定是否存在该数据窗口的报表格式
selectcount(*)into:ll_countfromdyn_reportwheredwobject=:ls_dwobject;
ifll_count>0then
//读取报表格式文件到大文本变量
selectblobmemointo:emp_picfromdyn_reportwheredwobject=: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)
Endif
Dw_print.retrieve()
4、报表格式的保存。通过Cb_savereport按钮的clicked实现。
stringls_filename
longll_count
blobEmp_id_pic
ls_filename="temp70201.psr"
//保存报表格式到硬盘临时文件
dw_print.saveas(ls_filename,PSReport!,false)
sqlca.autocommit=true
selectcount(*)into:ll_countfromdyn_reportwheredwobject=:is_dwobject;
ifll_count=0then
insertintodyn_report(dwobject,rptitle)
values(:is_dwobject,:ls_filename,:ls_path);
endif
//从硬盘临时文件读取数据保存到数据库表中
emp_id_pic=of_readbmpfile(ls_filename)//该函数将二进制文件内容读到大文本对象中
上一篇:SQLServer实用技巧 下一篇:创建表时考虑列的顺序
文章评论
共有位Admini5网友发表了评论 查看完整内容