如何编写 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 called
income
---------
24000

SQL> print income
income
---------
24000

SQL> 

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

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