/*使用Oracle实现面向对象思想*/
/*首先创建类型规范,该规范中包含存储过程重载*/
create or replace type ty_test
is object
(
x number ,
member procedure pro_test,
member procedure pro_test(temp varchar2)
)
not final;
/*创建类型主体*/
create or replace type body ty_test
is
member procedure pro_test
is
begin
dbms_output.put_line('aaaa');
end pro_test;
member procedure pro_test(temp varchar2)
is
begin
dbms_output.put_line(temp);
end pro_test;
end;
/*调用类型,并输出结果*/
declare
ty ty_test;
begin
ty :=ty_test(5);
ty.pro_test;
ty.pro_test('bbb');
dbms_output.put_line(ty.x);
end;