Create type Address
(
number char (6),
street char (30),
aptno integer,
city char (30),
state char (2),
zip integer
);
Create table Addresses of Address;
:
Create table Addresses of new type Address
(
number char(6),
street char(30),
aptno integer,
city char (30),
state char(2),
zip integer
);
"of new type" . , . , "" .
:
Create table HomeAddresses of Address;
:
reate table People of new type Person
(
name char (30),
address Address,
birthdate date
);
Person - , (composite) ( " "). , , , :
Create table People of new type Person
(
name char(30),
address Address,
function age
(
: ref(Person)) return interval day;
return ;
function set age(: ref(Person),
:d interval day) returns ref(Person);
begin
:.birthdate:=current_date - :d;
return :p;
end;
private birthdate date
);
Create table People of new type Person
(
name char(30), address Address,
age virtual, function age(: ref(Person))
return interval day;
return _ ;
function set_age(: ref(Person), :d
interval day) returns ref(Person);
begin :p.birthdate:=current_date -
:d; return :p; end; private birthdate date );
. :
age updatable virtual get with foo
set with bar,
foo bar - , . read only virtual (, ) , get with.
(Insert) (Update) , :
Insert into ObjectPeople
(name, age) values ('. Myhraug',
current_date - date'1932-02-29')
alias :bjorn;
Update ObjectPeople
set name='B. Myhraug',
age=current date - date '1932-03-29'
where oid=:bjorn;
