oracle包分为包规范和包体 一:首先创建包规范 create or replace package p_pagewithgroup is -- Author : 肖伟 -- Created : 2014/3/18 -- Purpose : 分组分页过程 TYPE type_cur IS REF CURSOR; --定义游标变量用于返回记录集 PROCEDURE UP_GetRecordWith
oracle包分为包规范和包体
一:首先创建包规范
create or replace package p_pagewithgroup is
-- Author : 肖伟
-- Created : 2014/3/18
-- Purpose : 分组分页过程
TYPE type_cur IS REF CURSOR; --定义游标变量用于返回记录集
PROCEDURE UP_GetRecordWithGroupByPage(
tblName in varchar2, --表名
PageSize in number, --页面大小
PageIndex in number, --当前页
IsReCount out number,--返回总条数
strWhere in varchar2,-- 查询条件 (注意: 不要加 where)
strColums in varchar2, --字段集合,逗号分割
strSelectColums in varchar2, --字段集合,逗号分割
strGroup in varchar2,--分组条件语句
strOrder in varchar2,-- 排序条件语句
v_cur out type_cur --返回当前页数据记录
);
end p_pagewithgroup;
二:创建包结构体
create or replace package body p_pagewithgroup is
PROCEDURE UP_GetRecordWithGroupByPage(
tblName in varchar2, --表名
PageSize in number, --页面大小
PageIndex in number, --当前页
IsReCount out number,--返回总条数
strWhere in varchar2,-- 查询条件 (注意: 不要加 where)
strColums in varchar2, --字段集合,逗号分割
strSelectColums in varchar2, --字段集合,逗号分割
strGroup in varchar2,--分组条件语句
strOrder in varchar2,-- 排序条件语句
v_cur out type_cur --返回当前页数据记录
)
AS
--定义变量
v_sql VARCHAR2(8000);
v_count number;
v_row_start NUMBER; --开始记录
v_row_end NUMBER; --结束记录
begin
------------------------------------------------------------显示总条数
v_sql := 'select count(1) from ' || tblName;
IF strWhere is not NULL OR strWhere ''
THEN
v_sql := v_sql || ' where ' || strWhere;
本系统经过多次升级改造,系统内核经过多次优化组合,已经具备相对比较方便快捷的个性化定制的特性,用户部署完毕以后,按照自己的运营要求,可实现快速定制会费管理,支持在线缴费和退费功能财富中心,管理会员的诚信度数据单客户多用户登录管理全部信息支持审批和排名不同的会员级别有不同的信息发布权限企业站单独生成,企业自主决定更新企业站信息留言、询价、报价统一管理,分系统查看分类信息参数化管理,支持多样分类信息,
0
END IF;
IF strGroup is not null or strGroup ''
then
v_sql := v_sql || ' group by ' || strGroup;
end if;
DBMS_OUTPUT.put_line (v_sql);
--v_sql:='select count(1) from BS_USER where 1=1';
EXECUTE IMMEDIATE v_sql into v_count ;
IsReCount:=v_count;
------------------------------------------------------------显示任意页内容
-- IF PageSize
-- PageSize:=1;
-- END IF;
v_row_start := (PageIndex - 1) * PageSize + 1;
v_row_end := PageIndex * PageSize;
v_sql:='select '||strSelectColums||' from (select t.*,RowNum as rn from (select '||strColums||' from '||tblName;
IF strWhere is not NULL OR strWhere ''
THEN
v_sql := v_sql || ' where ' || strWhere;
END IF;
IF strGroup is not null or strGroup ''
then
v_sql := v_sql || ' group by ' || strGroup;
end if;
IF strOrder is not null or strOrder ''
then
v_sql := v_sql || ' order by ' || strOrder;
end if;
v_sql := v_sql ||') t) where rn between '||v_row_start||' and '||v_row_end;
DBMS_OUTPUT.put_line (v_sql);
open v_cur for v_sql;
End UP_GetRecordWithGroupByPage;
----------------------------------------------------------
end p_pagewithgroup;
三:测试
首先打开PL/SQL command window
SQL>declare
-- Local variables here
IsReCount number;--返回总条数
my_cur p_pagewithgroup.type_cur ; --返回当前页数据记录
begin
-- Test statements here
p_pagewithgroup.UP_GetRecordWithGroupByPage('T_DIVISION',5,1,ISReCount,' 1=1 ',' * ',' * ',null,null,my_cur );
DBMS_OUTPUT.PUT_LINE(TO_CHAR(IsReCount));
end;
,
每个人都需要一台速度更快、更稳定的 PC。随着时间的推移,垃圾文件、旧注册表数据和不必要的后台进程会占用资源并降低性能。幸运的是,许多工具可以让 Windows 保持平稳运行。
Copyright 2014-2025 https://www.php.cn/ All Rights Reserved | php.cn | 湘ICP备2023035733号