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

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

--基于表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 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;

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_out_job emp.job%type;
       v_out_dname dept.dname%type;
begin
     change_salary('jones', 8500, v_out_job, v_out_dname);
end;

declare
	   v_out_job emp.job%type;
	   v_out_dname dept.dname%type;
begin
	 change_salary('jones', 8500, v_out_job, v_out_dname);
end;