oracle面向对象编程的多态性

--如果使用子类型初始化，则调用子类型函数
SQL> create or replace type pt is object
  2  (
  3    name varchar2(20),
  4    sex  varchar2(2),
  5    age  number,
  6    member procedure p_Set_Print,
  7    member function f_get_info Return varchar2
  8  )  not final
  9  /
Type created
SQL> create or replace type body pt is
  2    member procedure p_Set_Print
  3    is
  4    begin
  5      dbms_output.put_line('pt_P_Set_Print');
  6    end;
  7    member function f_get_info Return varchar2
  8    is
  9    begin
 10      return 'pt  姓名:'||self.name||'  性别:'||self.sex||'  年龄:'||self.age;
 11    end;
 12  end;
 13  /
Type body created
SQL> create or replace type st under pt
  2  (
  3    overriding member procedure p_Set_Print,
  4    overriding member function f_get_info Return varchar2
  5  )
  6  /
Type created
SQL> create or replace type body st is
  2    overriding member procedure p_Set_Print
  3    is
  4    begin
  5      dbms_output.put_line('st_P_Set_Print');
  6    end;
  7    overriding member function f_get_info Return varchar2
  8    is
  9    begin
 10      return 'st  姓名:'||self.name||'  性别:'||self.sex||'  年龄:'||self.age;
 11    end;
 12  end;
 13  /
Type body created


SQL> set serverout on
SQL> 
SQL> declare
  2    v pt:=pt('张三','女','20');
  3  begin
  4    v.p_Set_Print;
  5    dbms_output.put_line(v.f_Get_info);
  6  end;
  7  /
pt_P_Set_Print
pt  姓名:张三  性别:女  年龄:20
PL/SQL procedure successfully completed


SQL> 
SQL> declare
  2    v st:=st('张三','女','20');
  3  begin
  4    v.p_Set_Print;
  5    dbms_output.put_line(v.f_Get_info);
  6  end;
  7  /
st_P_Set_Print
st  姓名:张三  性别:女  年龄:20
PL/SQL procedure successfully completed


SQL> 
SQL> declare
  2    v pt:=st('张三','女','20');
  3  begin
  4    v.p_Set_Print;
  5    dbms_output.put_line(v.f_Get_info);
  6  end;
  7  /
st_P_Set_Print
st  姓名:张三  性别:女  年龄:20
PL/SQL procedure successfully completed


SQL> 
SQL> declare
  2    v st:=pt('张三','女','20');
  3  begin
  4    v.p_Set_Print;
  5    dbms_output.put_line(v.f_Get_info);
  6  end;
  7  /
declare
  v st:=pt('张三','女','20');
begin
  v.p_Set_Print;
  dbms_output.put_line(v.f_Get_info);
end;
ORA-06550: 第 2 行, 第 9 列: 
PLS-00382: 表达式类型错误
ORA-06550: 第 2 行, 第 5 列: 
PL/SQL: Item ignored
ORA-06550: 第 4 行, 第 3 列: 
PLS-00320: 此表达式的类型声明不完整或格式不正确
ORA-06550: 第 4 行, 第 3 列: 
PL/SQL: Statement ignored
ORA-06550: 第 5 行, 第 24 列: 
PLS-00320: 此表达式的类型声明不完整或格式不正确
ORA-06550: 第 5 行, 第 3 列: 
PL/SQL: Statement ignored


SQL>