Le modèle logique relationnel-objet et son implémentation sous Oracle

CREATE TYPE FilmT AS OBJECT (

isan:char(33), 

titre:varchar2, 

debut:date, 

fin:date,

MEMBER FUNCTION dureeTournage RETURN integer

);

/

CREATE TYPE BODY FilmT 

IS

MEMBER FUNCTION dureeTournage RETURN integer)

IS

BEGIN

  RETURN duree(SELF.debut,SELF.fin);

END;

END;

/

CREATE TABLE Film AS FilmT (

PRIMARY KEY (isan));

CREATE TYPE FilmT AS OBJECT (
isan:char(33), 
titre:varchar2, 
debut:date, 
fin:date,
MEMBER FUNCTION dureeTournage RETURN integer
);
/

CREATE TYPE BODY FilmT 
IS
MEMBER FUNCTION dureeTournage RETURN integer)
IS
BEGIN
  RETURN duree(SELF.debut,SELF.fin);
END;
END;
/

CREATE TABLE Film AS FilmT (
PRIMARY KEY (isan));