Oracle 中包的应用

       包由两个分离的部分组成:包头(PACKAGE)和包体(PACKAGEBODY)。包头是包的说明部分,是对外的操作接口,对应用是可见的;包体是包的代码和实现部分,对应用来说是不可见的黑盒。
       出现在包头中的称为公有元素,出现在包体中的称为私有元素,出现在包体的过程(或函数)中的称为局部变量。

创建包头的简要语句如下:

CREATE [OR REPLACE] PACKAGE 包名
{IS|AS}
公有变量定义
公有类型定义
公有游标定义
公有异常定义
函数说明
过程说明
END;

创建包体的简要语法如下:

CREATE [OR REPLACE] PACKAGE BODY 包名
{IS|AS}
私有变量定义
私有类型定义
私有游标定义
私有异常定义
函数定义
过程定义
END;

其它操作：

删除包头:
DROP PACKAGE 包头名
删除包体:
DROP PACKAGE BODY 包体名
重新编译包头:
ALTER PACKAGE 包名 COMPILE PACKAGE
重新编译包体:
ALTER PACKAGE 包名 COMPILE PACKAGE BODY

案例：对学生表infos提供一个增删改查的包，infos表内容如下图所示：

包中的内容结构如下：

程序结构	类型	参数	说明
v_infos_count	公有变量		学生总总数量，number类型
p_init	公有过程	p_max number p_min number	最大值，最小值
p_list_infos	公有过程		显示学生列表数据
p_add_infos	公有过程	p_stuid infos.stuid%type, p_stuname infos.stuname%type, p_gender infos.gender%type, p_age infos.age%type, p_seat infos.seat%type, p_enrolldate infos.enrolldate%type, p_stuaddress infos.stuaddress%type, p_classno infos.classno%type	增加一条学生记录
p_delete_infos	公有过程	p_stuid infos.stuid%type	根据stuid删除一条学生记录
p_edit_infos_name	公有过程	p_stuid infos.stuid%type p_stuname infos.stuname%type	根据stuid修改学生的姓名
v_msg	私有变量		show message
v_max_age	私有变量		max age ，number
v_min_age	私有变量		min age ，number
f_exist_infos	私有函数	p_stuid infos.stuid%type	判断学生是否存在， return boolean
p_show_msg	私有过程		show msg

包SQL：

（1）创建包头
create or replace package pck_infos
as
  --总数量
  v_infos_count number;
  --初始化操作
  procedure p_init(p_max number, p_min number);
  --显示学生列表数据
  procedure p_list_infos;
  --增加一条学生记录
  procedure p_add_infos(
    p_stuid       infos.stuid%type,
    p_stuname     infos.stuname%type,
    p_gender      infos.gender%type,
    p_age         infos.age%type,
    p_seat        infos.seat%type,
    p_enrolldate  infos.enrolldate%type,
    p_stuaddress  infos.stuaddress%type,
    p_classno     infos.classno%type);
  --删除一条学生记录
  procedure p_delete_infos(p_stuid infos.stuid%type);
  --根据stuid修改学生的姓名
  procedure p_edit_infos_name(
    p_stuid   infos.stuid%type,
    p_stuname infos.stuname%type);
end;
（2）创建包体
create or replace package body pck_infos
as
  v_msg     varchar2(100);  --show message
  v_max_age number;         --max age
  v_min_age number;         --min age
  
  --判断学生是否存在
  function f_exist_infos(p_stuid infos.stuid%type)
  return boolean;
  
  --show msg
  procedure p_show_msg;
  
  --初始化操作
  procedure p_init(p_max number, p_min number)
  as
  begin
    select count(stuid) into v_infos_count from infos;
    v_max_age:=p_max;
    v_min_age:=p_min;
    v_msg:='init finished!';
    p_show_msg;
  end p_init;
  
  --显示信息
  procedure p_show_msg
  as
  begin
    dbms_output.put_line(v_msg);
  end p_show_msg;
   --判断学生是否存在
  function f_exist_infos(p_stuid infos.stuid%type)
  return boolean
  as
    v_num number;
  begin
    select count(stuid) into v_num from infos where stuid=p_stuid;
    if v_num=1 then
      return true;
    else
      return false;
    end if;
  end f_exist_infos;
  
  --显示学生列表数据
  procedure p_list_infos
  as
    v_infos_record infos%rowtype;
    cursor cur_infos is select * from infos;
  begin
    open cur_infos;
    loop
      fetch cur_infos into v_infos_record;
      exit when cur_infos%notfound;
      dbms_output.put_line('stuid:'||v_infos_record.stuid);
    end loop;
    close cur_infos;
  end p_list_infos;
  
  --增加一条学生记录
  procedure p_add_infos(
    p_stuid       infos.stuid%type,
    p_stuname     infos.stuname%type,
    p_gender      infos.gender%type,
    p_age         infos.age%type,
    p_seat        infos.seat%type,
    p_enrolldate  infos.enrolldate%type,
    p_stuaddress  infos.stuaddress%type,
    p_classno     infos.classno%type)
  as
  begin
    if not f_exist_infos(p_stuid) then
      insert into infos(stuid,stuname,gender,age,seat,enrolldate,stuaddress,classno)
        values(p_stuid,p_stuname,p_gender,p_age,p_seat,p_enrolldate,p_stuaddress,p_classno);
      commit;
      v_infos_count:=v_infos_count+1;
    else
      v_msg:='already exist!';
    end if;
  end p_add_infos;
  
  --删除一条学生记录
  procedure p_delete_infos(p_stuid infos.stuid%type)
  as
  begin
    if f_exist_infos(p_stuid) then
      delete from infos where stuid=p_stuid;
      commit;
      v_infos_count:=v_infos_count-1;
    else
      v_msg:='not exist infos!';
    end if;
  end p_delete_infos;
  
   --根据stuid修改学生的姓名
  procedure p_edit_infos_name(
    p_stuid   infos.stuid%type,
    p_stuname infos.stuname%type)
  as
  begin
    if f_exist_infos(p_stuid) then
      update infos set stuname=p_stuname where stuid=p_stuid;
      commit;
    else
      v_msg:='not exists infos';
    end if;
  end p_edit_infos_name;
    
end;