plsql面向对象

一，例子

1.创建type父类

CREATE OR REPLACE TYPE CUSTOMER_T AS OBJECT
(
  CUSTOMER_ID NUMBER(18)
)
NOT INSTANTIABLE NOT FINAL

2.创建子类

CREATE OR REPLACE TYPE CUSTOMER_INFO_T UNDER CUSTOMER_T(CUSTOMER_AGE VARCHAR2(100),
 constructor function CUSTOMER_INFO_T(customer_id number,customer_age VARCHAR2) return self as result
)

3.创建body

CREATE OR REPLACE TYPE BODY CUSTOMER_INFO_T AS
  CONSTRUCTOR FUNCTION CUSTOMER_INFO_T(CUSTOMER_ID  NUMBER,
                                       CUSTOMER_AGE VARCHAR2)
    RETURN SELF AS RESULT IS
  BEGIN
    SELF.CUSTOMER_ID  := CUSTOMER_ID;
    SELF.CUSTOMER_AGE := CUSTOMER_AGE;
      RETURN;
  END CUSTOMER_INFO_T;

END;

4.创建测试procedure

CREATE OR REPLACE PROCEDURE GET_CUSTOMER(P_CUS