1、实验三 PL/SQL 编程课前准备：导入hr。一、实验目的1、了解 PL/SQL 块结构、程序结构2、掌握各种类型变量的使用3、掌握 For 游标的使用4、掌握异常的使用二、实验内容1、块结构练习，分析块结构及下列语句含义declaregrade varchar2(10);BEGINCASE gradeWHEN A THEN DBMS_OUTPUT.PUT_LINE(ABC);WHEN B THEN DBMS_OUTPUT.PUT_LINE (优秀);WHEN C THEN DBMS_OUTPUT.PUT_LINE (良好);WHEN D THEN DBMS_OUTPUT.PUT_LINE (
2、一般);WHEN F THEN DBMS_OUTPUT.PUT_LINE (较差);ELSE DBMS_OUTPUT.PUT_LINE (没有此成绩);END CASE;END;注意：在PL SQLDeveloper或SQL*Plus中，希望结果输出到屏幕，在执行DBMS_OUTPUT.PUT前需要事先执行：Set serveroutput on2、各种类型变量的使用(6.7 实验指导 p140 的 1.(1)，1.(2)，1.(4)（1）declarevar_sal number:=2200;BEGINupdate employees set salary=var_sal where emp
3、loyee_id=203;END;注意：变量类型；执行PLSQL块前后，查询203工号员工的工资（2） %type 类型变量declarevar_first_name employees.first_name%type;var_last_name employees.last_name%type;BEGINselect first_name,last_name into var_first_name,var_last_namefrom employeeswhere employee_id=199;dbms_output.put_line(var_first_name | | var_last_
4、name);END;注意：变量类型；赋值语句的使用方式（3）%rowtype 类型变量declarevar_emp employees%rowtype; -rowtype变量BEGINselect * into var_empfrom employeeswhere employee_id=199;dbms_output.put_line(var_emp.employee_id);dbms_output.put_line(var_emp.last_name);dbms_output.put_line(var_emp.first_name);dbms_output.put_line(var_emp
5、.job_id);dbms_output.put_line(var_emp.salary);END;3、使用游标（1）、6.7 实验指导 p142 的 2.(2)，并改为用游标 For 循环实现，分析如何使用游标 For循环如对游标进行处理declarecursor emp_cur isselect * from employees;emp_one employees%rowtype;beginfor r in emp_cur loopdbms_output.put_line(emp_one.employee_id | );dbms_output.put_line(emp_one.last_n
6、ame | );dbms_output.put_line(emp_one.job_id | );dbms_output.put_line(null);dbms_output.put_line( *);end loop;end;(2)、关于隐式游标，分析以下语句，写出执行结果beginupdate employees set salary=1200 where employee_id=7369;if sql%notfound thendbms_output.put_line(未更新任何记录);elsedbms_output.put_line(更新 | sql%rowcount | 条记录);en
7、d if;end; /（3）运用隐式游标的属性，写出 PL/SQL 块实现下列功能：维护表 DEPT 的一条记录：如果表中有 DeptNo10 的记录，则将其 LOC 更新为福州，否则插入新记录 DeptNo=10, 参考：beginupdate DEPT set LOC=福州where DeptNo=10;if sql%notfound thendbms_output.put_line(未更新任何记录);elsedbms_output.put_line(更新 | sql%rowcount | 条记录);end if;end; 4、使用异常(1)、在 SQL*Plus 中输入以下 PL/SQL
8、 块，分析结果，并说明预定义异常的使用方法begininsert into scott.emp(empno,empname,job,sal,deptno)values(7369,Clare,CLERK,1500,20);exceptionwhen dup_val_on_index thendbms_output.put_line(捕获DUP_VAL_ON_INDEX异常);dbms_output.put_line(该主键已经存在);end; 分析结果：如果用户试图使用完全相同的主键值向同一个表中插入两条记录，这会因为违反系统主键约束产生错误。由于在程序的异常处理部分对其进行捕获，所以当该错误发
9、生时并不会影响程序的运行。预定义异常的使用方法：对于系统预定义异常，用户无需在程序中定义，它们是有oracle自动引发。在知道了可能出现的异常后，就可以在程序的异常处理部分捕获它，并根据自己的需求进行处理。(2)、在 SQL*Plus 中输入以下 PL/SQL 块，分析结果，并体会如何通过用户定义异常实现业务规则declaresalary_error exception;var_sal scott.emp.sal%type;beginselect sal into var_sal from scott.emp where empno=7839;if var_sal=4000 thenraise
10、 salary_error;end if;exceptionwhen salary_error thendbms_output.put_line(薪金超过范围);end;3、 实验小结 1、学习了PL/SQL程序的基本结构是块，程序块分为声明部分、执行部分和异常处理部分。 2、实验中进一步理解了变量声明的方法以及%TYPEH和%rowtype变量的作用。%type是声明一个与指定列名称相同的数据类型，该数据类型变另一列跟着变，自动调整。%rowtype类型变量可以根据指定的表结构、由系统自动决定其结构。 3、学习了游标的使用方法，区分开显示游标和隐式游标。值得注意的是在游标for循环中游标会自动打开、读取和关闭，所以一定不要使用open、fetch和close语句，否则会产生错误。 4、了解了异常处理中的预定义异常和用户定义异常的使用方法。 5、使用ed命令了解到该命令的好处，在实验中出现代码的错误方便更改。
