动态报表的实现与报表数据的组织(一)

进修社 人气:1.79W
动态报表的实现与报表数据的组织(一)

[摘要]本文介绍了一种实现复杂数据集合的灵活运算、储存、汇总、查询功能和数据的动态组合的简单方法,做到“使用一个软件,管理所有数据”,提高了工作效率,减少重复劳动
 
 1引言
 为了解决复杂数据集合的灵活运算、储存、汇总、查询功能,设计了一个数据管理软件,该软件可以管理多种报表,每种报表可含有多个机构,每个机构内可有多个数据集合。各种报表可以有自己独立的运算公式、平衡检查公式,以及错误提示信息。每种报表可以进行数据汇总、平均以及其它各种数学运算,等等。
 如果用户用Excel结合Access,可以满足上述功能,但缺点显而易见,就是使用复杂、数据不安全、维护不便。用PowerBuilder的动态SQL语句生成动态数据窗口,并结合专用的`数据库进行数据组织,可以方便地实现上述功能,下面将软件设计思路介绍如下。
 2.设计思路
 为了实现数据的动态组合,软件需要特设三张表,一张记录动态表的数据(记为Bbdata),一张记录动态表行的格式定义(记为Bbhdy),一张记录动态表列的格式定义(记为Bbldy),格式分别如下:
 1.Bbdata表(表1)
Agency Reportbm Bm Hs Ls Value 
100 2 2 1 2 1348895.00 
100 2 2 1 3 15740.00 
100 2 2 1 4 1326505.00 
100 2 2 1 5 23436.00 
100 2 2 1 6 2592.00 
 字段含义为:
 Agency:报表机构编码(例:假定分公司A为1,分公司B为2,等等)
 Reportbm:报表编码(例:资产负债表为1,损益表为2,等等)
 Bm:报表中数据集合编码(例:资产负债表1月份报表为1,2月份报表表为2,等等)
 Hs:数据在表中的具体位置所在行数
 Ls:数据在表中的具体位置所在列数
 Value:数据值
 2.Bbhdy表(表2)
Bbbm Hmc Hss Sfjsx 
3 固定资产 1 0 
3 累计资产 2 0 
3 工资支出 3 0 
3 合计支出 4 1 
 字段含义为:
 Bbbm:报表编码(与Bbdata表的Reportbm字段关联)
 Hmc:行项目名称
 Hss:行顺序(即:行在报表中的行序)
 Sfjsx:该行是否为计算性行,取值1或0(即:值由其它的行或者常数运算得出)
 3.Bbldy表(表3)
 
 字段含义为:
 Bbbm:报表编码(与Bbdata表的Reportbm字段关联)
 Lmc:列项目名称
 Llen:列宽度(即:报表中每列列的宽度)
 Lss:列顺序(即:列在报表中的列序)
 Sfjsx:该列是否为计算性列,取值1或0(即:值由其它的列或者常数运算得出)
 下列代码中的dw_1用于放置动态数据窗口,dw_2为Bbhdy数据库得出数据窗口,dw_3为Bbldy数据库得出数据窗口,dw_4为Bbdata数据库得出数据窗口,调入内存后,进行下列算法:
 integer i,j,hs,ls
 string model1,model2,a,a1
 decimal value
 model1=""
 model2=""
 a="'a' 项目,"
 for i=1 to  dw_ount()
 // dw_ount()为报表的实际列数
 model1="0.00 "
 a1=dw_[i,2]
 // dw_[i,2]为报表的列名称
  j=0
 do while j <= len(a1)
   j++
   if right(left(a1,j),1)=" " then
      a1=Replace(a1,1,j,trim(left(a1,j)))
      j=j - 1
   end if
  loop
   model2=model2+model1+a1+","
 next
 a=a+model2
 a=left(a,len(a) - 1)
 经过上述算法之后,字符串a最终变成动态SQL可辨析的串,上列表格所示的列项目会被组合为: 'a' 项目,0.00 第一季度,0.00 第二季度,0.00 第三季度,0.00 第四季度,0.00 全年合计,请有兴趣的读者自己验证。
 接着就可以利用动态SQL语句生成动态数据窗口对象:
 new_sql = "SELECT "+a+" from reportbm"
 // reportbm为报表编码表
 new_syntax=axFromSQL(new_sql,'Style(Type=grid)',error_syntaxfromSQL)
 dw_te(new_syntax, error_create)
 //根据SQL字符串创建动态数据窗口
 for i=1 to dw_ount()
 dw_rtrow(0)
 dw_[dw_ount(),1]=dw_[i,2]
 //根据行元素的多少在生成的数据窗口中插入行,并在第一列输入行项目
 next
 for i=1 to dw_ount()
  hs=dw_[i,4]
  ls=dw_ct

TAGS:报表