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

[摘要]本文介绍了一种实现复杂数据集合的灵活运算、储存、汇总、查询功能和数据的动态组合的简单方法，做到“使用一个软件，管理所有数据”，提高了工作效率，减少重复劳动。
 
 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，等等） （转载自http://zw.nseac.coM科教作文网）
 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_3.rowcount()
 // dw_3.rowcount()为报表的实际列数
 model1="0.00 "
 a1=dw_3.object.data[i,2]
 // dw_3.object.data[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=sqltrans.SyntaxFromSQL(new_sql,'Style(Type=grid)',error_syntaxfromSQL)
 dw_1.Create(new_syntax, error_create)
 //根据SQL字符串创建动态数据窗口
 for i=1 to dw_2.rowcount()
 dw_1.insertrow(0)
 dw_1.object.data[dw_1.rowcount(),1]=dw_2.object.data[i,2]
 //根据行元素的多少在生成的数据窗口中插入行，并在第一列输入行项目
 next
 for i=1 to dw_4.rowcount()
  hs=dw_4.object.data[i,4]
  ls=dw_4.object