繼承
?
??? 1、創(chuàng)建父類型
?
??? create
or
replace
type
person
as
object
??? ? (
??? ???
NAME
varchar2
(
10
),
??? ??? SEX
char
(
2
),
??? ??? BIRTHDATE
date
,
??? ??? PLACE
varchar2
(
100
),
??? ???
member
function
get_name
return
varchar2
??? ? )
not
final
;
--
必須注明，默認(rèn)為
final
???
?
??? create
or
replace
type
body
person
is
???
?
member
function
get_name
return
varchar2
is
??? ???
begin
??? ?????
return
self.name;
??? ???
end
get_name;
??? end
;
?
??? 2、創(chuàng)建person的子類
?
??? create
or
replace
type
employee
under
person
??? ? (
??? ??? emp_id
varchar2
(
10
),
??? ??? dep_id
varchar2
(
10
),
??? ??? job
varchar2
(
20
)
??? ? );
?
??? 3、應(yīng)用父類和子類
?
??? declare
??? ? person_one person;
??? ? employee_one employee;
??? begin
??? ? person_one:=person(
'
李四
'
,
'
男
'
,
date
'2008-10-20'
,
'
上海
'
);
??? ? employee_one:=employee(
'
小張
'
,
'
女
'
,
date
'2008-10-11'
,
'
杭州
'
,
'123456'
,
null
,
null
);
??? ? dbms_output.put_line(person_one.get_name);
??? ? dbms_output.put_line(employee_one.get_name);
??? end
;
?
??? 注：與其他OOP一樣，子類繼承父類的參數(shù)及函數(shù)，但注意子類的參數(shù)順序，都在父類之后順序排列。
?
??? 4、父類可引用子類實(shí)例：
?
??? declare
??? ? person_one person;
??? ? employee_one employee;
??? begin
??? ? person_one:=employee(
'
小張
'
,
'
女
'
,
date
'2008-10-11'
,
'
杭州
'
,
'123456'
,
null
,
null
);
--
正確！
??? ? employee_one:=person(
'
李四
'
,
'
男
'
,
date
'2008-10-20'
,
'
上海
'
);
--
錯(cuò)誤，子類不可引用父類實(shí)例！
??? ? dbms_output.put_line(person_one.name);
--
正確！
??? ? dbms_output.put_line(person_one.emp_id);
--
錯(cuò)誤，父類忽略子類參數(shù)！
??? end
;
?
?
重寫
?
??? 1、建立父類
?
??? create
or
replace
type
person
as
object
??? ? (
??? ???
NAME
varchar2
(
10
),
??? ??? SEX
char
(
2
),
??? ??? BIRTHDATE
date
,
??? ??? PLACE
varchar2
(
100
),
??? ???
member
procedure
show_msg
??? ? )
not
final
;
???
?
??? create
or
replace
type
body
person
is
???
?
member
function
show_msg
return
varchar2
is
??? ???
begin
??? ????? dbms_output.put_line(
name
||
'/'
||sex||
'/'
||birthdate);
??? ???
end
show_msg;
??? end
;
?
??? 2、創(chuàng)建子類
?
??? create
or
replace
type
employee
under
person
??? ? (
??? ??? emp_id
varchar2
(
10
),
??? ??? dep_id
varchar2
(
10
),
??? ??? job
varchar2
(
20
),
??? ???
overriding
member
procedure
show_msg--關(guān)鍵字overriding
??? ? );
?
??? create
or
replace
type
body
employee
is
???
?
overriding
member
procedure
show_msg
is
??? ???
begin
??? ????? dbms_output.put_line(emp_id||
'/'
||dep_id||
'/'
||job);
??? ???
end
show_msg;
??? end
;
?
??? 3、重寫方法的調(diào)用
?
??? declare
??? ? person_one person;
??? ? employee_one employee;
??? begin
??? ? person_one:=person(
'
李四
'
,
'
男
'
,
date
'2008-10-20'
,
'
上海
'
);
??? ? employee_one:=employee(
'
小張
'
,
'
女
'
,
date
'2008-10-11'
,
'
杭州
'
,
'123456'
,
'11'
,
'22'
);
??? ? person_one.show_msg;
--
李四
/
男
/20-OCT-08
??? ? employee_one.show_msg;
--123456/11/22
??? end
;
?
??? 4、類多態(tài)
?
??? declare
??? ? person_one person;
??? ? person_two person;
??? begin
??? ? person_one:=person(
'
李四
'
,
'
男
'
,
date
'2008-10-20'
,
'
上海
'
);
??? ? person_two:=employee(
'
小張
'
,
'
女
'
,
date
'2008-10-11'
,
'
杭州
'
,
'123456'
,
'11'
,
'22'
);
??? ? person_one.show_msg;
--
李四
/
男
/20-OCT-08
??? ? person_two.show_msg;
--123456/11/22
??? end
;
?
?
對(duì)象表
?
??? 要區(qū)分對(duì)象表和將對(duì)象作為字段的表。
??? 對(duì)象表是基于對(duì)象類型創(chuàng)建的表，對(duì)象表的每一行都代表一個(gè)對(duì)象。
?
??? 1、創(chuàng)建對(duì)象表
?
??? create
or
replace
type
person
as
object
??? ? (
??? ???
NAME
varchar2
(
10
),
??? ??? SEX
char
(
2
),
??? ??? BIRTHDATE
date
,
??? ??? PLACE
varchar2
(
100
)
??? ? )
;
?
??? create
table
t_person
of
person;
--
注意格式！
?
??? 2、插入數(shù)據(jù)(2種方法)
?
??? insert
into
t_person
values
(
'
張三
'
,
'
男
'
,
date
'2008-10-11'
,
'
杭州
'
);
--
直接插入
?
??? insert
into
t_person
values
(person(
'
李四
'
,
'
男
'
,
date
'2008-10-20'
,
'
上海
'
));
--
插入實(shí)例
?
???
注：其實(shí)第一種方法是由系統(tǒng)隱式創(chuàng)建了對(duì)象實(shí)例，然后插入
?
??? 3、查詢數(shù)據(jù)(2種方法)
?
??? SQL
>
select
*
from
t_person;
?
??? NAME
????
SEX? BIRTHDATE PLACE
??? -------- ---- --------- --------
???
張三
??? ?
男
??
11
-OCT-
08
?
杭州
???
李四
?? ?
男
??
20
-OCT-
08
?
上海
?
?
??? SQL
>
select
value
(a)
from
t_person a;
?
??? VALUE
(A)(
NAME
, SEX, BIRTHDATE, PLACE)
??? ----------------------------------------
??? PERSON(
'
張三
'
,
'
男
'
,
'11-OCT-08'
,
'
杭州
'
)
??? PERSON(
'
李四
'
,
'
男
'
,
'20-OCT-08'
,
'
上海
'
)
?
?
對(duì)象表外鍵
?
??? 1、對(duì)象表之間外鍵通過REF指針實(shí)現(xiàn)創(chuàng)建，首先創(chuàng)建外部表
?
??? create
table
t_person_f(
??? ? emp_id
integer
,
??? ? emp_msg
ref
person
scope
is
t_person
??? ? );
?
??? 注1：定義字段emp_msg為person對(duì)象類型的ref指針
??? 注2：scope表示實(shí)例來源，只能從表t_person中獲取
?
??? 2、向外部表中插入數(shù)據(jù)
?
??? insert
into
t_person_f
??? select
123
,
ref
(a)
from
t_person a
??? where
a.name=
'
張三
'
;
?
???
注：必須使用select語句通過ref獲取實(shí)例
?
??? 3、查詢外部表，通過deref來解析
?
??? SQL
>
select
*
from
t_person_f;
--
無法查詢真實(shí)信息
?
??? ?EMP_ID????? EMP_MSG
??? ----------?? ----------------------------------------------
???
?
123
????????
0000220208
C
5A
9B48F328840D7BF1B44EA41B24A11F8
?
?
??? SQL
>
select
emp_id,
deref
(emp_msg)
from
t_person_f;
?
??? ? EMP_ID????
DEREF
(EMP_MSG)(
NAME
, SEX, BIRTHDATE, PLACE)
??? ---------?? -------------------------------------------------
??? ??
123
?????? PERSON(
'
張三
'
,
'
男
'
,
'11-OCT-08'
,
'
杭州
'
)
?
??? 4、外鍵管理
?
??? 對(duì)象表要求外鍵引用的行必須存在，而ref則沒有這個(gè)限制，刪除時(shí)會(huì)指向空值，解析為NULL。
?
??? delete
from
t_person
where
name
=
'
張三
'
;
--
刪除對(duì)象
?
?
??? SQL > select emp_id,deref(emp_msg) from t_person_f;
?
??? ? EMP_ID???? DEREF(EMP_MSG)(NAME, SEX, BIRTHDATE, PLACE)
??? ---------?? -------------------------------------------------
??? ?? 123??????
?
??? 可以使用dangling關(guān)鍵字，查詢所有被懸空的ref
?
??? SQL
>?
select
emp_id
from
t_person_f
where
emp_msg
is
dangling
;
?
??? ??? EMP_ID
??? ----------
???? ?????
123
?
?
?