程序包

-- 九、程序包
/* 
包头：规范，指的是所有的声明（变量、常量、游标、子程序）

包体：主体，指的是实现(子程序)
 注意：没有在包头中声明的子程序是私有的，只能在包体中调用，出了包体就无效了
 但是在包头中声明过的子程序是公有的，在任何地方都可以调用
 
格式：
包头的定义格式：
create or replace package 包名
is/as
声明部分
end; */

-- 例如：
create or replace package pack_1
is
PI number:=3.14;--常量的声明
procedure p_emp(eno number);--存储过程的声明
end;

begin
dbms_output.put_line(pack_1.PI);
end;

-- 包体的定义格式：
create or replace package body 包名
is/as
子程序的实现
end;

-- 例1：
--包头
create or replace package p_pag1 is
PI number:=3.14;--声明常量
procedure p_pro(eno number);--声明过程
end;
--包体
create  or replace package body p_pag1 is
procedure p_pro(eno number) is
empName varchar2(20);
begin
  select ename into empName from emp
  where empno=eno;
  dbms_output.put_line('姓名是：'||empName);
  exception
    when no_data_found then
      dbms_output.put_line('没有数据');
    when others then
      dbms_output.put_line('其他异常');
end;
end;

--调用
begin
dbms_output.put_line(p_pag1.PI);
--dbms_output.put_line(p_pag1.p_pro(7369));
end;

-- 例2：
--包头
create or replace package pack_1
is
PI number:=3.14;--常量的声明
procedure p_emp(eno number);--存储过程的声明
function tax(money number) return number;--函数的声明
end;
--包体
create or replace package body pack_1
is
--函数的实现
function tax(money number)
return number
is
rate number;
begin
  if money<=3500 then
    rate:=0;
  else if money<=5000 then
    rate:=(money-3500)*0.05;
  else if money<=10000 then
   rate:=1500*0.05+(money-5000)*0.1;
  else if money<=15000 then
  rate:=1500*0.05+5000*0.1+(money-10000)*0.15;
  else
  rate:=1500*0.05+5000*0.1+5000*0.15+(money-15000)*0.2;
end if;
end if;
end if;
end if;
return rate;
end;
--存储过程的实现
procedure p_emp(eno number)
is
salary number;
begin
  select tax(sal) into salary from emp
  where empno=eno;
  dbms_output.put_line(salary);
end;
end;
--调用
declare
eno number;
begin
eno:=&请输入员工编号;
pack_1.p_emp(eno);
end;

select  empno,pack_1.tax(sal)  from emp

-- 例3：
--包头
create or replace package p_pag1 is
PI number:=3.14;--声明常量
procedure p_pro(eno number);--声明过程
end;
--包体
create  or replace package body p_pag1 is
procedure p_pro(eno number) is
empName varchar2(20);
begin
  select ename into empName from emp
  where empno=eno;
  dbms_output.put_line('姓名是：'||empName);
  exception
    when no_data_found then
      dbms_output.put_line('没有数据');
    when others then
      dbms_output.put_line('其他异常');
end;
end;

--调用
begin
dbms_output.put_line(p_pag1.PI);
p_pag1.p_pro(7369);
end;