/*实现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;