ORACLE ¶ÔÏóµÄʹÓÃ

--´´½¨¶ÔÏóÀàÐÍ
create or replace type emp_typ as object (
id number,
name varchar2(30),
sal number,
comm number,
member procedure change_comm(new_comm number),
member function get_info return  varchar2
) ;
--´´½¨¶ÔÏóÀàÐ͹¹Ô캯Êý¶¨Òå
create or replace type body emp_typ is
member procedure change_comm(new_comm number)
is
begin
comm:=new_comm;
end;
member function get_info return varchar2
is
v_info varchar2(30);
begin
v_info:='ÐÕÃû:'||name ||' ¹¤×Ê:'||sal;
return v_info;
end;
end;
--´´½¨´øÀàÐ͵ıí
create table detail (empt emp_typ,tel number,addr Varchar2(20))
--²åÈëÊý¾Ý
insert into detail values (emp_typ(6666,'yangliping',5000,3000),13675047974,'shanghai caobao')
--¸üÐÂÊý¾Ý
update  detail set empt=emp_typ(7777,'yangliing',3000,2000) where tel=13675047974
--²éѯÊý¾Ý
select * from detail
½á¹û:
EMPT.ID EMPT.NAME EMPT.SAL EMPT.COMM   TEL          ADDR
6666 yangliing   8000     5000        13833338888  ±±¾©
7777 yangliing   3000     2000       13675047974  shanghai caobao
--ɾ³ý¶ÔÏó±íÊý¾Ý
delete from detail  where tel=13675047974