------------------------2013-5-20------------------------
數據庫觸發器
內置程序包

是pl/sql塊或存儲過程，dml操作時觸發，隱式執行，可能具有聲明部分和異常處理部分。

組成：語句，主體，限制。
類型：應用程序觸發器，數據庫觸發器。

instead of觸發器。
視圖上而不是在表上定義的。?? !!
提供修改視圖的透明方法。
可以針對視圖編寫insert,update及delete語句。
以不可見方式在后臺運行。
執行在觸發器主體中編寫的操作。

啟用或禁用觸發器
alter trigger <Trigger_name> enable;
alter trigger <Trigger_name> disable;
刪除觸發器
drop trigger <Trigger_name>;
查看有關觸發器，使用下列數據字典視圖：
user_triggers
all_triggers
dba_triggers

內置程序包
擴展數據庫的功能
為pl/sql提供對sql功能的訪問
用戶sys擁有所有程序包
是公共同義詞可以由任何用戶訪問
用戶必須具有execute權限，才能訪問過程和函數。

程序包名稱??描述
dbms_standard??提供語言工具
dbms_alert??支持數據庫事件的異步通知
dbms_application_info?允許為跟蹤目的而注冊應用程序
dbms_aq & dbms_aqadm?管理oracle advanced queuing選件
dbms_defer,
dbms_defer_sys,
dbms_defer_query?允許構建和管理延遲的遠程過程調用
dbms_ddl??某些ddl命令的pl/sql等效項
calendar??提供日歷維護功能
dbms_describe??描述存儲子程序
dbms_lob??操縱oracle lob
dbms_job??允許對pl/sql過程進行調度
dbms_lock??用戶定義的鎖
dbms_output??在sql*plus或服務器管理器中提供屏幕輸出

dbms_output中的一些過程
-Enable
-Disable
-Put
-Put_line
-New_line
-Get_line
-Get_lines

dbms_lob
-append
-compare
-copy
-erase
-fileclose
-fileexists
-filegetname
-getlength

強制約束 類型
- 非空（not null）
- 主鍵（primary key）
- 外鍵（foreign key）
- 唯一（unique）
- 檢查（check）
- 缺省（default）

--創建表，并使用約束。
create table student2(
? no char(4) not null primary key,
? name varchar2(8) not null unique,
? sex char(2) default('女') check(sex='女' or sex='男'),
? age int default(18) check(age > 0 and age < 100),
? phone char(11) null
);

--添加數據
insert into t values(1);
insert into t (select a from t);
--查詢表
select * from t;

--語句級觸發器
set serveroutput on;

create or replace trigger t_ais
after insert on t
begin
? dbms_output.put_line('Insert Statement...');
end;

insert into t values(2);
insert into t values(3);

--行級
create or replace trigger t_air
after insert on t
for each row
begin
? dbms_output.put_line('Insert Row...');
end;

-- 多功能觸發器
create or replace trigger t_ardur
after insert or update or delete on t
for each row
begin
? case
? when inserting then
??? dbms_output.put_line('Insert is Coming@...' );
? when deleting then
??? dbms_output.put_line('Delete is Coming@...' );
? when updating then
??? dbms_output.put_line('Update is Coming@...' );
? end case;
end;

--insert into t values(7);
--update t set a = 8 where a=7;
delete from t where a = 8;
select * from t;???????????????? 分別在執行添刪改查時觸發。

--創建表，添加數據。
create table users
(
id int,
name varchar2(12)
);

insert into users values(1,'ANiu');
insert into users values(2,'AZhu');

--判斷當前用戶
create or replace trigger users_budr
before update or delete on users
for each row
begin
? if user = 'NEWLIFEYHJ' then
??? dbms_output.put_line('WelCome NewLifeYhj');
? else
??? dbms_output.put_line('No no no');
? end if;
end;

update users set name='AGou' where id=2;

加上判斷條件
when (to_char(sysdate,'Day') = '星期日')
insert into log values (user, sysdate,:old.name || ' 被修改為 ' || :new.name);? 觸發器主體對另外一個表進行操作。

--創建日志表
create table log
(
username varchar2(24),
operdate date,
operations varchar2(500)
);

create or replace trigger users_budr
before delete or update of name on users
for each row
when (to_char(sysdate,'Day') = '星期一')
begin
? if user = 'NEWLIFEYHJ' then
??? dbms_output.put_line('WelCome NewLifeYhj');
? else
??? dbms_output.put_line('No no no');
? end if;
? insert into log values(user,sysdate,:old.name||'被修改為'||:new.name);
end;

update users set name='AZhu' where id=3;

--邏輯記錄
:New
:Old

ORA-04092: COMMIT 不能在觸發器中

set serveroutput on;??? --重新連接之后，打印信息出不來，是這個需要重新設置。-- ##這就是奇怪為什么打印出不來的原因了##

update users set name='AZhu' where id=1;

select * from user_triggers;? --數據字典--

--觸發器實例應用--進銷存
--進貨表
create table jh
(
hh char,?????? --貨號
sl number(3),? --數量
sj date??? --時間
);
--銷售表
create table xs
(
hh char,?????? --貨號
sl number(3),? --數量
sj date??? --時間
);

--庫存表
create table cc
(
hh char,?????? --貨號
sl number(3),? --數量
sj date??? --時間
);

--進貨觸發器--
create or replace trigger triInsertJH
after insert
on jh
for each row
declare
lv_hc_num int;
begin
? select count(*) into lv_hc_num from cc where hh = :new.hh;
? if lv_hc_num > 0 then
??? update cc set sl = sl + :new.sl where? hh = :new.hh;
? else
??? insert into cc values (:new.hh, :new.sl,sysdate);
? end if;
end;

insert into jh values ('A', 120, sysdate);

--銷售觸發器--
create or replace trigger triInsertXS
after insert
on xs
for each row
declare
lv_hc_num int;
begin
? select sl into lv_hc_num from cc where hh = :new.hh;
? if lv_hc_num >=? :new.sl then
??? update cc set sl = sl - :new.sl where? hh = :new.hh;
? else
??? RAISE_APPLICATION_ERROR (-20001, '銷售量遠大于現有庫存量！');
? end if;
end;

內置程序包
取隨機數：select dbms_random.random from dual;
????????? select dbms_random.string('q',4) from dual;?? -- 四位字符隨機數。

#dbms_lob#
#file xml 操作#? dbms_xmlquery? dbms_xmlgen

dbms_sql 動態sql

--建立文件夾
create or replace directory wrox_dir as 'c:\temp2';

dbms_utility

##sql server##
sp_helptrigger
sp_helptext

?

Oracle Class9. 數據庫觸發器和內置程序包