--创建类型说明*********************************************************** 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; --调用完毕*******************************************************
oracle type类型
猜你喜欢
转载自supanccy2013.iteye.com/blog/1948843
今日推荐
周排行