首先，需要重新整理一下相关概念，Oracle数据库中函数的作用，是只能被别人调用，存储过程可以单独执行，并且可以调用存储过程，而包的作用包可以将任何出现在块声明的语句 ( 过程 , 函数 , 游标 , 游标 , 类型 , 变量 ) 放于包中 , 相当于一个容器 . 将声明语句放入包中的好处是 : 用户可以从其他 PL/SQL 块中对其进行引用 , 因此包为 PL/SQL 提供了全局变量，包分为包头和包体，包头先编译通过后才能编译包体。
包头的创建：
1) 包头 :
语法格式 :
CREATE OR REPLACE PACKAGE package_name /* 包头名称 */
IS|AS
pl/sql_package_spec /* 定义过程 , 函数以及返回类型 , 变量 , 常量及数据类型定义 */
定义包头应当遵循以下原则 :
1) 包元素位置可以任意安排 . 然而在声明部分 , 对象必须在引用前进行声明 .
2) 包头可以不对任何类型的元素进行说明 . 例如 , 包头可以只带过程和函数说明语句 , 而不声明任何异常和类型 .
3) 对过程和函数的任何声明都必须只对子程序和其参数进行描述 , 不能有任何代码的说明 , 代码的实现只能在包体中出现 . 它不同于块声明 , 在块声明中 , 过程和函数的代码可同时出现在声明部分 .
2. 包体 :
语法格式 :
CREATE OR REPLACE PACKAGE BODY package_name/* 包名必须与包头的包名一致 */
IS | AS
pl/sql_package_body /* 游标 , 函数 , 过程的具体定义 */
包体是与包头相互独立的 , 包体只能在包头完成编译后才能进行编译 . 包体中带有包头中描述的子程序的具体实现的代码段 . 除此之外 , 包体还可以包括具有包体人全句属性的附加声明部分 , 但这些附加声明对于包头是不见的 .
Demo:
****************
*包
****************
create or replace package mypack
as
type mytype is ref cursor return emp%rowtype; --声明REF游标
function myemp(dno number) return mytype;
end;
****************
*body
****************
create or replace package body mypack
as
function myemp(dno number) return mytype
as
eee mytype;--声明Ref 游标类型变量
begin
open eee for select * from emp where deptno=dno;
return eee;
end myemp;
end mypack;
分析：
在包头中出现了type mytype is ref cursor return emp%rowtype;
里面有一个REF CURSOR的概念， REF游标就是动态关联结果集的临时对象。即在运行的时候动态决定执行查询，他的主要作用就是实现在程序间传递结果集的功能
①声明REF游标
⑴强类型REF游标：指定retrun type，REF 游标变量的类型必须和return type一致。
语法：Type REF游标名 IS ref cursor Return 结果集返回记录类型；
⑵弱类型REF游标：不指定return type，能和任何类型的CURSOR变量匹配，用于获取任何结果集。
语法：Type REF游标名 IS ref cursor ；
②声明Ref 游标类型变量；
语法：变量名 已声明Ref 游标类型；
③打开REF游标，关联结果集 ；
语法：Open Ref 游标类型变量 For 查询语句返回结果集；
④获取记录，操作记录；
语法：fetch REF游标名 InTo 临时记录类型变量或属性类型变量列表；
⑤关闭游标，完全释放资源；
语法：Close REF游标名；
附上测试代码：
create or replace package mypack
as
type mytype is ref cursor return emp%rowtype;
function myemp(dno number) return mytype;
end;
create or replace package body mypack
as
function myemp(dno number) return mytype
as
eee mytype;
begin
open eee for select * from emp where deptno=dno;
return eee;
end myemp;
end mypack;
drop table emp;
create table emp
(
DEPTNO number,
COMM number,
SAL number
);
Delete from emp Where deptno=10;
Delete from emp Where deptno=11;
Insert Into emp (deptno,comm,sal) Values (10,1,2);
Insert Into emp (deptno,comm,sal) Values (11,2,3);
Commit;