Oracle的面向对象----类型重载

/*使用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_testis   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;