如何编写 PL/SQL 程序

本文的操作选用的数据库是oracle 数据库，登陆的用户是自带的scott用户，默认密码：tiger，有不懂得可以相互讨论一下，谢谢.

首先需要了解PL/SQL块的结构，PL/SQL块由定义部门、执行部门、例外处理部分三个部分组成：

declare  /**  *定义部分---定义常量、变量、复杂数据类型、游标、例解  *  */begin  /**  * 执行部分--- PL/SQL语句和SQL语句  *  */ exception  /**   *例外处理部分---处理运行错误   *   */ end;  /*结束快标记*/  

其中定义部分以declare（大小写都可以）开始，该部分是可选的；执行部分以begin开始，该部分是必须的；例外处理部分以exception开始，该部分也是可选的；而end则是PL/SQL块的结束标记。

下面是一个简单的例子，演示一下：

declare     v_ename varchar(20);begin      select ename into v_ename               from emp              where empno=&no;      dbms_output.put_line('雇员名:'||v_ename);           exception      when no_data_found then               dbms_output.put_line('请输入正确的雇员号！');     end;        

接下来我们来看看PL/SQL块的分类：

 

1.匿名块 ：也就是没有名称的PL/SQL块，匿名块可以内嵌到应用程序（Pro*C++）中，也可以在交互环境（例如 SQL*Plus）中直接使用。 上面的例子就是所谓的匿名块.

 

2.命名块：具有特定名称标识的PL/SQL块，在PL/SQL块begin使用<<>>加以标记。当使用嵌套块时，为了区分多级嵌套层次关系，，可以使用命名块加以区分。示例如下：

declare     v_deptno number(2);    v_dname  varchar2(10); begin  <<outer>>  begin    <<inner>>  select deptno into v_deptno       from emp           where lower(ename) =lower('&name');  end; --<<inner>>        select dname into v_dname          from dept         where deptno=v_deptno;  dbms_output.put_line('部门名:'||v_dname);   end;  --<<outer>>  

关于命名块，本人还有很多疑问，因为有的书上不是这样写的，运行会出错。个人理解而已，呵呵。。

 

 

3.子程序 ：包括过程、函数和包.

3.1 过程

         过程用于执行特定操作。当建立过程时，既可以指定输入参数（IN）、也可以指定输出参数（OUT）。通过在过程中使用输入参数，可以将应用环境的数据传递到执行部分；通过使用输出参数，可以将执行部分的数据传递到应用环境。

在SQL*Plus中可以使用create procedure 命令建立过程，在开发过程中，建议使用create or replace procedure 。示例如下：

 create or replace procedure update_sal(name varchar2,newsal number) is begin   update emp set sal=newsal   where lower(ename)=lower(name); end;

在SQL*Plus中调用时，可以使用exec、call命令 ,不过在PL/SQL工具的SQL窗口中时，只能使用call  .

SQL> exec update_sal('scott',1000); PL/SQL procedure successfully completed SQL> 

 

 

 3.2 函数

       函数用于返回特定的数据。当建立函数时，在函数头部必须包含return 字句，而在函数体内必须包含return 语句返回数据。在SQL*Plus中，可以使用create function 命令建立函数，示例如下：

create function annual_income(name varchar2) return number is      annual_salary number(7,2);begin   select sal*12+nvl(comm,0) into annual_salary        from emp         where lower(ename)=lower(name);        return annual_salary;end;

如上例所示，函数annual_income用于返回雇员的全年收入（包括工资和奖金）。下面使用SQL*Plus绑定变量存放输出结果,示例如下：

SQL> call annual_income('scott') into :income; Method calledincome---------24000 SQL> print incomeincome---------24000 SQL> 

 

 关于包、触发器等等以后再补充。。

以上存储过程和函数只是简单的介绍，要深入的了解，请参考其它的博文.