--=======================
-- PL/SQL --> 流程控制
--=======================
类似于高级语言，流程控制语句是 PL / SQL 语言的重要组成部分。这些流程控制语句使得 PL / SQL 加大了代码的灵活性和多样性，大大简化了
程序的编写。下面将列出流程控制语句并给出具体事例。
一、顺序结构
按代码的书写顺序依次执行
-- 在下面的示例中将逐步执行代码
scott@ORCL > declare v_ename varchar2 ( 20 );
2 v_job emp . job % type ;
3 v_no emp . empno % type ;
4 begin
5 v_no :=& inputno ;
6 select ename , job into v_ename , v_job from emp where empno = v_no ;
7 dbms_output . put_line ( 'Employee Name: ' || v_ename );
8 dbms_output . put_line ( 'Employee Job : ' || v_job );
9 end ;
10 /
Enter value for inputno : 7788
old 5 : v_no :=& inputno ;
new 5 : v_no := 7788 ;
Employee Name : SCOTT
Employee Job : ANALYST
PL / SQL procedure successfully completed .
二、条件分支结构
1. IF ... THEN ... END IF
IF condition THEN
statement
END IF ;
判断 condition 是否成立，成立就执行 IF 与 END IF 之间的语句。
-- 例：输入员工编号，查询其工资，如果他们的职位是 CLERK ，则工资增加 % ，再显示修改前后的工资数。
DECLARE
v_empid emp . empno % TYPE ;
v_job emp . job % TYPE ;
v_old_sal emp . sal % TYPE ;
v_new_sal emp . sal % TYPE ;
BEGIN
v_empid :=& inputid ;
SELECT job , sal INTO v_job , v_old_sal FROM emp WHERE empno = v_empid ;
IF v_job = 'CLERK' THEN
v_new_sal := v_old_sal * 1.1 ;
UPDATE emp SET sal = v_new_sal WHERE empno = v_empid ;
DBMS_OUTPUT . PUT_LINE ( 'Old sal:' || v_old_sal );
DBMS_OUTPUT . PUT_LINE ( 'New sal:' || v_new_sal );
END IF ;
EXCEPTION
WHEN NO_DATA_FOUND THEN
DBMS_OUTPUT . PUT_LINE ( 'Not FOUND RECORD' );
END ;
/
2. IF ... THEN ... ELSE ... END IF
IF condition THEN
statements1 ;
ELSE
statements2 ;
END IF ;
判断 condition 是否成立，成立就执行 IF 与 ELSE 之间的语句，
否则执行 ELSE 与 END IF 之间的语句。
-- 例：输入员工编号 , 查询其工资 , 如果他们的职位是 CLERK, 则工资增加 %, 如果不是 CLERK, 工资增加 8%, 再显示修改前后的工资数。
DECLARE
v_empid emp . empno % TYPE ;
v_job emp . job % TYPE ;
v_old_sal emp . sal % TYPE ;
v_new_sal emp . sal % TYPE ;
BEGIN
v_empid :=& inputid ;
SELECT job , sal INTO v_job , v_old_sal FROM emp WHERE empno = v_empid ;
IF v_job = 'CLERK' THEN
v_new_sal := v_old_sal * 1.1 ;
ELSE
v_new_sal := v_old_sal * 1.08 ;
END IF ;
UPDATE emp SET sal = v_new_sal WHERE empno = v_empid ;
DBMS_OUTPUT . PUT_LINE ( 'Old sal:' || v_old_sal );
DBMS_OUTPUT . PUT_LINE ( 'New sal:' || v_new_sal );
EXCEPTION
WHEN NO_DATA_FOUND THEN
DBMS_OUTPUT . PUT_LINE ( 'Not FOUND RECORD' );
END ;
/
3. IF ... THEN ... ELSIF ... THEN ... ELSE ... END IF
IF condition1 THEN
statements1 ;
ELSIF condition2 THEN
statements2 ;
ELSE
else_statements ;
END IF ;
-- 例 : 输入员工编号 , 查询其工资 , 如果其职位是 CLERK, 则工资增加 %, 如果是 SALESMAN 工资增加 %, 其它的加 %, 显示修改前后的工资数。
DECLARE
v_empid emp . empno % TYPE ;
v_job emp . job % TYPE ;
v_old_sal emp . sal % TYPE ;
v_new_sal emp . sal % TYPE ;
BEGIN
v_empid :=& inputid ;
SELECT job , sal INTO v_job , v_old_sal FROM emp WHERE empno = v_empid ;
IF v_job = 'CLERK' THEN
v_new_sal := v_old_sal * 1.1 ;
ELSIF v_job = 'SALESMAN' THEN
v_new_sal := v_old_sal * 1.08 ;
ELSE
v_new_sal := v_old_sal * 1.05 ;
END IF ;
UPDATE emp SET sal = v_new_sal WHERE empno = v_empid ;
DBMS_OUTPUT . PUT_LINE ( 'Old sal:' || v_old_sal );
DBMS_OUTPUT . PUT_LINE ( 'New sal:' || v_new_sal );
EXCEPTION
WHEN NO_DATA_FOUND THEN
DBMS_OUTPUT . PUT_LINE ( 'Not FOUND RECORD' );
END ;
/
4. 等值比较的 CASE 多分支
CASE expression
WHEN result_1 THEN
statements1 ;
WHEN result_2 THEN
statemnts2 ;
......
[ELSE
else_statements;]
END CASE ;
-- 使用 case 分支完成前面的示例
-- 例 : 输入员工编号 , 查询其工资 , 如果其职位是 CLERK, 则工资增加 %, 如果是 SALESMAN 工资增加 %, 其它的加 %, 显示修改前后的工资数。
DECLARE
v_empid emp . empno % TYPE ;
v_job emp . job % TYPE ;
v_old_sal emp . sal % TYPE ;
v_new_sal emp . sal % TYPE ;
BEGIN
v_empid :=& inputid ;
SELECT job , sal INTO v_job , v_old_sal FROM emp WHERE empno = v_empid ;
CASE v_job
WHEN 'CLERK' THEN
v_new_sal := v_old_sal * 1.1 ;
WHEN 'SALESMAN' THEN
v_new_sal := v_old_sal * 1.08 ;
ELSE
v_new_sal := v_old_sal * 1.05 ;
END CASE ;
UPDATE emp SET sal = v_new_sal WHERE empno = v_empid ;
DBMS_OUTPUT . PUT_LINE ( 'Old sal:' || v_old_sal );
DBMS_OUTPUT . PUT_LINE ( 'New sal:' || v_new_sal );
EXCEPTION
WHEN NO_DATA_FOUND THEN
DBMS_OUTPUT . PUT_LINE ( 'Not FOUND RECORD' );
END ;
/
5. 条件比较的 CASE 语句
CASE
WHEN expression_1 THEN
statements1 ;
WHEN expression_2 THEN
statements2 ;
WHEN expression_3 THEN
statements3 ;
......
[ELSE
else_statements ； ]
END CASE
-- 使用 case 分支完成前面的示例，仅仅列出 case 部分
CASE
WHEN v_job = 'CLERK' THEN
v_new_sal := v_old_sal * 1.1 ;
WHEN v_job = 'SALESMAN' THEN
v_new_sal := v_old_sal * 1.08 ;
ELSE
v_new_sal := v_old_sal * 1.05 ;
END CASE ;
三、循环结构
1.LOOP 循环
LOOP
statement ;
EXIT [WHEN condition];
END LOOP;
-- 例：用 LOOP 写一个程序求 1 ＋＋＋＋ . . . +10 之和
DECLARE
v_n INT := 1 ;
v_s INT := 0 ;
BEGIN
LOOP
v_s := v_s + v_n ;
v_n := v_n + 1 ;
EXIT WHEN v_n > 10 ;
END LOOP ;
DBMS_OUTPUT . PUT_LINE ( '1+2+3+...+10=' || v_s );
END ;
/
2.WHILE 循环
WHIEL condition LOOP
statement;
END LOOP;
-- 下面使用 while 循环完成 loop 循环中的示例
DECLARE
v_s NUMBER := 0 ;
v_n NUMBER := 1 ;
BEGIN
WHILE v_n <= 10 LOOP
v_s := v_s + v_n ;
v_n := v_n + 1 ;
END LOOP ;
DBMS_OUTPUT . PUT_LINE ( '1+2+3+...+10=' || v_s );
END ;
/
3.FOR 循环
FOR loop_index IN [reverse] lowest_number .. highest_number LOOP
statements ;
END LOOP ;
-- 下面使用 for 循环完成 loop 循环中的示例
DECLARE
v_s NUMBER := 0 ;
BEGIN
FOR v_n IN 1 . .10 LOOP
v_s := v_s + v_n ;
DBMS_OUTPUT . PUT_LINE ( v_n );
END LOOP ;
DBMS_OUTPUT . PUT_LINE ( '1+2+3+...+10=' || v_s );
END ;
/
DECLARE
v_s NUMBER := 0 ;
BEGIN
FOR v_n IN REVERSE 1 . .10 LOOP -- 注意 reverse 是反向循环，即从到
v_s := v_s + v_n ;
DBMS_OUTPUT . PUT_LINE ( v_n );
END LOOP ;
DBMS_OUTPUT . PUT_LINE ( '1+2+3+...+10=' || v_s );
END ;
/
四、 GOTO 语句
GOTO label_name
-- 下面使用 goto 语句完成 loop 循环中的示例
DECLARE
v_n NUMBER := 1 ;
v_s NUMBER := 0 ;
BEGIN
LOOP
v_s := v_s + v_n ;
v_n := v_n + 1 ;
IF v_n > 10 THEN
GOTO out ;
END IF ;
END LOOP ;
<< out >>
DBMS_OUTPUT . PUT_LINE ( '1+2+3+...+10=' || v_s );
END ;
/
使用 GOTO 语句应注意：
标号后至少要有一条语句
PL/SQL 块内可以相互跳转，内层块可以跳到外层块，但外层块不能跳到内层块
不能从某一 IF 语句外部跳到其内部
不能从某一循环外跳到其内部
不能从某一子程序外跳到其内
五、 NULL
NULL 语句不会执行任何操作，并且会直接将控制传递到下一条语句，使用 NULL 语句主要是提高程序的可阅读性
-- 如下面的示例
DECLARE
v_sal emp . sal % TYPE ;
v_ename emp . ename % TYPE ;
BEGIN
SELECT ename , sal into v_ename , v_sal
FROM emp WHERE empno =& inputno ;
IF v_sal < 3000 then
UPDATE emp SET comm = sal * 1.2 WHERE ename = v_ename ;
ELSE
NULL;
END IF ;
END ;
/
六、更多参考
有关 SQL 请参考
SQL 基础--> ROLLUP 与CUBE 运算符实现数据汇总
SQL 基础--> 层次化查询(START BY ... CONNECT BY PRIOR)
有关 PL/SQL 请参考
