Oracle存储过程的编写与测试

===========标准存储过程========================
1.首先定义包

create or replace package pak_fks
as   
type fks_cursor is ref cursor;   
end;  

2.定义存储过程

create or replace procedure proc_test(fks_cursor OUT pak_fks.fks_cursor) AS  
begin  
open fks_cursor for 执行的SQL语句;  
end proc_test;

3.执行存储过程
在PL/SQL右键存储过程“测试”执行存储过程;

参与资料:http://blog.csdn.net/edcvf3/article/details/8477932


============分页存储过程====================
1.首先定义包

create or replace package Pak_Page
as   
type ref_Cur is ref cursor;   
end;  

2.定义存储过程

CREATE OR REPLACE
PROCEDURE Sp_FksPage
       (p_tableName        in  varchar2,   --表名
                p_fileds           in  varchar2,   --显示的字段
        p_curPage          in  Number,  --当前页
            p_pageSize         in  Number,  --每页显示记录条数
        p_strWhere         in  varchar2,   --查询条件
        p_strOrder         in  varchar2,   --排序的列
        p_totalRecords     out Number,     --总记录数
        v_cur              out PAK_PAGE.ref_Cur)   --返回的结果集
IS
   v_sql VARCHAR2(1000) := '';      --sql语句
   v_startRecord Number(4);         --开始显示的记录条数
   v_endRecord Number(4);           --结束显示的记录条数
   v_totalPages Number(4);          --总页数
   v_pageSize Number(4);            --每页记录数
   v_curPage Number(4);             --当前页
BEGIN
   --记录中总记录条数
   v_sql := 'SELECT TO_NUMBER(COUNT(*)) FROM ' || p_tableName;
   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
       v_pageSize := 0;
     ELSE
       v_pageSize :=p_pageSize;
   END IF;
   
   --根据页大小计算总页数
   IF MOD(p_totalRecords,p_pageSize) = 0 THEN
       v_totalPages := p_totalRecords / p_pageSize;
   ELSE
       v_totalPages := p_totalRecords / p_pageSize + 1;
   END IF;
   
   --验证页号
   IF p_curPage < 1 THEN
       v_curPage := 1;
     ELSE
       v_curPage :=p_curPage;
   END IF;

   IF p_curPage > v_totalPages THEN
       v_curPage := v_totalPages;
   ELSE
             v_curPage := p_curPage;
   END IF;
   
   --实现分页查询
   v_startRecord := (v_curPage - 1) * v_pageSize + 1;
   v_endRecord := v_curPage * v_pageSize;
   v_sql := 'SELECT * FROM (SELECT A.*, rownum r FROM ' ||
            '(SELECT '||p_fileds||' FROM ' || p_tableName;

   IF p_strWhere IS NOT NULL or p_strWhere <> '' THEN
       v_sql := v_sql || ' ' || 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 v_cur FOR v_sql;
END Sp_FksPage;