在Oracle中实现报表的定长输出
摘自：中国计算机报
|
郭华玲
Oracle＊Reports是Oracle的数据统计及图形化报表工具，它提供了六种风格的报表格式，而我们通常使用的只有其中的两种，即Tabular和Matrix，无论用哪种风格生成的报表，打印出的表格数都是动态变化的。其中Tabular风格的报表，列数固定，而行数不定；Matrix风格的报表，行数和列数均不定。那么在Oracle＊Reports中如何实现报表的定长与定宽输出呢？笔者在实际开发过程中对上述两种风格的报表各总结出一种行之有效的方法，供大家参考。
一、对于Tabular风格的报表，可用报表触发子After Parameter Form和After Report实现定长输出。其方法是：根据实际情况确定每页打印的行数，当最后一页的记录数少于每页打印的行数时，则用空记录补齐。在触发子After Parameter Form插入空记录，在触发子After Report中再将空记录删除，下面举例说明。
假设有一数据基表WZDM：存放物资代码信息，其数据结构为：
| 字段名 |
含义 |
长度 |
类型 |
| wzdm |
物资代码 |
9 |
c |
| wzmc |
物资名称 |
20 |
c |
| xhgg |
型号规格 |
20 |
c |
| jldw |
计量单位 |
6 |
c |
要求：按定长输出物资代码表，并且每页均输出x行(x可根据实际情况而定)。
1.启动Oracle＊Reports，建立物资代码打印报表(略)，然后在报表触发子After Parameter Form中加入以下代码：
Declare
v―jls number(2);
i number(2):=1;
Begin
Select Count(＊) Into V―jls From Wzdm;
If Mod(V―jls,x)〈〉0 Then
Loop
Exit When i〉=(x－mod(v―jls,x))＋1;
Insert Into Wzdm(Wzdm,Wzmc,Xhgg,Jldw)
Values(′′,′′,′′,′′);
i:=i＋1;
End Loop;
Commit;
End If;
End;
在报表触发子After Report中分别加入以下代码：
Begin
Delete From Wzdm Where Wzdm Is Null;
Commit;
End;
2.运行报表后即可输出定长的物资代码表。
说明：对于其它Tabular风格的报表，在编写上述两个触发子时只需将基表名与列名根据实际情况修改一下，并确定x的值即可。
二、对于Matrix风格的报表，可利用视图实现定长与定宽输出，其思路是：当行记录数和列记录少于实际报表的行数和列数时，均以空记录补齐。下面举例说明。
假设有一物资资金消耗去向统计月报，该表横向显示本期消耗去向，纵向显示物资类别，由于每月物资消耗去向和消耗物资均不定，所以此类报表即为一矩阵报表。该报表的数据存放在基表T―ZJXHQX中，其数据结构如下：
| 字段名 |
含义 |
长度 |
类型 |
| lbmc |
类别名称 |
20 |
c |
| dwmc |
单位名称 |
20 |
c |
| je |
金额 |
14，2 |
n |
要求：按定长定宽输出物资资金消耗去向统计月报，并且每页均输出x行y列(行数和列数可根据实际情况而定)。
1.首先建一基表T―kjl，用来存放空记录，其数据结构为：
建完该数据表后，再往其中插入记录，记录数可根据实际情况而定，一般为一页所能打印的最大行数，这里假设为z条，即No的值为1，2，3…z。
2.建视图，其过程如下：
Create View V―TJBB As
Select Dwmc,Lbmc,Je From T―zjxhqx
Union
Select Dwmc,Null,To―Number(Null) From T―zjxhqx,T―kjl
Where No－(z－x)〉(Select Mod(Count(Distinct Lbmc)－1,x)＋1 From T―zjxhqx)
Union
Select Null,Lbmc,To―Number(Null) From T―zjxhqx,T―kjl
Where No－(z－y)〉(Select Mod(Count(Distinct Dwmc)－1,y)＋1 From T―zjxhqx);
3. 启动Oracle＊Reports，建立矩阵报表查询时直接引用视图V―TJBB即可。这样运行时输出的报表每页都是x行y列，即实现了定长和定宽输出。
|
