关于sql oop 方法小例子

Create Or Replace Type Cpm_Task As Object (
       Start_Date Date,
       Duration_Days  Number(9,0),
       Member Function Get_end_date Return Date,
       member procedure set_Startdate(in_start_Date Date)
);
/

create or replace type body Cpm_Task
as   
   member function Get_end_date return date
   is
   Begin
       return start_Date + Duration_Days;
   end Get_end_date;
  
   member procedure set_Startdate(in_start_Date date)
   is
   begin
        start_Date := in_start_Date;
   end set_Startdate;
  
End;
/

Declare
       style_Cpm Cpm_Task ;
Begin
     select Cpm_Task(Sysdate,1) into style_Cpm from dual ;
     dbms_output.put_line(style_Cpm.Get_end_date);
end;
/

at this way, we can construct cpm in sql only and call its function to do things.