• 全部
  • API 调用
  • 基础类
  • 控件与界面
  • 数据库相关
  • DataWindow
  • 项目管理
  • Web 应用
  • 脚本语言

动态报表的设计思路?

byqwl 2003-01-24 11:14:39
哪位兄弟有动态报表设计的思路,请谈一谈
...全文
112 点赞 收藏 9
写回复
9 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
阿富888 2003-03-17
有没有发一点的方法呀
回复
aabb0281 2003-03-17
xuexi
回复
redfox33 2003-01-24
学习
回复
balloonman2002 2003-01-24
http://expert.csdn.net/Expert/topic/1354/1354852.xml?temp=.4866297

思路也很清楚,就是记录DW的SYNTAX,只是具体实现起来细心点即可;
回复
erigido 2003-01-24
学习
回复
ice2water 2003-01-24
PB动态报表的实现

◆ 廖海辉(crylhh@163.com)

在通常的管理信息系统开发过程中,总是有没完没了的报表需要制作,调试报表花费的时间也是最多而且乏味,还常常不能满足客户的要求。如果能够让用户自己调整报表的格式和内容,然后将它保存下来,程序下次启动时若能自动调用保存了的报表格式那就方便多了。

实现原理

PowerBuilder中有一种以PSR为后缀的特殊的保存报表的文件格式(本文简称PSR文件),数据窗口可以直接读取PSR文件生成报表,而程序通过生成PSR文件,就可以实现动态报表格式的保存。
首先,通过设置数据窗口对象(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
//读取报表格式文件到大文本变量
  select blob 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)。然后保存并运行,全部工作到此结束!

本程序在PB7.0、Oracle 8.05下调试通过。

回复
xyj88 2003-01-24
前几天在陶清网站上有动态报表的源代码下载,去看一看吧!
回复
xwmhn 2003-01-24
对,到网上的摆渡人工作室里有很多例子的~
回复
QQQPPP 2003-01-24
也可用第三方控件比较灵活,
到网上找在摆渡人那有好多的。
回复
发帖
PowerBuilder
创建于2007-09-28

849

社区成员

PowerBuilder 相关问题讨论
申请成为版主
帖子事件
创建了帖子
2003-01-24 11:14
社区公告
暂无公告