PLSQL函数,存储过程

 --创建一个函数,用来根据部门编号返回调薪幅度
 create or replace function get_ratio_by_dept(deptno varchar2)
      return number is
      n_salaryratio number(10,2);        --调薪比率返回值变量
 begin
      case deptno
          when 10  then
              n_salaryratio:=1.09;
           when 20  then
              n_salaryratio:=1.11;
            when 30 then
               n_salaryratio:=1.18;
             else
               n_salaryratio:=0;
            end case;
            return n_salaryratio;
            end;   

 begin
   dbms_output.put_line(get_ratio_by_dept(20));
   end;   

  --创建一个存储过程,用来实现加薪,它将调用get_ratio_by_dept来获取加薪幅度

  create or replace procedure raise_salary(p_empno number)
  as
      v_deptno number(2);
      v_ratio number(10,2);   --存储调薪幅度变量
   begin
     select deptno into v_deptno from emp where empno=p_empno;
     v_ratio:=get_ratio_by_dept(v_deptno);
     if v_ratio>0
       then
         update scott.emp
             set sal =sal* (1+v_ratio)
         where empno = p_empno;
         end  if;
         dbms_output.put_line('加薪成功!');
   exception
      when no_data_found then
           dbms_output.put_line('没有找到该员工的任何信息!');
       when others then
           dbms_output.put_line('调整薪资时出现了错误!');
     end;         

   set serveroutput on;
   exec raise_salary(7369);   

 --创建包头
  create or replace package emp_sal_pkg as
  function get_ratio_by_dept(deptno varchar2) return number;
  procedure raise_salary(p_empno number);
  end emp_sal_pkg;

  --创建包体
  create or replace package body emp_sal_pkg as
       function get_ratio_by_dept(deptno varchar2)
         return number
         is
         n_salaryratio number(10,2);
         begin
           case deptno
          when 10  then
              n_salaryratio:=1.09;
           when 20  then
              n_salaryratio:=1.11;
            when 30 then
               n_salaryratio:=1.18;
             else
               n_salaryratio:=1;
            end case;
            return n_salaryratio;
           end get_ratio_by_dept;

           procedure  raise_salary (p_empno number)
             as
             v_deptno number(2);
             v_ratio number(10,2);
           begin
              select deptno into v_deptno from emp where empno=p_empno;
     v_ratio:=get_ratio_by_dept(v_deptno);
     if v_ratio>0
       then
         update scott.emp
             set sal =sal* (1+v_ratio)
         where empno = p_empno;
         end  if;
         dbms_output.put_line('加薪成功!');
   exception
      when no_data_found then
           dbms_output.put_line('没有找到该员工的任何信息!');
       when others then
           dbms_output.put_line('调整薪资时出现了错误!');
             end raise_salary;
             end emp_sal_pkg;
 --创建过程添加新员工
  create or replace  procedure  AddNewEmp(p_empno emp.empno%type,
  p_ename emp.ename%type,
  p_job   emp.job%type,
  p_sal   emp.sal%type,
  p_deptno  emp.deptno%type:=20)
  as
  begin
    if p_empno<0 then
      raise_application_error(-20001,'员工编号必须大于0');
      end if;
        insert into emp
            (empno,ename,job,sal,deptno)
            values (p_empno,p_ename,p_job,p_sal,p_deptno);
    end AddNewEmp;          

 begin
     AddNewEmp(8236,'诸葛亮','策划人员',25000,40);
     end;

 子程序创建高度可维护,重用的代码
 (1)模块化代码(2)简化应用程序(3)提升管理性:需求变更,只要改子程序
 (4)可重用性,提高性能
 程序调试
 C+R  直接运行  C+N单击进入  C+O单步逃过 C+T单步退出
 --在过程中使用return语句
 create or replace procedure RaiseSalary(
        p_empno emp.empno%type) as
        v_job emp.job%type;
        v_sal emp.sal%type;
 begin
     select job,sal into v_job,v_sal from emp
     where empno=p_empno;
     if v_job<>'CLERK' then
        return;               --如果不是职员则退出
      elsif v_sal>3000 then
        return ;
      else
        --否则更新薪资记录
       update emp set sal=Round(sal*1.12,2)  where
         empno=p_empno;
       end if;
   exception
      when no_data_found then
       dbms_output.put_line('没有找到员工记录');
 end RaiseSalary;
 begin
   RaiseSalary(7369);
   end;
  select * from emp where empno=7369;
 --查询当前scott方案下的过程和函数列表
 select object_name,object_type,created,
 last_ddl_time,status,temporary
        from user_objects
        where object_type in ('PROCEDURE','FUNCTION','TABLE');

 --in  out 模式参数
 create or replace procedure calcRaiseSalary(
        p_job in varchar2,
        p_salary in out number
 )    as
  v_sal number(10,2);
  v_job varchar2(10);
 begin
   if p_job='CLERK' then
     v_sal:=p_salary*1.12;

    elsif p_job='销售人员' then
      v_sal:=p_salary*1.18;
    elsif p_job='经理' then
      v_sal:=p_salary*1.19;
    else
      v_sal:=p_salary;

    end if;
        p_salary:=v_sal;  ---值传递

     end calcRaiseSalary;       

  declare
     v_sal number(10,2);
     v_job varchar2(10);
  begin
     select sal,job into v_sal,v_job from emp where
     empno=7369;
     calcRaiseSalary(v_job,v_sal);
     dbms_output.put_line('计算后的调整薪水为:'||v_sal);  --||'JOB'||v_jo
     end;

  select * from emp where empno=7369; 

  引用传递:将实际参数的指针(内存地址)传递给形式参数,
  值传递:将实际参数的值赋给形式参数,值拷贝,指向不同的内存地址

  如果参数是大型数据结构,比如集合,记录和对象实例, 参数复制会大大降低执行速度,
  消耗内存
 nocopy 使得out和in out模式的参数按引用进行传递

    --编译包规范
   alter package emp_pkg_overloading  compile specification;
   --编译包体
   alter package emp_pkg_overloading compile body;
   --同时编译包规范和包体
   alter package emp_pkg_overloading compile package;

   --查询包规范和包体信息
   select object_name,object_type,created,last_ddl_time from user_objects
   where object_type in ('PACKAGE','PACKAGE BODY');

   --查看包的源代码
   select line,text from user_source where name='EMP_MGMT_PKG_OVERLOADING'
   and type='PACKAGE';

   --使用returning into 为记录变量赋值
   declare
     type t_emp is record(
          empno emp.empno%type,
          ename emp.ename%type,
          sal emp.sal%type
     );
     emp_info t_emp;
     old_sal emp.sal%type;
    begin
      select sal into old_sal
        from emp
        where empno=7369;
        update emp
        set sal=sal*1.1
        where empno=7369
        returning  empno,ename,sal into emp_info;
       dbms_output.put_line(
         emp_info.empno||'  '||emp_info.ename ||' '||
         old_sal||' '|| emp_info.sal);

      end;
 select sal,ename from emp where empno =7369    

    --在insert语句中使用记录类型
    declare
      type t_dept_rec is record(
           rec_deptno number,
           rec_dname varchar2(14),
           rec_loc varchar2(13)
      );
      rec_dept_1 t_dept_rec;
      rec_dept_2 dept%rowtype;
    begin
       rec_dept_1.rec_deptno:=71;
       rec_dept_1.rec_dname:='系统部';
       rec_dept_1.rec_loc:='上海';
       insert into dept values rec_dept_1;
       rec_dept_2.deptno:=72;
       rec_dept_2.dname:='开发部';
       rec_dept_2.loc:='重庆';
       insert into dept values rec_dept_2;
   end;     

   select * from dept

 --在update语句中使用记录类型
 declare
   rec_dept_2 dept%rowtype;
 begin
   rec_dept_2.deptno:=20;
   rec_dept_2.dname:='系统部';
   rec_dept_2.loc:='上海';
   update dept set row=rec_dept_2 where deptno=rec_dept_2.deptno;
   end;  

     使用记录类型的限制
  (1)记录类型不能出现在select语句的选择列表, where子句,group by 子句
  或order by子句中
  (2)update语句中Row关键字只能出现在set语句之后,并且不能和子查询连用
  (3)不能包含其他的变量和值,不能具有嵌套的记录类型,不支持在
  execute immediate 语句中使用记录类型.