程序師世界是廣大編程愛好者互助、分享、學習的平台,程序師世界有你更精彩!
首頁
編程語言
C語言|JAVA編程
Python編程
網頁編程
ASP編程|PHP編程
JSP編程
數據庫知識
MYSQL數據庫|SqlServer數據庫
Oracle數據庫|DB2數據庫
 程式師世界 >> 數據庫知識 >> Oracle數據庫 >> Oracle數據庫基礎 >> Oracle reports功不可沒,實現報表定長輸出

Oracle reports功不可沒,實現報表定長輸出

編輯:Oracle數據庫基礎

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

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

一、對於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中加入以下代碼:

  1. declare  
  2. v—jls number(2);  
  3. i number(2):=1;  
  4. begin  
  5. select count() into v—jls from wzdm;  
  6. if mod(v—jls,x)〈〉0 then  
  7. loop  
  8. exit when i〉=(x-mod(v—jls,x))+1;  
  9. insert into wzdm(wzdm,wzmc,xhgg,jldw)  
  10. values(′′,′′,′′,′′);  
  11. ii:=i+1;  
  12. end loop;  
  13. commit;  
  14. end if;  
  15. end;  

在報表觸發子after report中分別加入以下代碼: 

  1. begin  
  2. delete from wzdm where wzdm is null;  
  3. commit;  
  4. end;  

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

說明:對於其它tabular風格的報表,在編寫上述兩個觸發子時只需將基表名與列名根據實際情況修改一下,並確定x的值即可。

二、對於matrix風格的報表,可利用視圖實現定長與定寬輸出,其思路是:當行記錄數和列記錄少於實際報表的行數和列數時,均以空記錄補齊。

下面舉例說明。

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

字段名 含義 長度 類型

lbmc 類別名稱 20 c

dwmc 單位名稱 20 c

je 金額 14,2 n

要求:按定長定寬輸出物資資金消耗去向統計月報,並且每頁均輸出x行y列(行數和列數可根據實際情況而定)。

1.首先建一基表t—kjl,用來存放空記錄,其數據結構為:

字段名 含義 長度 類型

no 序號 2 n

建完該數據表後,再往其中插入記錄,記錄數可根據實際情況而定,一般為一頁所能打印的最大行數,這裡假設為z條,即no的值為1,2,3…z。

2.建視圖,其過程如下:

  1. create vIEw v—tjbb as  
  2. select dwmc,lbmc,je from t—zjxhqx  
  3. union  
  4. select dwmc,null,to—number(null) from t—zjxhqx,t—kjl  
  5. where no-(z-x)〉(select mod(count(distinct lbmc)-1,x)+1 from t—zjxhqx)  
  6. union  
  7. select null,lbmc,to—number(null) from t—zjxhqx,t—kjl  
  8. where no-(z-y)〉(select mod(count(distinct dwmc)-1,y)+1 from t—zjxhqx);  

3. 啟動Oracle reports,建立矩陣報表查詢時直接引用視圖v—tjbb即可。這樣運行時輸出的報表每頁都是x行y列,即實現了定長和定寬輸出。

  1. 上一頁:
  2. 下一頁:
Copyright © 程式師世界 All Rights Reserved