《Oracle技术》实验报告5(答案)1.docVIP

《Oracle技术》实验报告 成绩 实验名称 PL/SQL编程（选作10题，程序另加附页） 姓名 学号 日期 专业 班级 实验 目的 （1）了解PL/SQL块的基本结构和分类。 （2）熟练掌握编写PL/SQL块的方法。 （3）了解PL/SQL存储过程、触发器、游标的作用。 （4）熟练掌握编写PL/SQL存储过工程的方法及维护过程。 （5）熟练掌握创建触发器的方法及维护过程。 （6）孰练掌握显式游标和隐式游标的使用。 实 验 内 容 编写一个PL/SQL块，输出所有员工的员工名、员工号、工资和部门号。 BEGIN FOR v_emp IN (SELECT * FROM EMP) LOOP DBMS_OUTPUT.PUT_LINE(v_emp.ename||’ ‘|| v_emp.empno|| ’ ‘||v_emp.sal||’ ‘|| v_emp.deptno); END LOOP; END; / 编写一个PL/SQL块，查询名为“SMITH”的员工信息，并输出其员工号、工资、部门号。如果该员工不存在，则插入一条新记录，员工号为2007，员工名为“SMITH”，工资为1500，部门号为10。如果存在多个名为“SMITH”的员工，则输出所有名为“SMITH”的员工号、工资和部门号。 DECLARE V_empno emp.empno%type; V_sal emp.sal%type; V_deptno emp.deptno%type; BEGIN SELECT empno,sal,deptno INTO V_empno,v_sal,v_deptno FROM emp WHERE ename=’SMITH’; DBMS_OUTPUT.PUT_LINE(v_empno||’ ’||v_sal||’ ’||v_deptno); EXCEPTION WHEN NO_DATA_FOUND THEN INSERT INTO EMP(empno, ename,sal,deptno) VALUES(2007,’SMITH’,1500,10); WHEN TOO_MANY_ROWS THEN FOR v_emp IN (SELECT empno,sal,deptno FROM emp WHERE ename=’SMITH’) LOOP DBMS_OUTPUT.PUT_LINE(v_emp.empno||’ ‘|| v_emp.sal|| ’ ‘||v_emp.deptno); END LOOP; END; / 创建一个存储过程，以员工号为参数，输出该员工的工资。 CREATE OR REPLACE PROCEDURE OUTPUT_SAL(p_empno emp.empno%type) AS V_sal emp.sal%type; BEGIN SELECT sal INTO v_sal FROM emp WHERE empno=p_empno; DBMS_OUTPUT.PUT_LINE(v_sal); EXCEPTION WHEN NO_DATA_FOUND THEN DBMS_OUTPUT.PUT_LINE(‘无此员工’); END; 创建一个存储过程，以员工号为参数，修改该员工的工资。若该员工属于10号部门，则工资增加150；若属于20号部门，则工资增加200；若属于30号部门，则工资增加250；若属于其他部门，则工资增加300。 CREATE OR REPLACE PROCEDURE UPDATE_SAL(p_empno emp.empno%type) AS v_deptno emp.deptno%type; v_increment NUMBER(4); BEGIN SELECT deptno INTO v_deptno FROM emp WHERE empno=p_empno; CASE v_deptno WHEN 10 THEN v_increment:=150;