oracle：储存过程实现分页

CREATE OR REPLACE PACKAGE PKG_QUERY IS



  -- Author  : ADMINISTRATOR
  -- Created : 2016/12/8 星期四 10:28:37
  -- Purpose : 用做查询游标


  -- Public type declarations
  TYPE CUR_QUERY IS REF CURSOR;


END PKG_QUERY;




CREATE OR REPLACE PROCEDURE prc_query
       (p_tableName        in  varchar2,   --表名
        p_strWhere         in  varchar2,   --查询条件
        p_child_query      in  varchar2,   --子查询
        p_orderColumn      in  varchar2,   --排序的列
        p_orderStyle       in  varchar2,   --排序方式
        p_curPage          in out Number,  --当前页
        p_pageSize         in out Number,  --每页显示记录条数
        p_totalRecords     out Number,     --总记录数
        p_totalPages       out Number,     --总页数
        v_cur              out pkg_query.cur_query)   --返回的结果集
IS
   v_sql VARCHAR2(4000) := '';      --sql语句
   v_startRecord Number(7);         --开始显示的记录条数
   v_endRecord Number(7);           --结束显示的记录条数
BEGIN
   --记录中总记录条数
   v_sql := 'SELECT TO_NUMBER(COUNT(*)) FROM ' || p_tableName || ' WHERE 1=1';
   IF p_strWhere IS NOT NULL  THEN
       v_sql := v_sql || p_strWhere;
   END IF;
   dbms_output.put_line(v_sql);
   EXECUTE IMMEDIATE v_sql INTO p_totalRecords;
   p_totalPages := 0;
--   if p_totalRecords <> 0 then


     --验证页面记录大小
     IF p_pageSize < 0 THEN
         p_pageSize := 0;
     END IF;


     --根据页大小计算总页数
     IF MOD(p_totalRecords,p_pageSize) = 0 THEN
         p_totalPages := floor(p_totalRecords / p_pageSize);
     ELSE
         p_totalPages := floor(p_totalRecords / p_pageSize) + 1;
     END IF;






     --实现分页查询
     v_startRecord := (p_curPage - 1) * p_pageSize + 1;
     v_endRecord := p_curPage * p_pageSize;
     v_sql := 'SELECT b.*,' || p_child_query || ' FROM (SELECT A.*, rownum r FROM ' ||
              '(SELECT * FROM ' || p_tableName;
     IF p_strWhere IS NOT NULL  THEN
         v_sql := v_sql || ' WHERE 1=1 ' || p_strWhere;
     END IF;
     IF p_orderColumn IS NOT NULL THEN
         v_sql := v_sql || ' ORDER BY ' || p_orderColumn || ' ' || p_orderStyle;
     END IF;
     v_sql := v_sql || ') A WHERE rownum <= ' || v_endRecord || ') B WHERE r >= '
              || v_startRecord;
     DBMS_OUTPUT.put_line(v_sql);
     OPEN v_cur FOR v_sql;
--  end if;


END prc_query;