CREATE OR REPLACE PROCEDURE PROC6338196642095312503719(輸入新聞主題 Varchar2,輸入新聞內容 Varchar2,輸入發(fā)布時間 Varchar2,輸入當前頁碼 Number,輸入每頁行數(shù) Number,輸出當前頁碼 OUT Number,輸出總行行數(shù) OUT Number,輸出總頁頁數(shù) OUT Number,輸入是否下頁 Number,輸入新聞編號 Varchar2,RETURN_CURSOR OUT CUSTOMTYPE.MYRCTYPE)
--功能描述:
--編寫人:
--編寫日期:

--如果返回結果集，必須使用自定義游標Return_Cursor
IS --OR AS

--變量定義區(qū)

v_cPageCount integer; -- 要顯示的數(shù)據(jù)總行數(shù)
v_cPage integer; -- 要顯示數(shù)據(jù)的當前頁

BEGIN

--存儲過程主體
if 輸入新聞編號 is null then
begin
--- 輸出總行行數(shù)
select max(rownum) into 輸出總行行數(shù) from(
select * from xtnews where 1=1
and 輸入新聞主題 is null or (輸入新聞主題 is not null and V_XWZT like '%'||輸入新聞主題||'%')
and 輸入發(fā)布時間 is null or (輸入發(fā)布時間 is not null and D_FBSJ = to_date(輸入發(fā)布時間,'yyyy-mm-dd'))
)where 輸入新聞內容 is null or (輸入新聞內容 is not null and V_XWNR like '%'||輸入新聞內容||'%');

-- 輸出總頁頁數(shù)
select ceil(輸出總行行數(shù)/輸入每頁行數(shù)) into 輸出總頁頁數(shù) from dual;
exception when no_data_found then
null;
end;
-- 計算 輸入當前頁碼 要顯示的數(shù)據(jù)總行數(shù)
if 輸入當前頁碼 is not null then
-- xia一頁
if 輸入是否下頁 = 1 then
-- 計算 獲取數(shù)據(jù)的當前頁
v_cPage := (輸入當前頁碼 + 1);
-- 最后一頁
if v_cPage > 輸出總頁頁數(shù) then
v_cPage := 輸出總頁頁數(shù);
end if;
end if;
-- shang一頁
if 輸入是否下頁 = 0 then
-- 計算 獲取數(shù)據(jù)的當前頁
v_cPage := (輸入當前頁碼 - 1);
-- 最前一頁
if v_cPage = 0 then
v_cPage := 1;
end if;
end if;
-- 要顯示的數(shù)據(jù)總行數(shù)
v_cPageCount := v_cPage * 輸入每頁行數(shù);
end if;
end if;
-- 執(zhí)行查詢 獲取 要顯示的數(shù)據(jù)
begin
open return_cursor for
select nts.* from(
select nt.* from (
select rownum 序號,n.* from(
select * from(
select * from(
select
I_ID 新聞編號,
V_XWZT 新聞主題,
V_XWNR 新聞內容,
D_FBSJ 發(fā)布時間,
D_YXSJ 有效時間,
V_FBBM 發(fā)布部門
from xtnews
where 1=1 and 輸入新聞主題 is null or (輸入新聞主題 is not null and V_XWZT like '%'||輸入新聞主題||'%')
)where 輸入新聞內容 is null or (輸入新聞內容 is not null and 新聞內容 like '%'||輸入新聞內容||'%')
)where 輸入發(fā)布時間 is null or (輸入發(fā)布時間 is not null and 發(fā)布時間 = to_date(輸入發(fā)布時間,'yyyy-mm-dd'))
)n where 輸入新聞編號 is null or (輸入新聞編號 is not null and 新聞編號 = 輸入新聞編號)
order by rownum
)nt where nt.序號 <= v_cPageCount order by 序號 desc
)nts where nts.序號 > (v_cPageCount-輸入每頁行數(shù)) order by 序號;
exception when no_data_found then
null;
end;

-- 輸出最后計算的當前頁碼
if 輸入新聞編號 is null and v_cPage is not null then
輸出當前頁碼 := v_cPage;
end if;

END;

最新評論