--创建触发器（行级触发器）

　　create or replace trigger tri_update_emp_bak

　　after update

　　on emp_bak

　　for each row  --每更新一行 就触发一次

　　begin

　　--Oracle 里面 对触发器 也提供了特殊的对象 :NEW :OLD 来访问 更新前后的数据

　　dbms_output.put_line('更新后' || :NEW.sal);

　　dbms_output.put_line('更新前' || :OLD.sal);

　　if updating then

　　end if;

　　if inserting

　　end;

　　--创建触发器（行级触发器）（前置）

　　create or replace trigger tri3_update_emp_bak

　　before update

　　on emp_bak

　　for each row  --每更新一行 就触发一次

　　begin

　　--oracle 里面 对触发器 也提供了特殊的对象 :NEW :OLD 来访问 更新前后的数据

　　dbms_output.put_line('更新后' || :NEW.sal);

　　dbms_output.put_line('更新前' || :OLD.sal);

　　end;

　　select * from emp_bak

　　update emp_bak set sal = 1000 where empno in (7788)

　　--创建触发器（表级触发器）

　　--//表级别触发器里面 不允许使用 :NEW :OLD 变量

　　create or replace trigger tri2_update_emp_bak

　　after update

　　on emp_bak

　　begin

　　-- dbms_output.put_line('更新后' || :NEW.sal);

　　--dbms_output.put_line('更新前' || :OLD.sal);

　　end;

　　--创建触发器（行级触发器）

　　create or replace trigger tri4_update_emp_bak

　　after update of sal

　　on emp_bak

　　for each row  --每更新一行 就触发一次

　　begin

　　--oracle 里面 对触发器 也提供了特殊的对象 :NEW :OLD 来访问 更新前后的数据

　　dbms_output.put_line('更新后' || :NEW.sal);

　　dbms_output.put_line('更新前' || :OLD.sal);

　　end;

　　create table userinfo

　　(

　　userid number(4) PRimary key,

　　username varchar2(20)

　　)

　　create table addrinfo

　　(

　　addrid number(4) primary key,

　　addname varchar2(20),

　　userid number(4) references userinfo(userid)

　　)

　　insert into userinfo values (1,'李四')

　　insert into addrinfo values (1,'湖北武汉',1)

　　select * from addrinfo

　　delete from userinfo where userid =1

　　--级联删除

　　create or replace trigger tri_userinfo_delete

　　before  delete

　　on userinfo

　　for each row

　　begin

　　delete from   addrinfo  where userid = :OLD.userid;

　　-- insert into

　　end;

　　create table dept_bak as select * from dept

　　create or replace view  myview

　　as

　　select a.empno,a.ename,a.sal,b.dname

　　from emp a inner join dept b

　　on a.deptno = b.deptno

　　select * from myview  [NextPage]

　　update  myview set sal = 1000,dname='aaaaa' where empno = 7499

　　--替代触发器  用在视图上面 只能是行级的

　　--替代触发器 特点是 真正的操作已经 变成了一个动作而已 功能由触发器来完成

　　create or replace trigger tri_myview

　　instead of update

　　on myview

　　begin

　　dbms_output.put_line('删除操作执行了。。。');

　　update emp set sal = :NEW.sal where empno = :OLD.empno;

　　update dept set dname = :NEW.dname where dname = :OLD.dname;

　　--delete from emp where empno = :OLD.empno;

　　end;

　　select * from emp;

　　select * from dept;

　　update emp_bak set ename ='aaaa',sal = 10000 where empno in (7788)

　　--系统包

　　-- 产生随机数

　　**** **** **** ****

　　--dbms_random.value 0-1 之间的随机小数

　　--dbms_random.random  随机整数

　　select dbms_random.value from dual;

　　create or replace procedure proc_cardno(mycardno out varchar2)

　　as

　　tempcard varchar2(50);

　　cardno varchar2(19);

　　begin

　　tempcard:= dbms_random.value;

　　cardno:=substr(tempcard,2,4)||' '||substr(tempcard,6,4)||' '||substr(tempcard,10,4)||' '||substr(tempcard,14,4);

　　mycardno:=cardno;

　　--   dbms_output.put_line(tempcard);

　　-- dbms_output.put_line(cardno);

　　end;

　　--使用UTL_FILE包读写文件

　　create directory MY_DIR as 'd:\temp';

　　create directory MY_DIR2 as 'd:\temp2';

　　declare

　　--定义文件对象

　　myfile utl_file.file_type;

　　--定义变量 用来存储每读出一行的数据

　　linestr varchar2(200);

　　begin

　　--打开文件

　　myfile:= utl_file.fopen('MY_DIR','oracle.log','r');

　　--进行读取(循环)

　　loop

　　utl_file.get_line(myfile,linestr);

　　dbms_output.put_line(linestr);

　　end loop;

　　exception

　　when others  then

　　utl_file.fclose(myfile);

　　dbms_output.put_line('读取完毕！');

　　end;

　　declare

　　--定义文件对象

　　myfile utl_file.file_type;

　　--定义变量 用来存储每读出一行的数据

　　linestr varchar2(200);

　　begin

　　--打开文件

　　myfile:= utl_file.fopen('MY_DIR','oracle.log','a');

　　--追加数据

　　--utl_file.get_line(myfile,linestr);

　　utl_file.put_line(myfile,'你好，这是新的数据',true);

　　utl_file.fclose(myfile);

　　exception

　　when others  then

　　utl_file.fclose(myfile);

　　dbms_output.put_line('读取完毕！');

　　end;

　　--拷贝

　　declare

　　--定义文件对象

　　sourcefile utl_file.file_type;

　　targetfile utl_file.file_type;

　　--定义变量 用来存储每读出一行的数据

　　linestr varchar2(200);

　　begin

　　--打开文件

　　sourcefile:= utl_file.fopen('MY_DIR','oracle.log','r');

　　targetfile:= utl_file.fopen('MY_DIR2','copy.txt','a');

　　--进行读取(循环) 并且写入到新的文件里面

　　loop

　　utl_file.get_line(sourcefile,linestr);

　　utl_file.put_line(targetfile,linestr,true);

　　-- dbms_output.put_line(linestr);

　　end loop;

　　exception

　　when others  then

　　utl_file.fclose(sourcefile);

　　utl_file.fclose(targetfile);

　　dbms_output.put_line('拷贝完毕！');

　　end;