PL/SQL允许定义一个对象类型，这有助于在Oracle的数据库中设计的面向对象。对象类型可以包装复合类型。
创建对象：
CREATE OR REPLACE TYPE objName AS OBJECT
(
--定义对象类型属性
var1 type,
var2 type,
var3 type,
...
-- 定义对象的成员方法，可以访问对象本身的属性
MEMBER FUNCTION fun_name1[(参数名 数据类型[,...])] return return_type,
MEMBER PROCEDURE proc_name1[(参数名 数据类型[,...])]
--静态方法，不能访问对象本身的属性，只能访问静态数据
STATIC FUNCTION fun_name2[(参数名 数据类型[,...])] return return_type,
STATIC PROCEDURE proc_name2[(参数名 数据类型[,...])]
);
创建类型体：
CREATE OR REPLACE TYPE BODY objName AS
-- 实现对象成员方法
MEMBER FUNCTION fun_name1[(参数名 数据类型[,...])]
RETURN return_type
AS
BEGIN
<function_body>
END fun_name1;
MEMBER proc_name1[(参数名 数据类型[,...])]
AS
BEGIN
<procedure_body>
END proc_name1;
STATIC FUNCTION fun_name2[(参数名 数据类型[,...])]
RETURN return_type
AS
BEGIN
<function_body>
END fun_name2;
STATIC proc_name2[(参数名 数据类型[,...])]
AS
BEGIN
<procedure_body>
END proc_name2;
END;
实例化对象：
要使用这个对象，需要创建这个对象的实例。每个对象都有一个系统定义的构造方法，构造方法的名称是相同的对象类型。
DECLARE
residence objName; -- 定义对象类型
BEGIN
-- 初始化对象类型
residence := address('103A', 'M.G.Road', 'Jaipur', 'Rajasthan','201301');
-- 获取对象类型的属性进行显示
dbms_output.put_line('House No: '|| residence.house_no);
dbms_output.put_line('Street: '|| residence.street);
dbms_output.put_line('City: '|| residence.city);
END;
/
比较方法
比较方法被用于比较的对象。有两种方法来比较对象：
- 映射方法：将对象实例映射为标量数值(NUMBER，DATE,VARCHAR2等),然后根据该标量类型数据可以排序对象实例。例如，一个客户对象，如果两个客户代码是相同的，可以认为是相同的一个。所以这两个对象之间的关系将取决于代码的值。
- 顺序方法：实现一些内部逻辑比较两个对象。
- 一个对象类型最多只能定义一个MAP/ORDER方法，并且MAP方法和ORDER方法不能同时使用。
- MAP方法可以在多个对象实例之间进行排序,而ORDER方法只能比较两个对象实例的大小
(1)映射方法
CREATE OR REPLACE TYPE book_obj AS OBJECT (
isbn CHAR (10),
title VARCHAR2 (100),
num_pages NUMBER,
MAP MEMBER FUNCTION return_isbn RETURN CHAR
);
CREATE OR REPLACE TYPE BODY book_obj
AS
MAP MEMBER FUNCTION return_isbn RETURN CHAR AS
BEGIN
RETURN SELF.isbn;
END return_isbn;
END;
--现在就可以通过isdn来比较两个对象
DECLARE
v_book1 book := book ('72121203', 'Oracle DBA 101', 563);
v_book2 book := book ('72122048', 'Oracle 8i: A Beginner''s Guide', 765);
BEGIN
IF v_book1 < v_book2 THEN
DBMS_OUTPUT.put_line (v_book1.title || ' < ' || v_book2.title);
ELSIF v_book1 = v_book2 THEN
DBMS_OUTPUT.put_line (v_book1.title || ' = ' || v_book2.title);
ELSE
DBMS_OUTPUT.put_line (v_book1.title || ' > ' || v_book2.title);
END IF;
END;
(2)使用顺序的方法
现在，相同的效果可以使用顺序方法来实现。
CREATE OR REPLACE TYPE book_obj AS OBJECT (
isbn CHAR (10),
title VARCHAR2 (100),
num_pages NUMBER,
ORDER MEMBER FUNCTION compare_book (p_isbn IN BOOK_OBJ) RETURN CHAR
);
CREATE OR REPLACE TYPE BODY book_obj
AS
ORDER MEMBER FUNCTION compare_book (p_isbn IN BOOK_OBJ) RETURN NUMBER AS
BEGIN
IF p_isbn.isbn < SELF.isbn THEN
RETURN 1;
ELSIF p_isbn.isbn > SELF.isbn THEN
RETURN -1;
ELSE
RETURN 0;
END IF;
END compare_book;
END;
DECLARE
v_book1 book := book ('72121203', 'Oracle DBA 101', 563);
v_book2 book := book ('72122048', 'Oracle 8i: A Beginner''s Guide', 765);
BEGIN
IF v_book1 < v_book2 THEN
DBMS_OUTPUT.put_line (v_book1.title || ' < ' || v_book2.title);
ELSIF v_book1 = v_book2 THEN
DBMS_OUTPUT.put_line (v_book1.title || ' = ' || v_book2.title);
ELSE
DBMS_OUTPUT.put_line (v_book1.title || ' > ' || v_book2.title);
END IF;
END;
继承PL/SQL对象
PL/SQL允许从现有的基础对象创建对象。为了实现继承，基本对象应被声明为NOT FINAL。默认值是FINAL。
基础对象：
CREATE OR REPLACE TYPE baseObj AS OBJECT
(
var1 type,
var2 type,
MEMBER FUNCTION fu_name[(参数名 数据类型[,...])] return reu_type
)NOT FINAL; --指定该类可以被继承，如果指定FINAL，表示该类无法被继承
子类对象：
CREATE OR REPLACE TYPE subObj UNDER baseObj
(
v1 type,
v2 type,
-- 声明重写父类方法
OVERRIDING MEMBER FUNCTION fu_name[(参数名 数据类型[,...])]
)
