原来PL/SQL也支持面向对象编程，有了Java基础，这章不难理解。

有个问题：对象定义真不支持布尔类型？ 我的Java程序中布尔型可是很常用的啊。不过肯定有其他的替代解决方案吧

--第17章开始
--代码17.1 定义employee_obj对象类型规范
--定义对象类型规范employee_obj
CREATE OR REPLACE TYPE employee_obj AS OBJECT (
--定义对象类型属性
empno         NUMBER(4),
ename         VARCHAR2(20),
job           VARCHAR2(20),
sal           NUMBER(10,2),
comm          NUMBER(10,2),
deptno        NUMBER(4),
--定义对象类型方法
MEMBER PROCEDURE Change_sal(p_empno NUMBER,p_sal NUMBER),
MEMBER PROCEDURE Change_comm(p_empno NUMBER,p_comm NUMBER),
MEMBER PROCEDURE Change_deptno(p_empno NUMBER,p_deptno NUMBER),
MEMBER FUNCTION get_sal(p_empno NUMBER) RETURN NUMBER,
MEMBER FUNCTION get_comm(p_empno NUMBER) RETURN NUMBER,
MEMBER FUNCTION get_deptno(p_empno NUMBER) RETURN INTEGER
) NOT FINAL;      --指定该类可以被继承，如果指定FINAL，表示该类无法被继承--代码 17.2 定义对象类型体
CREATE OR REPLACE TYPE BODY employee_obj
ASMEMBER PROCEDURE change_sal (p_empno NUMBER, p_sal NUMBER)IS                          --定义对象成员方法，更改员工薪资BEGINUPDATE empSET sal = p_salWHERE empno = p_empno;END;MEMBER PROCEDURE change_comm (p_empno NUMBER, p_comm NUMBER)IS                         --定义对象成员方法，更改员工提成BEGINUPDATE empSET comm = p_commWHERE empno = p_empno;END;MEMBER PROCEDURE change_deptno (p_empno NUMBER, p_deptno NUMBER)IS                        --定义对象成员方法，更改员工部门BEGINUPDATE empSET deptno = p_deptnoWHERE empno = p_empno;END;MEMBER FUNCTION get_sal (p_empno NUMBER)RETURN NUMBERIS                        --定义对象成员方法，获取员工薪资v_sal   NUMBER (10, 2);BEGINSELECT salINTO v_salFROM empWHERE empno = p_empno;RETURN v_sal;END;MEMBER FUNCTION get_comm (p_empno NUMBER)RETURN NUMBERIS                        --定义对象成员方法，获取员工提成v_comm   NUMBER (10, 2);BEGINSELECT commINTO v_commFROM empWHERE empno = p_empno;RETURN v_comm;END;MEMBER FUNCTION get_deptno (p_empno NUMBER)RETURN INTEGERIS                        --定义对象成员方法，获取员工部门v_deptno   INT;BEGINSELECT deptnoINTO v_deptnoFROM empWHERE empno = p_empno;RETURN v_deptno;END;
END;--代码17.3 定义对象的属性
--定义对象类型规范employee_obj
CREATE OR REPLACE TYPE employee_property AS OBJECT (
--定义对象类型属性
empno         NUMBER(4),
ename         VARCHAR2(20),
job           VARCHAR2(20),
sal           NUMBER(10,2),
comm          NUMBER(10,2),
deptno        NUMBER(4)
) NOT FINAL;   --对象类型可以被继承--代码17.4 实例化对象并设置或获取对象属性
DECLAREv_emp   employee_property;        --定义对象类型v_sal   v_emp.sal%TYPE;           --定义对象类型中与sal类型相同的薪资变量
BEGIN--初始化对象类型，v_emp是一个对象的实例v_emp := employee_property (7890, '赵五', '销售人员', 5000, 200, 20);v_sal := v_emp.sal;               --为变量赋对象实例的值--获取对象类型的属性进行显示DBMS_OUTPUT.put_line (v_emp.ename || ' 的薪资是：' || v_sal);
END;--代码17.5 使用Member和Static成员方法（不好调试啊！->调试通过！）
--定义对象类型规范employee_salobjCREATE OR REPLACE TYPE employee_method AS OBJECT (
--定义对象类型属性empno    NUMBER (4),sal      NUMBER (10, 2),comm     NUMBER (10, 2),deptno   NUMBER (4),
--定义对象类型方法MEMBER PROCEDURE change_sal,          --实例方法，可以访问对象本身的属性MEMBER FUNCTION get_sal RETURN NUMBER,   --静态方法，不能访问对象本身的属性，只能访问静态数据STATIC PROCEDURE change_deptno (p_empno NUMBER, p_deptno NUMBER), STATIC FUNCTION get_sal (p_empno NUMBER) RETURN NUMBER
)
NOT FINAL;             --指定该类可以被继承，如果指定FINAL，表示该类无法被继承
----------------------------------------------------------------------------------
--定义employee_method对象类型体
CREATE OR REPLACE TYPE BODY employee_method
ASMEMBER PROCEDURE change_salISBEGINSELF.sal := SELF.sal * 1.12;        --使用SELF关键字END;MEMBER FUNCTION get_salRETURN NUMBERISBEGINRETURN sal;                        --返回员工薪资END;STATIC PROCEDURE change_deptno (p_empno NUMBER, p_deptno NUMBER)IS                                    --定义对象成员方法，更改员工部门BEGINUPDATE empSET deptno = p_deptnoWHERE empno = p_empno;END;STATIC FUNCTION get_sal (p_empno NUMBER)RETURN NUMBERIS                                     --定义对象成员方法，获取员工薪资v_sal   NUMBER (10, 2);BEGINSELECT salINTO v_salFROM empWHERE empno = p_empno;RETURN v_sal;END; 
END;--代码17.6 Member和Static方法使用示例
DECLAREv_emp  employee_method;                    --定义employee_method对象类型的变量
BEGINv_emp:=employee_method(5093,5000,200,20);   --实例化employee_method对象，现在v_emp是对象实例v_emp.change_sal;                           --设用对象实例方法，即MEMBER方法DBMS_OUTPUT.put_line('员工编号为：'||v_emp.empno||' 的薪资为：'||v_emp.get_sal);   --下面的代码调用STATIC方法更新emp表中员工编号为7369的部门编号为20.employee_method.change_deptno(5093,20);--下面的代码获取emp表中员工编号为7369的员工薪资。DBMS_OUTPUT.put_line('员工编号为5093的薪资为：'||employee_method.get_sal(5093)); 
END;   drop trigger t_comm_sal;
select * from emp;--代码17.7 访问对象类型的属性
--定义对象类型规范employee_salobj
CREATE OR REPLACE TYPE employee_salobj AS OBJECT (
--定义对象类型属性empno    NUMBER (4),sal      NUMBER (11, 2),comm     NUMBER (10, 2),deptno   NUMBER (4),
--定义对象类型方法MEMBER PROCEDURE change_sal,MEMBER PROCEDURE change_comm,MEMBER PROCEDURE change_deptno,MEMBER FUNCTION get_salRETURN NUMBER,MEMBER FUNCTION get_commRETURN NUMBER,MEMBER FUNCTION get_deptnoRETURN INTEGER
)
NOT FINAL;             --指定该类可以被继承，如果指定FINAL，表示该类无法被继承
----------------------------------------------------------------------------------
--定义employee_salobj对象类型体
CREATE OR REPLACE TYPE BODY employee_salobj
ASMEMBER PROCEDURE change_salISBEGINSELF.sal := SELF.sal * 1.12;        --使用SELF关键字END;MEMBER PROCEDURE change_commISBEGINcomm := comm * 1.12;               --不使用SELF关键字END;MEMBER PROCEDURE change_deptnoISBEGINSELF.deptno := 20;                 --使用SELF关键字更改部门名称END;MEMBER FUNCTION get_salRETURN NUMBERISBEGINRETURN sal;                        --返回员工薪资END;MEMBER FUNCTION get_commRETURN NUMBERISBEGINRETURN SELF.comm;                  --返回员工提成END;MEMBER FUNCTION get_deptnoRETURN INTEGERISBEGINRETURN SELF.deptno;               --返回员工部门编号END;
END;--代码17.8 自定义构造函数
--定义对象类型规范
CREATE OR REPLACE TYPE salary_obj AS OBJECT (
percent        NUMBER(10,4),       --定义对象属性
sal          NUMBER(10,2),
--自定义构造函数
CONSTRUCTOR FUNCTION salary_obj(p_sal NUMBER) RETURN SELF AS RESULT)
INSTANTIABLE         --可实例化对象
FINAL;               --不可以继承
/
--定义对象类型体
CREATE OR REPLACE TYPE BODY salary_obj
AS--实现重载的构造函数CONSTRUCTOR FUNCTION salary_obj (p_sal NUMBER)RETURN SELF AS RESULTASBEGINSELF.sal := p_sal;          --设置属性值SELF.PERCENT := 1.12;       --为属性指定初值RETURN;END;
END;
/DECLAREv_salobj1   salary_obj;v_salobj2   salary_obj;                 --定义对象类型
BEGINv_salobj1 := salary_obj (1.12, 3000);   --使用默认构造函数v_salobj2 := salary_obj (2000);         --使用自定义构造函数
END;--代码17.9 定义Map函数示例
--定义一个对象规范，该规范中包含MAP方法
CREATE OR REPLACE TYPE employee_map AS OBJECT (
--定义对象类型属性empno    NUMBER (4),sal      NUMBER (10, 2),comm     NUMBER (10, 2),deptno   NUMBER (4),MAP MEMBER FUNCTION convert RETURN REAL    --定义一个MAP方法
)
NOT FINAL;            
--定义一个对象类型体，实现MAP函数
CREATE OR REPLACE TYPE BODY employee_map ASMAP MEMBER FUNCTION convert RETURN REAL  IS   --定义一个MAP方法BEGINRETURN sal+comm;                           --返回标量类型的值END;
END;         --创建employee_map类型的对象表
CREATE TABLE emp_map_tab OF employee_map;
--向对象表中插入员工薪资信息对象。
INSERT INTO emp_map_tab VALUES(7123,3000,200,20);
INSERT INTO emp_map_tab VALUES(7124,2000,800,20);
INSERT INTO emp_map_tab VALUES(7125,5000,800,20);
INSERT INTO emp_map_tab VALUES(7129,3000,400,20);SELECT VALUE(r) val,r.sal+r.comm FROM emp_map_tab r ORDER BY 1;--代码17.10 定义Order函数示例
--定义一个对象规范，该规范中包含ORDER方法
CREATE OR REPLACE TYPE employee_order AS OBJECT (
--定义对象类型属性empno    NUMBER (4),sal      NUMBER (10, 2),comm     NUMBER (10, 2),deptno   NUMBER (4),ORDER MEMBER FUNCTION match(r employee_order) RETURN INTEGER    --定义一个ORDER方法
)
NOT FINAL; 
--定义一个对象类型体，实现ORDER函数
CREATE OR REPLACE TYPE BODY employee_order ASORDER MEMBER FUNCTION match(r employee_order) RETURN INTEGER  IS   BEGINIF ((SELF.sal+SELF.comm)<(r.sal+r.comm)) THENRETURN -1;      --可为任何负数ELSIF ((SELF.sal+SELF.comm)>(r.sal+r.comm)) THENRETURN 1;       --可为任何正数ELSE RETURN 0;      --如果相等则为0END IF;END match;
END;   DECLAREemp1 employee_order:=employee_order(7112,3000,200,20);    --定义员工1emp2 employee_order:=employee_order(7113,3800,100,20);    --定义员工2
BEGIN--对员工1和2进行比较，获取返回结果IF emp1>emp2 THENDBMS_OUTPUT.put_line('员工1的薪资加提成比员工2大！');ELSIF emp1<emp2 THENDBMS_OUTPUT.put_line('员工1的薪资加提成比员工2小！');ELSEDBMS_OUTPUT.put_line('员工1的薪资加提成与员工2相等！');END IF;
END;--创建employee_order类型的对象表
CREATE TABLE emp_order_tab OF employee_order;
--向对象表中插入员工薪资信息对象。
INSERT INTO emp_order_tab VALUES(7123,3000,200,20);
INSERT INTO emp_order_tab VALUES(7124,2000,800,20);
INSERT INTO emp_order_tab VALUES(7125,5000,800,20);
INSERT INTO emp_order_tab VALUES(7129,3000,400,20);
SELECT VALUE(r) val,r.sal+r.comm FROM emp_order_tab r ORDER BY 1;--方法中定义的--代码17.11 使用对象类型
DECLAREo_emp   employee_order;                             --定义对象实例，初始状态下为NULL
BEGINo_emp := employee_order (7123, 3000, 200, 20);      --使用构造函数声明对象DBMS_OUTPUT.put_line (   '员工编号为：'|| o_emp.empno|| '的薪资和提成为：'|| (o_emp.sal + o_emp.comm));
END;--代码17.12 在子程序中使用对象类型
--使用对象类型作为过程的形式参数
CREATE OR REPLACE PROCEDURE changesalary(p_emp IN employee_order) 
AS
BEGINIF p_emp IS NOT NULL THEN         --如果对象类型已经被实例化--更新emp表UPDATE emp SET sal=p_emp.sal,comm=p_emp.comm WHERE empno=p_emp.empno;END IF;
END changesalary;
--使用对象类型作为函数的传入传出参数
CREATE OR REPLACE FUNCTION getsalary(p_emp IN OUT employee_order) RETURN NUMBER
AS
BEGINIF p_emp IS NOT NULL THEN                      --如果对象类型没有被实例化p_emp:=employee_order(7125,5000,800,20);    --实例化对象类型END IF;RETURN p_emp.sal+p_emp.comm;                   --返回对象类型的薪资和提成汇总
END;DECLAREo_emp  employee_order;
BEGINo_emp.empno:=7301;   --错误：该对象实例还没有被初始化就进行了赋值
END;--好的编程习惯：定义变量时进行初始化
DECLAREo_emp   employee_order := employee_order (NULL, NULL, NULL, NULL); --初始化对象类型
BEGINo_emp.empno := 7301;                                --为对象类型赋值o_emp.sal := 5000;o_emp.comm := 300;o_emp.deptno := 20;
END;--代码17.13 调用静态方法与示例方法示例
--employee_method对象类型的实例方法与静态方法列表
CREATE OR REPLACE TYPE employee_method AS OBJECT (empno    NUMBER (4),sal      NUMBER (11, 2),comm     NUMBER (10, 2),deptno   NUMBER (4),
--定义对象类型方法MEMBER PROCEDURE change_sal,            --实例方法，可以访问对象本身的属性MEMBER FUNCTION get_sal RETURN NUMBER,   --静态方法，不能访问对象本身的属性，只能访问静态数据STATIC PROCEDURE change_deptno (empno NUMBER, deptno NUMBER), STATIC FUNCTION get_sal (empno NUMBER) RETURN NUMBER
)
NOT FINAL;    
--演示调用employee_method的实例方法与静态方法 （调试未成功）
DECLAREo_emp employee_method:=employee_method(5093,5000,800,20);v_sal NUMBER(11,2); 
BEGINv_sal:=o_emp.get_sal;                       --调用对象实例方法DBMS_OUTPUT.put_line('对象实例级别的工资为：'||v_sal);v_sal:=employee_method.get_sal(o_emp.empno); --调用静态方法DBMS_OUTPUT.put_line('对象类型级别的工资为：'||v_sal);   
END;DROP TYPE APPS.ADDRESS_TYPE;