Oracle reports中實現(xiàn)報表的定長
Oracle reports作為Oracle的數(shù)據(jù)統(tǒng)計以及圖形化報表的工具,其一共提供了六種不同風格的報表格式,但是我們經(jīng)常使用到的兩種,就是tabular與matrix,無論用哪種風格生成的報表,打印出的表格數(shù)都是動態(tài)變化的。其中tabular風格的報表,列數(shù)固定,而行數(shù)不定;matrix風格的報表,行數(shù)和列數(shù)均不定。
那么在Oracle reports中如何實現(xiàn)報表的定長與定寬輸出呢?筆者在實際開發(fā)過程中對上述兩種風格的報表各總結(jié)出一種行之有效的方法,供大家參考。
一、對于tabular風格的報表
可用報表觸發(fā)子after parameter form和after report實現(xiàn)定長輸出。其方法是:根據(jù)實際情況確定每頁打印的行數(shù),當最后一頁的記錄數(shù)少于每頁打印的行數(shù)時,則用空記錄補齊。在觸發(fā)子after parameter form插入空記錄,在觸發(fā)子after report中再將空記錄刪除,下面舉例說明。
假設(shè)有一數(shù)據(jù)基表wzdm:存放物資代碼信息,其數(shù)據(jù)結(jié)構(gòu)為:
字段名 含義 長度 類型
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ù)時,均以空記錄補齊。下面舉例說明。
假設(shè)有一物資資金消耗去向統(tǒng)計月報,該表橫向顯示本期消耗去向,縱向顯示物資類別,由于每月物資消耗去向和消耗物資均不定,所以此類報表即為一矩陣報表。該報表的數(shù)據(jù)存放在基表t—zjxhqx中,其數(shù)據(jù)結(jié)構(gòu)如下:
字段名 含義 長度 類型
lbmc 類別名稱 20 c
dwmc 單位名稱 20 c
je 金額 14,2 n
要求:按定長定寬輸出物資資金消耗去向統(tǒng)計月報,并且每頁均輸出x行y列(行數(shù)和列數(shù)可根據(jù)實際情況而定)。
1.首先建一基表t—kjl,用來存放空記錄,其數(shù)據(jù)結(jié)構(gòu)為:
字段名 含義 長度 類型
no 序號 2 n
建完該數(shù)據(jù)表后,再往其中插入記錄,記錄數(shù)可根據(jù)實際情況而定,一般為一頁所能打印的最大行數(shù),這里假設(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)了定長和定寬輸出。
【編輯推薦】