1、PL/SQL编程,本章学习目标 本章将讲述PL/SQL基础语法，结构和组件、以及如何设计并执行一个PL/SQL程序。,第四章 PL/SQL编程,本章内容安排,4.1 PL/SQL简介,4.2 PL/SQL语法,4.3 存储过程,4.4 触发器,4.5 游标,4.6 包,4.7 函数,4.1 PL/SQL简介,4.1.1 PL/SQL特点,4.1.2 开发及运行环境,1. PL/SQL的优点 （1）PL/SQL支持所有SQL数据类型和所有SQL函数，同时支持所有Oracle对象类型。 （2）PL/SQL块可以被命名和存储在Oracle服务器中，同时也能被其他的PL/SQL程序或SQL命令调用，任
2、何客户/服务器工具都能访问PL/SQL程序，具有很好的可重用性。 （3）PL/SQL代码可以使用任何ASCII文本编辑器编写,4.1.1 PL/SQL特点,2. PL/SQL的特点对于SQL语句，Oracle必须在同一时间处理一条SQL语句，在网络环境下这就意味作每一个独立的调用都必须被oracle服务器处理，这就占用大量的服务器时间，同时导致网络拥挤。而PL/SQL是以整个语句块发给服务器，这就降低了网络拥挤。,服务器端 PL/SQL 不需要显式的安装。 PL/SQL 编译器和解释器也嵌入到 Oracle Developer 中，使开发者在客户端也可进行开发和调试。,4.1.2 开发及运行环
3、境,4.2.2 常量与变量,4.2.3 数据类型,4.2.4 运算符,4.2.1 PL/SQL块,4.2.5 流程控制,4.2.6 异常处理,4.2 PL/SQL语法,1块结构,2、块的命名和匿名,3、块的执行,4.2.1 PL/SQL块,1. 块结构PL/SQL是一种块结构的语言，一个块有三部分组成。 (1)块的三个部分 声明部分（Declaration section） 声明部分包含了变量和常量的定义和初始化。这个部分是由关键字DECLARE开始，如果不需要声明变量或常量，那么可以忽略这一部分。 执行部分（Executable section） 由关键字BEGIN开始，所有的可执行语句都放
4、在这一部分。 异常处理部分（Exception section） 这一部分是可选的，在这一部分中处理异常或错误，对异常处理的详细讨论在后面进行。,（2）PL/SQL块语法 PL/SQL块语法结构如下： DECLARE declaration statements BEGIN executable statements EXCEPTION exception statements END PL/SQL块中的每一条语句都必须以分号结束，SQL语句可以多行，但分号表示该语句的结束。一行中可以有多条SQL语句，他们之间以分号分隔。每一个PL/SQL块由BEGIN或DECLARE开始，以END结束。注释
5、由-标示。基本plsql块,DECLAREORDER_NO NUMBER(3);CUST_NAME VARCHAR2(20);ORDER_DATE DATE;EMP_NO INTEGER:=25;PI CONSTANT NUMBER:=3.1416; BEGINNULL; END;,2块的命名和匿名PL/SQL程序块可以是一个命名的程序块也可以是一个匿名程序块，匿名程序块可以用在服务器端也可以用在客户端。执行部分包含了所有的语句和表达式，执行部分以关键字BEGIN开始，以关键字EXCEPTION结束，如果EXCEPTION不存在，那么将以关键字END结束。分号分隔每一条语句，使用赋值操作符:=
6、或SELECT INTO或FETCH INTO给每个变量赋值，执行部分的错误将在异常处理部分解决。所有的SQL数据操作语句都可以用于执行部分，PL/SQL块不能在屏幕上显示SELECT语句的输出。SELECT语句必须包括一个INTO子串或者是游标的一部分，执行部分使用的变量和常量必须首先在声明部分声明，执行部分必须至少包括一条可执行语句，NULL是一条合法的可执行语句,3块的执行SQL*PLUS中匿名的PL/SQL块的执行是在PL/SQL块后输入/来执行。命名的程序与匿名程序的执行不同，执行命名的程序块必须使用execute关键字:。如果在另一个命名程序块或匿名程序块中执行这个程序，那么就不需
7、要EXECUTE关键字。,1变量,2、常量,4.2.2 常量与变量,1、变量 （1）声明变量声明变量的语句格式如下： Variable_name CONSTANT datatype NOT NULL:=|DEFAULT expression注意：可以在声明变量的同时给变量强制性的加上NOT NULL约束条件，此时变量在初始化时必须赋值。（2）给变量赋值给变量赋值有两种方式：直接给变量赋值通过SQL SELECT INTO 或FETCH INTO给变量赋值,2、常量常量与变量相似，但常量的值在程序内部不能改变，常量的值在定义时赋予，声明方式与变量相似，但必须包括关键字CONSTANT。常量和变量
8、都可被定义为SQL和用户定义的数据类型。为了减少这部分程序的修改，编程时使用%TYPE、%ROWTYPE方式声明变量，使变量声明的类型与表中的保持同步，随表的变化而变化，这样的程序在一定程度上具有更强的通用性。,DECLARE ORDER_NO NUMBER(3); CUST_NAME VARCHAR2(20); ORDER_DATE DATE; EMP_NO INTEGER:=25; PI CONSTANT NUMBER:=3.1416;,4.2.3 数据类型,例如：定义如下若干类型变量，常量。 DECLARE ORDER_NO NUMBER(3); CUST_NAME VARCHAR2(2
9、0); ORDER_DATE DATE; EMP_NO INTEGER:=25; PI CONSTANT NUMBER:=3.1416; BEGIN NULL; END;,1条件结构,2、循环控制,4.2.5 流程控制,1、条件结构 1） If条件判断逻辑结构 If条件判断逻辑结构有三种表达方式。 表达式一： if condition then Statement end if 该表达式的功能为：若条件为真，执行then后的语句；否则，跳出条件语句执行end if后的语句。 表达式二： if condition then Statements_1 else Statements_2 end i
10、f 该表达式的功能为：如果条件为真执行then后的语句，否则执行else后的语句。 表达式三： if condition1 then Statements_1 elseif condition2 then Statements_2 else Statements_3 end if 该表达式的功能为：如果if后的条件成立，执行then后面的语句，否则判断elseif后面的条件，条件成立执行第二个then后面的语句，否则执行else后的语句。这是条件语句嵌套。 IF 可以嵌套，可以在IF 或IF ELSE语句中使用IF或IFELSE语句。,2）Case表达式 Case语句的基本格式如下： Case
11、变量 WHEN表达式1 then值1 WHEN表达式2 then值2 WHEN表达式3 then值3 WHEN表达式4 then值4 ELSE值5 END; Case语句的功能：首先设定变量的值作为条件，然后顺序检查表达式，一旦从中找到与条件匹配的表达式值，就停止case语句的处理。,2、循环控制 （1）loopexitend Loop循环控制语句LOOP循环语句是其中最基本的一种。LOOP语句的格式如下： LOOP statements END LOOP; 可以通过加入EXIT语句来终结该循环。示例： X:=100; LOOP X:=X+10; IF X1000 THEN EXIT; END
12、 IF END LOOP; Y:=X,（2）WHILELOOP循环控制语句WHILELOOP有一个条件与循环相联系，如果条件为TRUE，则执行循环体内的语句，如果结果为FALSE，则结束循环。X:=100; WHILE X=1000 LOOP X:=X+10; END LOOP; Y=X;,（3）FORLOOP循环控制语句 FORLOOP循环控制语句的格式如下： FOR counter IN REVERSE start_rangeend_range LOOP statements; END LOOP; LOOP和WHILE循环的循环次数都是不确定的，FOR循环的循环次数是固定的，counter
13、是一个隐式声明的变量，初始值是start_range，第二个值是start_range+1，直到end_range，如果start_range等于end _range，那么循环将执行一次。如果使用了REVERSE关键字，那么范围将是一个降序。 X:=100; FOR v_counter in 110 loop x:=x+10; end loop y:=x;,1PL/SQL的异常,2、预定义异常,3、自定义异常,4.2.6 异常处理,1、PL/SQL的异常 异常处理块中包含了与异常相关的错误发生以及当错误发生时要进行执行和处理的代码。异常部分的语法一般如下： BEGIN EXCEPTION WH
14、EN excep_name1 THEN WHEN excep_name2 THEN WHEN OTHERS THEN END;,2、预定义异常表4-3 常见异常情况表,CURSER_ALREADY_OPEN 游标已经打开 DUP_VAL_ON_INDEX 唯一索引对应的列上有重复的值 INVALID_CURSOR 在不合法的游标上进行操作 ,试图使用无效的光标 INVALID_NUMBER 不能将字符转换为数字 NO_DATA_FOUND 使用 select into 未返回行，或应用索引表未初始化的元素时 TOO_MANY_ROWS 执行 select into 时，结果集超过一行 ZERO
15、_DIVIDE 除数为 0 VALUE_ERROR 赋值时，变量长度不足以容纳实际数据 LOGIN_DENIED PL/SQL 应用程序连接到 oracle 数据库时，提供了不正确的用户名或密码 NOT_LOGGED_ON PL/SQL 应用程序在没有连接 oralce 数据库的情况下访问数据 PROGRAM_ERROR PL/SQL 内部问题，可能需要重装数据字典 pl./SQL 系统包 ROWTYPE_MISMATCH 宿主游标变量与 PL/SQL 游标变量的返回类型不兼容 SELF_IS_NULL 使用对象类型时，在 null 对象上调用对象方法 STORAGE_ERROR 运行 PL/
16、SQL 时，超出内存空间 SYS_INVALID_ID 无效的 ROWID 字符串 TIMEOUT_ON_RESOURCE racle 在等待资源时超时,3、自定义异常 异常不一定必须是oracle返回的系统错误，用户可以在自己的应用程序中创建可触发及可处理的自定义异常，调用异常处理需要使用Raise语句。 -自定义异常 myexception exception;-抛异常 raise myexception;,DECLARESALARY_CODE VARCHAR2(1);INVALID_SALARY_CODE EXCEPTION; BEGINSALARY_CODE:=X;IF SALARY_
17、CODE NOT IN(A, B, C) THENRAISE INVALID_SALARY_CODE;END IF; EXCEPTION WHEN INVALID_SALARY_CODE THENDBMS_OUTPUT.PUT_LINE(INVALID SALARY CODE); END;,DECLAREln_dno NUMBER;lvs_dname VARCHAR2(40);BEGINSELECT DEPT_NO,DEPT_NAMEINTO ln_dno,lvs_dnameFROM deptWHERE DEPT_NO=1;DBMS_OUTPUT.PUT_LINE(TO_CHAR(ln_dno
18、)|.|lvs_dname);EXCEPTION WHEN NO_DATA_FOUND THENDBMS_OUTPUT.PUT_LINE(NO DATA_FOUND);WHEN TOO_MANY_ROWS THENDBMS_OUTPUT.PUT_LINE(TOO_MANY_ROWS);END;,4.3.2 存储过程的调用,4.3.3 存储过程的释放,4.3.4 实例,4.3.1 存储过程的创建,4.3 存储过程,创建存储过程的语句如下： CREATEOR REPLACE PROCEDURE过程名 参数1，方式l数据类型1， 参数2， 方式2数据类型2， ) IS|AS is或as完全等价 BE
19、GIN PL/SQL过程体 END过程名,4.3.1 存储过程的创建,过程参数有以下三种类型： （1）in参数类型：表示输入给过程的参数。 （2）out参数类型：表示参数在过程中将被赋值，可以传给过程体的外部。 （3）in out参数类型：表示该类参数既可以向过程体传值，也可以在过程体中赋值，以便向过程体外传值。,create or replace PROCEDURE DeptMesg1( pename VARCHAR2, pdname OUT VARCHAR2,ploc OUT VARCHAR2) AS BEGIN SELECT dname,loc INTO pdname,ploc FROM
20、 emp,dept WHERE emp.deptno=dept.deptno AND emp.ename=pename; END;,存储过程通过员工名称得到部门名称,存储过程调用实例,declare name varchar2(20); loc varchar2(20); begin DeptMesg1(SMITH,name,loc); dbms_output.put_line(name); dbms_output.put_line(loc); end;,存储过程可以直接用EXECUT命令调用或PL/SQL程序块内部调用。 用EXECUT命令调用存储过程的格式如下： SQLexecute pr
21、oc_name(par1,par2);,4.3.2 存储过程的调用,存储过程也可以被另外的PL/SQL块调用，调用的语句是： declare par1,par2; begin proc_name(par1,par2); end; 在调用前要声明变量par1，par2,当某个存储过程不再需要时，应将其删除，语句格式如下： SQLdrop procedure proc_name; proc_name为过程名。,4.3.3 存储过程的删除,编写存储过程，显示所指定雇员名所在的部门名和位置。 CREATE OR REPLACE PROCEDURE DeptMesg(pename emp.ename%T
22、YPE, pdname OUT dept.dname%TYPE,ploc OUT dept.loc%TYPE) AS BEGIN SELECT dname,loc INTO pdname,ploc FROM emp,dept WHERE emp.deptno=dept.deptno AND emp.ename=pename; END; /,4.3.4 实例,4.5.2 隐式游标,4.5.3 实例,4.5.1 显式游标,4.5 游标,Oracle游标是一种用于轻松的处理多行数据的机制，没有游标，Oracle开发人员必须单独地、显式地取回并管理游标查询选择的每一条记录。游标的另一项功能是，它包含一
23、个跟踪当前访问的记录的指针，这使程序能够一次处理多条记录。,1声明游标,2、打开游标,3、从游标中取回数据,4.5.1 显式游标,4、关闭游标,1. 声明游标声明游标的语句格式如下： DECLARE cursor_name IS SELECT statement声明游标完成了下面两个目的： （1）给游标命名； （2）将一个查询与游标关联起来。,2打开游标 打开游标的语句格式如下： OPEN cursor_name; 打开游标将激活查询并识别活动集，可是在执行游标取回命令之前，并没有真正取回记录。OPEN命令还初始化了游标指针，使其指向活动集的第一条记录。游标被打开后，直到关闭之前，取回到活动集
24、的所有数据都是静态的。换句话说，游标忽略所有在游标打开之后，对数据执行的SQL DML命令(INSERT、UPDATE、DELETE和SELECT)，因此只有在需要时才打开它，要刷新活动集，只需关闭并重新打开游标即可。,3从游标中取回数据 FETCH命令以每次一条记录的方式取回活动集中的记录。通常将FETCH命令和某种迭代处理结合起来使用，在迭代处理中，FETCH命令每执行一次，游标前进到活动集的下一条记录。 FETCH命令的语句格式如下： FETCH cursor_name INTO record_list; 执行FETCH命令后，活动集中的结果被取回到PL/SQL变量中，以便在PL/SQL
25、块中使用。每取回一条记录，游标的指针就移向活动集的下一条记录。,4关闭游标 CLOSE语句关闭以前打开的游标。 CLOSE语句的格式： CLOSE cursor_name;,隐式游标也可以叫做SQL游标。和显式的游标不同，不能对一个SQL游标显式的执行OPEN， CLOSE和FETCH语句。Oracle隐式的打开SQL游标、处理SQL游标、然后再关闭该游标。Oracle提供隐式游标的主要目的就是利用这些游标的属性来确定SQL语句运行的情况。,4.5.2 隐式游标,隐式游标,DECLARE cursor c1 is select deptno,dname from dept; depno num
26、ber(10); depname VARCHAR2(20); begin for i in c1 loop dbms_output.put_line(c1%rowcount | |i.deptno| |i.dname); end loop; end;,以上游标应用的完整程序代码如下： DECLARE CURSOR C1 IS SELECT VIEW_NAME FROM ALL_VIEWS WHERE ROWNUM=10 ORDER BY VIEW_NAME; VNAME VARCHAR2(40); BEGIN OPEN C1; FETCH C1 INTO VNAME; WHILE C1%FOU
27、ND LOOP DBMS_OUTPUT.PUT_LINE(TO_CHAR(C1%ROWCOUNT)|VNAME); FETCH C1 INTO VNAME; END LOOP; CLOSE C1; END;,4.5.3 实例,%FOUND布尔型属性，当最近一次该记录时成功返回，则值为TRUE%NOTFOUND布尔型属性，它的值总与%FOUND属性的值相反%ISOPEN布尔型属性，当光标是打开时返回TRUE%ROWCOUNT数字型属性，返回已从光标中读取的记录数,For光标,DECLARE CURSOR C1 IS SELECT VIEW_NAME FROM ALL_VIEWS WHERE RO
28、WNUM=10 ORDER BY VIEW_NAME; BEGIN FOR I IN C1 LOOP DBMS_OUTPUT.PUT_LINE(I.VIEW_NAME); END LOOP; END LOOP; EXCEPTION WHEN OTHERS THEN NULL; END;,代表数据库列的变量,DECLARE D_NO DEPT.DEPT_NO%TYPE; D_NAME DEPT.DEPT_NAME%TYPE; BEGIN SELECT DEPT_NO,DEPT_NAME INTO D_NO,D_NAME FROM DEPT; DBMS_OUTPUT.PUT_LINE(TO_CHA
29、R(D_NO); EXCEPTION WHEN NO_DATA_FOUND THEN NULL; END;,4.4.1 触发器的类型,4.4.2 触发器的创建,4.4.3 触发器的修改和删除,4.4 触发器,4.4.4 实例,可以创建被如下语句所触发的触发器： （1）DML语句（DELETE，INSERT，UPDATE）； （2）DDL语句（CREATE，ALTER， DROP）； （3）数据库操作（SERVERERROR，LOGON，LOGOFF，STARTUP，SHUTDOWN）。,4.4.2 触发器的类型,1使用CREATE TRIGGER语句创建触发器使用CREATE TRIGGER语
30、句创建触发器的语句格式如下： CREATEOR REPLACE TRIGGER name BEFORE|AFTER event OR . ON table FOREACH ROW|STATEMENT WHEN(condition) plsql block|call procedures_statement,4.4.3 触发器的创建,2注意事项 （1）触发器可以声明为在对记录进行操作之前，在之前(检查约束之前和 INSERT，UPDATE 或 DELETE 执行前)或之后(在检查约束之后和完成 INSERT， UPDATE 或 DELETE 操作)触发.。 （2）一个 FOR EACH ROW
31、执行指定操作的触发器为操作修改的每一行都调用一次。 （3）SELECT 并不更改任何行，因此不能创建 SELECT 触发器.这种场合下规则和视图更适合。 （4）触发器和某一指定的表格有关，当该表格备删除时，任何与该表有关的触发器同样会被删除。 （5）在一个表上的每一个动作只能有一个触发器与之关联。 （6）在一个单独的表上，最多只能创建三个触发器与之关联，一个INSERT触发器，一个DELETE触发器和一个UPDATE触发器。,删除触发器的语句格式为： DROP TRIGGER name ON table;一个触发器由三部分组成:触发事件或语句、触发限制和触发器动作。触发事件或语句是指引起激发触
32、发器的SQL语句，可为对一指定表的INSERT、UNPDATE或DELETE语句。触发限制是指定一个布尔表达式，当触发器激发时该布尔表达式是必须为真。触发器作为过程，是PL/SQL块，当触发语句发出、触发限制计算为真时该过程被执行。,4.4.4 触发器的修改和删除,编写一个数据库触发器，当任何时候某个部门从dept表中删除时，该触发器将从emp表中删除该部门的所有雇员。 CREATE OR REPLACE TRIGGER del_emp_deptno BEFORE DELETE ON dept FOR EACH ROW BEGIN DELETE FROM emp WHERE deptno=:O
33、LD.deptno; END;,4.4.5 实例,实例二,DECLARE next_checkup_no NUMBER; BEGIN SELECT tb_credit_seq.NEXTVAL INTO next_checkup_no FROM dual; :new.id := next_checkup_no; END;,4.6.2 实例,4.6.1 包的创建,4.6 包,1包头的创建,2、包主体部分,4.6.1 包的创建,1. 包头的创建 创建包头的语句格式如下： CREATE PACKAGE包名 IS 变量、常量及数据类型定义； 游标定义； 函数、过程定义和参数列表及返回类型； END包名；
34、,2. 包主体部分 创建包主体部分的语句格式如下： CREATE PACKAGE BODY包名 AS 游标、函数、过程的具体定义； END包名；,1描述部分,2、包体部分,4.6.2 实例,1. 描述部分 CREATE PACKAGE znz_package /创建包头 IS man_num NUMBER; /定义变量 woman_num NUMBER; CURSOR学生; /定义游标 CREATE FUNCTION f_count(in sex IN 学生.sex%TYPE) /定义函数 RETURN NUMBER; /定义返回值类型 CREATE PROCEDURE p_count /定义
35、过程 (in_sex IN 学生.sex%TYPE， /过程参数 out_num OUT NUMBER); END znz_package; /包头结束,2. 包体部分 CREATE PACKAGE BODY znz_package /创建包体 AS CURSOR 学生IS /游标具体定义 SELECT 学号，姓名 FROM 学生 WHERE 学号50; FUNCTION f_count /函数具体定义 (in_sex IN学生.sex%TYPE) RETURN NUMBER /定义返回值类型 IS out_num NUMBER; BEGIN /函数体,IF in_sex=男 THEN SEL
36、ECT count(sex) INTO out_num FROM 学生 WHERE性别男; ELSE SELECT count(sex) INTO out_num FROM 学生 WHERE 性别女; END IF; RETURN(out_num); /返回函数值 END f_count; /函数定义结束 PROCEDURE p_count /过程具体定义 (in_sex IN学生.sex%TYPE， out_num OUT NUMBER),AS BEGIN /过程体IF in_sex=男 THEN SELECT count(sex) INTO out_num FROM 学生 WHERE性别=
37、男; ELSE SELECT count(sex) INTO out_num FROM 学生 WHERE 性别女; END IF; END P_count; /过程定义结束 END znz_package /包体定义结束,4.7.2 自定义函数,4.7.1 Oracle系统函数,4.7 函数,Oracle提供了丰富的系统函数(略),4.7.1 Oracle系统函数,1命令格式,2、函数的调用,4.7.2 自定义函数,3、函数的释放,4、实例,1. 命令格式 创建函数的语句格式如下： FUNCTION name parameter，parameter，.) RETURN datatypes IS
38、 local declarations BEGIN execute statements EXCEPTION exception handlers END name,2. 函数的调用 无论在命令行还是在程序语句中，函数都可以通过函数名称直接在表达式中调用。例如：将函数count_num(女)的返回值赋予变量man_num。 SQLexecute man_num:=count_num(女),3. 函数的释放 当函数不再使用时，要用drop命令将其从内存中删除，例如： SQLdrop function count_num;,函数实例新增一条emp表记录,create or replace FUNC
39、TION ADDEMP ( EMPNO IN NUMBER , ENAME IN VARCHAR2 , DEPTNO IN NUMBER ) return number isResult number; BEGINselect XH_SEQ.nextval into Result from dual;insert into emp(empno, ename, deptno) values (Result, ename, deptno);RETURN Result; END ADDEMP;,函数调用,declare x number(30):=0; begin x :=addemp(1,java,30); dbms_output.put_line(x); end;,4. 实例 编写一个函数以显示该雇员在此组织中的工作天数。 CREATE OR REPLACE FUNCTION Hire_Day(no emp.empno%TYPE) RETURN NUMBER AS vhiredate emp.hiredate%TYPE; vday NUMBER; BEGIN SELECT hiredate INTO vhiredate FROM emp WHERE empno=no; vday:=CEIL(SYSDATE-vhiredate); RETURN vday; END;,
