對象
?
??? 在Oracle中把對象作為一種數據類型object，不但可以包含基本的數據類型、集合，還可以為其定義函數和過程作為其方法。
?
??? 創建格式如下：
??? create
or
replace
type
person
as
object
??? ? (
??? ???
NAME
varchar2
(
10
),
??? ??? SEX
char
(
2
),
??? ??? BIRTHDATE
date
,
??? ??? PLACE
varchar2
(
100
)
??? ? );
?
??? 注意：不能在數據類型中定義以下類型：
???????? 1.LONG、LONG RAW
???????? 2.ROWID
???????? 3.PL/SQL特定類型(BINARY_INTEGER、BOOLEAN、%TYPE、%ROWTYPE)
???????? 4.程序包中自定義的數據類型
?
?
構造函數
?
??? 使用之前創建的對象建立構造函數：
?
??? declare
??? ? person_one person;
??? begin
??? ? person_one:=person(
'
張三
'
,
'
男
'
,
date
'2008-10-11'
,
'
杭州
'
);
??? ? dbms_output.put_line(person_one.name);
??? end
;
?
??? 說明：先創建了一個person類型的局部變量，再為該變量創建了一個實例。
在實例化中用到的person是系統的構造函數，可以對person類型變量進行賦值，該構造函數在對象創建時由系統自動創建，與對象的名稱相同。
?
??? 注：創建對象實例時必須提供全部參數，否則報錯。
?
?
引用對象類型
?
??? 可以創建實例化的對象之后，將該對象插入到堆表中。
?
??? 1、例如創建含有person類型數據的表：
?
??? create
table
t_person(
??? ? person_col person,
??? ? emp_id
number
,
??? ? dep_id
number
);
?
??? 2、直接插入數據：
?
???
insert
into
t_person
values
(person(
'
張三
'
,
'
男
'
,
date
'2008-10-11'
,
'
杭州
'
),
12345
,
11
);
??? commit
;
?
??? 3、也可以在PL/SQL中先創建保存實例的變量，再進行插入：
?
??? declare
??? ? person_one person;
??? begin
??? ? person_one:=person(
'
李四
'
,
'
男
'
,
date
'2008-10-20'
,
'
上海
'
);
???
?
insert
into
t_person
values
(person_one,
12345
,
11
);
???
?
commit
;
??? end
;
?
??? 4、之后可進行查詢數值：
?
???
SQL
>
select
*
from
t_person;
???
???
PERSON_COL(
NAME
, SEX, BIRTHDATE, PLACE)????????? EMP_ID???? DEP_ID
???
---------------------------------------------??? ---------? ---------
???
PERSON(
'
張三
'
,
'
男
'
,
'11-OCT-08'
,
'
杭州
'
)????????
12345
????????
11
???
PERSON(
'
李四
'
,
'
男
'
,
'20-OCT-08'
,
'
上海
'
)????????
12345
????????
11
?
?
??? 5、若需要查詢對象中的某個變量，則必須在最前面加上表名：
?
??? SQL
>
select
a.person_col.NAME
from
t_person a;
?
??? PERSON_COL.NAME
??? ----------------
??? 張三
??? 李四
?
??? 注：當在某表中加入對象后，對象在table被drop之前不能被drop。
?
?
方法
?
??? 對象類型內的function和procedure都是方法，可以重載。Oracle的對象類型共有5種方法：實例方法、類方法、構造函數、映射方法、排序方法。
?
??? 1、實例方法和類方法
?
??? 實例方法是必須創建實例后才可以調用的方法，而類方法可以在創建實例前調用。實例方法用member聲明，類方法用static
?
??? 創建type和type body：
?
??? create
or
replace
type
person
as
object
??? ? (
??? ???
NAME
varchar2
(
10
),
??? ??? SEX
char
(
2
),
??? ??? BIRTHDATE
date
,
??? ??? PLACE
varchar2
(
100
),
??? ???
member
procedure
chang_name(
name
varchar2
),
??? ???
static
function
new
(v_name
varchar2
,v_sex
varchar2
)
return
person
??? ? );
?
??? create
or
replace
type
body
person
is
???
?
member
procedure
chang_name(
name
varchar2
)
is
??? ???
begin
??? ????? self.name:=
name
;
??? ???
end
chang_name;
???
?
static
function
new
(v_name
varchar2
,v_sex
varchar2
)
return
person
???
?
is
??? ???
begin
??? ?????
return
(person(v_name,v_sex,
null
,
null
));
??? ???
end
new
;
??? end
;
?
??? 在過程中調用兩種不同類型的方法：
?
??? declare
??? ? person_one person;
??? ? person_two person;
??? begin
??? ? person_one:=person(
'
李四
'
,
'
男
'
,
date
'2008-10-20'
,
'
上海
'
);--創建實例
??? ? person_one.chang_name(
'
王五
'
);
??? ? dbms_output.put_line(person_one.name);
?
??? ? person_two:=person.new(
'
小張
'
,
'
女
'
);--可直接調用
??? ? dbms_output.put_line(person_two.name);
??? end
;
?
?
??? 2、映射方法
?
??? 由于將對象作為字段時，對象中包含很多參數須發進行比較，此時可以為對象創建映射方法。
??? 在創建映射方法后，如果用到where 或 order by 以及 <>= 等比較關系時，自動調用映射方法。
?
??? 注：映射方法不帶參數，且只能有一個。
?
??? 創建type和type body：
?
??? create
or
replace
type
person
as
object
??? ? (
??? ???
NAME
varchar2
(
10
),
??? ??? SEX
char
(
2
),
??? ??? BIRTHDATE
date
,
??? ??? PLACE
varchar2
(
100
),
??? ???
map
member
function
compare
return
date
??? ? );
???
?
??? create
or
replace
type
body
person
is
???
?
map
member
function
compare
return
date
is
??? ???
begin
??? ?????
return
self.birthdate;
??? ???
end
compare;
??? end
;
?
??? 調用映射方法進行比較：
?
??? declare
??? ? person_one person;
??? ? person_two person;
??? begin
??? ? person_one:=person(
'
李四
'
,
'
男
'
,
date
'2008-10-20'
,
'
上海
'
);
??? ? person_two:=person(
'
小張
'
,
'
女
'
,
date
'2008-10-11'
,
'
杭州
'
);
???
?
if
person_one > person_two
then
??? ??? dbms_output.put_line(person_one.name||
'
比
'
||person_two.name||
'
大
'
);
??? ???
elsif
person_one < person_two
then
??? ????? dbms_output.put_line(person_two.name||
'
比
'
||person_one.name||
'
大
'
);
???
?
else
dbms_output.put_line(
'
一樣大
'
);
???
?
end
if
;
??? end
;
?
?
??? 3、排序方法
?
??? 排序方法主要為了簡化比較對象大小的值，相當于sign
?
??? 舉例說明，創建type和type body：
?
??? create
or
replace
type
person
as
object
??? ? (
??? ???
NAME
varchar2
(
10
),
??? ??? SEX
char
(
2
),
??? ??? BIRTHDATE
date
,
??? ??? PLACE
varchar2
(
100
),
??? ???
order
member
function
match(p_person person)
return
integer
??? ? );
?
??? create
or
replace
type
body
person
is
???
?
order
member
function
match(p_person person)
return
integer
is
??? ???
begin
??? ?????
if
self.birthdate > p_person.birthdate
then
??? ???????
return
1
;
??? ???????
elsif
self.birthdate < p_person.birthdate
then
??? ?????????
return
-
1
;
??? ???????
else
return
0
;
??? ?????
end
if
;
??? ???
end
match;
??? end
;
?
??? 調用排序函數：
?
??? declare
??? ? person_one person;
??? ? person_two person;
??? ? k
int
;
??? begin
??? ? person_one:=person(
'
李四
'
,
'
男
'
,
date
'2008-10-20'
,
'
上海
'
);
??? ? person_two:=person(
'
小張
'
,
'
女
'
,
date
'2008-10-11'
,
'
杭州
'
);
??? ? k:=person_one.match(person_two);
--one
調用
match
去和
two
比較
??? ? dbms_output.put_line(k);
??? end
;
?
??? 注：當排序大量對象時，適合用MAP，當反復比較時，適合用ORDER
?