PLSQL中关于包的一个示例

PLSQL有类似于JAVA中的接口的包，包的好处就是方便管理与理解，

并且对于学习JAVA的人来说，基本没有语方法上的障碍，一看就知道

是这么个东西，也好理解。

下面是一个示例：

需要的表：create table test(tid number,tname varchar(50));

-------------------------创建一个包-------------------------

--先建包头，类似于JAVA中的接口，只能够声明，不能够在这里实现

--所有的实现都在包体里面

create or replace package test_pkg

as

procedure add(l_tid in number,l_tname in varchar2);

procedure <state w:st="on"><place w:st="on">del</place></state>(l_tid in number);

end test_pkg;

--建立包体

create or replace package body test_pkg

as

--该方法没有在包里面定义，相当于是私有方法，不能够被外界调用，

--只能够被包内的方法调用。

function check_tid(l_tid in number)

return boolean

as

begin

if l_tid>0 then

return true;

else

return false;

end if;

end;

--实现包内方法

procedure add(l_tid in number,l_tname in varchar2)

as

begin

if check_tid(l_tid)=true then

insert into test(tid,tname) values(l_tid,l_tname);

else

dbms_output.put_line('ID要大于0！');

end if;

end;

procedure <state w:st="on"><place w:st="on">del</place></state>(l_tid in number)

as

begin

delete from test where tid=l_tid;

end;

end test_pkg;

-------------------------创建包完成-------------------------

--测试示例

begin

test_pkg.add(0,'testPKG');--报错

end;

begin

test_pkg.add(3,'testPKG');--正确

end;

begin

test_pkg.del(3);--删除

end;

select * from test;--查看