Oracle PL/SQL 包的使用

nzegoaatru

SQL> set serveroutput on;
SQL> remark 包：是由存储在一起的相关对象组成的PL SQL结构。包有两个独立的部分：即说明部分和包体，这两个部分是独立的存在数据字典中的；
SQL> remark 包的说明：包的说明包含了有关包的相关信息。该部分中不包含包的代码部分；

SQL> edit;
Wrote file afiedt.buf

  1  create or replace package testpak
  2  is
  3  procedure mysub(a int);
  4  function myfunc(b int) return int;
  5* end testpak;
SQL> /

Package created.

SQL> remark 包体：是一个独立于包头的数据字典对象。包体只能在包头完成编译后进行编译。包体中带有包头中描述的前向子程序代码段；
SQL> remark 注：包体是可选的；包头和包体中的过程和函数必须一致，包括子程序名和其参数名，以及参数模式。
SQL> create or replace package body testpak
  2  as
  3  procedure mysub(a int)
  4  is
  5  begin
  6  dbms_output.put_line(a*a);
  7  end mysub;
  8  
  9  function myfunc(b int) return int
10  is
11  begin
12  return b+1;
13  end myfunc;
14  end testpak;
15  /

Package body created.

SQL> remark .............................................................
SQL> remark 包和作用域：包头中声明的任何对象都是在其作用域中，使用包名.对象名 可以调用包中对应的对象；
SQL> remark 在包体中：包头中的 对象可以直接的引用，可以不用包名.
SQL> remark 包头中的变量是全局的  子过程中的变量是局部的；
SQL> create or replace package testpak
  2  as
  3  thecount int:=0;
  4  function add(m int) return int;
  5  procedure getcount;
  6  end;
  7  /

Package created.

SQL> remark 创建包体
SQL> create or replace package body testpak
  2  is
  3  function add(m int) return int
  4  is
  5  begin
  6  thecount:=thecount+m;
  7  return thecount;
  8  end add;
  9  procedure getcount
10  is
11  begin
12  dbms_output.put_line(thecount);
13  end getcount;
14  end;
15  /

Package body created.

SQL> remark 调用包体中的函数；
SQL> declare
  2  result int;
  3  begin
  4  result:=testpak.add(5);
  5  dbms_output.put_line('函数的运算结果为：'||result);
  6  dbms_output.put_line('当前包内的参数值为：'||testpak.thecount);
  7  testpak.getcount;
  8  end;
  9  /
函数的运算结果为：5                                                            
当前包内的参数值为：5                                                           
5                                                                              

PL/SQL procedure successfully completed.

SQL> /
函数的运算结果为：10                                                            
当前包内的参数值为：10                                                         
10                                                                              

PL/SQL procedure successfully completed.

SQL> remark 包中子过程的重载
SQL> remark 在包的内部，过程和函数可以被重载(overloding) 也就是说：可以有一个以上名称相同的，但参数不同的过程或函数。
SQL> remark 示例：子过程中的重载
SQL> create or replace package testpak
  2  as
  3  thecount int :=0;
  4  function add(m int) return int;
  5  function add(m int , n int) return int;
  6  procedure getcount;
  7  end;
  8  /

Package created.

SQL> remark 创建包体：实现包头中的函数和过程
SQL> create or replace package body testpak
  2  is
  3  function add(m int) return int
  4  is
  5  begin
  6  thecount:=thecount+m;
  7  return thecount;
  8  end add;
  9  
10  function add(m int , n int) return int
11  is
12  begin
13  thecount:=thecount+m+n;
14  return thecount;
15  end add;
16  
17  procedure getcount
18  is
19  begin
20  dbms_output.put_line(thecount);
21  end getcount;
22  end;
23  /

Package body created.

SQL> remark 调用函数和存储过程
SQL> declare
  2  result int;
  3  begin
  4  dbms_output.put_line('调用add(m int)的函数：');
  5  result :=testpak.add(5);
  6  dbms_output.put_line('当前包内thecount的值为:'||testpak.thecount);
  7  dbms_output.put_line('调用add(m int,n int)的函数：');
  8  result :=testpak.add(5,5);
  9  dbms_output.put_line('当前包内thecount的值为:'||testpak.thecount);
10  end;
11  /
调用add(m int)的函数：                                                         
当前包内thecount的值为:5                                                        
调用add(m int,n int)的函数：                                                   
当前包内thecount的值为:15                                                      

PL/SQL procedure successfully completed.

SQL> spool off;
[size=x-large]