ora2

行触发器例
Create or replace trigger generateid Before insert on students For each row Begin Select student_seq.nextval into :new.id from dual; End;
记录－多域单行结构
Declare
type time_type is record
(second integer(2) :=0 , minute integer(2) :=0, hour integer(2) :=0 ) ; time_rec time_type ;
PL/SQL表(数组)－多行单列结构
建立数据库对象－触发器
Create trigger emp_t before update of sal on emp for each row when (old.dno is not null) begin if (:new.sal < = :old.sal) then raise_application_error(… ); end if ; end ;
例三
Declare cursor c1 is select distinct kno from clog; cursor c2 (kindno char(3)) is select * from clog where kno=kindno order by day desc ; i number ; l_d date ; begin
触发器——类型
语句级触发器 行级触发器（for each row）
:old :new
Instead-of触发器
触发器——触发顺序
Before 语句级 Before 行级 DML After 行级 After 语句级
触发器——限制
不能有事务控制语句 调用的过程和函数也不能有事务控制语 句 不能声明long, long raw列 语句级触发器不能使用:old, :new 行级触发器存取变化表与限制例一
DECLARE
tin_rec tin % rowtype ;
v_passwd userlog.passwd % type ; errps EXCEPTION ; BEGIN select * into tin_rec from tin ; select passwd into v_passwd from userlog where userid = tin_rec.ud ;
光标
Oracle 使用Private SQL Area的工作区 执行SQL语句，并保存语句执行结果和 相关的状态信息。 光标是一个PL/SQL结构，利用光标可以 命名这些工作区，并通过光标访问工作 区中的信息。
隐式光标
隐式光标名：SQL
访问：
SQL％ROWCOUNT
SQL%FOUND
SQL%NOTFOUND
PL/SQL块中特殊的例外转移
Declare段发生例外
V_Number NUMBER(3) :=‘ABC’;
立刻传播到包含块
Exception段发生例外
Excepion when a then raise b; when b then 立刻传播到包含块
利用PL/SQL块中特殊的例外转移 Declare a exception; Begin raise a; Exception when a then insert into log_able…..; raise; End;
例二
Begin open c1; select sum(sal) into s_sal from emp ; while s_sal<500000 loop fetch c1 into e_eno,e_sal ; exit when c1%notfound ; update emp set sal=sal*1.1 where current of c1 ;; where eno=e_eno s_sal:=s_sal + e_sal*0.1; emp_num:=emp_num+1 ; end loop ;
Declare type ename_type is table of char(10) index by binary_integer ; ename_array ename_type ; I binary_integer :=0 ; begin for rec in (select ename from emp) loop I:=I+1 ; ename_array(I):=rec.ename ; end loop ;
PL/SQL表——属性
student_array.count student_array.delete(I); student_array.delete(I , j ); student_array.exists student_array.first student_st student_array.next student_array.prior
[for each row]
on emp [when …]
begin … end ;
建立数据库对象－触发器
Create trigger emp_check before/after/instead of insert or update or delete on emp begin if to_char(sysdate,`dy`)=`星期日` then raise_application_error(-20000, ‘ today is holiday ') ; end if ; end ; /
dup_val_on_index no_data_found too_many_rows
Select * into …
用户自定义例外
例外名定义 ex1 exception ; 引起例外 raise ex1 ；
例一
用户注册检查
tin :
Ud msg
ps
tout :
userlog :
触发器
存储在数据库里的带名的PL/SQL块，当 表被修改时，如果满足条件，自动执行 主要用处
维护复杂的完整性约束 审计修改 表被修改时，给其他需运行的程序发信号
触发器——创建语法
Create or Replace trigger emp_check
before/after insert or update or delete
例二
Close c1;
insert into msg values(emp_num , s_sal) ;
commit ; end;
光标for循环
For r in c1
loop
r.sal
end loop;
如何打开光标 如何读光标区 如何判断读完 如何关闭光标
带参数光标
cursor c1 (depno char(3)) is select * from emp where dno=depno ;
例外信息捕获
Exception when others then err_msg:=substr(sqlerrm,1,50); err_code:=sqlcode; insert into tout values(err_code,err_msg) ; end ;
PL/SQL块的嵌套及例外转移 D01部门没有职工属正常情况… begin select eno into v_eno from emp where dno=`d01` ; if sql%found then raise too_many_rows ; end if ; exception when no_data_found then null ; end ;
变量赋值 an_sal :=mon_sal *12 + nvl(comm,0) ;
Select ename INTO v_ename from emp where eno=` e01 ` ;
程序控制结构
IF e1 THEN ELSIF e2 THEN END LOOP ; WHILE LOOP e
例一
if tin_rec.ps = v_passwd then insert into tout values(`login ok` ); else raise errps ; end if ; exception when errps then insert into tout values(`password error`〕； when no_data_found then insert into tout values(`userid error’〕； end;
open c1(v_depno) ;
例三
例题： 收发室收文件。文件分类，每类中文件依收到 日期先后顺序编号。值班人员收到文件后，要 在系统中登录文件类别，编号，收到日期。 （注：一天中收到的文件可能不止一份） 编一PL/SQL 程序，查询每一类中最后一天收 到的文件） 表clog(kno 类别 , pno 编号 , pdate 收发日期) 练习要点： 光标FOR循环，带参数的光标
显式光标
定义 delcare cursor c1 is select … 打开 open c1 读 fetch c1 into 变量/记录 close c1
显式光标
读取状态信息 c1%found c1%rowcount
用光标定义记录 temp c1%rowtype
例二
问题：
为职工长工资。从最低工资长，工资总额限 制在50万元。 Declare cursor c1 is select eno,sal from emp order by sal for update ; emp_num number :=0 ; s_sal number ; e_sal number ; e_eno char(3);