ORACLE之PACKAGE-包、存储过程、函数

1，简单的包。

创建包规范：

create or replace package pack_test1 is
  -- 定义过程1
  procedure p_test1(p_1 in varchar2);
  -- 定义函数1
  function f_test1(p_1 in varchar2) return varchar2;
end pack_test1;

创建包体：

create or replace package body pack_test1 is
  -- 包全局变量1
  v_param1 varchar(20) := 'default';

  -- 实现过程1
  procedure p_test1(p_1 in varchar2) is
  begin

    dbms_output.put_line('p_1的值为：'|| p_1);
    dbms_output.put_line('全局变量的值为：'||v_param1);
    -- 改变全局变量
    v_param1 := p_1;
    dbms_output.put_line('改变后的全局变量值为：'||v_param1);

  end;

  -- 实现函数1
  function f_test1(p_1 in varchar2) return varchar2 is
    v_rt varchar2(50);
  begin
    dbms_output.put_line('获取的全局变量值为：'||v_param1);

    v_rt := v_param1||'-'||p_1;

    dbms_output.put_line('返回值为：'||v_rt);

    return v_rt;
  end f_test1;

end pack_test1;
---------------------

调用包：

在一般的sql窗口可以使用以下方法：

-- 调用过程
call pack_test1.p_test1('参数1');

-- 调用函数
select pack_test1.f_test1('参数2') from dual;

在命令窗口可以使用：

exec pack_test1.p_test1('参数1');--执行此包 存在版本问题 看不到输出

2，包间调用

刚学pl/sql编程，写了两个package。pkg_temp_fn和pkg_temp_fn2。内容涉及pl/sql基本语法，游标，存储过程（in,out），函数（有返回值）。

• pkg_temp_fn内有一个function f_getdept(v_deptid number) return VARCHAR2和一个procedure p_getinfo(v_mapid NUMBER)

创建包规范

 create or replace package pkg_temp_fn is
   function f_getdept(v_deptid number) return VARCHAR2;
   --reference pkg_temp_fn2
   procedure p_getinfo(v_mapid NUMBER/*,v_pname VARCHAR2(20),v_deptno VARCHAR2(15)*/);
  -- procedure p_main_process;
 end pkg_temp_fn;
 --3/24/2016
 --var map_id number;
 --exec pkg_temp_fn.p_getinfo(&map_id);调用方法

创建包体

 create or replace package body pkg_temp_fn
 is
   function f_getdept(v_deptid number) return VARCHAR2
   is
     deptno varchar2(15);
     begin
         select y.dept_no into deptno from t_fn_dept y where y.dept_id=v_deptid;
       return deptno;
     end f_getdept;

   procedure p_getinfo(v_mapid NUMBER)
     is
       cursor xing is select x.person_name,x.dept from t_fn_person x where x.map_id=v_mapid;
       pname VARCHAR2(20);
       pdept number;
       v_deptno VARCHAR2(15);
       begin
         open xing;
         loop
           fetch xing into pname,pdept;
           exit when xing%notfound;
           v_deptno:=f_getdept(pdept);--call function
           dbms_output.put_line(pname||'''s dept is :'||v_deptno);
         end loop;
         close xing;
       end p_getinfo;
 end pkg_temp_fn;

• kg_temp_fn2内有一个function f_getdept(v_deptid number) return VARCHAR2、一个procedure p_getinfo(v_mapid NUMBER,v_pname out VARCHAR2,v_deptno out VARCHAR2),一个procedure p_main_process(v_mapid NUMBER)。

创建包规范

 create or replace package pkg_temp_fn2 is
   function f_getdept(v_deptid number) return VARCHAR2;
   procedure p_getinfo(v_mapid NUMBER,v_pname out VARCHAR2,v_deptno out VARCHAR2);
   procedure p_main_process(v_mapid NUMBER);
 end pkg_temp_fn2;
 --3/24/2016
 --var map_id number;
 --exec pkg_temp_fn2.p_main_process(&map_id);调用方法

创建包体

 create or replace package body pkg_temp_fn2
 is
   function f_getdept(v_deptid number) return VARCHAR2
   is
     deptno varchar2(15);
     begin
         select y.dept_no into deptno from t_fn_dept y where y.dept_id=v_deptid;
       return deptno;
     end f_getdept;

   procedure p_getinfo(v_mapid in NUMBER,v_pname out VARCHAR2,v_deptno out VARCHAR2)
     is
       cursor xing is select x.person_name,x.dept from t_fn_person x where x.map_id=v_mapid;
       pdept number;
       begin
         open xing;
         loop
           fetch xing into v_pname,pdept;
           exit when xing%notfound;
           v_deptno:=f_getdept(pdept);--
           --dbms_output.put_line(pname||'''s dept is :'||v_deptno);
         end loop;
         close xing;
       end p_getinfo;
    procedure p_main_process(v_mapid NUMBER)
      is
      v_pname  VARCHAR2(20);
      v_deptno  varchar2(15);
      begin
        p_getinfo(v_mapid,v_pname,v_deptno);
        dbms_output.put_line(v_pname||'''s dept is :'||v_deptno);
      end p_main_process;
 end pkg_temp_fn2;

ps:

定义变量或者参数的的时候，类型不要有括号，否则报错。