答案实验五：Oracle编程(一).doc

《答案实验五：Oracle编程(一).doc》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、《Oracle技术》实验报告(五)成绩实验名称Oracle编程（一）姓名学号班级实验目的（1）熟练掌握编写和调试PL/SQL块的方法。（2）熟练掌握编写和调试存储过程方法。（3）熟练掌握编写和调试函数方法。（4）熟练掌握各种控制结构语句的使用。实验内容（1）编写一个PL/SQL块，输出emp表中所有员工的员工名、员工号、工资和部门号。BEGINFORv_empIN(SELECT*FROMEMP)LOOPDBMS_OUTPUT.PUT_LINE(v_emp.ename

2、

3、’‘

4、

5、v_emp.empno

6、

7、’‘

8、

9、v_emp.sal

10、

11、’‘

12、

13、v_emp.deptno);ENDLO

14、OP;END;/（2）创建一个存储过程，以员工号为参数，输出该员工的工资。（提示：如果不存在该员工，则显示“员工号不存在”）CREATEORREPLACEPROCEDUREOUTPUT_SAL(p_empnoemp.empno%type)ASV_salemp.sal%type;BEGINSELECTsalINTOv_salFROMempWHEREempno=p_empno;DBMS_OUTPUT.PUT_LINE(v_sal);EXCEPTIONWHENNO_DATA_FOUNDTHENDBMS_OUTPUT.PUT_LINE(‘员工号不存在’);END;（1）编写一个PL/S

15、QL块，查询名为“SMITH”的员工信息，并输出其员工号、工资、部门号。如果该员工不存在，则插入一条新记录，员工号为2007，员工名为“SMITH”，工资为1500，部门号为10。如果存在多个名为“SMITH”的员工，则输出所有名为“SMITH”的员工号、工资和部门号。（提示：要使用NO_DATE_FOUND和TOO_MANY_ROWS两个异常。）DECLAREV_empnoemp.empno%type;V_salemp.sal%type;V_deptnoemp.deptno%type;BEGINSELECTempno,sal,deptnoINTOV_empno,v_sal,v

16、_deptnoFROMempWHEREename=’SMITH’;DBMS_OUTPUT.PUT_LINE(v_empno

17、

18、’’

19、

20、v_sal

21、

22、’’

23、

24、v_deptno);EXCEPTIONWHENNO_DATA_FOUNDTHENINSERTINTOEMP(empno,ename,sal,deptno)VALUES(2007,’SMITH’,1500,10);WHENTOO_MANY_ROWSTHENFORv_empIN(SELECTempno,sal,deptnoFROMempWHEREename=’SMITH’)LOOPDBMS_OUTPUT.PUT_LINE(v_e

25、mp.empno

26、

27、’‘

28、

29、v_emp.sal

30、

31、’‘

32、

33、v_emp.deptno);ENDLOOP;END;/（2）创建一个存储过程，以部门号为参数，输出该部门入职日期最早的员工姓名。（提示：如果不存在该部门，则显示“无此部门或此部门无员工!”）CREATEORREPLACEPROCEDURECC(p_deptnoemp.deptno%type)ASV_enameemp.ename%type;BEGINselectenameintov_enamefromempwheredeptno=p_deptno实验内容andhiredate=(selectmin(hiredate)fro

34、mempwheredeptno=p_deptno);DBMS_OUTPUT.PUT_LINE(v_ename);exceptionwhenno_data_foundthenDBMS_OUTPUT.PUT_LINE('无此部门或此部门没有员工!');END;（1）创建一个函数，以员工号为参数，返回该员工的工资。CREATEORREPLACEFUNCTIONRET_SAL(p_empnoemp.empno%type)RETURNemp.sal%typeASv_salemp.sal%type;BEGINSELECTsalINTOv_salFROMempWHEREempno=p_emp

35、no;RETURNv_sal;EXCEPTIONWHENNO_DATA_FOUNDTHENRETURN-1;END;/（2）编写一个PL/SQL块调用（5）中创建的函数。如果不存在该员工，则显示“员工号不存在!”。命令：DECLAREV_empnoemp.deptno%type;V_salemp.sal%type;BEGINV_empno:=&x;V_sal:=ret_sal(v_empno);Ifv_sal=-1thenDBMS_OUTPUT.PUT_LINE(’员工号不存在’);Else