流程控制语句

介绍PL/SQL的流程控制语句, 包括如下三类:

l 控制语句: IF 语句

l 循环语句: LOOP语句, EXIT语句

l 顺序语句: 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_nameVARCHAR2(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_nameVARCHAR2(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 语句段1WHEN 条件表达式2 THEN 语句段2
......WHEN 条件表达式n THEN
语句段n
[ELSE 语句段] END;

例****4****:

DECLARE V_gradechar(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_salaryFROM 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 LOOPint := int + 1;
DBMS_OUTPUT.PUT_LINE('int 的当前值为:'||int);
EXIT WHEN int =10;
ENDLOOP; END;

2. WHILE 循环

WHILE <布尔表达式>LOOP
要执行的语句; END LOOP;

例****7****.

DECLARE
x NUMBER :=1; BEGIN WHILE x<=10 LOOP
DBMS_OUTPUT.PUT_LINE('X的当前值为:'||x);
x:= x+1;
ENDLOOP; 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);
ENDLOOP; END;

例 ****9****.

CREATE TABLE temp_table(num_col NUMBER); DECLARE V_counterNUMBER := 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 );
ENDLOOP; END; DROP TABLE temp_table;

例****10:

DECLARE TYPE jobids_varrayIS 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) || '个雇员');
ENDLOOP; END;

**例****11 **在While循环中嵌套loop循环

/求100至110之间的素数/ DECLARE v_mNUMBER := 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;

ENDLOOP; END;

3.4 标号和GOTO

PL/SQL中GOTO语句是无条件跳转到指定的标号去的意思。语法如下:

GOTOlabel;
...... <<label>> /*标号是用<< >>括起来的标识符 */

注意,在以下地方使用是不合法的,编译时会出错误。

u 跳转到非执行语句前面。

u 跳转到子块中。

u 跳转到循环语句中。

u 跳转到条件语句中。

u 从异常处理部分跳转到执行。

u 从条件语句的一部分跳转到另一部分。

例****12****:

DECLARE V_counterNUMBER := 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_iNUMBER := 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;

最后编辑于
©著作权归作者所有,转载或内容合作请联系作者
  • 序言:七十年代末,一起剥皮案震惊了整个滨河市,随后出现的几起案子,更是在滨河造成了极大的恐慌,老刑警刘岩,带你破解...
    沈念sama阅读 204,732评论 6 478
  • 序言:滨河连续发生了三起死亡事件,死亡现场离奇诡异,居然都是意外死亡,警方通过查阅死者的电脑和手机,发现死者居然都...
    沈念sama阅读 87,496评论 2 381
  • 文/潘晓璐 我一进店门,熙熙楼的掌柜王于贵愁眉苦脸地迎上来,“玉大人,你说我怎么就摊上这事。” “怎么了?”我有些...
    开封第一讲书人阅读 151,264评论 0 338
  • 文/不坏的土叔 我叫张陵,是天一观的道长。 经常有香客问我,道长,这世上最难降的妖魔是什么? 我笑而不...
    开封第一讲书人阅读 54,807评论 1 277
  • 正文 为了忘掉前任,我火速办了婚礼,结果婚礼上,老公的妹妹穿的比我还像新娘。我一直安慰自己,他们只是感情好,可当我...
    茶点故事阅读 63,806评论 5 368
  • 文/花漫 我一把揭开白布。 她就那样静静地躺着,像睡着了一般。 火红的嫁衣衬着肌肤如雪。 梳的纹丝不乱的头发上,一...
    开封第一讲书人阅读 48,675评论 1 281
  • 那天,我揣着相机与录音,去河边找鬼。 笑死,一个胖子当着我的面吹牛,可吹牛的内容都是我干的。 我是一名探鬼主播,决...
    沈念sama阅读 38,029评论 3 399
  • 文/苍兰香墨 我猛地睁开眼,长吁一口气:“原来是场噩梦啊……” “哼!你这毒妇竟也来了?” 一声冷哼从身侧响起,我...
    开封第一讲书人阅读 36,683评论 0 258
  • 序言:老挝万荣一对情侣失踪,失踪者是张志新(化名)和其女友刘颖,没想到半个月后,有当地人在树林里发现了一具尸体,经...
    沈念sama阅读 41,704评论 1 299
  • 正文 独居荒郊野岭守林人离奇死亡,尸身上长有42处带血的脓包…… 初始之章·张勋 以下内容为张勋视角 年9月15日...
    茶点故事阅读 35,666评论 2 321
  • 正文 我和宋清朗相恋三年,在试婚纱的时候发现自己被绿了。 大学时的朋友给我发了我未婚夫和他白月光在一起吃饭的照片。...
    茶点故事阅读 37,773评论 1 332
  • 序言:一个原本活蹦乱跳的男人离奇死亡,死状恐怖,灵堂内的尸体忽然破棺而出,到底是诈尸还是另有隐情,我是刑警宁泽,带...
    沈念sama阅读 33,413评论 4 321
  • 正文 年R本政府宣布,位于F岛的核电站,受9级特大地震影响,放射性物质发生泄漏。R本人自食恶果不足惜,却给世界环境...
    茶点故事阅读 39,016评论 3 307
  • 文/蒙蒙 一、第九天 我趴在偏房一处隐蔽的房顶上张望。 院中可真热闹,春花似锦、人声如沸。这庄子的主人今日做“春日...
    开封第一讲书人阅读 29,978评论 0 19
  • 文/苍兰香墨 我抬头看了看天上的太阳。三九已至,却和暖如春,着一层夹袄步出监牢的瞬间,已是汗流浃背。 一阵脚步声响...
    开封第一讲书人阅读 31,204评论 1 260
  • 我被黑心中介骗来泰国打工, 没想到刚下飞机就差点儿被人妖公主榨干…… 1. 我叫王不留,地道东北人。 一个月前我还...
    沈念sama阅读 45,083评论 2 350
  • 正文 我出身青楼,却偏偏与公主长得像,于是被迫代替她去往敌国和亲。 传闻我的和亲对象是个残疾皇子,可洞房花烛夜当晚...
    茶点故事阅读 42,503评论 2 343