我們大家都知道在Oracle中實現(xiàn)相關報表的定長輸出,首先我們要接觸到Oracle reports，它是Oracle的相關的數(shù)據(jù)統(tǒng)計以及相關圖形化報表的使用工具，它的主要功能是提供六種風格的報表格式。

而我們通常使用的只有其中的兩種，即tabular和matrix，無論用哪種風格生成的報表，打印出的表格數(shù)都是動態(tài)變化的。其中tabular風格的報表，列數(shù)固定，而行數(shù)不定；matrix風格的報表，行數(shù)和列數(shù)均不定。那么在Oraclereports中如何Oracle實現(xiàn)報表的定長與定寬輸出呢？筆者在實際開發(fā)過程中對上述兩種風格的報表各總結出一種行之有效的方法，供大家參考。

一、對于tabular風格的報表，可用報表觸發(fā)子after parameter form和after report實現(xiàn)定長輸出。

其方法是：根據(jù)實際情況確定每頁打印的行數(shù)，當最后一頁的記錄數(shù)少于每頁打印的行數(shù)時，則用空記錄補齊。在觸發(fā)子after parameter form插入空記錄，在觸發(fā)子after report中再將空記錄刪除，下面舉例說明。

假設有一數(shù)據(jù)基表wzdm：存放物資代碼信息，其數(shù)據(jù)結構為：

字段名 含義 長度 類型

wzdm 物資代碼 9 c

wzmc 物資名稱 20 c

xhgg 型號規(guī)格 20 c

jldw 計量單位 6 c

要求：按定長輸出物資代碼表，并且每頁均輸出x行(x可根據(jù)實際情況而定)。

1.啟動Oracle reports，建立物資代碼打印報表(略)，然后在報表觸發(fā)子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(′′,′′,′′,′′);  
ii:=i＋1;  
end loop;  
commit;  
end if;  
end;  

在報表觸發(fā)子after report中分別加入以下代碼： 

begin  
delete from wzdm where wzdm is null;  
commit;  
end;  

2.運行報表后即可輸出定長的物資代碼表。

說明：對于其它tabular風格的報表，在編寫上述兩個觸發(fā)子時只需將基表名與列名根據(jù)實際情況修改一下，并確定x的值即可。

二、對于matrix風格的報表，可利用視圖實現(xiàn)定長與定寬輸出，其思路是：當行記錄數(shù)和列記錄少于實際報表的行數(shù)和列數(shù)時，均以空記錄補齊。

下面舉例說明。

假設有一物資資金消耗去向統(tǒng)計月報，該表橫向顯示本期消耗去向，縱向顯示物資類別，由于每月物資消耗去向和消耗物資均不定，所以此類報表即為一矩陣報表。該報表的數(shù)據(jù)存放在基表t—zjxhqx中，其數(shù)據(jù)結構如下：

字段名 含義 長度 類型

lbmc 類別名稱 20 c

dwmc 單位名稱 20 c

je 金額 14，2 n

要求：按定長定寬輸出物資資金消耗去向統(tǒng)計月報，并且每頁均輸出x行y列(行數(shù)和列數(shù)可根據(jù)實際情況而定)。

1.首先建一基表t—kjl，用來存放空記錄，其數(shù)據(jù)結構為：

字段名 含義 長度 類型

no 序號 2 n

建完該數(shù)據(jù)表后，再往其中插入記錄，記錄數(shù)可根據(jù)實際情況而定，一般為一頁所能打印的最大行數(shù)，這里假設為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列，即實現(xiàn)了定長和定寬輸出。

【編輯推薦】

1. Oracle性能優(yōu)化五大工具介紹
2. Oracle版本的區(qū)別有那些
3. Oracle 數(shù)據(jù)庫的各種不同版本的差別
4. Oracle 外鍵的相關約束中級聯(lián)刪除的方案
5. Oracle用戶的相關授權和管理的分析