包

oracle中的包用于逻辑组合相关的pl/sql类型，项和子程序，有包规范和包体组成。当建立包时，需要首先建立包规范，再建立包体。

1.建立包规范

 

        create or replace package package_name

        IS | As

                v_name v_type;

                procedure p_name;

                function f_name;

        END package_name;

   当执行以上命令后会建立包规范，但因为只定义了函数名和过程名头部，没有实现，所以这些函数和过程只有在定义了包体后才能使用。

 

2.建立包体

    包体用于实现包规范所定义的过程和函数。在包体中定义的函数，过程和变量只能在包中使用，而不能有其他程序引用。

    建立包体语法如下：

    create or replace package body package_name

    IS | AS

    private  type and declarations;

    实现包体中的函数和过程；

 

   end package_name;

 

3.调用包组件

  对于包的私有组件，只能在包中调用，并且可以直接调用。对于共有组件既可以在包中调用也可以其他应用程序中调用，但是在其他程序中必须加包名作为前缀。

4。 查看包源代码

     select * from user_source where name='P_VALY';

 

执行结果片段如下：

NAME TYPE LINE TEXT------------------------------ ------------ ---------- --------------------------------------------------------------------------------P_VALY PACKAGE 1 package p_valyP_VALY PACKAGE 2 isP_VALY PACKAGE 3 v_valy kc25%ROWTYPE;P_VALY PACKAGE 4 function f_valy(f_in kc25.aaz308%TYPE) return aa26.aaa146%TYPE;P_VALY PACKAGE 5 procedure p_valy(f_in kc25.aaz308%TYPE,f_out out aa26.aaa146%TYPE);P_VALY PACKAGE 6 end p_valy;P_VALY PACKAGE BODY 1 package body p_valyP_VALY PACKAGE BODY 2 isP_VALY PACKAGE BODY 3 --v_valy1 kc25%ROWTYPE;P_VALY PACKAGE BODY 4 --P_VALY PACKAGE BODY 5 P_VALY PACKAGE BODY 6 P_VALY PACKAGE BODY 7 function f_valy(f_in kc25.aaz308%TYPE)P_VALY PACKAGE BODY 8 return aa26.aaa146%TYPEP_VALY PACKAGE BODY 9 IsP_VALY PACKAGE BODY 10 temp_aa26 aa26.aaa146%TYPE;P_VALY PACKAGE BODY 11 beginP_VALY PACKAGE BODY 12 select b.aaa146 into temp_aa26 from kc25 a,aa26 bP_VALY PACKAGE BODY 13 where a.aaz308=f_in and a.aab302=b.aab301;P_VALY PACKAGE BODY 14 return temp_aa26;

5.删除包

    drop package p_valy;

 

 

 

包的示例代码:

create or replace package p_valyis v_valy aa26.aaa146%TYPE; function f_valy(f_in kc25.aaz308%TYPE) return aa26.aaa146%TYPE; /* 包的重载 */ -- 使用包的重载特性时，同名的过程和函数必须具有不同的输入参数，但是 -- 同名函数的返回类型必须一致 function f_valy(f_in kc25.aaz216%TYPE) return aa26.aaa146%TYPE; procedure p_valy(f_in kc25.aaz308%TYPE,f_out out aa26.aaa146%TYPE);end p_valy;

 

包体的代码：

create or replace package body p_valyis --v_valy1 kc25%ROWTYPE;-- function f_valy(f_in kc25.aaz308%TYPE) return aa26.aaa146%TYPE Is temp_aa26 aa26.aaa146%TYPE; begin select b.aaa146 into temp_aa26 from kc25 a,aa26 b where a.aaz308=f_in and a.aab302=b.aab301; return temp_aa26; Exception when NO_DATA_FOUND then return '无数据！'; end; procedure p_valy(f_in kc25.aaz308%TYPE,f_out out aa26.aaa146%TYPE) Is temp_aa26 aa26.aaa146%TYPE; begin select b.aaa146 into temp_aa26 from kc25 a,aa26 b where a.aaz308=f_in and a.aab302=b.aab301; Exception when NO_DATA_FOUND then temp_aa26 := '无数据'; dbms_output.put_line('无数据'); f_out := temp_aa26; end; end p_valy;