程序包(学习笔记)

示例一、根据输入的部门编号找到这个部门的所有员工

首先创建包，定义包规范

create or replace package getemp_pkg is

  FUNCTION getemp_fun(p_dno dept.deptno%type) RETURN SYS_REFCURSOR; --返回弱类型游标

end getemp_pkg;

执行后自动生成包的主体

定义包的主体（实现体）

create or replace package body getemp_pkg
AS
FUNCTION getemp_fun(p_dno dept.deptno%TYPE)
RETURN SYS_REFCURSOR                --返回弱类型游标
AS
cur_emp   SYS_REFCURSOR;
begin
   OPEN cur_emp FOR SELECT * FROM emp WHERE deptno=p_dno;          --打开游标
   RETURN cur_emp;             --返回游标
   END getemp_fun;
end getemp_pkg;

调用包

DECLARE
  V_EMP   EMP%ROWTYPE;                   --定义变量来接收游标的内容
  CUR_EMP SYS_REFCURSOR;                --定义游标来接收返回游标
  V_DNO   DEPT.DEPTNO%TYPE;                --定义部门编号，转入参数
BEGIN
  CUR_EMP := GETEMP_PKG.GETEMP_FUN(&V_DNO);
  LOOP
    FETCH CUR_EMP                                       --提取游标
      INTO V_EMP;
    EXIT WHEN CUR_EMP%NOTFOUND;                  --退出条件
    DBMS_OUTPUT.PUT_LINE(CUR_EMP%ROWCOUNT || ‘ 员工编号:‘ || V_EMP.EMPNO ||
                         ‘ 姓名:‘ || V_EMP.ENAME);
  END LOOP;
  CLOSE cur_emp;                                    --关闭游标
END;

示例二、包中有过程和函数

程序包规范

create or replace package pack_me is

PROCEDURE emp_proc(num NUMBER);
FUNCTION emp_fun(eno NUMBER) RETURN VARCHAR2;

end pack_me;

程序包主体

create or replace package body pack_me is

PROCEDURE emp_proc(num NUMBER) IS
  v_name     VARCHAR2(50);
  BEGIN
    SELECT ename INTO v_name FROM emp WHERE empno=num;
    dbms_output.put_line(‘员工编号：‘||num||‘ 的姓名:‘||v_name);
  END emp_proc;
  FUNCTION  emp_fun(eno NUMBER) RETURN VARCHAR2
    AS
    v_job          varchar2(50);
    BEGIN
       SELECT job INTO v_job FROM emp WHERE empno=eno;
       RETURN v_job;
    --dbms_output.put_line(‘员工编号：‘||empno||‘ 的职位:‘||v_job);
    END emp_fun;

end pack_me;

执行

--程序包
DECLARE
   v_empno             emp.empno%TYPE:=&empno;
   v_job           Varchar2(50);
BEGIN
  pack_me.emp_proc(v_empno);
  v_job:=pack_me.emp_fun(v_empno);
dbms_output.put_line(‘员工编号：‘||v_empno||‘ 的职位:‘||v_job);
END;

 查询包

--查询user_objects数据字典确认包规范及包体
SELECT object_type,object_name,status FROM User_Objects WHERE object_type IN(‘PACKAGE‘,‘PACKAGE BODY‘);

--查询包的内容
SELECT * FROM user_source WHERE TYPE=‘PACKAGE‘ AND NAME=‘GETEMP_PKG‘;

删除包
       删除包规范

DROP PACKAGE 包名称

删除包体

DROP PACKAGE BODY包名称

删除包规范里会对其对应的包体一起删除

 包的重新编译

ALTER PACKAGE 包名称 COMPILE PACKAGE;
--示例
ALTER PACKAGE GETEMP_PKG COMPILE PACKAGE;

 包的纯度级别

语法:
PRAGMA restrict_references(函数名，WNDS[,WNPS][,RNDS][,RUPS])