示例3:带member方法的对象操作
--建立包含member方法的对象规范
createorreplacetype person_obj1 asobject(
idvarchar2(10),
namevarchar2(20),
phone varchar2(20),
address varchar2(40),
memberprocedure change_address(aaddress varchar2),
memberfunction get_info returnvarchar2
);
--建立包含member方法的对象实现
createorreplacetypebody person_obj1 is
memberprocedure change_address(aaddress varchar2)
is
begin
address := aaddress;
end;
memberfunction get_info returnvarchar2
is
begin
return'id:'||id||','||'name:'||name||','||'phone:'||phone||','||'address:'||address;
end;
end;
--建立包含对象类型的表
createtable person_table1(
employeeid varchar2(10),
departid varchar2(10),
person person_obj1
);
--测试表对象及其member函数的使用
declare
myperson person_obj1;
begin
myperson := zhanglei.person_obj1('1001','jax','13548752412','test1');
myperson.change_address('深圳广东佛山东莞北京中关村。');
dbms_output.put_line(myperson.get_info);
end;
本文来自CSDN博客,转载请标明出处:http://blog.csdn.net/47522341/archive/2008/03/22/2206762.aspx