PL/SQL控制结构

IF语句

BEGIN
  IF 1 = 2 THEN
    DBMS_OUTPUT.PUT_LINE('1=2');
  END IF;
END;

IF/ELSE语句

BEGIN
  IF 1 = 2 THEN
    DBMS_OUTPUT.PUT_LINE('1=2');
  ELSE
    DBMS_OUTPUT.PUT_LINE('1<>2');
  END IF;
END;

IF/ELSEIF/ELSE语句

BEGIN
  IF 1 > 2 THEN
    DBMS_OUTPUT.PUT_LINE('1 > 2');
  ELSIF 1 < 2 THEN
    DBMS_OUTPUT.PUT_LINE('1 < 2');
  ELSE 
    DBMS_OUTPUT.PUT_LINE('1 = 2');
  END IF;
END;

LOOP循环,基础LOOP循环

DECLARE
  V_COUNT NUMBER := 0;
BEGIN
  LOOP
    V_COUNT := V_COUNT + 1;
    DBMS_OUTPUT.PUT_LINE('循环到：' || V_COUNT);
    EXIT WHEN V_COUNT = 10;
  END LOOP;
END;

LOOP循环,while__LOOP循环

DECLARE
  V_COUNT NUMBER := 0;
BEGIN
  WHILE V_COUNT < 10 LOOP
    V_COUNT := V_COUNT + 1;
    DBMS_OUTPUT.PUT_LINE('循环到：' || V_COUNT);
  END LOOP;
END;

LOOP循环,FOR----LOOP循环

BEGIN
  FOR IDX IN 1 .. 10 LOOP
    DBMS_OUTPUT.PUT_LINE('循环到：' || IDX);
  END LOOP;
END;

--GOTO语句的使用
/*
GOTO label;
<<label>> /*标号是用<< >>括起来的标识符
*/

BEGIN
  FOR IDX IN 1 .. 10 LOOP
    DBMS_OUTPUT.PUT_LINE('循环到：' || IDX);
    GOTO TEST_11;
  END LOOP;
  <<TEST_11>> --定义label
  DBMS_OUTPUT.PUT_LINE('循环到：' || 'A');
END;

--NULL值的使用

BEGIN
  IF 1 IS NOT NULL THEN
    1 DBMS_OUTPUT.PUT_LINE('1 不为空');
  END IF;
  NULL; --表示不做任何的处理
END;

--使用函数作为IF的条件

CREATE OR REPLACE FUNCTION TEST_BOOLEAN(I_DEPTNO IN DEPT.DEPTNO%TYPE)
  RETURN BOOLEAN IS
  V_DEPTNO DEPT.DEPTNO%TYPE;
BEGIN
  SELECT D.DEPTNO INTO V_DEPTNO FROM DEPT D;
  IF V_DEPTNO IS NULL THEN
    DBMS_OUTPUT.PUT_LINE('');
    RETURN TRUE;
  ELSE
    RETURN FALSE;
  END IF;
EXCEPTION
  WHEN TOO_MANY_ROWS THEN
    DBMS_OUTPUT.PUT_LINE('4');
END;

DECLARE
  V_DEPTNO DEPT.DEPTNO%TYPE;
BEGIN
  IF TEST_BOOLEAN(&部门号码) THEN
    DBMS_OUTPUT.PUT_LINE('1');
  ELSE
    DBMS_OUTPUT.PUT_LINE('2');
  END IF;
END;

CASE语句的两种使用:

DECLARE
  V_OUTPUT VARCHAR2(30);
  V_ENAME  EMP.ENAME%TYPE;
BEGIN
  SELECT E.ENAME INTO V_ENAME FROM EMP E WHERE E.EMPNO = 7521;
  DBMS_OUTPUT.PUT_LINE('v_ename=' || V_ENAME);
  --测试case语句.第一种类型
  CASE V_ENAME
    WHEN 'SMITH' THEN
      DBMS_OUTPUT.PUT_LINE('存在' || V_ENAME);
    ELSE
      DBMS_OUTPUT.PUT_LINE('不存在');
  END CASE;
  --测试case语句.第二种类型
  CASE
    WHEN 'SMITH' = V_ENAME THEN
      DBMS_OUTPUT.PUT_LINE('存在' || V_ENAME);
    ELSE
      DBMS_OUTPUT.PUT_LINE('不存在');
  END CASE;
EXCEPTION
  WHEN OTHERS THEN
    DBMS_OUTPUT.PUT_LINE(SQLERRM);
END;

--使用CASE语句返回值

DECLARE
  BOOLEAN_TRUE  BOOLEAN := TRUE;
  BOOLEAN_FALSE BOOLEAN := FALSE;
  BOOLEAN_NULL  BOOLEAN := NULL;
  FUNCTION TEST_CASE(I_BOOLEAB IN BOOLEAN) RETURN VARCHAR2 IS
  BEGIN
    RETURN CASE I_BOOLEAB WHEN TRUE THEN 'TRUE' WHEN FALSE THEN 'FALSE' WHEN NULL THEN '没有执行这个NULL' ELSE 'NULL' END;
  END;
BEGIN
  DBMS_OUTPUT.PUT_LINE(TEST_CASE(BOOLEAN_TRUE));
  DBMS_OUTPUT.PUT_LINE(TEST_CASE(BOOLEAN_FALSE));
  DBMS_OUTPUT.PUT_LINE(TEST_CASE(BOOLEAN_NULL));
END;

--使用CASE语句动态的向存储过程传值

DECLARE
  V_DEPTNO DEPT.DEPTNO%TYPE;
  PROCEDURE TEST_CASE(I_DEPTNO IN NUMBER) IS
  BEGIN
    DBMS_OUTPUT.PUT_LINE('调用了过程');
    DBMS_OUTPUT.PUT_LINE('DEPTNO:' || I_DEPTNO);
  END;
BEGIN
  TEST_CASE(CASE WHEN 1 = 1 THEN 1 ELSE 2 END);
END;

LOOP循环使用EXIT退出的两种方式

DECLARE
  V_COUNT NUMBER := 0;
BEGIN
  <<LOOP_1>>
  WHILE TRUE LOOP
    V_COUNT := V_COUNT + 1;
    DBMS_OUTPUT.PUT_LINE(V_COUNT);
 8     IF V_COUNT > 10 THEN
 9       EXIT;
10     END IF;
  END LOOP LOOP_1;
  V_COUNT := 0;
  <<LOOP_2>>
  WHILE TRUE LOOP
    V_COUNT := V_COUNT + 1;
    DBMS_OUTPUT.PUT_LINE(V_COUNT);
      EXIT WHEN V_COUNT > 10;
  END LOOP LOOP_2;
END;

--使用标签退出循环

DECLARE
  V_COUNT       NUMBER := 0;
  V_COUNT_INNER NUMBER := 0;
BEGIN
  <<LOOP_1>>
  WHILE TRUE LOOP
    V_COUNT := V_COUNT + 1;
    DBMS_OUTPUT.PUT_LINE(V_COUNT);
    DBMS_OUTPUT.PUT_LINE('我马上就要退出');
    EXIT LOOP_1;
  END LOOP LOOP_1;
  V_COUNT := 0;
  <<LOOP_2>>
  WHILE TRUE LOOP
    V_COUNT := V_COUNT + 1;
    DBMS_OUTPUT.PUT_LINE(V_COUNT);
    EXIT WHEN V_COUNT > 10;
    <<LOOP_3>>
    WHILE TRUE LOOP
      V_COUNT_INNER := V_COUNT_INNER + 1;
      DBMS_OUTPUT.PUT_LINE(V_COUNT_INNER);
      DBMS_OUTPUT.PUT_LINE('我要退出外层循环');
      EXIT LOOP_2; --使用标签退出指定的循环，默认只退出本层循环
    END LOOP LOOP_3;
    V_COUNT_INNER := 0;
  END LOOP LOOP_2;
  DBMS_OUTPUT.PUT_LINE('成功的退出外层循环');
END;