第二章 PL/SQL块结构和组成元素

 

§2.1   PL/SQL块

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

 

PL/SQL块的结构如下：

 

DECLARE 

/* 声明部分: 在此声明PL/SQL用到的变量,类型及游标，以及局部的存储过程和函数 */

BEGIN

    /*  执行部分:  过程及SQL 语句  , 即程序的主要部分  */

EXCEPTION

   /* 执行异常部分: 错误处理  */

END;

 

其中 执行部分是必须的。

 

PL/SQL块可以分为三类：

 

1.      无名块：动态构造，只能执行一次。

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

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

 

§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保留字。

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

 

例如：下面的例子将会删除所有的纪录，而不是KING 的记录；

 

DECLARE

   Ename varchar2(20) :=’KING’;

BEGIN

            DELETE FROM emp WHERE ename=ename;

END;

 

    变量命名在PL/SQL中有特别的讲究，建议在系统的设计阶段就要求所有编程人员共同遵守一定的要求，使得整个系统的文档在规范上达到要求。下面是建议的命名方法：

 

标识符	命名规则	例子
程序变量	V_name	V_name
程序常量	C_Name	C_company_name
游标变量	Name_cursor	Emp_cursor
异常标识	E_name	E_too_many
表类型	Name_table_type	Emp_record_type
表	Name_table	Emp
记录类型	Name_record	Emp_record
SQL*Plus 替代变量	P_name	P_sal
绑定变量	G_name	G_year_sal

 

§2.4   PL/SQL 变量类型

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

 

§2.4.1  变量类型

 

在ORACLE8i中可以使用的变量类型有：

类型	子类	说     明	范   围	ORACLE限制
CHAR	Character String Rowid Nchar	定长字符串     民族语言字符集	0à32767 可选,确省=1	2000
VARCHAR2	Varchar, String NVARCHAR2	可变字符串 民族语言字符集	0à32767 4000	4000
BINARY_INTEGER		带符号整数,为整数计算优化性能
NUMBER(p,s)	Dec   Double precision Integer Int Numeric Real Small int	小数, NUMBER 的子类型 高精度实数 整数, NUMBER 的子类型 整数, NUMBER 的子类型 与NUMBER等价 与NUMBER等价 整数, 比 integer 小
LONG		变长字符串	0->2147483647	32,767字节
DATE		日期型	公元前4712年1月1日至公元后4712年12月31日
BOOLEAN		布尔型	TRUE, FALSE,NULL	不使用
ROWID		存放数据库行号
UROWID		通用行标识符，字符类型

 

例1.        插入一条记录并显示；

 

DECLARE

   Row_id UROWID;

   info    VARCHAR2(40);

BEGIN

            INSERT INTO dept VALUES (90, ‘SERVICE’, ‘BEIJING’)

                RETURNING rowid, dname||’:’||to_char(deptno)||’:’||loc

                                    INTO row_id, info;

            DBMS_OUTPUT.PUT_LINE(‘ROWID:’||row_id);

            DBMS_OUTPUT.PUT_LINE(info);

END;

 

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

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

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

3．当通过视图向基表中插入数据时，只能与单基表视图一起使用。

 

例2. 修改一条记录并显示

 

DECLARE

   Row_id UROWID;

   info    VARCHAR2(40);

BEGIN

            UPDATE dept SET deptno=80 WHERE DNAME=‘SERVICE’

                        RETURNING rowid, dname||’:’||to_char(deptno)||’:’||loc

                                    INTO row_id, info;

            DBMS_OUTPUT.PUT_LINE(‘ROWID:’||row_id);

            DBMS_OUTPUT.PUT_LINE(info);

END;

 

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

 

例3. 删除一条记录并显示

 

DECLARE

   Row_id UROWID;

   info    VARCHAR2(40);

BEGIN

            DELETE dept WHERE DNAME=‘SERVICE’

                        RETURNING rowid, dname||’:’||to_char(deptno)||’:’||loc

                                    INTO row_id, info;

            DBMS_OUTPUT.PUT_LINE(‘ROWID:’||row_id);

            DBMS_OUTPUT.PUT_LINE(info);

END;

 

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

 

§2.4.2   复合类型

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

 

§2.4.2.1 记录类型

记录类型是把逻辑相关的数据作为一个单元存储起来，它必须包括至少一个标量型或RECORD 数据类型的成员，称作PL/SQL RECORD 的域(FIELD)，其作用是存放互不相同但逻辑相关的信息。

 

定义记录类型语法如下:

 

TYPE record_type IS RECORD(

   Field1 type1  [NOT NULL]  [:= exp1 ],

   Field2 type2  [NOT NULL]  [:= exp2 ],

   . . .   . . .

   Fieldn typen  [NOT NULL]  [:= expn ] ) ;

 

例4 ：

 

DECLARE

   TYPE test_rec IS RECORD(

         Code VARCHAR2(10),

         Name VARCHAR2(30) NOT NULL :=’a book’);

   V_book test_rec;

BEGIN

   V_book.code :=’123’;

   V_book.name :=’C++ Programming’;

   DBMS_OUTPUT.PUT_LINE(v_book.code||v_book.name);

END;

 

    可以用 SELECT语句对记录变量进行赋值,只要保证记录字段与查询结果列表中的字段相配即可。

 

§2.4.2.2 使用%TYPE

定义一个变量，其数据类型与已经定义的某个数据变量的类型相同，或者与数据库表的某个列的数据类型相同，这时可以使用%TYPE。

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

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

l  所引用的数据库列的数据类型可以实时改变。

 

例5：

DECLARE

   -- 用 %TYPE 类型定义与表相配的字段

   TYPE t_Record IS RECORD(

          T_no emp.empno%TYPE,

          T_name emp.ename%TYPE,

          T_sal emp.sal%TYPE );

   -- 声明接收数据的变量

   v_emp t_Record;

BEGIN

   SELECT empno, ename, sal INTO v_emp FROM emp WHERE empno=7788;

   DBMS_OUTPUT.PUT_LINE

(TO_CHAR(v_emp.t_no)||v_emp.t_name||TO_CHAR(v_emp.t_sal));

END;

 

例6：

DECLARE

   v_empno emp.empno%TYPE :=&empno;

   Type r_record is record (

        v_name   emp.ename%TYPE,

        v_sal     emp.sal%TYPE,

        v_date    emp.hiredate%TYPE);

   Rec r_record;

BEGIN

   SELECT ename, sal, hiredate INTO Rec FROM emp WHERE empno=v_empno;

   DBMS_OUTPUT.PUT_LINE(Rec.v_name||'---'||Rec.v_sal||'--'||Rec.v_date);

END;

 

§2.4.3 使用%ROWTYPE

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

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

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

l  所引用的数据库中列的个数和数据类型可以实时改变。

 

例7：

DECLARE

    v_empno emp.empno%TYPE :=&empno;

    rec emp%ROWTYPE;

BEGIN

    SELECT * INTO rec FROM emp WHERE empno=v_empno;

    DBMS_OUTPUT.PUT_LINE('姓名:'||rec.ename||'工资:'||rec.sal||'工作时间:'||rec.hiredate);

END;

 

§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)

 

可以通过SQL*Plus命令中的PRINT 显示绑定变量的值。例如：

PRINT return_code

PRINT return_msg

 

例7：

 

VARIABLE result NUMBER

 

BEGIN

            SELECT (sal*12)+nvl(comm, 0) INTO :result FROM emp WHERE empno=7788;

END;

 

PRINT result

 

§2.4.6  INDEX BY TABLES

 

包括两个基本成分:

．数据处理类型为BINARY_INTEGER主键;

．标量或记录数据类型的列．

 

TYPE type_name IS TABLE OF

            {column_type | variable%TYPE | table.column%TYPE } [NOT NULL] | table%ROWTYPE

            [ INDEX BY BINARY_INTEGER];

 

方法	描述
EXISTS(n)	Return TRUE if the nth element in a PL/SQL table exists;
COUNT	Returns the number of elements that a PL/SQL table currently contains;
FIRST LAST	Return the first and last (smallest and lastest) index numbers in a PL/SQL table. Returns NULL if the PL/SQL table is empty.
PRIOR(n)	Returns the index number that precedes index n in a PL/SQL table;
NEXT(N)	Returns the index number that succeeds index n in a PL/SQL table;
TRIM	TRIM removes one element from the end of a PL/SQL table. TRIM(n) removes n element from the end of a PL/SQL table.
DELETE	DELETE removes all elements from a PL/SQL table. DELETE(n) removes the nth elements from a PL/SQL table. DELETE(m, n) removes all elements in the range m to n from a PL/SQL table.

 

例8：

 

DECLARE

            TYPE dept_table_type IS TABLE OF

                        dept%ROWTYPE INDEX BY BINARY_INTEGER;

            my_dname_table dept_table_type;

            v_count number(2) :=4;

BEGIN

            FOR int IN 1 .. v_count LOOP

                        SELECT * INTO my_dname_table(int) FROM dept WHERE deptno=int*10;

            END LOOP;

            FOR int IN my_dname_table.FIRST .. my_dname_table.LAST LOOP

                        DBMS_OUTPUT.PUT_LINE(‘Department number: ‘||my_dname_table(int).deptno);

                        DBMS_OUTPUT.PUT_LINE(‘Department name: ‘|| my_dname_table(int).dname);

            END LOOP;

END;

 

 

§2.4.7  数据类型的转换*

 

隐式类型转换

	BIN_INT	CHAR	DATE	LONG	NUMBER	PLS_INT	UROWID	VARCHAR2
BIN_INT							
CHAR		
DATE							
LONG							
NUMBER							
RAW							
UROWID							
VARCHAR2								

 

 

§2.5   运算符和表达式(数据定义)

§2.5.1  关系运算符

 

运算符	意义
=	等于
<> , != , ~= , ^=	不等于
<	小于
>	大于
<=	小于或等于
>=	大于或等于

 

 

§2.5.2  一般运算符

 

运算符	意义
+	加号
-	减号
*	乘号
/	除号
:=	赋值号
=>	关系号
..	范围运算符
||	字符连接符

 

§2.5.3  逻辑运算符

 

运算符	意义
IS NULL	是空值
BETWEEN	介于两者之间
IN	在一列值中间
AND	逻辑与
OR	逻辑或
NOT	取返,如IS NOT NULL, NOT IN

 

§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 三个值。如：

 

DECLARE

done BOOLEAN;

/*  the following statements are legal: */

BEGIN

done := FALSE;

WHILE NOT done LOOP

Null;

END LOOP;

END;

 

§2.6.3  数据库赋值

 

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

例9：

 

DECLARE

emp_id    emp.empno%TYPE :=7788;

emp_name emp.ename%TYPE;

wages     emp.sal%TYPE;

BEGIN

SELECT ename, NVL(sal,0) + NVL(comm,0) INTO emp_name, wages

FROM emp WHERE empno = emp_id;

Dbms_output.put_line(emp_name||’----‘||to_char(wages));

END;

 

提示：不能将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 hh24:mi:ss') ;

 

§2.7   变量作用范围及可见性

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

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

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

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

l  在子块中重新定义该变量后，它的作用仅在该块内。

 

例10：

DECLARE

   Emess char(80);

BEGIN

 

   DECLARE

      V1 NUMBER(4);

   BEGIN

      SELECT empno INTO v1 FROM emp WHERE LOWER(job)=’president’;

              DBMS_OUTPUT.PUT_LINE(V1);

   EXCEPTION

      When TOO_MANY_ROWS THEN

         DBMS_OUTPUT.PUT_LINE (‘More than one president’);

   END;

 

   DECLARE

      V1 NUMBER(4);

   BEGIN

      SELECT empno INTO v1 FROM emp WHERE LOWER(job)=’manager’;

   EXCEPTION

      When TOO_MANY_ROWS THEN

          DBMS_OUTPUT.PUT_LINE (‘More than one manager’);

   END;

 

EXCEPTION

   When others THEN

      Emess:=substr(SQLERRM,1,80);

      DBMS_OUTPUT.PUT_LINE (emess);

END;

§2.8   注释

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

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

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

V_Sal  NUMBER(12,2); -- 工资变量。

 

l  使用 /*   */  来加一行或多行注释，如：

/***********************************************/

/* 文件名： statistcs_sal.sql           */

/***********************************************/

 

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

§2.9   简单例子

§2.9.1   简单数据插入例子

 

例11：

/* 本例子仅是一个简单的插入，不是实际应用。  */

DECLARE

v_ename   VARCHAR2(20) := ‘Bill’;

v_sal       NUMBER(7,2) :=1234.56;

v_deptno   NUMBER(2) := 10;

v_empno   NUMBER(4) := 8888;

BEGIN

INSERT INTO emp ( empno, ename, JOB, sal, deptno , hiredate ) 

VALUES ( v_empno, v_ename, ‘Manager’, v_sal, v_deptno,

TO_DATE(’1954.06.09’,’yyyy.mm.dd’) );

COMMIT;

END;

 

§2.9.2   简单数据删除例子

例12：

/* 本例子仅是一个简单的删除例子，不是实际应用。  */

 DECLARE

v_empno   number(4) := 8888;

BEGIN

DELETE FROM emp WHERE empno=v_empno;

COMMIT;

END;