Oracle 存储过程分页 适应FlexiGrid

CREATE OR REPLACE PACKAGE pkg_page
AS
   TYPE cur_page IS REF CURSOR;

   PROCEDURE proc_page (p_tableName      IN     varchar2,               --表名
                        p_strColumns     IN     varchar2,         --查询的字段
                        p_strWhere       IN     varchar2,           --查询条件
                        p_strOrder       IN     varchar2,               --排序
                        p_pageIndex      IN OUT Number,               --索引页
                        p_pageSize       IN OUT Number,     --每页显示记录条数
                        p_totalRecords      OUT Number,             --总记录数
                        p_totalPages        OUT Number,               --总页数
                        cur_ret             OUT pkg_page.cur_page); --返回的结果集
END pkg_page;

CREATE OR REPLACE PACKAGE BODY pkg_page
AS
   PROCEDURE proc_page (p_tableName      IN     varchar2,               --表名
                        p_strColumns     IN     varchar2,         --查询的字段
                        p_strWhere       IN     varchar2,           --查询条件
                        p_strOrder       IN     varchar2,               --排序
                        p_pageIndex      IN OUT Number,               --索引页
                        p_pageSize       IN OUT Number,     --每页显示记录条数
                        p_totalRecords      OUT Number,             --总记录数
                        p_totalPages        OUT Number,               --总页数
                        cur_ret             OUT pkg_page.cur_page) --返回的结果集
   IS
      v_sql           VARCHAR2 (4000) := '';                         --sql语句
      v_startRecord   Number (10);                        --开始显示的记录条数
      v_endRecord     Number (10);                        --结束显示的记录条数
   BEGIN
      --记录中总记录条数
      v_sql := 'SELECT COUNT(rownum) 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 := 20;
      END IF;

      --根据页大小计算总页数[Page]
      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_pageIndex < 1
      THEN
         p_pageIndex := 1;
      END IF;

      IF p_pageIndex > p_totalPages
      THEN
         p_pageIndex := p_totalPages;
      END IF;

      --实现分页查询
      v_startRecord := (p_pageIndex - 1) * p_pageSize + 1;
      v_endRecord := p_pageIndex * p_pageSize;
      v_sql :=
            'SELECT '
         || p_strColumns
         || ' FROM (SELECT A.*, rownum r FROM '
         || '(SELECT * 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_strOrder IS NOT NULL OR p_strOrder <> ''
      THEN
         v_sql := v_sql || p_strOrder || ' ';
      END IF;

      v_sql :=
            v_sql
         || ') A WHERE rownum <= '
         || v_endRecord
         || ') B WHERE r >= '
         || v_startRecord;

      --DBMS_OUTPUT.put_line (v_sql);

      OPEN cur_ret FOR v_sql;
   END proc_page;
END;