程序包头

create or replace package PCK_Pager is

type T_Curor is ref Cursor;

Procedure GetRecordByPage

(

p_tableName        in  varchar2,   --表名

p_strWhere         in out  varchar2,   --查询条件

p_orderColumn      in  varchar2,   --排序的列(如：ID desc,Name asc)

p_curPage          in out  Number,  --当前页

p_pageSize         in out  Number,  --每页显示记录条数

p_fields           in  varchar2,   --要查询的列

p_totalRecords     out Number,     --总记录数

p_totalPages       out Number,     --总页数

v_cur              out T_Curor     --返回的结果集

);

end PCK_Pager;

程序包体：

create or replace package body PCK_Pager is

PROCEDURE GetRecordByPage

(p_tableName        in  varchar2,   --表名

p_strWhere         in out  varchar2,   --查询条件

p_orderColumn      in  varchar2,   --排序的列(如：ID desc,Name asc)

p_curPage          in out  Number,     --当前页

p_pageSize         in out  Number,     --每页显示记录条数

p_fields           in  varchar2,   --要查询的列

p_totalRecords     out Number,     --总记录数

p_totalPages       out Number,     --总页数

v_cur              out T_Curor)    --返回的结果集

IS

v_sql VARCHAR2(8000) := '';      --sql语句

v_startRecord Number(4);         --开始显示的记录条数

v_endRecord Number(4);           --结束显示的记录条数

BEGIN

-- 条件的转换

if instr(lower(trim(p_strWhere)),'and ') <> 1 then

p_strWhere := ' and ' || p_strWhere;

end if;

--记录中总记录条数

v_sql := 'SELECT TO_NUMBER(COUNT(*)) FROM ' || p_tableName || ' where (1=1) ';

IF p_strWhere IS NOT NULL or p_strWhere <> '' THEN

v_sql := v_sql || p_strWhere;

END IF;

EXECUTE IMMEDIATE v_sql INTO p_totalRecords;

--验证页面记录大小

IF p_pageSize < 0 THEN

p_pageSize := 0;

END IF;

--根据页大小计算总页数

IF MOD(p_totalRecords, p_pageSize) = 0 THEN

p_totalPages := trunc(p_totalRecords / p_pageSize);

ELSE

p_totalPages := trunc(p_totalRecords / p_pageSize) + 1;

END IF;

--验证页号

IF p_curPage < 1 THEN

p_curPage := 1;

END IF;

IF p_curPage > p_totalPages THEN

p_curPage := p_totalPages;

END IF;

--实现分页查询

v_startRecord := (p_curPage - 1) * p_pageSize + 1;

v_endRecord := p_curPage * p_pageSize;

v_sql := 'SELECT * FROM (SELECT A.*, rownum r FROM ' ||

'(SELECT '|| p_fields ||' FROM ' || p_tableName;

IF p_strWhere IS NOT NULL or p_strWhere <> '' THEN

v_sql := v_sql || ' WHERE (1=1) ' || p_strWhere;

END IF;

IF p_orderColumn IS NOT NULL or p_orderColumn <> '' THEN

if instr(lower(p_orderColumn),'order by ') = 0 then

v_sql := v_sql || ' order by ' || p_orderColumn || ' ';

else

v_sql := v_sql || ' ' || p_orderColumn || ' ';

end if;

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 GetRecordByPage;

end PCK_Pager;