oracle plsql 创建包

create or replace package test122 is 

 procedure pro_test_add(id in number,
                           name in varchar2,
                           sex in varchar2,
                           address in varchar2,
                           email in varchar2,
                            iRet out smallint,
                            sRet out varchar2);

procedure pro_test_del( v0 in varchar2,
                            iRet out smallint,
                            sRet out varchar2);    

procedure pro_test_up( v0 in number,
                           v1 in varchar2,
                           v2 in varchar2,
                           v3 in varchar2,
                           v4 in varchar2,
                            iRet out smallint,
                            sRet out varchar2);                      



end test122;




create or replace package body test122 is
-------------------
procedure pro_test_add(id in number,
                           name in varchar2,
                           sex in varchar2,
                           address in varchar2,
                           email in varchar2,
                            iRet out smallint,
                            sRet out varchar2) is
  begin
    insert into test1
    (id,
     name,
     sex,
     address,
     email)
     values
     (id,name,sex,address,email);
     commit;
     iRet := 1;
    sRet := '';
  exception
    when others then
      iRet := 0;
      sRet := sqlerrm;
 end;
 -----------------
 procedure pro_test_del( v0 in varchar2,
                            iRet out smallint,
                            sRet out varchar2) is
   begin
     delete from test where id=v0;
     commit;
    iRet := 1;
    sRet := '';
  exception
    when others then
      iRet := 0;
      sRet := sqlerrm;
  end;

  --------------
  procedure pro_test_up( v0 in number,
                           v1 in varchar2,
                           v2 in varchar2,
                           v3 in varchar2,
                           v4 in varchar2,
                            iRet out smallint,
                            sRet out varchar2) is
   begin
     update test1 set 
                      name=v1,
                      sex=v2,
                      address=v3,
                      email=v4
                      where
                      id=v0;
                      commit;
    iRet := 1;
    sRet := '';
  exception
    when others then
      iRet := 0;
      sRet := sqlerrm;
      end;
end test122;

通过 Wiz 发布