--创建类型说明***********************************************************

create or replace type dept_type as object(

--成员变量

h_deptno number(2),

h_dname ?varchar2(14),

h_loc varchar2(13),

--成员函数、过程

member procedure changedept(name in varchar2,loc in varchar2),

member function getdeptno return number,

member function gedtname ? return varchar2,

member function getloc ? ?return varchar2);

--类型创建完成

--创建类型包体

create or replace type body dept_type as

member procedure changedept(name in varchar2,loc in varchar2) is

begin

? h_dname := name;

? h_loc ? := loc;

end changedept;

member function getdeptno return number as

begin

return h_deptno;

end getdeptno;

member function gedtname return varchar2 as

begin

return h_dname;

end gedtname;

member function getloc return varchar2 as

begin

return h_loc;

end getloc;

end;

--包体创建完毕-----------------------

--使用类型

declare

?dept1 dept_type;

begin

? dept1 := dept_type(10,'chenchaoyang','chenchaoyang');

? dept1.changedept('supan','supan');

? dbms_output.put_line(dept1.getdeptno);

? dbms_output.put_line(dept1.getloc);

end;

--调用完毕*******************************************************