3. PL/SQL流程控制語句

3. PL/SQL流程控制語句

3.1  條件語句

3.2  CASE 表達式

3.3  循環

3.4  標號和GOTO

3.5  NULL 語句

 

介紹PL/SQL的流程控制語句, 包括如下三類:

控制語句: IF 語句

循環語句: LOOP語句, EXIT語句

順序語句: GOTO語句, NULL語句

3.1 條件語句

IF <布爾表達式> THEN
  PL/SQL 和 SQL語句
END IF;
-----------------------
IF <布爾表達式> THEN
  PL/SQL 和 SQL語句
ELSE
  其它語句
END IF;
-----------------------
IF <布爾表達式> THEN
  PL/SQL 和 SQL語句
ELSIF < 其它布爾表達式> THEN
  其它語句
ELSIF < 其它布爾表達式> THEN
  其它語句
ELSE
  其它語句
END IF;

提示: ELSIF 不能寫成 ELSEIF

例1:

   DECLARE 
       v_empno  employees.employee_id%TYPE :=&empno; 
       V_salary employees.salary%TYPE; 
       V_comment VARCHAR2(35); 
   BEGIN 
   SELECT salary INTO v_salary FROM employees  
   WHERE employee_id = v_empno; 
   IF v_salary < 1500 THEN 
         V_comment:= '太少了,加點吧~!'; 
      ELSIF v_salary <3000 THEN 
         V_comment:= '多了點,少點吧~!'; 
   ELSE 
         V_comment:= '沒有薪水~!'; 
   END IF; 
       DBMS_OUTPUT.PUT_LINE(V_comment); 
       exception 
   when no_data_found then 
           DBMS_OUTPUT.PUT_LINE('沒有數據~!'); 
   when others then 
           DBMS_OUTPUT.PUT_LINE(sqlcode || '---' || sqlerrm);         
   END;

例2:

  DECLARE 
     v_first_name VARCHAR2(20); 
     v_salary NUMBER(7,2); 
  BEGIN 
  SELECT first_name, salary INTO v_first_name, v_salary FROM employees 
  WHERE employee_id = &emp_id; 
     DBMS_OUTPUT.PUT_LINE(v_first_name||'僱員的工資是'||v_salary); 
  IF v_salary < 10000 THEN 
     DBMS_OUTPUT.PUT_LINE('工資低於10000'); 
  ELSE 
  IF 10000 <= v_salary AND v_salary < 20000 THEN 
        DBMS_OUTPUT.PUT_LINE('工資在10000到20000之間'); 
  ELSE 
        DBMS_OUTPUT.PUT_LINE('工資高於20000'); 
  END IF; 
  END IF; 
  END;

例3:

  DECLARE 
     v_first_name VARCHAR2(20); 
     v_hire_date DATE; 
     v_bonus NUMBER(6,2); 
  BEGIN 
  SELECT first_name, hire_date INTO v_first_name, v_hire_date FROM employees 
  WHERE employee_id = &emp_id; 
  IF v_hire_date > TO_DATE('01-1月-90') THEN 
        v_bonus := 800; 
     ELSIF v_hire_date > TO_DATE('01-1月-88') THEN 
        v_bonus := 1600; 
  ELSE 
        v_bonus := 2400; 
  END IF; 
      DBMS_OUTPUT.PUT_LINE(v_first_name||'僱員的僱傭日期是'||v_hire_date ||'、獎金是'||v_bonus); 
  END;

3.2 CASE 表達式

---------格式一---------
CASE 條件表達式
WHEN 條件表達式結果1 THEN
     語句段1
WHEN 條件表達式結果2 THEN
     語句段2
  ......
WHEN 條件表達式結果n THEN
     語句段n
[ELSE 條件表達式結果]
END;


---------格式二---------
CASE
WHEN 條件表達式1 THEN
     語句段1
WHEN 條件表達式2 THEN
     語句段2
  ......
WHEN 條件表達式n THEN
     語句段n
[ELSE 語句段]
END;

例4:

  DECLARE 
     V_grade char(1) := UPPER('&p_grade'); 
     V_appraisal VARCHAR2(20); 
  BEGIN 
     V_appraisal := 
  CASE v_grade 
  WHEN 'A' THEN 'Excellent' 
  WHEN 'B' THEN 'Very Good' 
  WHEN 'C' THEN 'Good' 
  ELSE 'No such grade' 
  END; 
     DBMS_OUTPUT.PUT_LINE('Grade:'||v_grade||' Appraisal: '|| v_appraisal); 
  END;

例5:

  DECLARE 
     v_first_name employees.first_name%TYPE; 
     v_job_id employees.job_id%TYPE; 
     v_salary employees.salary%TYPE; 
     v_sal_raise NUMBER(3,2); 
  BEGIN 
  SELECT first_name, job_id, salary INTO 
        v_first_name, v_job_id, v_salary 
  FROM employees WHERE employee_id = &emp_id; 
  CASE 
  WHEN v_job_id = 'PU_CLERK' THEN 
  IF v_salary < 3000 THEN v_sal_raise := .08; 
  ELSE v_sal_raise := .07; 
  END IF; 
  WHEN v_job_id = 'SH_CLERK' THEN 
  IF v_salary < 4000 THEN v_sal_raise := .06; 
  ELSE v_sal_raise := .05; 
  END IF; 
  WHEN v_job_id = 'ST_CLERK' THEN 
  IF v_salary < 3500 THEN v_sal_raise := .04; 
  ELSE v_sal_raise := .03; 
  END IF; 
  ELSE 
        DBMS_OUTPUT.PUT_LINE('該崗位不漲工資: '||v_job_id); 
  END CASE; 
     DBMS_OUTPUT.PUT_LINE(v_first_name||'的崗位是'||v_job_id 
                                      ||'、的工資是'||v_salary 
                                      ||'、工資漲幅是'||v_sal_raise); 
  END;

3.3 循環

1.  簡單循環

LOOP
      要執行的語句;
EXIT WHEN <條件語句> --條件滿足，退出循環語句
END LOOP;

例 6:

  DECLARE 
  int NUMBER(2) :=0; 
  BEGIN 
     LOOP 
  int := int + 1; 
        DBMS_OUTPUT.PUT_LINE('int 的當前值爲:'||int); 
  EXIT WHEN int =10; 
  END LOOP; 
  END;

2.  WHILE 循環

WHILE <布爾表達式> LOOP
    要執行的語句;
END LOOP;

例7.

1 DECLARE 
2    x NUMBER :=1; 
3 BEGIN 
4 WHILE x<=10 LOOP 
5       DBMS_OUTPUT.PUT_LINE('X的當前值爲:'||x); 
6       x:= x+1; 
7 END LOOP; 
8 END;

3.  數字式循環

[<<循環標籤>>]
FOR 循環計數器 IN [ REVERSE ] 下限 .. 上限 LOOP
  要執行的語句;
END LOOP [循環標籤];

每循環一次，循環變量自動加1；使用關鍵字REVERSE，循環變量自動減1。跟在IN REVERSE 後面的數字必須是從小到大的順序，而且必須是整數，不能是變量或表達式。可以使用EXIT 退出循環。

例8.

BEGIN
FOR int in 1..10 LOOP
       DBMS_OUTPUT.PUT_LINE('int 的當前值爲: '||int);
END LOOP;
END;

例 9.

  CREATE TABLE temp_table(num_col NUMBER); 
  DECLARE 
      V_counter NUMBER := 10; 
  BEGIN 
  INSERT INTO temp_table(num_col) VALUES (v_counter ); 
  FOR v_counter IN 20 .. 25 LOOP 
  INSERT INTO temp_table (num_col ) VALUES ( v_counter ); 
  END LOOP; 
  INSERT INTO temp_table(num_col) VALUES (v_counter ); 
  FOR v_counter IN REVERSE 20 .. 25 LOOP 
  INSERT INTO temp_table (num_col ) VALUES ( v_counter ); 
  END LOOP; 
  END ; 
  DROP TABLE temp_table;

例10:

  DECLARE 
     TYPE jobids_varray IS VARRAY(12) OF VARCHAR2(10); --定義一個VARRAY數據類型 
     v_jobids JOBIDS_VARRAY; --聲明一個具有JOBIDS_VARRAY數據類型的變量 
     v_howmany NUMBER; --聲明一個變量來保存僱員的數量 
  BEGIN 
  --用某些job_id值初始化數組 
     v_jobids := jobids_varray('FI_ACCOUNT', 'FI_MGR', 'ST_CLERK', 'ST_MAN'); 
  --用FOR...LOOP...END LOOP循環使用每個數組成員的值 
  FOR i IN v_jobids.FIRST..v_jobids.LAST LOOP 
  --針對數組中的每個崗位，決定該崗位的僱員的數量 
  SELECT count(*) INTO v_howmany FROM employees WHERE job_id = v_jobids(i); 
        DBMS_OUTPUT.PUT_LINE ( '崗位'||v_jobids(i)|| '總共有'|| TO_CHAR(v_howmany) || '個僱員'); 
  END LOOP; 
  END;

例11 在While循環中嵌套loop循環:

  /*求100至110之間的素數*/ 
  DECLARE 
     v_m NUMBER := 101; 
     v_i NUMBER; 
     v_n NUMBER := 0; 
  BEGIN 
  WHILE v_m < 110 LOOP 
        v_i := 2; 
        LOOP 
  IF mod(v_m, v_i) = 0 THEN 
           v_i := 0; 
  EXIT; 
  END IF; 
        v_i := v_i + 1; 
  EXIT WHEN v_i > v_m - 1;  
  END LOOP; 
  IF v_i > 0 THEN 
        v_n := v_n + 1; 
        DBMS_OUTPUT.PUT_LINE('第'|| v_n || '個素數是' || v_m); 
  END IF; 
     v_m := v_m + 2; 
  END LOOP; 
  END;

3.4 標號和GOTO

PL/SQL中GOTO語句是無條件跳轉到指定的標號去的意思。語法如下：

GOTO label;
......
<<label>> /*標號是用<< >>括起來的標識符 */

注意，在以下地方使用是不合法的，編譯時會出錯誤。

u 跳轉到非執行語句前面。

u 跳轉到子塊中。

u 跳轉到循環語句中。

u 跳轉到條件語句中。

u 從異常處理部分跳轉到執行。

u 從條件語句的一部分跳轉到另一部分。

例12:

  DECLARE 
     V_counter NUMBER := 1; 
  BEGIN 
     LOOP 
        DBMS_OUTPUT.PUT_LINE('V_counter的當前值爲:'||V_counter); 
        V_counter := v_counter + 1; 
  IF v_counter > 10 THEN 
  GOTO labelOffLOOP; 
  END IF; 
  END LOOP; 
  <<labelOffLOOP>> 
        DBMS_OUTPUT.PUT_LINE('V_counter的當前值爲:'||V_counter); 
  END;

例13:

  DECLARE 
     v_i NUMBER := 0; 
     v_s NUMBER := 0; 
  BEGIN 
  <<label_1>> 
     v_i := v_i + 1; 
  IF v_i <= 1000 THEN 
        v_s := v_s + v_i; 
  GOTO label_1; 
  END IF; 
      DBMS_OUTPUT.PUT_LINE(v_s); 
  END;

3.5 NULL 語句

   在PL/SQL 程序中，NULL語句是一個可執行語句，可以用 null 語句來說明“不用做任何事情”的意思，相當於一個佔位符或不執行任何操作的空語句，可以使某些語句變得有意義，提高程序的可讀性，保證其他語句結構的完整性和正確性。如：

例14:

  DECLARE 
  ... 
  BEGIN 
  ... 
  IF v_num IS NULL THEN 
  GOTO labelPrint; 
  END IF; 
  … 
  <<labelPrint>> 
  NULL; --不需要處理任何數據。 
  END;

例15:

  DECLARE 
     v_emp_id employees.employee_id%TYPE; 
     v_first_name employees.first_name%TYPE; 
     v_salary employees.salary%TYPE; 
     v_sal_raise NUMBER(3,2); 
  BEGIN 
     v_emp_id := &emp_id; 
  SELECT first_name, salary INTO v_first_name, v_salary 
  FROM employees WHERE employee_id = v_emp_id; 
  IF v_salary <= 3000 THEN 
        v_sal_raise := .10; 
        DBMS_OUTPUT.PUT_LINE(v_first_name||'的工資是'||v_salary ||'、工資漲幅是'||v_sal_raise); 
  ELSE 
  NULL; 
  END IF; 
  END;