/*CREATE OR REPLACE PACKAGE pkg_query AS TYPE cur_query IS REF CURSOR;
END pkg_query;
CREATE OR REPLACE PACKAGE pkg_colmns_title AS TYPE cur_query_colmns_title IS REF CURSOR;
END pkg_colmns_title;*/
CREATE OR REPLACE PROCEDURE "PRO_QUERY_BY_EXCEL"(
p_tableName in varchar2, --表名
p_columns in varchar2,
p_columns_desc in varchar2,
p_strWhere 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,
v_cur_colmns out pkg_colmns_title.cur_query_colmns_title
) --返回的结果集
IS
v_sql VARCHAR2(10000) := ''; --sql语句
v_startRecord Number(4); --开始显示的记录条数
v_endRecord Number(4); --结束显示的记录条数
Col_c2 varchar(10000); --描述列
BEGIN
--记录中总记录条数
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 || ' AND '|| 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 := p_totalRecords / p_pageSize;
ELSE
p_totalPages := 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;
FOR cur IN (select regexp_substr(p_columns_desc,'[^,]+',1,level) as colum from dual connect by level<=length(p_columns_desc)-length(replace(p_columns_desc,','))+1)
LOOP
Col_c2 := Col_c2||''''||cur.colum||''',';
END LOOP;
Col_c2 := substr(Col_c2,0,length(Col_c2)-1);
Col_c2:= 'SELECT '||Col_c2||' FROM DUAL';
OPEN v_cur_colmns FOR Col_c2;---获取标题
DBMS_OUTPUT.put_line(Col_c2);
--实现分页查询
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_columns || ' FROM ' || p_tableName;
IF p_strWhere IS NOT NULL or p_strWhere <> '' THEN
v_sql := v_sql || ' WHERE 1=1 AND ' || p_strWhere;
END IF;
IF p_orderColumn IS NOT NULL or p_orderColumn <> '' 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 ;
-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
CREATE OR REPLACE PROCEDURE "PRO_QUERY_BY_EXCEL01"(
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,
v_cur_colmns out pkg_colmns_title.cur_query_colmns_title
) --返回的结果集
IS
v_tableName VARCHAR2(100):='result_tmp3 a, result_tmp b,result_tmp1 c';
v_strWhere varchar2(100):='a.Unit_Code = b.Unit_Code and b.Unit_Code = c.Sub_Unit_Code';
v_columns varchar2(100):='a.Paixu,za0011start_time, za0011end_time';
v_columns_desc varchar2(1000):='序号,za001开始时间,za0011结束时间';
v_orderStyle varchar2(4):='asc';
v_orderColumn varchar2(10):='paixu';
Col_c2 VARCHAR2(4000);
BEGIN
PRO_QUERY_BY_EXCEL(v_tableName,v_columns,v_columns_desc, v_strWhere,v_orderColumn,
v_orderStyle,p_curPage,p_pageSize,p_totalRecords,p_totalPages,v_cur,v_cur_colmns);
END ;