实验九 PLSQL编技术一.docVIP

实验九 PL/SQL编程技术一 实验前准备： 参见书本第20页更改ORALCE 10g数据库服务器网络配置，将服务命名orcl和监听程序LISTENER的主机名w47改为本机名。 实验内容： 1、完成书本P297‘2. 实训题’的第（2）小题。 2、完成书本P322‘2. 实训题’的第（1）（2）（6）（7）小题，并写出调用所创建存储过程和函数的语句。 P297，2.（2）编写一个PL/SQL块，输出所有比本部门平均工资高的员工信息。 declare v_emp emp%rowtype; v_empno emp.empno%type; v_ename emp.emp.ename%type; v_sal emp.sal%type; v_deptno emp.deptno%type; begin v_deptno:=aa; select * into v_emp from emp where (deptno=v_deptno||emp.salavg(sal)); dbms_output.put_line(v_empno||‘ ’||v_ename||‘ ’||v_sal||‘ ’||v_deptno); end; P322，2.（1）创建一个存储过程，以员工号为参数，输出该员工的工资。 create or replace procedure show_sal( p_empno emp.empno%type) is p_sal emp.sal%type; begin select sal into p_sal from emp where empno=p_empno; dbms_output.put_line(p_sal); end show_sal; declare v_empno emp.empno%type; begin show_sal(v_empno); end; （2）创建一个存储过程，以员工号为参数，修改该员工的工资。若该员工属于10号部门，则工资增加150，若属于20号部门，则工资增加200；若属于30号部门，则工资增加250；若属于其他部门，则工资增加300。 create or replace procedure add_sal( p_empno emp.empno%type) is p_sal emp.sal%type; p_deptno emp.deptno%type; p_increment number; begin select deptno into p_deptno from emp where empno=p_empno; if p_deptno=10 then p_increment:=150; elsif p_deptno=20 then p_increment:=200; elsif p_deptno=30 then p_increment:=250; else p_increment:=300; end if; update emp set sal=sal+p_increment where empno=p_empno; end add_sal; declare v_empno emp.empno%type; begin add_sal(v_empno); end; （6）创建一个函数，以部门号为参数，返回部门平均工资。 create or replace function ret_avgsal( p_deptno emp.dept%type) as p_avgsal emp.sal%type; begin select avg(sal) into p_avgsal from emp where deptno=p_deptno; return p_avgsal; exception when no_data_found then dbms_output.put_line(‘The deptno is invalid!’); end ret_avgsal; declare v_deptno emp.dept%type; begin ret_avgsal(v_deptno); end; （7）创建一个函数，以员工号为参数，返回该员工所在部门的平均工资。 create or replace function show_avgsal( p_empno emp.empno%type) return emp.sal%type; as p_avgsal emp.sal%type begin select avg(sal) into p_avgsal from emp where empno=p_empno; return p_avgsal; exception whe