程序包头
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;