程序包的使用

一、程序包简使用

--创建一个程序包规范，以scott.emp表为数据

--程序包
create or replace package emp_package
is
minsal emp.sal%type;--最小工资
maxsal emp.sal%type;--最大工资
-- 添加员工信息
procedure addEmp(v_no number,v_name nvarchar2,v_sal number,v_deptno number);
-- 修改员工信息，根据编号 
procedure updateSal(v_no number,v_sal number);
-- 修改员工信息，根据姓名
procedure updateSal(v_name nvarchar2,v_sal number);
-- 获得员工的工资，根据编号
function getSal(v_no number) return number;
end;

--创建包的主体，以scott.emp表为数据

-- 包主体 
create or replace package body emp_package
is
  -- 添加员工信息
  procedure addEmp(v_no number,v_name nvarchar2,v_sal number,v_deptno number)
  is
  begin
    insert into emp(empno,ename,sal,deptno) values(v_no,v_name,V_sal,v_deptno);
  end;
  -- 修改员工信息，根据编号 
  procedure updateSal(v_no number,v_sal number)
  is
  begin
    update emp set  sal = v_sal where empno = v_no;
    commit;
    exception 
      when others then
        dbms_output.put_line('更新薪资时出现异常');
        rollback;
  end;
  -- 修改员工信息，根据姓名
  procedure updateSal(v_name nvarchar2,v_sal number)
  is
  begin
    update emp set  sal = v_sal where ename = v_name;
    commit;
    exception 
      when others then
        dbms_output.put_line('更新薪资时出现异常');
        rollback;
  end;
  -- 获得员工的工资，根据编号
  function getSal(v_no number) return number
  is
  v_sal emp.sal%type;
  begin
      select sal into v_sal from emp where empno = v_no;
      return v_sal;
  end;
begin
  select max(sal) into maxsal from emp;
  select min(sal) into minsal from emp;
end;

以下是测试代码：

-- 程序包
declare 
v_minsal emp.sal%type;
v_sal emp.sal%type;
begin
  v_minsal :=emp_package.minsal;
  dbms_output.put_line(v_minsal);
  emp_package.updateSal('BLAKE',600.00);
  v_sal :=emp_package.getSal(7698);
  dbms_output.put_line(v_sal);
  emp_package.addEmp(7777,'abc',7000,10);
end;

二、在程序包中使用静态游标

-- 定义包规范
create or replace package pkg_emp 
is
   cursor getEmpInfo(empno varchar2) return emp%rowtype;
end;
--定义包主体
create or replace package body pkg_emp
is
   cursor getEmpInfo(empno varchar2) return emp%rowtype is 
   select * from emp where empno = empno;
end; 
-- 测试代码
begin 
  for v_r in pkg_emp.getEmpInfo(7369) loop
    dbms_output.put_line(v_r.ename);
  end loop;
end;

三、在程序包中使用动态游标
　　未完待续……