PL/SQL小技巧一个：在子类中怎么调用父类被重载的方法

在C++和Java中，这是非常容易实现的

C++是：父类名::被重载的方法(参数表), 比如：

ancestorclass::name({arguments});

而在Java中，可以用super代替父类，如这样实现

Super.name({arguments});

而在Oracle 9i Release2中都没实现这样的功能，

当然我们可以用其它办法来实现这样的功能。

父类对象类型

Create or Replace Type parent as object (

rowsID integer,

member procedure printAttr,

final member procedure printAttr_parent --最好加final,防止子类对此方法进行重载

)not final;

/

Create or replace Type body parent is

Member procedure printAttr is

Begin

printAttr_parent;

End;

final Member procedure printAttr_parent is

Begin

Super.printAttr; --此句是错地，会抛出identifier ‘super.printAttr’ must be declared. 因此要删除此句。

Dbms_output.put_line(‘父类方法,RowsID:=’||rowsID);

End;

End;

/

子类对象类型

Create or replace type child under parent (

Overriding member procedure printAttr

)not final;

/

Create or replace type body child is

Overriding member procedure printAttr is

Begin

Dbms_output.put_line(‘子类过程---调用父类过程之前’);

--在此处我们要用self.printAttr,因为printAttr不是直接在子类中定义的过程

Self.printAttr;

Dbms_output.put_line(‘子类过程---调用父类过程之后’);

End;

End;

/

然后我们进行测试一下：

Declare

vParent parent := parent(1);

vChild child := child(11);

begin

dbms_output.put_line(‘运行父类过程‘);

vParent.printAttr;

dbms_output.put_line(‘运行子类过程‘);

vChild.printAttr;

end;

运行结果:

运行父类过程

父类方法,RowsID:=1

运行子类过程

子类过程---调用父类过程之前

父类方法,RowsID:=11

子类过程---调用父类过程之后

虽说这有点儿麻烦，父类有几个被重载的方法，你就要在父类父加几个另外的方法。

但也是没办法的办法，’曲线救国’嘛。