`

PL/SQL流程控制(原创)

 
阅读更多

概述

类似于高级语言,流程控制语句是PL/SQL语言的重要组成部分。这些流程控制语句使得PL/SQL加大了代码的灵活性和多样性,大大简化了程序的编写。下面将列出流程控制语句并给出具体事例。

条件分支结构if

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;

注意:PL/SQL代码中依然需要显示的指定提交或回滚才能结束事务。上面的代码并没有结束事务

=============================================================
IF ... THEN ... ELSE ... END IF
IF condition THEN
    statements1;
ELSE
    statements2;
END IF;
判断condition是否成立,成立就执行IF 与ELSE 之间的语句,
否则执行ELSE 与END IF之间的语句。
例:输入员工编号,查询其工资,如果他们的职位是CLERK,则工资增加10%,如果不是CLERK,工资增加20%,再显示修改前后的工资数。
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.2;
     end if;

       update emp set sal = v_new_sal where empno = v_empid;
       dbms_output.put_line(' The staff' || '''' || 's job is '|| v_job || ' and his old salary is '|| v_old_sal );
       dbms_output.put_line(' The staff' || '''' || 's job is '|| v_job || ' and his new salary is '|| v_new_sal );

end;

=============================================================

IF ... THEN ... ELSIF ... THEN ... ELSE ... END IF
IF condition1 THEN
    statements1;
ELSIF condition2 THEN
    statements2;
ELSE
    else_statements;
END IF;
例:输入员工编号,查询其工资,如果其职位是CLERK,则工资增加10%,如果是SALESMAN工资增加20%,其它的加30%,显示修改前后的工资数。
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 := &intputid;
    select job,sal into v_job,v_old_sal from emp where empno = v_empid;
    if v_job = 'CLERK' THEN
      v_new_sal := 1.1 * v_old_sal;
    elsif v_job = 'CLERK'  THEN
      v_new_sal := 1.2 * v_old_sal;
    else

      v_new_sal := 1.3 * v_old_sal;
    end if;
     update emp set sal = v_new_sal where empno = v_empid;
      dbms_output.put_line('The staff' || '''' || 's job is ' || v_job || ' and his original salary is ' || v_old_sal);
      dbms_output.put_line('The staff' || '''' || 's job is ' || v_job || ' and his new salary is ' || v_new_sal);

exception
    when no_data_found then
      dbms_output.put_line('No Found Record');
end;

=============================================================

 等值比较的CASE多分支

 CASE expression
            WHEN result_1 THEN
            statements1;
            WHEN result_2 THEN
            statemnts2;
              ......
            [ELSE
            else_statements;]
        END CASE;
使用case分支完成前面的示例
例:输入员工编号,查询其工资,如果其职位是CLERK,则工资增加10%,如果是SALESMAN工资增加20%,其它的加30%,显示修改前后的工资数。
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 := &imputid;
   select sal,job into v_old_sal,v_job 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.2;
     else
       v_new_sal := v_old_sal * 1.3;
   end case;
   update emp set sal = v_new_sal where empno = v_empid;
   dbms_output.put_line('The staff' || '''' || 's job is ' || v_job || ' and his original salary is ' || v_old_sal);
   dbms_output.put_line('The staff' || '''' || 's job is ' || v_job || ' and his new salary is ' || v_new_sal);
exception
   when no_data_found then
     dbms_output.put_line('Not Record Found');
end;

========================================================

条件比较的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 = 'SALEMAN' then
       v_new_sal := v_old_sal * 1.2;
     else
       v_new_sal := v_old_sal * 1.3;
end case;

注意,在if和case的条件分支中,条件的选择根据语句编写的顺序顺序执行,故PL\SQL将执行条件分支中第一个满足条件的语句。

如下例中

case
     when v_job = 'CLERK' then
       v_new_sal := v_old_sal * 1.1;
     when v_empno = 7369 then
       v_new_sal := v_old_sal * 1.2;
     else
       v_new_sal := v_old_sal * 1.3;
end case;

这里7369号员工同的工作为'CLERK',v_job='CLERK'较先匹配条件。故他的工资涨幅为10%

======================================================

SQL中的CASE和DECODE

我们也可以直接使用sql中的case和decode函数来进行条件判断Case表达式第一种:
case exp when comexp then returnvalue
..when comexp then returnvalue
Else
Returnvalue
End
Case表达式第二种:
case when Boolean then returnvalue
..when Boolean then return value
Else
Returnvalue
End
Decode函数:
decode(exp,
value1,res1,
value2,res2,….,
valuen resn,
elsevalue)。

注意以下3点:
1、使用第一种方法时,When后面的表达式类型应该全部保持一致,返回值类型也必须保持一致,或者能够进行隐式转换。
2、
使用第一种方法时,case 表达式 when 值,如果值是null,就算表达式也是null,结果也是返回false。也就是case 后面的表达式如果值为null,不会与when null 匹配,只会与else 匹配。

使用第二种方法时,case 后面的表达式如果值为null,会与when null 匹配。

3、Decode函数的使用方法与case when相似,但是decode只能用等号匹配。

下面使用case和decode函数来完成上面的例子

select ename,job,sal old_sal,
   case job when 'CLERK' then 1.1 * sal
            when 'SALESMAN' then 1.2 * sal
            else 1.3 * sal end new_sal
from emp
order by job;
select ename,job,mgr,sal old_sal,
       case when job = 'CLERK'
            then  1.1 * sal
            when mgr = 7698
            then  1.2 * sal
            else  1.3 * sal end new_sal
from emp
order by job,mgr;
select ename,job,sal old_sal,
    decode(job,'CLERK',1.1*SAL,
               'SALESMAN',1.2*SAL,
               1.3*SAL) new_sal
 from emp
 order by job;

下面来验证上文所说的当case查询出的表达式存在null时的情况。

SQL> select case null when null then '1' else '2' end nulltest from dual;
NUL
---
2

此处null值和when后的null值不匹配,返回值为2。

将语句改如下
SQL> select case  when null is null then '1' else '2' end nulltest from dual;
NUL
---
1

相当于if boolean then value elseif ...此次null is null返回true,case表达式返回值是1

decode的情况如下

SQL> select decode(null,null,1,2) from dual;
DECODE(NULL,NULL,1,2)
---------------------
                    1

此处null和null匹配,返回值为1等值比较的case分支与条件比较的多分支case不同在于,前者语句提供一个selector选择器,且EXPRESSION的数据类型一定与 selector的数据类型匹配,否则报错。后者没有selector选择器,且when子句之后得到的结果一定是一个布尔型值 (NULL,TRUR,FALSE) 

======================================================

case嵌套

case的嵌套就是case语句和表达式中嵌套case语句与表达式,理解了case的用法,case嵌套并不难。注意case与case end/end的匹配问题 
下面是一个使用case表达式演示的case嵌套示例。 
更新表emp中的comm列,首要case是根据部门来判断,其下又嵌套了一个case,根据comm值的不同来确定新的comm值。 

update emp
     set comm =
         case deptno
           when 20 then case
                          when comm is null then 500
                          when comm < 200 then 300
                          else 100
                        end
           when 30 then case
                          when comm is null then 700
                          when comm < 300 then 500
                          else 200
                        end
           else 1000
           end;

======================================================

LOOP循环
LOOP
    statement;
    EXIT [WHEN condition];
END LOOP;
例:用LOOP写一个程序求1++++. . . +100 之和

declare
  n int := 1;
  m int := 0;
begin
  loop
    m := m + n;
    n := n + 1;
    exit when n > 100;
  end loop;
  dbms_output.put_line('The Result : ' || m);
end;

LOOP循环的好处在于可以不指定循环条件,当然这个特性也有可能使其造成死循环。

======================================================

WHILE 循环
WHIEL condition LOOP
    statement;
END LOOP;

下面使用while循环完成loop循环中的示例
declare
   n int := 1;
   m int := 0;
begin
   while n <= 100 loop
     m := m + n;
     n := n + 1;
   end loop;
dbms_output.put_line('The Result : ' || m);
end;

======================================================

FOR循环
FOR loop_index IN [reverse] lowest_number ..highest_number LOOP
    statements;
END LOOP;
下面使用for循环完成loop循环中的示例

declare
   n int ;
   m int := 0;
begin
   for n in 1..100 loop
     m := m +n;
   end loop;
dbms_output.put_line('The Result : ' || m);
end;

注意:reverse是方向循环,即n从100开始降序到1。无论是否加reverse参数,都应遵守lowest_number ..highest_number的原则

GOTO语句
    GOTO label_name
下面使用goto语句完成loop循环中的示例
 declare
   n int := 1;
   m int :=0;
begin
   loop
     m := m + n;
     n := n + 1;
     if n > 100 then
       goto out;
     end if;
   end loop;
   <<out>>
   dbms_output.put_line('The Result : ' || m);
end;
使用GOTO语句应注意:
标号后至少要有一条语句
PL/SQL块内可以相互跳转,内层块可以跳到外层块,但外层块不能跳到内层块
不能从某一IF语句外部跳到其内部
不能从某一循环外跳到其内部
不能从某一子程序外跳到其内

笔者并不建议使用goto语句进行程序结构的控制,这种看似灵活的编码方案增加了后续维护的工作量和程序的可读性。

NULL
NULL语句不会执行任何操作,并且会直接将控制传递到下一条语句,使用NULL语句主要是提高程序的可读性

例:为工资小于1000的员工涨薪20%

declare
   v_empid   emp.empno%type;
   v_old_sal emp.sal%type;
   v_new_sal emp.sal%type;
begin
   v_empid := &intputid;
   select sal into v_old_sal from emp where empno = v_empid;
   if v_old_sal < 1000 then
      v_new_sal := v_old_sal * 1.2;

   else

      null;
   end if;
   update emp set sal = v_new_sal where empno = v_empid;
   dbms_output.put_line('The New Salary: ' || v_new_sal);
exception
   when no_data_found then
   dbms_output.put_line('Not Record Found');
end;

 

参考至:http://www.cnblogs.com/songsh96/archive/2006/12/28/606549.html
               http://blog.csdn.net/robinson_0612/article/details/6063422
               http://blog.csdn.net/robinson_0612/article/details/7340187
本文原创,转载请注明出处、作者
如有错误,欢迎指正
邮箱:czmcj@163.com

0
0
分享到:
评论

相关推荐

    oracle笔记pl/sql流程控制

    oracle笔记pl/sql流程控制,有具体的代码案例,流程控制的知识点笔记!

    pl/sql最新中文手册

    PL/SQL是Oracle数据库系统中的一个关键组成部分,它是一种过程化语言,专为数据库操作设计。这个"PL/SQL最新中文手册"显然是一份详细解释PL/SQL 7.0版本的指南,对于学习和精通Oracle数据库编程至关重要。以下是手册...

    oracle10g_pl/sql

    Oracle 10g PL/SQL 是Oracle数据库系统中用于创建和管理存储过程、函数、触发器等数据库对象的编程语言。本教程旨在为初学者提供一个全面的学习平台,同时也为经验丰富的开发者提供参考资料。PL/SQL是Oracle特有的...

    一个对数据库的操作工具PL/SQLpl/sqL工具

    1. **编程能力**:PL/SQL允许编写包含控制结构(如循环、条件语句)和异常处理的程序块,这些块可以存储在数据库中并按需调用,提高了数据库应用的灵活性和复杂性。 2. **数据处理**:通过PL/SQL,用户可以直接对...

    Oracle PL/SQL实战(待续)

    在Oracle数据库中,PL/SQL提供了丰富的控制结构,如循环、条件判断,以及异常处理机制,使得开发者能够编写复杂的业务逻辑。例如,`IF...THEN...ELSIF...ELSE`语句用于实现条件分支,`WHILE`和`FOR`循环则可以处理...

    pl/sql developer11.0

    PL/SQL Developer是一款由Allround Automations公司开发的专业Oracle数据库开发工具,专为编写、调试、测试和管理PL/SQL代码而设计。标题中的“pl/sql developer11.0”指的是该软件的第11个主要版本。在本文中,我们...

    pl/sql64位

    总的来说,64位的PL/SQL Developer是Oracle开发人员的一个强大工具,它可以提供更高效的工作流程,减少因内存限制带来的问题,同时保持易于使用的界面和丰富的功能集。如果你在处理大型数据库或者需要更高的性能,...

    oracle 9i pl/sql程序设计笔记

    通过上述对Oracle 9i PL/SQL程序设计笔记的总结,我们可以看到PL/SQL作为一种强大的数据库编程语言,提供了丰富的功能来支持数据处理、事务控制及业务逻辑的实现。掌握PL/SQL的不同块类型及其使用方法对于开发高效、...

    PL/SQL VCS插件安装包+PL/SQL

    PL/SQL VCS插件是为开发者提供的一种增强工具,它与PL/SQL Developer整合,目的是为了更好地管理和控制Oracle数据库中的SQL脚本和存储过程的版本。这个安装包结合了Version Control System (VCS)的功能,如Visual ...

    oracle pl/sql从入门到精通 配套源代码

    Oracle PL/SQL是一种强大的编程语言,它结合了SQL(结构化查询语言)的数据库操作功能与PL/SQL的程序设计特性,广泛应用于Oracle数据库的开发和管理。这本书"Oracle PL/SQL从入门到精通"的配套源代码,显然是为了...

    Oracle PL/SQL程序设计(第5版)(上下册)

    ### Oracle PL/SQL程序设计(第5版)(上下册)知识点概述 #### 一、PL/SQL编程基础 - **PL/SQL简介**:PL/SQL(Procedural Language for SQL)是Oracle数据库的一种内嵌式过程化语言,用于增强SQL的功能。它允许在SQL...

    PL/SQL 基本知识

    首先,PL/SQL是一种过程化语言,它允许用户定义变量、控制流程(如循环、条件语句)、处理异常,并且可以嵌入SQL查询,进行数据的增删改查操作。通过使用PL/SQL,数据库管理员和开发者可以更高效地管理和维护数据库...

    pl/sql 免安装,绿色版pl/sql

    7. **版本控制集成**:对于团队协作,PL/SQL Developer支持与各种版本控制系统(如SVN、Git等)集成,便于代码版本管理和协同工作。 8. **readme文档**:压缩包内的readme文档提供了详细的配置和使用指南,帮助新...

    Oracle PL/SQL实例编程(PL/SQL经典书籍)

    3. **控制结构**:PL/PROCEDURE和PL/FUNCTION是PL/SQL的基本程序单元,前者不返回值,后者可以返回一个值。流程控制结构有IF-THEN-ELSIF-ELSE、CASE、FOR循环、WHILE循环和GOTO。 4. **SQL操作**:PL/SQL可以直接...

    PL/SQL Developer 远程连接Oracle数据库

    9. **版本控制集成**:PL/SQL Developer可以与各种版本控制系统(如Git、SVN)集成,这对于团队协作和代码版本管理非常有用。 10. **数据导入导出**:通过PL/SQL Developer,你可以方便地将数据从本地导入到远程...

    PL/SQL下载

    1. **基础语法**:理解PL/SQL的基本数据类型、变量声明、流程控制结构等。 2. **函数和过程**:掌握如何定义和调用自定义函数和过程。 3. **游标**:了解如何使用游标处理结果集。 4. **异常处理**:学习如何编写...

    pl/sql快捷插件

    而“pl/sql快捷插件”则是针对PL/SQL Developer的一个增强工具,它旨在提高用户的开发效率和工作流程。 PL/SQL插件通常包含一系列扩展功能,如代码片段、自动化脚本、自定义快捷键、增强型代码提示以及更高效的...

    ORACLE PL/SQL从入门到精通

    ORACLE PL/SQL是从入门到精通的专业知识,涵盖了数据库开发与管理的多个方面,包括触发器、过程、函数、软件包、异常处理、游标、循环、分支、变量使用、数据库安装等关键知识点。 触发器是数据库中用来保证数据...

    PL/SQL编程基础知识

    PL/SQL(Procedural Language for SQL)是一种过程化语言,它结合了SQL的数据操纵功能和过程化语言的控制结构,使用户能够灵活地控制数据操作流程。作为Oracle数据库的核心组成部分之一,PL/SQL在数据库应用程序开发...

    PL/SQL安装包

    1. **结构化**:PL/SQL支持流程控制语句(如IF-THEN-ELSE,CASE,WHILE,FOR循环)和异常处理,使得开发者能够编写复杂的逻辑代码。 2. **集成性**:PL/SQL直接嵌入到Oracle数据库中,可以创建存储过程、函数、...

Global site tag (gtag.js) - Google Analytics