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 語句中使用記錄類型.