Oracle读书笔记-----PL/SQL编程（二）之程序流程

一、PL/SQL程序流程控制

上面的结构与其他的高级语言程序一样，就不做介绍了。

下就条件结构和循环结构说明。

1）IF条件控制句

1.1IF...THEN语句

其语法是：

IFpTHEN

基本语句段；

ENDIF;

例如：

declare flag1 integer := 1; flag2 integer := 2; begin if flag1 < flag 2 then dbms_output.put_line('Flag1<flag2'); end if; end;

注意：上面的IF与ENDIF必须成对出现

1.2IF...THEN...ELSE语句

该语句用于需要在两个语句段之间做出选择时。其语法如下：

IFPTHEN

语句段1;

ELSE

语句段2;

EDNIF;

在该语句中，如果p的值为true，则执行语句段1,否则执行语句段2;实例：

declare flag1 integer := 5; flag2 integer := 8; begin if flag1 <flag2 then dbms_output.put_line('flag1<flag2'); else dbms_output.put_line('flag1>flag2'); end if; end;

1.3IF...THEN...ELSIF语句

该语句用于在三个或者三个以上的语句段之间做出选择。其语法段为：

IFP1THEN

语句段1;

ELSIFP2THEN

语句段2;

ELSE

语句段3;

ENDIF;

实例：

declare grade number := 98; results varchar2(10); begin if grade >=90 then results := '优'; elsif grade >= 80 then results :='良'; elsif grade >=70 then results :='中'; elsif grade >= 60 then results :='及格'; else results :='差'; end if; dbms_output.put_line(results); end;

1.4CASE选择控制

该语句用于控制多分支选择功能。其实IF...THEN...ELSIF语句也可以实现这个功能，但是非常的麻烦。其语法结构为：

CASEE

WHENe1:THEN语句段1;

WHENe2:THEN语句段2;

WHENe3:THEN语句段3;

....................

WHENen:THEN语句段n;

ENDCASE;

实例：

declare results varchar2(20) := 'B'; grade varchar2(20); begin case results when 'A' then grade := '90-100'; when 'B' then grade := '80-89'; when 'C' then grade := '70-79'; when 'D' then grade := '60-69'; when 'E' then grade := '<60'; else grade := '不存在这个成绩等级'; end case; dbms_output.put_line(grade); end;

2)、循环控制

2.1FOR...LOOP语句

该形式如下：

FORI[REVERSE]INlb..hbLOOP

语句段;

ENDLOOP;

其中，i为整型变量，一般称为循环计算器，lb和hb均为整型常量，分别代表了i的下限和上限，..为范围操作符。当没有使用参数REVERSE时，i的初值被设置为lb。实例：

declare i int := 0; begin for i in 1..3 loop dbms_output.put_line('循环第'||to_char(i)||'次时'||to_char(i)); end loop; end;

2.2LOOP...EXIT循环控制

该语句用于控制死循环的。一般对于死循环的控制，有如下三种方式：

2.2.1利用if语句

LOOP

语句段;

IFPTHEN

EXIT；

ENDIF;

ENDLOOP;

实例：

declare i int := 0; results integer := 0; begin loop results := results + i; if i = 10 then exit; end if; i : i+1; end loop; dbms_output.put_line('累加结果为:'||to_char(results)); end;

2.2.2利用EXIT...WHEN

LOOP

.........

EXITWHENe;

.............

ENDLOOP;

其中e为布尔表达式，如果e的值为true则循环退出，否则继续执行循环语句。实例：

declare i int := 1; results integer := 0; begin loop results := results+i; exit when i = 10; i := i+1; end loop; dbms_output.put_line('累加结果为:'||to_char(results)); end;

2.2.3:利用标签

该语句的格式如下：

<<标签名>>

LOOP

.......

EXIT标签名WHENe;

........

ENDLOOP;

当e为true时退出。注意，标签名必须在loop语句之前用“<<>>”定义实例：

declare i integer := 1; results integer := 0; begin <<my_label>> loop results := results + i; exit my_label when i = 10; i := i+1; end loop; dbms_output.put_line('累加的结果为:'||to_char(results)); end;

2.3WHILE...LOOP循环控制

WHILEeLOOP

语句段;

ENDLOOP;

E为循环条件，当e的值为true时则执行循环体，否则退出循环。

实例：

declare m integer := 100; n integer := 7; results integer; begin results := m; while results >=n loop results := results - n; end loop; dbms_output.put_line(to_char(m)||'除以'||to_char(n)||'的余数'||to_char(results)); end;

二、在PL/SQL程序中调用SQL语句

实际上在PL/SQL程序中i调用SQL语句，对于不同的SQL语句调用的方法是不一样的。在这里介绍常用的几种语句的调用方法。

2.1调用SELECT语句

在调用这个语句之间，应该定义一个变量用来存储SELECT语句产生的结果，而且这个变量的结果要与SELECT之后的字段列表相一致。实例：

declare temp_emp scott.emp%rowtype; begin select * into temp_emp from emp where empno=7369; dbms_output.put_line(to_char(temp_emp.empno||','||temp_emp.ename)); end;

注意：这种变量只能是一条记录，否则就会出错。而且如果SELECT语句无返回结果，同样会报错。

2.2调用INSERT语句

这条语句可以直接调用。实例：

declare empno emp.empno%type; ename emp.ename%type; job emp.job%type; mgr emp.mgr%type; hiredate emp.hiredate%type; sal emp.sal%type; comm emp.comm%type; deptno emp.deptno%type; begin empno := 6676; ename := 'LILY'; job := 'CLERK'; mgr := 7899; hiredate := to_date('1981-12-12','yyyy-mm-dd'); sal := 999.00; comm := 433.00; deptno := 20; insert into emp values(empno,ename,job,mgr,hiredate,sal,comm,deptno); end;

2.3调用UPDATE语句

同样可以之间调用。实例:

declare tempno scott.emp.empno%type; begin tempno := 7677; update emp set ename='AAA' where empno = tempno; end;

2.4调用DELETE语句

直接调用。实例：

declare tempno scott.emp.empno%type; begin tempno := 7677; delete form emp where empno = tempno; end;