Oracle中的触发器TRIGGER

内容导读

互联网集市收集整理的这篇技术教程文章主要介绍了Oracle中的触发器TRIGGER，小编现在分享给大家，供广大互联网技能从业者学习和参考。文章包含2100字，纯文字阅读大概需要4分钟。

内容图文

CREATE OR REPLACE TRIGGER trgregisterpregroup 2 BEFORE UPDATE 3 ON tblregisterusers 4 FOR EACH ROW 5 6 DECLARE 7 sort_id varchar2(2000); 8 e_code VARCHAR2(1000); 9 BEGIN 10 IF :NEW.fldleftmoney <> :OLD.fldleftmoney THEN 11 select to_char(systimestamp(3),‘YYYYMMDDHH24MISSFF‘) into sort_id from dual; 12 e_code := NULL; 13 for R in (select a.fldusergroupid, 14 a.fldx, 15 a.fldy, 16 a.fldz, 17 a.fldserviceaid, 18 a.fldservicebid, 19 a.fldservicecid, 20 a.flag 21 from usergroupautoconfig a 22 where a.fldusergroupid = :NEW.fldusergroupid and a.flag=1) 23 loop 24 if :NEW.fldleftmoney > R.fldz then 25 if R.fldservicecid is not null then 26 e_code := PK_INTERFACE.user_pregroup(:NEW.FLDUSERNAME,R.fldservicecid,sysdate,9000,sort_id); 27 end if; 28 elsif (:NEW.fldleftmoney <= R.fldz) and (:NEW.fldleftmoney > R.fldy) then 29 if R.fldservicebid is not null then 30 e_code := PK_INTERFACE.user_pregroup(:NEW.FLDUSERNAME,R.fldservicebid,sysdate,9000,sort_id); 31 end if; 32 else 33 if R.fldserviceaid is not null then 34 e_code := PK_INTERFACE.user_pregroup(:NEW.FLDUSERNAME,R.fldserviceaid,sysdate,9000,sort_id); 35 end if; 36 end if; 37 end loop; 38 end if; 39 if e_code <> pk_common.E00 then 40 PK_PUBLIC.error_log(‘trgregisterpregroup: ‘ || :NEW.flduserid || ‘-‘ || e_code); 41 end if; 42 EXCEPTION 43 WHEN OTHERS THEN 44 NULL; 45 END trgregisterpregroup;

 

Oracle中的触发器TRIGGER

标签：when   end   except   to_char   触发器   ldl   conf   _id   for   

本文系统来源：https://www.cnblogs.com/zhuziyu/p/8422600.html

内容总结

以上是互联网集市为您收集整理的Oracle中的触发器TRIGGER全部内容，希望文章能够帮你解决Oracle中的触发器TRIGGER所遇到的程序开发问题。 如果觉得互联网集市技术教程内容还不错，欢迎将互联网集市网站推荐给程序员好友。

内容备注

版权声明：本文内容由互联网用户自发贡献，该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容， 请发送邮件至 gblab@vip.qq.com 举报，一经查实，本站将立刻删除。

内容手机端

---