oracle plsql开发：存储过程综合练习

ueaybflgzr

--基于表emp和dept
--构造Procedure change_salary
--参数：ename in varchar2
        salary in number
        v_job out varchar2
        v_dname out varchar2
--先查找指定员工，如果查出多条记录，提示并异常退出；如果没有该名员工，提示并异常退出。
--如果非上述情况，先判断该名员工的职位，如果职位不是'MANAGER',且要修改的薪水大于8000，拒绝修改并提示：“普通员工不能赚这么多薪水”。
--否则修改该名员工的薪水，
--输出参数：该职员的职位，和所在部门的名字，并打印输出。

--构造上述过程，并写出在SQL Editor中的调试代码(给出调用方式)


我自己写的过程：
create or replace procedure change_salary(v_ename in emp.ename%type,
                                          v_salary in emp.sal%type,
                                          v_job out varchar2,
                                          v_dname out varchar2)
is
v_ecount int default 0;
r_emp emp%rowtype;
too_many_salary exception;
begin
       select count(1) into v_ecount from emp where emp.ename=v_ename;
       if v_ecount=0 then
          raise NO_DATA_FOUND;
       elsif v_ecount>1 then
          raise TOO_MANY_ROWS;
       else
          begin
                select * into r_emp from emp where emp.ename=v_ename;
                if r_emp.job!='MANAGER' and v_salary>=8000 then
                   raise too_many_salary;
                else
                   begin
                     update emp set sal=v_salary where emp.ename=v_ename;
                     commit;
                     v_job:=r_emp.job;
                     select dname into v_dname from dept where deptno=r_emp.deptno;
                     dbms_output.put_line('职位：'||v_job||',部门：'||v_dname);
                   end;
                end if;
          end;
       end if;
      
       exception
          when NO_DATA_FOUND then dbms_output.put_line('未查询到该员工，请检查是否输入错误!');
          when TOO_MANY_ROWS then dbms_output.put_line('查询到'||v_ecount||'个员工，请检查是否输入错误!');
          when too_many_salary then dbms_output.put_line('普通员工不能赚这么多薪水!');
          when others then null;
end change_salary;

转载其他人的过程：
create or replace procedure change_salary(   
       v_ename in emp.ename%TYPE,   
       v_salary in emp.sal%TYPE,   
       v_job out emp.job%TYPE,   
       v_dname out dept.dname%TYPE   
)   
is  
       v_empno emp.empno%TYPE;   
       too_many_salary exception;         
begin  
     select e.empno, e.job, d.dname into v_empno, v_job, v_dname   
     from emp e, dept d   
     where e.deptno = d.deptno   
     and upper(ename) = upper(v_ename);   
        
     if v_job <> 'MANAGER' and v_salary > 8000 then  
        raise too_many_salary;   
     end if;   
        
     update emp set sal = v_salary where empno = v_empno;   
     if sql%found then  
        dbms_output.put_line('员工姓名为' || v_ename || '的员工的工资已经修改为' || v_salary);   
     end if;   
exception   
         when no_data_found then  
              dbms_output.put_line('您输入的人员姓名' || '对应信息不存在');   
         when too_many_rows then  
              dbms_output.put_line('人员姓名为'||v_ename ||'不止一个，无法更新！');   
         when too_many_salary then  
              dbms_output.put_line('你输入的工资过高，无法录入');   
         when others then  
              dbms_output.put_line(sqlcode || sqlerrm);   
            
end;  
测试方式：
declare
  v_job emp.job%type;
  v_dname dept.dname%type;
begin
  change_salary('BLAKE',8500,v_job ,v_dname );
  if v_job is not null then
     dbms_output.put_line('职位：'||v_job||',部门：'||v_dname);
  end if;
end;


ps：若是刚刚安装的oracle ，emp和dept表 在scott/tiger 用户中存在的