--创建触发器（行级触发器）  
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  
 
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; 

本文来自CSDN博客，转载请标明出处：