--創建一個包，在包中定義一個 游標類型
create or replace package testfenyepackage as
type test_cursor is ref cursor ;
end testfenyepackage;


--編寫分頁的過程
create or replace procedure fenyeTest
(
tableName varchar2,--表名
pageSize number,--每頁顯示的數目
pageNow number,--當前的頁數
Outrows out number,--返回總記錄數
pagecount out number,--總頁數
p_cursor out testfenyepackage.test_cursor--返回的記錄集
)
as
--定義部分
--第一一個sql語句的字符串
v_sql varchar2(1000);
--定義分頁的開始結束的整數變量
v_begin number:=(pageNow-1)*pageSize+1;
v_end  number:=pageNow*pageSize;
begin
--執行部分
v_sql:='select * from (select t1.*, rownum rn from (select * from '||tableName||')t1
 where rownum<='||v_end||') where rn >='||v_begin;
--把游標和sql相關聯
open p_cursor for v_sql;
--計算Outrows  pagecount
--組織一個 sql語句
v_sql:='select count(*) from '||tableName;
--執行sql並把返回的結果賦值給Outrows
execute immediate v_sql into Outrows;
--計算頁數
if mod(Outrows,pageSize)=0 then
pagecount:=Outrows/pageSize;
else
pagecount:=Outrows/pageSize+1;
end if;
end;