Oracle对象类型——类型继承、重载、重写

/*实现Oracle面向对象中的抽象类型*/

/*创建抽象类型规范*/
create or replace type ty_test
is object
(
  x number,
 not instantiable member procedure pro_test(temp varchar2)
)
not instantiable
not final;

/*创建一个子类型规范，该类型继承自抽象类型*/
create or replace type ty_son under ty_test
(
 y number,
 overriding member procedure pro_test(temp varchar2)
)

/*创建类型主体，该类型实现了抽象类型中的抽象存储过程*/
create or replace type body ty_son
is
 overriding member procedure pro_test(temp varchar2)
 is
  begin
   dbms_output.put_line(temp);
  end pro_test; 
end;

/*调用*/
declare
 ty ty_son;
 begin
  ty:=ty_son(5,8);
  ty.pro_test('aaa');
  dbms_output.put_line(ty.x||ty.y);
 end;

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;

Oracle对象类型——类型重写

/*创建基类型规范*/
create or replace type ty_test
is object
(
 x number,
 member procedure pro_test
)
not final;

/*创建基类型主题*/
create or replace type body ty_test
is
  member procedure pro_test
  is
  begin
    dbms_output.put_line('aaa');
  end pro_test;
end;

/*创建子类型规范子类型实现对基类型的重写*/
create or replace type ty_son under ty_test
(
  y number,
 overriding member procedure pro_test
)

/*创建子类型的主体*/
create or replace type body ty_son
is
  overriding member procedure pro_test
 is
  begin
   dbms_output.put_line('bbb');
  end pro_test;
end;

/*调用类型*/
declare
ty ty_test;
begin
 ty:=ty_son(5,8);
 ty.pro_test;
end;