开发Oracle函数

函数用于返回特定的数据。如果在应用程序中，经常需要执行SQL语句来返回特定数据，那么可以基于这些操作建立特定的函数。建立函数的语法如下： CREATE [OR REPLACE] FUNCTION function_name (argument1 [model] datatype1, argument2 [model] datatype2, ...

函数用于返回特定的数据。如果在应用程序中，经常需要执行SQL语句来返回特定数据，那么可以基于这些操作建立特定的函数。建立函数的语法如下：

CREATE [OR REPLACE]  FUNCTION function_name
      (argument1 [model] datatype1,
        argument2 [model] datatype2,
        ....)
   RETURN datatype
 IS|AS
     PL/SQL  Block;     

如上所示，function_name用于指定函数的名称；argument1、argument2等则用于指定函数的参数，注意当指定参数的数据类型时，不能指定其长度；RETURN子句用于指定函数返回值的数据类型；IS|AS用于开始一个PLS/QL块。注意，当建立函数时，在函数头部必须要带有RETURN子句，在函数体内必须要包含一条RETURN语句。另外，当建立函数时，既可以指定输入参数（IN），也可以指定输出参数（OUT），以及输入输出参数（IN OUT）。下面通过实例说明建立函数，以及使用各种参数模式的方法。

1、建立函数，不带任何参数

当建立函数时，既可以带有参数，也可以不带参数。下面以建立用于显示当前数据库用户名的函数为例，说面建立该种函数的方法。示例如下：

CREATE OR REPLACE FUNCTION get_user
  RETURN VARCHAR2
IS
   v_user VARCHAR2(100);
BEGIN
	  SELECT username INTO v_user FROM user_users;
	  RETURN v_user;
END;	 

建立了函数get_user之后，就可以在应用程序中调用该函数了。因为函数有返回值，所以它只能作为表达式的一部分来调用。调用示例如下：

示例一：使用变量接收函数返回值

SQL> var v1 varchar2(100);
SQL> exec :v1:=get_user;
 
PL/SQL procedure successfully completed
v1
---------
SCOTT
 
SQL> print v1;
v1
---------
SCOTT

示例二：在SQL语句中直接调用函数

SQL> select get_user from dual;
 
GET_USER
--------------------------------------------------------------------------------
SCOTT

示例三：使用包DBMS_OUTPUT调用函数

SQL> set serveroutput on;
SQL> exec dbms_output.put_line('当前数据库用户:'||get_user);
 
当前数据库用户:SCOTT
 
PL/SQL procedure successfully completed

2、建立函数：带有IN参数

当建立函数时，通过使用输入参数，可以将应用程序的数据传递到函数中，最终通过执行函数可以将结果返回到应用程序中。下面以建立返回雇员工资的函数为例，说明建立带有输入参数函数的方法。示例如下：

CREATE OR REPLACE FUNCTION  get_sal(name IN VARCHAR2)
RETURN NUMBER
AS
  v_sal emp.sal%TYPE;
BEGIN
    SELECT sal INTO v_sal  FROM emp
      WHERE upper(ename)=upper(name);
      RETURN v_sal;
  EXCEPTION
      WHEN NO_DATA_FOUND THEN
      raise_application_error(-20000,'该雇员不存在');       
END; 

在建立了get_sal之后，就可以在应用程序中调用该函数了。调用该函数的示例如下：

示例一：输入存在的雇员

SQL> var sal NUMBER;
SQL> exec :sal:=get_sal('scott');
 
PL/SQL procedure successfully completed
sal
---------
1200
 
SQL> print sal;
sal
---------
1200

示例二：输入不存在的雇员

SQL> exec :sal:=get_sal('mary');
 
begin :sal:=get_sal('mary'); end;
 
ORA-20000: 该雇员不存在
ORA-06512: 在 "SCOTT.GET_SAL", line 11
ORA-06512: 在 line 2

3、建立函数：带有OUT参数

一般情况下，函数只需要返回单个数据。如果希望使用函数同同时返回多个数据，例如同时返回雇员名和工资那么就需要使用输出参数了。为了在函数中使用输出参数，必须要指定OUT参数模式。下面以建立用于返回雇员所在部门名和岗位的函数为例，说明建立带有OUT参数函数的方法。示例如下：

 CREATE OR REPLACE FUNCTION get_info
  (name VARCHAR2,title OUT VARCHAR2)
  RETURN VARCHAR2
AS
  deptname dept.dname%TYPE;
BEGIN 
   SELECT a.job,b.dname INTO title,deptname
     FROM emp a,dept b
     WHERE a.deptno=b.deptno
     AND upper(a.ename)=upper(name);     
    RETURN  deptname;
EXCEPTION
     WHEN NO_DATA_FOUND  THEN
      raise_application_error(-20000,'该雇员不存在');   
END;         
        

当建立了函数get_info 后，就可以在应用程序中调用该函数了。注意，因为该函数，带有OUT参数，所以不能在SQL语句中，调用该函数，而必须要定义变量接收OUT参数和函数的返回值。在SQL*PLUS中调用函数get_info的示例如下：

SQL> var job varchar2(20)
SQL> var dname varchar2(20)
SQL> exec :dname:=get_info('scott',:job);
PL/SQL procedure successfully completed
dname
---------
ANALYST
job
---------
ANALYST   

如上所示：除了输出函数自定义返回的值，也返回了OUT参数的返回值。

4、建立IN OUT参数

建立函数时，不仅可以指定IN和OUT参数，也可以指定IN OUT参数。IN OUT 参数，也被成为输入输出参数。使用这种参数时，在调用函数之前需要通过变量给该种参数传递数据，在调用结束之后Oracle会将函数的部分结果通过该变量传递给应用程序。下面以计算两个数值相除的结果的函数Result为例，说明在函数中使用IN OUT参数的方法。示例如下：

CREATE OR REPLACE FUNCTION result_num
(num1 NUMBER,num2 IN OUT NUMBER)
RETURN NUMBER
IS
  v_result NUMBER(6);
  v_remainder NUMBER;
BEGIN 
    v_result:=num1/num2;
    v_remainder:=MOD(num1,num2);  
    num2:=v_remainder;
    RETURN v_result;
 EXCEPTION 
      WHEN 
         ZERO_DIVIDE  THEN
          raise_application_error(-20000,'不能除0');
 END;            

注意，因为该函数带有IN OUT 参数，所以不能再SQL语句中调用该函数，而必须使用变量为IN OUT参数传递数值并接收数据。另外，还需要定义变量接收函数返回值。调用该函数的示例如下：

SQL> var result2 number;
SQL> var result1 number;
SQL> var result2 number;
SQL> exec :result2:=30;
 
PL/SQL procedure successfully completed
result2
---------
30
 
SQL> exec :result1:=result_num(100,:result2);
 
PL/SQL procedure successfully completed
result1
---------
3
result2
---------
10