ORACLE PL/SQL编程详解

SQL语言只是访问、操作数据库的语言，并不是一种具有流程控制的程序设计语言，而只有程序设计语言才能用于应用软件的开发。PL /SQL是一种高级数据库程序设计语言，该语言专门用于在各种环境下对ORACLE数据库进行访问。由于该语言集成于数据库服务器中，所以PL/SQL代码可以对数据进行快速高效的处理。除此之外，可以在ORACLE数据库的某些客户端工具中，使用PL/SQL语言也是该语言的一个特点。本章的主要内容是讨论引入PL/SQL语言的必要性和该语言的主要特点，以及了解PL/SQL语言的重要性和数据库版本问题。还要介绍一些贯穿全书的更详细的高级概念，并在本章的最后就我们在本书案例中使用的数据库表的若干约定做一说明。

1.1 SQL与PL/SQL

1.1.1 什么是PL/SQL?

PL/SQL是 Procedure Language & Structured Query Language 的缩写。ORACLE的SQL是支持ANSI(American national Standards Institute)和ISO92 (International Standards Organization)标准的产品。PL/SQL是对SQL语言存储过程语言的扩展。从ORACLE6以后，ORACLE的RDBMS附带了PL/SQL。它现在已经成为一种过程处理语言，简称PL/SQL。目前的PL/SQL包括两部分，一部分是数据库引擎部分；另一部分是可嵌入到许多产品（如C语言，JAVA语言等）工具中的独立引擎。可以将这两部分称为：数据库PL/SQL和工具PL/SQL。两者的编程非常相似。都具有编程结构、语法和逻辑机制。工具PL/SQL另外还增加了用于支持工具（如ORACLE Forms）的句法，如：在窗体上设置按钮等。本章主要介绍数据库PL/SQL内容。

1.2 PL/SQL的优点或特征

1.2.1 有利于客户/服务器环境应用的运行

对于客户/服务器环境来说，真正的瓶颈是网络上。无论网络多快，只要客户端与服务器进行大量的数据交换。应用运行的效率自然就回受到影响。如果使用PL/SQL进行编程，将这种具有大量数据处理的应用放在服务器端来执行。自然就省去了数据在网上的传输时间。

1.2.2 适合于客户环境

PL/SQL由于分为数据库PL/SQL部分和工具PL/SQL。对于客户端来说，PL/SQL可以嵌套到相应的工具中，客户端程序可以执行本地包含PL/SQL部分，也可以向服务发SQL命令或激活服务器端的PL/SQL程序运行。

1.2.3 过程化

PL/SQL是Oracle在标准SQL上的过程性扩展，不仅允许在PL/SQL程序内嵌入SQL语句，而且允许使用各种类型的条件分支语句和循环语句，可以多个应用程序之间共享其解决方案。

1.2.4 模块化

PL/SQL程序结构是一种描述性很强、界限分明的块结构、嵌套块结构，被分成单独的过程、函数、触发器，且可以把它们组合为程序包，提高程序的模块化能力。

1.2.5 运行错误的可处理性

使用PL/SQL提供的异常处理（EXCEPTION），开发人员可集中处理各种ORACLE错误和PL/SQL错误，或处理系统错误与自定义错误，以增强应用程序的健壮性。

1.2.6 提供大量内置程序包

ORACLE提供了大量的内置程序包。通过这些程序包能够实现DBS的一些低层操作、高级功能，不论对DBA还是应用开发人员都具有重要作用。

当然还有其它的一些优点如：更好的性能、可移植性和兼容性、可维护性、易用性与快速性等。
1.3 PL/SQL 可用的SQL语句

PL/SQL是ORACLE系统的核心语言，现在ORACLE的许多部件都是由PL/SQL写成。在PL/SQL中可以使用的SQL语句有：

INSERT，UPDATE，DELETE，SELECT INTO，COMMIT，ROLLBACK，SAVEPOINT。

提示：在 PL/SQL中只能用 SQL语句中的 DML 部分，不能用 DDL 部分，如果要在PL/SQL中使用DDL(如CREATE table 等)的话，只能以动态的方式来使用。

l ORACLE 的 PL/SQL 组件在对 PL/SQL 程序进行解释时，同时对在其所使用的表名、列名及数据类型进行检查。
l PL/SQL 可以在SQL*PLUS 中使用。
l PL/SQL 可以在高级语言中使用。
l PL/SQL可以在ORACLE的开发工具中使用(如：SQL Developer或Procedure Builder等)。
l 其它开发工具也可以调用PL/SQL编写的过程和函数，如Power Builder 等都可以调用服务器端的PL/SQL过程。
1.4 运行PL/SQL程序

PL/SQL程序的运行是通过ORACLE中的一个引擎来进行的。这个引擎可能在ORACLE的服务器端，也可能在 ORACLE 应用开发的客户端。引擎执行PL/SQL中的过程性语句，然后将SQL语句发送给数据库服务器来执行。再将结果返回给执行端。

2.1 PL/SQL块

　　PL/SQL程序由三个块组成，即声明部分、执行部分、异常处理部分。

　　PL/SQL块的结构如下：
DECLARE
--声明部分: 在此声明PL/SQL用到的变量,类型及游标，以及局部的存储过程和函数
BEGIN
-- 执行部分: 过程及SQL 语句 , 即程序的主要部分
EXCEPTION
-- 执行异常部分: 错误处理
END;
其中：执行部分不能省略。

　　PL/SQL块可以分为三类：

　　1. 无名块或匿名块（anonymous）：动态构造，只能执行一次，可调用其它程序，但不能被其它程序调用。

　　2. 命名块（named）：是带有名称的匿名块，这个名称就是标签。

　　3. 子程序（subprogram）：存储在数据库中的存储过程、函数等。当在数据库上建立好后可以在其它程序中调用它们。

　　4. 触发器（Trigger）：当数据库发生操作时，会触发一些事件，从而自动执行相应的程序。

　　5. 程序包（package）：存储在数据库中的一组子程序、变量定义。在包中的子程序可以被其它程序包或子程序调用。但如果声明的是局部子程序，则只能在定义该局部子程序的块中调用该局部子程序。
　　

2.2 PL/SQL结构

l PL/SQL块中可以包含子块；

l 子块可以位于 PL/SQL中的任何部分；

l 子块也即PL/SQL中的一条命令；
2.3 标识符

　　PL/SQL程序设计中的标识符定义与SQL 的标识符定义的要求相同。要求和限制有：

l 标识符名不能超过30字符；

l 第一个字符必须为字母；

l 不分大小写；

l 不能用’-‘(减号);

l 不能是SQL保留字。

　　提示: 一般不要把变量名声明与表中字段名完全一样,如果这样可能得到不正确的结果.

　　例如：下面的例子将会删除所有的纪录，而不是’EricHu’的记录；
DECLARE
ename varchar2(20) :='EricHu';
BEGIN
DELETE FROM scott.emp WHERE ename=ename;
END;
　　变量命名在PL/SQL中有特别的讲究，建议在系统的设计阶段就要求所有编程人员共同遵守一定的要求，使得整个系统的文档在规范上达到要求。下面是建议的命名方法：

2.4 PL/SQL 变量类型

　　在前面的介绍中，有系统的数据类型，也可以自定义数据类型。下表给出ORACLE类型和PL/SQL中的变量类型的合法使用列表：

2.4.1 变量类型
四类数据类型
标量类型（SCALAR，或称基本数据类型）：用于保存单个值，例如字符串，数字，日期，布尔；
复合类型（COMPOSITE）：复合类型可以在内部存放多种数值，类似于多个变量的集合，例如记录类型，嵌套表，索引表，可变数组等；
引用类型（REFERENCE）：用于指向另一个不同对象，例如REF CURSOR,REF；
LOB类型：大数据类型，最多可以存储4GB的信息，主要用来处理二进制数据；
标量类型
标量类型也被称为基本数据类型
常见标量类型


数值型
NUMBER数据类型
采用十进制类型，需将十进制转为二进制进行计算
定义整型：NUMBER(n);
定义浮点型数据：NUMBER(m,n)
实例1：定义NUMBER变量
SQL> set serveroutput on
SQL> DECLARE
2 v_x NUMBER(3) ; -- 最多只能为3位数字
3 v_y NUMBER(5,2) ; -- 3位整数，2位小数
4 BEGIN
5 v_x := -500 ;
6 v_y := 999.88 ;
7 DBMS_OUTPUT.put_line('v_x = ' || v_x) ;
8 DBMS_OUTPUT.put_line('v_y = ' || v_y) ;
9 DBMS_OUTPUT.put_line('加法运算：' || (v_x + v_y)) ; -- 整数 + 浮点数 = 浮点数
10 END ;
11 /
v_x = -500
v_y = 999.88
加法运算：499.88

PL/SQL procedure successfully completed.
BINARY_INTEGER与PLS_INTEGER
说明：
两者具有相同的范围长度。与NUMBER比较，占用的范围更小；
采用二进制补码存储，运算性能比NUMBER高；
两者区别：
BINARY_INTEGER操作的数据大于其数据范围时，会自动转换为NUMBER型进行保存；
PLS_INTEGER操作的数据大于范围时，会抛出异常信息
示例1：验证PLS_INTEGER操作
SQL> DECLARE
2 v_pls1 PLS_INTEGER := 100 ;
3 v_pls2 PLS_INTEGER := 200 ;
4 v_result PLS_INTEGER ;
5 BEGIN
6 v_result := v_pls1 + v_pls2 ;
7 DBMS_OUTPUT.put_line('计算结果：' || v_result) ;
8 END ;
9 /
计算结果：300

PL/SQL procedure successfully completed.
BINARY_FLOAT与BINARY_DOUBLE
两者比NUMBER节约空间，同时范围更大，采用二进制存储数据；
示例1：验证BINARY_DOUBLE操作
SQL> DECLARE
2 v_float BINARY_FLOAT := 8909.51F ;
3 v_double BINARY_DOUBLE := 8909.51D ;
4 BEGIN
5 v_float := v_float + 1000.16 ;
6 v_double := v_double + 1000.16 ;
7 DBMS_OUTPUT.put_line('BINARY_FLOAT变量内容：' || v_float) ;
8 DBMS_OUTPUT.put_line('BINARY_DOUBLE变量内容：' || v_double) ;
9 END ;
10 /
BINARY_FLOAT变量内容：9.90966992E+003
BINARY_DOUBLE变量内容：9.9096700000000001E+003

PL/SQL procedure successfully completed.
两者定义的常量：这些常量只能在PL/SQL中使用。这些常量分别表示BINARY_FLOAT与BINARY_DOUBLE的数据范围，同时针对非数字与超过其类型最大值的数据标记

示例2：观察表示范围的常量内容
SQL> DECLARE
2 BEGIN
3 DBMS_OUTPUT.put_line('1、BINARY_FLOAT_MIN_NORMAL = ' || BINARY_FLOAT_MIN_NORMAL) ;
4 DBMS_OUTPUT.put_line('1、BINARY_FLOAT_MAX_NORMAL = ' || BINARY_FLOAT_MAX_NORMAL) ;
5 DBMS_OUTPUT.put_line('1、BINARY_FLOAT_MIN_SUBNORMAL = ' || BINARY_FLOAT_MIN_SUBNORMAL) ;
6 DBMS_OUTPUT.put_line('1、BINARY_FLOAT_MAX_SUBNORMAL = ' || BINARY_FLOAT_MAX_SUBNORMAL) ;
7 DBMS_OUTPUT.put_line('2、BINARY_DOUBLE_MIN_NORMAL = ' || BINARY_DOUBLE_MIN_NORMAL) ;
8 DBMS_OUTPUT.put_line('2、BINARY_DOUBLE_MAX_NORMAL = ' || BINARY_DOUBLE_MAX_NORMAL) ;
9 DBMS_OUTPUT.put_line('2、BINARY_DOUBLE_MIN_SUBNORMAL = ' || BINARY_DOUBLE_MIN_SUBNORMAL) ;
10 DBMS_OUTPUT.put_line('2、BINARY_DOUBLE_MAX_SUBNORMAL = ' || BINARY_DOUBLE_MAX_SUBNORMAL) ;
11 END ;
12 /
1、BINARY_FLOAT_MIN_NORMAL = 1.17549435E-038
1、BINARY_FLOAT_MAX_NORMAL = 3.40282347E+038
1、BINARY_FLOAT_MIN_SUBNORMAL = 1.40129846E-045
1、BINARY_FLOAT_MAX_SUBNORMAL = 1.17549421E-038
2、BINARY_DOUBLE_MIN_NORMAL = 2.2250738585072014E-308
2、BINARY_DOUBLE_MAX_NORMAL = 1.7976931348623157E+308
2、BINARY_DOUBLE_MIN_SUBNORMAL = 4.9406564584124654E-324
2、BINARY_DOUBLE_MAX_SUBNORMAL = 2.2250738585072009E-308

PL/SQL procedure successfully completed.
示例3：超过范围的计算
SQL> DECLARE
2 BEGIN
3 DBMS_OUTPUT.put_line('超过范围计算的结果：' ||
4 BINARY_DOUBLE_MAX_NORMAL * BINARY_DOUBLE_MAX_NORMAL) ;
5 DBMS_OUTPUT.put_line('超过范围计算的结果：' ||
6 BINARY_DOUBLE_MAX_NORMAL / 0) ;
7 END ;
8 /
超过范围计算的结果：Inf
超过范围计算的结果：Inf

PL/SQL procedure successfully completed.
字符型
CHAR与VARCHAR2
说明：
CHAR采用定长方式保存字符串。如果用户设置的内容不足其定义长度，则会自动补充空格；
VARCHAR2是可变字符串。如果设置的内容不足其长度，也不会为其补充内容；
示例1：观察CHAR和VARCHAR2的区别
SQL> DECLARE
2 v_info_char CHAR(10) ;
3 v_info_varchar VARCHAR2(10) ;
4 BEGIN
5 v_info_char := 'MLDN' ; -- 长度不足10个
6 v_info_varchar := 'java' ; -- 长度不足10个
7 DBMS_OUTPUT.put_line('v_info_char内容长度：' || LENGTH(v_info_char)) ;
8 DBMS_OUTPUT.put_line('v_info_varchar内容长度：' || LENGTH(v_info_varchar)) ;
9 END ;
10 /
v_info_char内容长度：10
v_info_varchar内容长度：4

PL/SQL procedure successfully completed.

NCHAR和NVARCHAR2
两者的特性与CHAR，VARCHAR2一样。区别在于它们保存的数据为UNICODE编码，中文与英文都会变为十六进制编码保存；
示例1：验证NCHAR和NVARCHAR2
SQL> DECLARE
2 v_info_nchar NCHAR(10) ;
3 v_info_nvarchar NVARCHAR2(10) ;
4 BEGIN
5 v_info_nchar := 'CSDN' ; -- 长度不足10个
6 v_info_nvarchar := '高端培训' ; -- 长度不足10个
7 DBMS_OUTPUT.put_line('v_info_nchar内容长度：' || LENGTH(v_info_nchar)) ;
8 DBMS_OUTPUT.put_line('v_info_nvarchar内容长度：' || LENGTH(v_info_nvarchar)) ;
9 END ;
10 /
v_info_nchar内容长度：10
v_info_nvarchar内容长度：8

PL/SQL procedure successfully completed.
LONG与LONG RAW
两者用于向后兼容；
LONG说明：
使用LONG的地方都会使用CLOB或NCLOB；
LONG用于存储字符流；
可以使用"UTL_RAW.cast_to_varchar2(RAW数据)"函数，将RAW转为字符串
LONG RAW说明：
使用LONG RAW的地方都替换为BLOB或BILE；
LONG RAW用于存储二进制数据流
为LONG RAW变量设置内容，要使用"UTL_RAW.cast_to_raw(字符串)"进行转换；
示例1：使用LONG和LONG RAW操作
SQL> set serveroutput on
SQL> DECLARE
2 v_info_long LONG ;
3 v_info_longraw LONG RAW ;
4 BEGIN
5 v_info_long := 'CSDN' ; -- 直接设置字符串
6 v_info_longraw := UTL_RAW.cast_to_raw('高端培训') ; -- 将字符串变为RAW
7 DBMS_OUTPUT.put_line('v_info_long内容：' || v_info_long) ;
8 DBMS_OUTPUT.put_line('v_info_longraw内容：' || UTL_RAW.cast_to_varchar2(v_info_longraw)) ;
9 END ;
10 /
v_info_long内容：CSDN
v_info_longraw内容：高端培训

PL/SQL procedure successfully completed.
OWID与UROWID
ROWID表示的是一条数据的物理行地址，由18个字符组合而成，与ROWID伪列功能相同；
UROWID具备ROWID的功能，还增加了一个逻辑行地址，在PL/SQL中应将所有的ROWID交给UROWID管理；
示例1：使用ROWID及UROWID
SQL> create synonym emp for scott.emp@CLONEPDB_PLUG;

Synonym created.

SQL> DECLARE
2 v_emp_rowid ROWID ;
3 v_emp_urowid UROWID ;
4 BEGIN
5 SELECT ROWID INTO v_emp_rowid FROM emp WHERE empno=7369 ; -- 取得ROWID
6 SELECT ROWID INTO v_emp_urowid FROM emp WHERE empno=7369 ; -- 取得ROWID
7 DBMS_OUTPUT.put_line('7369雇员的ROWID = ' || v_emp_rowid) ;
8 DBMS_OUTPUT.put_line('7369雇员的UROWID = ' || v_emp_urowid) ;
9 END ;
10 /
7369雇员的ROWID = AAAR7bAALAAAACTAAA
7369雇员的UROWID = AAAR7bAALAAAACTAAA

PL/SQL procedure successfully completed.
日期型
DATE数据类型
用来存储日期时间数据；
可通过SYSDATE或SYSTIMESTAMP两个伪列来获取当前的日期时间；
主要字段索引：

示例1：定义DATE型变量
SQL> DECLARE
2 v_date1 date := SYSDATE;
3 v_date2 date := systimestamp;
4 v_date3 date :=TO_DATE('2015-01-01','YYYY-MM-DD');
5 BEGIN
6 DBMS_OUTPUT.put_line('日期数据：' || TO_CHAR(v_date1,'yyyy-mm-dd hh34:mi:ss'));
7 DBMS_OUTPUT.put_line('日期数据：' || TO_CHAR(v_date2,'yyyy-mm-dd hh34:mi:ss'));
8 DBMS_OUTPUT.put_line('日期数据：' || TO_CHAR(v_date3,'yyyy-mm-dd hh34:mi:ss'));
9 END;
10 /
日期数据：2017-12-19 15:22:01
日期数据：2017-12-19 15:22:01
日期数据：2015-01-01 00:00:00

PL/SQL procedure successfully completed.
TIMESTAMP数据类型
该类型与DATE的区别在于，可以提供更为准确的时间。但是要使用SYSTIMESTAMP伪列来为其赋值；
如果只是使用SYSDATE，那么TIMESTAMP与DATE没有任何区别；
示例1：定义TIMESTAMP型变量
SQL> DECLARE
2 v_timestamp1 TIMESTAMP := SYSDATE;
3 v_timestamp2 TIMESTAMP := SYSTIMESTAMP;
4 v_timestamp3 TIMESTAMP := to_timestamp('2011-12-15 10:40:10.345', 'yyyy-MM-dd HH24:MI:ss.ff');
5 BEGIN
6 DBMS_OUTPUT.put_line('日期数据：' || v_timestamp1) ;
7 DBMS_OUTPUT.put_line('日期数据：' || v_timestamp2) ;
8 DBMS_OUTPUT.put_line('日期数据：' || v_timestamp3) ;
9 END ;
10 /
日期数据：19-DEC-17 03.32.31.000000 PM
日期数据：19-DEC-17 03.32.31.988000 PM
日期数据：15-DEC-11 10.40.10.345000 AM

PL/SQL procedure successfully completed.
TIMESTAMP的两个扩充子类型：
TIMESTAMP WITH TIME ZONE：包含与格林威治时间的时区偏移量
SQL> DECLARE
2 v_timestamp TIMESTAMP WITH TIME ZONE := SYSTIMESTAMP ;
3 BEGIN
4 DBMS_OUTPUT.put_line(v_timestamp) ;
5 END ;
6 /
19-DEC-17 03.36.53.909000 PM +08:00

PL/SQL procedure successfully completed.
TIMESTAMP WITH LOCAL TIME ZONE：不管是何种时区的数据，都使用当前数据库的时区；
SQL> DECLARE
2 v_timestamp TIMESTAMP WITH LOCAL TIME ZONE := SYSTIMESTAMP ;
3 BEGIN
4 DBMS_OUTPUT.put_line(v_timestamp) ;
5 END ;
6 /
19-DEC-17 03.37.32.894000 PM

PL/SQL procedure successfully completed.
NTERVAL数据类型
该类型可以保存两个时间戳之间的时间间隔，此类型分为两个子类型：
INTERVAL YEAR[(年的精度)] TO MONTHS:保存的和操作年与月之间的时间间隔，用户可以设置年的数据精度。默认值为2；
赋值格式：'年-月'
INTERVAL DAY[(天的精度)] TO SECEND[(秒的精度)]:保存和操作天，时，分，秒之间的时间间隔，默认为2。秒的默认值为6；
赋值格式：'天时：分：秒.毫秒'
当取得时间间隔后，可利用下列公式进行计算：

示例1：定义INTERVAL YEAR TO MONTHS类型变量
SQL> DECLARE
2 v_interval INTERVAL YEAR(3) TO MONTH := INTERVAL '27-09' YEAR TO MONTH ;
3 BEGIN
4 DBMS_OUTPUT.put_line('时间间隔：' || v_interval) ;
5 DBMS_OUTPUT.put_line('当前时间戳 + 时间间隔：' || (SYSTIMESTAMP + v_interval)) ;
6 DBMS_OUTPUT.put_line('当前日期 + 时间间隔：' || (SYSDATE + v_interval)) ;
7 END ;
8 /
时间间隔：+027-09
当前时间戳 + 时间间隔：19-SEP-45 03.43.24.742000000 PM +08:00
当前日期 + 时间间隔：2045-09-19 15:43:24

PL/SQL procedure successfully completed.
示例2：定义INTERVAL DAY TO SECOND类型变量
SQL> DECLARE
2 v_interval INTERVAL DAY(6) TO SECOND (3) := INTERVAL '8 18:19:27.367123909' DAY TO SECOND;
3 BEGIN
4 DBMS_OUTPUT.put_line('时间间隔：' || v_interval) ;
5 DBMS_OUTPUT.put_line('当前时间戳 + 时间间隔：' || (SYSTIMESTAMP + v_interval)) ;
6 DBMS_OUTPUT.put_line('当前日期 + 时间间隔：' || (SYSDATE + v_interval)) ;
7 END ;
8 /
时间间隔：+000008 18:19:27.367
当前时间戳 + 时间间隔：28-DEC-17 10.03.46.657000000 AM +08:00
当前日期 + 时间间隔：2017-12-28 10:03:46

PL/SQL procedure successfully completed.
布尔型
该类型保存TRUE,FALSE,NULL
示例1：定义布尔型变量
SQL> DECLARE
2 v_flag BOOLEAN ;
3 BEGIN
4 v_flag := true ;
5 IF v_flag THEN
6 DBMS_OUTPUT.put_line('条件满足。') ;
7 END IF ;
8 END ;
9 /
条件满足。

PL/SQL procedure successfully completed.
子类型
在某一标量类型的基础上定义更多约束，从而创建一个新的类型，这种新类型被称为子类型；
创建语法：
subtype 子类型名称 is 父数据类型[(约束)] [not null];
在定义子类型的时候必须设置好父数据类型。父类型可以是Oracle的各种数据类型

示例1：定义NUMBER子类型
SQL> DECLARE
2 SUBTYPE score_subtype IS NUMBER(5,2) NOT NULL ;
3 v_score score_subtype := 99.35 ; --依据score_subtype类型为v_score变量赋值为99.35
4 BEGIN
5 DBMS_OUTPUT.put_line('成绩为：' || v_score) ;
6 END ;
7 /
成绩为：99.35

PL/SQL procedure successfully completed.
示例2：定义VARCHAR2子类型
SQL> DECLARE
2 SUBTYPE string_subtype IS VARCHAR2(200) ;
3 v_company string_subtype ;--声明一个子类型为 string_subtype的变量v_company
4 BEGIN
5 v_company := 'test' ;
6 DBMS_OUTPUT.put_line(v_company) ;
7 END ;
8 /
test

PL/SQL procedure successfully completed.

RETURNING子句
SQL> set serveroutput on;
SQL> DECLARE
2 Row_id ROWID;
3 info VARCHAR2(40);
4 BEGIN
5 INSERT INTO dept VALUES (90, '财务室', '海口')
6 RETURNING rowid, dname||':'||to_char(deptno)||':'||loc
7 INTO row_id, info;
8 DBMS_OUTPUT.PUT_LINE('ROWID:'||row_id);
9 DBMS_OUTPUT.PUT_LINE(info);
10 END;
11 /
ROWID:AAAR7ZAALAAAACFAAA
财务室:90:海口

PL/SQL procedure successfully completed.
RETURNING子句用于检索INSERT语句中所影响的数据行数，当INSERT语句使用VALUES 子句插入数据时，RETURNING 字句还可将列表达式、ROWID和REF值返回到输出变量中。在使用RETURNING 子句是应注意以下几点限制：

　　1．不能与DML语句和远程对象一起使用；

　　2．不能检索LONG 类型信息；

　　3．当通过视图向基表中插入数据时，只能与单基表视图一起使用。
例2. 修改一条记录并显示
SQL> DECLARE
2 Row_id ROWID;
3 info VARCHAR2(40);
4 BEGIN
5 UPDATE dept SET deptno=10 WHERE DNAME='ACCOUNTING'
6 RETURNING rowid, dname||':'||to_char(deptno)||':'||loc
7 INTO row_id, info;
8 DBMS_OUTPUT.PUT_LINE('ROWID:'||row_id);
9 DBMS_OUTPUT.PUT_LINE(info);
10 END;
11 /
ROWID:AAAR7ZAALAAAACDAAA
ACCOUNTING:10:NEW YORK

PL/SQL procedure successfully completed.
RETURNING子句用于检索被修改行的信息。当UPDATE语句修改单行数据时，RETURNING 子句可以检索被修改行的ROWID和REF值，以及行中被修改列的列表达式，并可将他们存储到PL/SQL变量或复合变量中；当UPDATE语句修改多行数据时，RETURNING 子句可以将被修改行的ROWID和REF值，以及列表达式值返回到复合变量数组中。在UPDATE中使用RETURNING 子句的限制与INSERT语句中对RETURNING子句的限制相同。

　　例3.删除一条记录并显示
SQL> DECLARE
2 Row_id ROWID;
3 info VARCHAR2(40);
4 BEGIN
5 DELETE dept WHERE DNAME='OPERATIONS'
6 RETURNING rowid, dname||':'||to_char(deptno)||':'||loc
7 INTO row_id, info;
8 DBMS_OUTPUT.PUT_LINE('ROWID:'||row_id);
9 DBMS_OUTPUT.PUT_LINE(info);
10 END;
11 /
ROWID:AAAR7ZAALAAAACDAAD
OPERATIONS:40:BOSTON

PL/SQL procedure successfully completed.
RETURNING子句用于检索被删除行的信息：当DELETE语句删除单行数据时，RETURNING 子句可以检索被删除行的ROWID和REF值，以及被删除列的列表达式，并可将他们存储到PL/SQL变量或复合变量中；当DELETE语句删除多行数据时，RETURNING 子句可以将被删除行的ROWID和REF值，以及列表达式值返回到复合变量数组中。在DELETE中使用RETURNING 子句的限制与INSERT语句中对RETURNING子句的限制相同。

2.4.2 复合类型

ORACLE 在 PL/SQL 中除了提供象前面介绍的各种类型外,还提供一种称为复合类型的类型---记录和表. 

2.4.2.1 记录类型

记录类型类似于C语言中的结构数据类型，它把逻辑相关的、分离的、基本数据类型的变量组成一个整体存储起来，它必须包括至少一个标量型或RECORD 数据类型的成员，称作PL/SQL RECORD 的域(FIELD)，其作用是存放互不相同但逻辑相关的信息。在使用记录数据类型变量时，需要先在声明部分先定义记录的组成、记录的变量，然后在执行部分引用该记录变量本身或其中的成员。

　　定义记录类型语法如下:

TYPE record_name IS RECORD(
v1 data_type1 [NOT NULL] [:= default_value ],
v2 data_type2 [NOT NULL] [:= default_value ],
......
vn data_typen [NOT NULL] [:= default_value ] );
例1 ：
SQL> DECLARE
2 TYPE test_rec IS RECORD(
3 Name VARCHAR2(30) NOT NULL := '我的自学',
4 Info VARCHAR2(100));
5 rec_book test_rec;
6 BEGIN
7 rec_book.Info :='Oracle PL/SQL编程;';
8 DBMS_OUTPUT.PUT_LINE(rec_book.Name||' ' ||rec_book.Info);
9 END;
10 /
我的自学 Oracle PL/SQL编程;

PL/SQL procedure successfully completed.
可以用 SELECT语句对记录变量进行赋值,只要保证记录字段与查询结果列表中的字段相配即可。
例2 ：
SQL> conn hr/hr@pdbtest
Connected.
SQL> set serveroutput on
SQL> DECLARE
2 --定义与employees表中的这几个列相同的记录数据类型
3 TYPE RECORD_TYPE_EMPLOYEES IS RECORD(
4 f_name employees.first_name%TYPE,
5 h_date employees.hire_date%TYPE,
6 j_id employees.job_id%TYPE);
7 --声明一个该记录数据类型的记录变量
8 v_emp_record RECORD_TYPE_EMPLOYEES;
9
10 BEGIN
11 SELECT first_name, hire_date, job_id INTO v_emp_record
12 FROM employees
13 WHERE employee_id = &emp_id;
14
15 DBMS_OUTPUT.PUT_LINE('雇员名称：'||v_emp_record.f_name
16 ||' 雇佣日期：'||v_emp_record.h_date
17 ||' 岗位：'||v_emp_record.j_id);
18 END;
19 /
Enter value for emp_id: 206
old 13: WHERE employee_id = &emp_id;
new 13: WHERE employee_id = 206;
雇员名称：William 雇佣日期：2002-06-07 00:00:00 岗位：AC_ACCOUNT

PL/SQL procedure successfully completed.
一个记录类型的变量只能保存从数据库中查询出的一行记录，若查询出了多行记录，就会出现错误。
2.4.2.2 数组类型

数据是具有相同数据类型的一组成员的集合。每个成员都有一个唯一的下标，它取决于成员在数组中的位置。在PL/SQL中，数组数据类型是VARRAY。

定义VARRY数据类型语法如下：

TYPE varray_name IS VARRAY(size) OF element_type [NOT NULL];
varray_name是VARRAY数据类型的名称，size是下整数，表示可容纳的成员的最大数量，每个成员的数据类型是element_type。默认成员可以取空值，否则需要使用NOT NULL加以限制。对于VARRAY数据类型来说，必须经过三个步骤，分别是：定义、声明、初始化。
例1 ：
SQL> DECLARE
2 --定义一个最多保存5个VARCHAR(25)数据类型成员的VARRAY数据类型
3 TYPE reg_varray_type IS VARRAY(5) OF VARCHAR(25);
4 --声明一个该VARRAY数据类型的变量
5 v_reg_varray REG_VARRAY_TYPE;
6
7 BEGIN
8 --用构造函数语法赋予初值
9 v_reg_varray := reg_varray_type
10 ('中国', '美国', '英国', '日本', '法国');
11
12 DBMS_OUTPUT.PUT_LINE('地区名称：'||v_reg_varray(1)||'、'
13 ||v_reg_varray(2)||'、'
14 ||v_reg_varray(3)||'、'
15 ||v_reg_varray(4));
16 DBMS_OUTPUT.PUT_LINE('赋予初值NULL的第5个成员的值：'||v_reg_varray(5));
17 --用构造函数语法赋予初值后就可以这样对成员赋值
18 v_reg_varray(5) := '法国';
19 DBMS_OUTPUT.PUT_LINE('第5个成员的值：'||v_reg_varray(5));
20 END;
21 /
地区名称：中国、美国、英国、日本
赋予初值NULL的第5个成员的值：法国
第5个成员的值：法国

PL/SQL procedure successfully completed.
2.4.2.3 使用%TYPE

定义一个变量，其数据类型与已经定义的某个数据变量(尤其是表的某一列)的数据类型相一致，这时可以使用%TYPE。

　　使用%TYPE特性的优点在于：

　　l 所引用的数据库列的数据类型可以不必知道；

　　l 所引用的数据库列的数据类型可以实时改变，容易保持一致，也不用修改PL/SQL程序。

　　例1：
SQL> conn scott/tiger@clonepdb_plug
Connected.
SQL> set serveroutput on
SQL> DECLARE
2 -- 用%TYPE 类型定义与表相配的字段
3 TYPE T_Record IS RECORD(
4 T_no emp.empno%TYPE,
5 T_name emp.ename%TYPE,
6 T_sal emp.sal%TYPE );
7 -- 声明接收数据的变量
8 v_emp T_Record;
9 BEGIN
10 SELECT empno, ename, sal INTO v_emp FROM emp WHERE empno=7782;
11 DBMS_OUTPUT.PUT_LINE
12 (TO_CHAR(v_emp.t_no)||' '||v_emp.t_name||' ' || TO_CHAR(v_emp.t_sal));
13 END;
14 /
7782 CLARK 2450

PL/SQL procedure successfully completed.
例2：
SQL> DECLARE
2 v_empno emp.empno%TYPE :=&no;
3 Type t_record is record (
4 v_name emp.ename%TYPE,
5 v_sal emp.sal%TYPE,
6 v_date emp.hiredate%TYPE);
7 Rec t_record;
8 BEGIN
9 SELECT ename, sal, hiredate INTO Rec FROM emp WHERE empno=v_empno;
10 DBMS_OUTPUT.PUT_LINE(Rec.v_name||'---'||Rec.v_sal||'--'||Rec.v_date);
11 END;
12 /
Enter value for no: 7782
old 2: v_empno emp.empno%TYPE :=&no;
new 2: v_empno emp.empno%TYPE :=7782;
CLARK---2450--1981-06-09 00:00:00

PL/SQL procedure successfully completed.
2.4.3 使用%ROWTYPE

PL/SQL 提供%ROWTYPE操作符, 返回一个记录类型, 其数据类型和数据库表的数据结构相一致。

　　使用%ROWTYPE特性的优点在于：

　　l 所引用的数据库中列的个数和数据类型可以不必知道；

　　l 所引用的数据库中列的个数和数据类型可以实时改变，容易保持一致，也不用修改PL/SQL程序。
例1：
SQL> DECLARE
2 v_empno emp.empno%TYPE :=&no;
3 rec emp%ROWTYPE;
4 BEGIN
5 SELECT * INTO rec FROM emp WHERE empno=v_empno;
6 DBMS_OUTPUT.PUT_LINE('姓名:'||rec.ename||'工资:'||rec.sal||'工作时间:'||rec.hiredate);
7 END;
8 /
Enter value for no: 7782
old 2: v_empno emp.empno%TYPE :=&no;
new 2: v_empno emp.empno%TYPE :=7782;
姓名:CLARK工资:2450工作时间:1981-06-09 00:00:00

PL/SQL procedure successfully completed.
2.4.4 LOB类型

　　ORACLE提供了LOB (Large OBject)类型，用于存储大的数据对象的类型。ORACLE目前主要支持BFILE, BLOB, CLOB 及 NCLOB 类型。

BFILE (Movie)

存放大的二进制数据对象，这些数据文件不放在数据库里，而是放在操作系统的某个目录里，数据库的表里只存放文件的目录。 

BLOB(Photo)

存储大的二进制数据类型。变量存储大的二进制对象的位置。大二进制对象的大小<=4GB。 

CLOB(Book)

存储大的字符数据类型。每个变量存储大字符对象的位置，该位置指到大字符数据块。大字符对象的大小<=4GB。 

NCLOB

存储大的NCHAR字符数据类型。每个变量存储大字符对象的位置，该位置指到大字符数据块。大字符对象的大小<=4GB。 

2.4.5 BIND 变量

　　绑定变量是在主机环境中定义的变量。在PL/SQL 程序中可以使用绑定变量作为他们将要使用的其它变量。为了在PL/SQL 环境中声明绑定变量，使用命令VARIABLE。例如：

VARIABLE return_code NUMBER
VARIABLE return_msg VARCHAR2(20)
可以通过SQLPlus命令中的PRINT 显示绑定变量的值。例如：
PRINT return_code
PRINT return_msg
例1：
SQL> VARIABLE result NUMBER;
SQL> BEGIN
2 SELECT (sal10)+nvl(comm, 0) INTO :result FROM emp
3 WHERE empno=7844;
4 END;
5 /

PL/SQL procedure successfully completed.

SQL> --然后再执行
SQL> PRINT result

RESULT

---

 15000

2.4.6 PL/SQL 表(TABLE)
定义记录表（或索引表）数据类型。它与记录类型相似，但它是对记录类型的扩展。它可以处理多行记录，类似于高级中的二维数组，使得可以在PL/SQL中模仿数据库中的表。

定义记录表类型的语法如下：

TYPE table_name IS TABLE OF element_type [NOT NULL]
INDEX BY [BINARY_INTEGER | PLS_INTEGER | VARRAY2];
　　关键字INDEX BY表示创建一个主键索引，以便引用记录表变量中的特定行。

例1：
SQL> DECLARE
2 TYPE dept_table_type IS TABLE OF
3 dept%ROWTYPE INDEX BY BINARY_INTEGER;
4 my_dname_table dept_table_type;
5 v_count number(2) :=3;
6 BEGIN
7 FOR int IN 1 .. v_count LOOP
8 SELECT INTO my_dname_table(int) FROM dept WHERE deptno=int10;
9 END LOOP;
10 FOR int IN my_dname_table.FIRST .. my_dname_table.LAST LOOP
11 DBMS_OUTPUT.PUT_LINE('Department number: '||my_dname_table(int).deptno);
12 DBMS_OUTPUT.PUT_LINE('Department name: '|| my_dname_table(int).dname);
13 END LOOP;
14 END;
15 /
Department number: 10
Department name: ACCOUNTING
Department number: 20
Department name: RESEARCH
Department number: 30
Department name: SALES

PL/SQL procedure successfully completed.
例2：按一维数组使用记录表
SQL> DECLARE
2 --定义记录表数据类型
3 TYPE reg_table_type IS TABLE OF varchar2(25)
4 INDEX BY BINARY_INTEGER;
5 --声明记录表数据类型的变量
6 v_reg_table REG_TABLE_TYPE;
7
8 BEGIN
9 v_reg_table(1) := 'Europe';
10 v_reg_table(2) := 'Americas';
11 v_reg_table(3) := 'Asia';
12 v_reg_table(4) := 'Middle East and Africa';
13 v_reg_table(5) := 'NULL';
14
15 DBMS_OUTPUT.PUT_LINE('地区名称：'||v_reg_table (1)||'、'
16 ||v_reg_table (2)||'、'
17 ||v_reg_table (3)||'、'
18 ||v_reg_table (4));
19 DBMS_OUTPUT.PUT_LINE('第5个成员的值：'||v_reg_table(5));
20 END;
21 /
地区名称：Europe、Americas、Asia、Middle East and Africa
第5个成员的值：NULL

PL/SQL procedure successfully completed
例3：按二维数组使用记录表
SQL> conn hr/hr@pdbtest
Connected.
SQL> set serveroutput on
SQL> DECLARE
2 --定义记录表数据类型
3 TYPE emp_table_type IS TABLE OF employees%ROWTYPE
4 INDEX BY BINARY_INTEGER;
5 --声明记录表数据类型的变量
6 v_emp_table EMP_TABLE_TYPE;
7 BEGIN
8 SELECT first_name, hire_date, job_id INTO
9 v_emp_table(1).first_name,v_emp_table(1).hire_date, v_emp_table(1).job_id
10 FROM employees WHERE employee_id = 177;
11 SELECT first_name, hire_date, job_id INTO
12 v_emp_table(2).first_name,v_emp_table(2).hire_date, v_emp_table(2).job_id
13 FROM employees WHERE employee_id = 178;
14
15 DBMS_OUTPUT.PUT_LINE('177雇员名称：'||v_emp_table(1).first_name
16 ||' 雇佣日期：'||v_emp_table(1).hire_date
17 ||' 岗位：'||v_emp_table(1).job_id);
18 DBMS_OUTPUT.PUT_LINE('178雇员名称：'||v_emp_table(2).first_name
19 ||' 雇佣日期：'||v_emp_table(2).hire_date
20 ||' 岗位：'||v_emp_table(2).job_id);
21 END;
22 /
177雇员名称：Jack 雇佣日期：2006-04-23 00:00:00 岗位：SA_REP
178雇员名称：Kimberely 雇佣日期：2007-05-24 00:00:00 岗位：SA_REP

PL/SQL procedure successfully completed.
2.5 运算符和表达式(数据定义)

2.5.1 关系运算符

2.5.2 一般运算符

2.5.3 逻辑运算符

2.6 变量赋值

　　在PL/SQL编程中，变量赋值是一个值得注意的地方，它的语法如下：

variable := expression ;
　　variable 是一个PL/SQL变量, expression 是一个PL/SQL 表达式.

2.6.1 字符及数字运算特点

　　空值加数字仍是空值：NULL + < 数字> = NULL

　　空值加（连接）字符，结果为字符：NULL || <字符串> = < 字符串>

2.6.2 BOOLEAN 赋值

　　布尔值只有TRUE, FALSE及 NULL 三个值。
2.6.3 数据库赋值

　　数据库赋值是通过 SELECT语句来完成的，每次执行 SELECT语句就赋值一次，一般要求被赋值的变量与SELECT中的列名要一一对应。如：

　　例1：
SQL> DECLARE
2 emp_id emp.empno%TYPE :=7782;
3 emp_name emp.ename%TYPE;
4 wages emp.sal%TYPE;
5 BEGIN
6 SELECT ename, NVL(sal,0) + NVL(comm,0) INTO emp_name, wages
7 FROM emp WHERE empno = emp_id;
8 DBMS_OUTPUT.PUT_LINE(emp_name||'----'||to_char(wages));
9 END;
10 /
CLARK----2450

PL/SQL procedure successfully completed.
提示：不能将SELECT语句中的列赋值给布尔变量。
2.6.4 可转换的类型赋值

l CHAR 转换为 NUMBER：

使用 TO_NUMBER 函数来完成字符到数字的转换，如：

v_total := TO_NUMBER('100.0') + sal;
l NUMBER 转换为CHAR：

使用 TO_CHAR函数可以实现数字到字符的转换，如：

v_comm := TO_CHAR('123.45') || '元' ;
l 字符转换为日期：

使用 TO_DATE函数可以实现 字符到日期的转换，如：

v_date := TO_DATE('2001.07.03','yyyy.mm.dd');
l 日期转换为字符

使用 TO_CHAR函数可以实现日期到字符的转换，如：

v_to_day := TO_CHAR(SYSDATE, 'yyyy.mm.dd hh34:mi:ss') ;
2.7 变量作用范围及可见性

　　在PL/SQL编程中，如果在变量的定义上没有做到统一的话，可能会隐藏一些危险的错误，这样的原因主要是变量的作用范围所致。变量的作用域是指变量的有效作用范围，与其它高级语言类似，PL/SQL的变量作用范围特点是：

l 变量的作用范围是在你所引用的程序单元（块、子程序、包）内。即从声明变量开始到该块的结束。

l 一个变量（标识）只能在你所引用的块内是可见的。

l 当一个变量超出了作用范围，PL/SQL引擎就释放用来存放该变量的空间（因为它可能不用了）。

l 在子块中重新定义该变量后，它的作用仅在该块内。
例1：
SQL> DECLARE
2 Emess char(80);
3 BEGIN
4
5 DECLARE
6 V1 NUMBER(4);
7 BEGIN
8 SELECT empno INTO v1 FROM emp WHERE LOWER(job)='president';
9 DBMS_OUTPUT.PUT_LINE(V1);
10 EXCEPTION
11 When TOO_MANY_ROWS THEN
12 DBMS_OUTPUT.PUT_LINE ('More than one president');
13 END;
14
15 DECLARE
16 V1 NUMBER(4);
17 BEGIN
18 SELECT empno INTO v1 FROM emp WHERE LOWER(job)='manager';
19 EXCEPTION
20 When TOO_MANY_ROWS THEN
21 DBMS_OUTPUT.PUT_LINE ('More than one manager');
22 END;
23
24 EXCEPTION
25 When others THEN
26 Emess:=substr(SQLERRM,1,80);
27 DBMS_OUTPUT.PUT_LINE(emess);
28 END;
29 /
7839
More than one manager

PL/SQL procedure successfully completed.
2.8 注释

在PL/SQL里，可以使用两种符号来写注释，即：

l 使用双 ‘-‘ ( 减号) 加注释

PL/SQL允许用 – 来写注释，它的作用范围是只能在一行有效。如：

V_Sal NUMBER(12,2); -- 人员的工资变量。
l 使用 / / 来加一行或多行注释，如：

//
/ 文件名： /
/ 作 者： /
/ 时 间： /
//
　　提示：被解释后存放在数据库中的 PL/SQL 程序，一般系统自动将程序头部的注释去掉。只有在 PROCEDURE 之后的注释才被保留；另外程序中的空行也自动被去掉。