PL/SQL控制结构

顺序结构

按先后顺序

分支判断结构

IF语句

IF condition THEN

statements;

[ELSIF condition THEN

statements;]

[ELSE

statements;]

END IF;

例：

DECLARE

v_myage number :=31;

BEGIN

IF v_myage<11

THEN

DBMS_OUTPUT.PUT_LINE(' I am a child ');

ELSIF v_myage<20 THEN

DBMS_OUTPUT.PUT_LINE(' I am young');

ELSIF v_myage<30 THEN

DBMS_OUTPUT.PUT_LINE('I am in twenties');

ELSIF v_myage<40 THEN

DBMS_OUTPUT.PUT_LINE(' I am in thirties');

ELSE

DBMS_OUT.PUT_LINE(' I am always yound');

END IF;

END;

/

例：

DECLARE

v_myage number;

BEGIN

IF v_myage <11 THEN

DBMS_OUTPUT.PUT_LINE(' I am a child ');

ELSE

DBMS_OUTPUT.PUT_LINE(' I am not a child');

END IF;

END;

/

注：初始化不赋值默认为NULL，不能确定其数值。

CASE表达式

CASE selector

WHEN expression1 THEN result1

WHEN expression2 THEN result2

...

WHEN expressionN THEN resultN

END;

例：

SET VERIFY OFF

DECLARE

v_grade CHAR(1) := UPPER('&grade');

v_appraisal VARCHAR2(20);

BEGIN

v_appraisal := CASE v_grade

WHEN 'A' THEN  'Excllent'

WHEN 'B' THEN ' Very Good'

WHEN 'C' THEN 'GOOD'

ELSE 'No such grade'

END;

DBMS_OUTPUT.PUT_LIND('Grade: ' || v_grade || 'Appraisal ' || v_appraisal);

END;

/

CASE语句

例:

DECARE

v_deptid NUMBER;

v_deptname VARCHAR2(20);

v_emps NUMBER;

v_mngid NUMBER := 108;

BEGIN

CASE v_mngid

WHEN  108 THEN

SELECT department_id,department_name

INTO v_deptid,v_deptname FROM departments

WHERE manager_id=108;

SELECT cout(*) INTO v_emps FROMemployees

WHERE department_id=v_deptid;

WHEN 200 THEN

END CASE;

DBMS_OUTPUT.PUT_LINE('You are working in the ' || v_deptname ||

'department. There are ' || v_emps || 'employees in this departmen');

END;

/

NULL逻辑运算

FALSE AND NULL = FALSE

FALSE OR NULL = NULL

短路

两种条件中只要判断一个条件成立则执行下一步

IF condtion1 AND condition2

THEN

statements;

ELSE

statements;

END IF;

IF condition1 OR condition2

THEN

statements;

ELSE

statements;

END IF;

GOTO语句

GOTO  label_name;

GOTO语句用作无条件跳转，但只能在pl/sql块内部跳转，需要与标签连用，但是标签后不能直接跟END，如果没有表达式则加多一行NULL;

例：

DECLARE

…

BEGIN

IF condition THEN GOTO lastpoint END IF;

…

<<lastpoint>>

NULL;

END;

例：

BEGIN

GOTO second_output;

DBMS_OUTPUT.PUT_LINE('The line will never execute.');

<<second_output>>

DBMS_OUT.PUT_LINE('We are here!');

END;

/

循环结构

Basic loop(基本循环)至少被执行一次

LOOP

statement1;

EXIT [WHEN condition];(退出循环)

END;

例：

DECLARE

v_countryid loactions.country_id%TYPE := 'CA';

v_loc_id locations.location_id%TYPE;

v_counter NUMBER(2) :=1;

v_new_city locations.city%TYPE := 'Montreal';

BEGIN

SELECT MAX(location_id) INTO v_loc_id FROM locations

WHERE contry_id = v_countryid;

LOOP

INSERT INTO locatinos(location_id,city,country_id)

VALUES ((v_loc_id + v_counter),v_new_city,v_countryid);

v_counter := v_counter+1;

EXIT WHEN v_counter>3;

END LOOP;

END;

/

FOR loop (FOR循环)

FOR counter IN [ REVERSE]

lower_bound..upper_bound LOOP

statement1;

statement2;

..

END LOOP;

注释：counter 不需要定义，在END LOOP后就不能再被使用

例：

DECLARE

v_coutryid locations.country_id%TYPE := 'CA';

v_loc_id locations.location_id%TYPE;

v_new_city locations.city%TYPE := 'Montreal';

BEGIN

SELECT MAX(location_id) INTO v_loc_id

FROM locations

WHERE country_id = v_countryid;

FOR i IN 1..3 LOOP

INSERT INTO locations(location_id,city,country_id)

VALUES((v_loc_id + i), v_new_city,v_countryid);

END LOOP;

END;

/

WHILE loop(WHILE循环)

WHILE condition LOOP

statement1;

statement2;

END LOOP;

例：

DECLARE

v_contryid locations.country_id%TYPE := 'CA';

v_loc_id locations.location_id%TYPE;

v_new_city locations.city%TPYE := 'Montreal';

v_counter NUMBER :=1;

BEGIN

SELECT MAX(location_id) INTO v_loc_id FROM locations

WHERE country_id = v_contryid;

WHILE v_counter <= 3 LOOP

INSERT INTO locations(location_id,city,country_id)

VALUES((v_loc_id + v_counter),v_new_city,v_countryid);

v_counter := v_counter +1;

END LOOP;

END;

/

例：多重循环

…

BEGIN

<<Outer_loop>>

LOOP

v_counter :=  v_counter+1;

EXIT WHEN v_counter>10;

<< Inner_loop>>

LOOP

…

EXIT Outer_loop WHEN total_done = 'YES';

--Leave both loops

EXIT WHEN inner_done = 'Yes';

--Leave inner loop only

…

END LOOP inner_loop;

…

END LOOP Outer_loop;

END;

/

CONTINUE语句

例：

DECLARE

v_total SIMPLE_TINTEGER :=0;

BEGIN

FOR i IN 1..10 LOOP

v_total := v_total +1;

DBMS_OUTPUT.PUT_LINE('Total is: ' || v_total);

CONTINUE WHEN i>5;

v_totail := v_total + I;

DBMS_OUTPUT.PUT_LINE('out of Loop Total is: ' || v_total);

END LOOP;

END;

/

例：使用标签跳转到外层循环

DECLARE

v_total NUMBER :=0;

BEGIN

<<BeforeTopLoop>>

FOR i IN 1..10 LOOP

v_total := v_total +1;

DBMS_OUTPUT.PUT_LINE('Total is: ' || v_total);

FOR j IN 1..10 LOOP

CONTINUE BeforeTopLoop WHEN i+j>5;

v_total :=v_total +1;

END LOOP;

END LOOP;

END two_loop;

程序员的基础教程：菜鸟程序员