之前工作中做數據同步用到的觸發器，做了如下筆記，總結如下：

數據中心

----------------------------------學院
create or replace trigger tger_XX_YXSDWJBSJZL_ist
before insert on zfdxc.XX_YXSDWJBSJZL
for each row
begin
insert into? xgxt.zxbz_xxbmdm@dblink_dxctoxgxt ?(bmdm,bmmc,bmjb,bmlb) values(:new.dwh,:new.dwmc,1,5);
end;
/
create or replace trigger tger_XX_YXSDWJBSJZL_udt
before update on zfdxc.XX_YXSDWJBSJZL
for each row
begin
update? xgxt.zxbz_xxbmdm@dblink_dxctoxgxt ?set bmdm=:new.dwh,bmmc=:new.dwmc where bmdm=:old.dwh;
end;
/
create or replace trigger tger_XX_YXSDWJBSJZL_del
before delete on zfdxc.XX_YXSDWJBSJZL
for each row
begin
delete?? zxbz_xxbmdm@dblink_dxctoxgxt ?where bmdm=:old.dwh;
end;
/
create or replace trigger trig_xydmbtojwgl after INSERT OR DELETE OR UPDATE
of dwh,dwmc ON xx_yxsdwjbsjzl FOR EACH ROW
BEGIN
? ?IF INSERTING THEN
? ?? ? insert into? xydmb@dblink_dxctojwgl ?(xydm,xymc) values (:new.dwh,:new.dwmc);
? ?? ???insert into? xydmb@dblink_dxctozfoa ?(xydm,xymc) values (:new.dwh,:new.dwmc);
? ? ELSIF DELETING THEN
? ?? ?delete from?? xydmb@dblink_dxctojwgl ?where xydm=:old.dwh;
? ?? ?delete from?? xydmb@dblink_dxctozfoa ?where xydm=:old.dwh;
? ?? ?
? ?ELSIF UPDATING THEN
? ?? ?update? xydmb@dblink_dxctojwgl ?set xydm=:new.dwh,xymc=:new.dwmc??where xydm=:old.dwh;
? ?? ?update? xydmb@dblink_dxctozfoa ?set xydm=:new.dwh,xymc=:new.dwmc??where xydm=:old.dwh;
? ?END IF;
END;
/
-----------------------------------------專業
create or replace trigger tger_jx_zyxxsjl_ist
before insert on zfdxc.jx_zyxxsjl
for each row
begin
insert into? bks_zydm@dblink_dxctoxgxt ?(zydm,bmdm,zymc,zyjc,zyywmc) values(:new.zyh,:new.dwh,:new.zymc,:new.zyjc,:new.zyywmc);
end;
/
create or replace trigger tger_jx_zyxxsjl_udt
before update on zfdxc.jx_zyxxsjl
for each row
begin
update? bks_zydm@dblink_dxctoxgxt ?set zydm=:new.zyh,bmdm=:new.dwh,zymc=:new.zymc,zyjc=:new.zyjc,zyywmc=:new.zyywmc where zydm=:old.zyh;
end;
/
create or replace trigger tger_jx_zyxxsjl_del
before delete on zfdxc.jx_zyxxsjl
for each row
begin
delete?? bks_zydm@dblink_dxctoxgxt ?where zydm=:old.zyh;
end;
/
---------------------------------------班級
create or replace trigger tger_xx_bjsjl_ist
before insert on zfdxc.xx_bjsjl
for each row
begin
insert into? bks_bjdm@dblink_dxctoxgxt ?(bjdm,zydm,bmdm,bjmc,nj) values (:new.bh,:new.zyh,:new.ssxydm,:new.bj,:new.nj);
end;
/
create or replace trigger tger_xx_bjsjl_udt
before update on zfdxc.xx_bjsjl
for each row
begin
update? bks_bjdm@dblink_dxctoxgxt ?set bjdm=:new.bh,zydm=:new.zyh,bmdm=:new.ssxydm,bjmc=:new.bj,nj=:new.nj where bjdm=:old.bh;
end;
/
create or replace trigger tger_xx_bjsjl_del
before delete on zfdxc.xx_bjsjl
for each row
begin
delete?? bks_bjdm@dblink_dxctoxgxt ?where bjdm=:old.bh;
end;
/


---------教職工基礎數據
create or replace trigger trig_jzgjcsjzl_jsxxb
after insert or delete or update of jgh,dwh,xm,xbm,csrq,jg,mzm,whcdm,jzglbm,zw
on jg_jzgjcsjzl for each row
declare
v_bmmc varchar2(100);
v_xb? ?dm_gb_rdxbdm.mc%type;
v_mz? ?varchar2(10);
v_whcdmc varchar2(10);
v_jzglbmc varchar2(10);
maxxh varchar2(100);
kyyhbid varchar2(20);
kyyhjbxxbid varchar2(20);
BEGIN
if :new.sjly='教務' then
null;
else
begin?
? ?? ?update? kyglxtsequence@zfky_dblink ?set seqvalue=seqvalue + cachesize where seqname='SeqYHBID';
? ?? ?update? kyglxtsequence@zfky_dblink ?set seqvalue=seqvalue + cachesize where seqname='SeqYHJBXXBID';
? ?? ?select seqvalue into kyyhbid from? kyglxtsequence@zfky_dblink ?where seqname='SeqYHBID';
? ?? ?select seqvalue into kyyhjbxxbid from? kyglxtsequence@zfky_dblink ?where seqname='SeqYHJBXXBID';
end;
begin
? ???select dwmc into v_bmmc from xx_yxsdwjbsjzl where dwh=:new.dwh;
exception
? ? when others then
? ?? ?v_bmmc:='-9';
end;
begin
? ???select mc into v_xb from dm_gb_rdxbdm where dm=:new.xbm;
exception
? ???when others then
? ?? ?v_xb:='-9';
end;
begin
? ? select mc into v_mz from DM_GB_ZGGMZDLMZMPXFHDM where dm=:new.mzm;
exception
? ? when others then
? ?? ?v_mz:='-9';
end;
begin
? ? select mc into v_whcdmc from DM_HB_WHCD where dm=:new.whcdm;
exception
? ? when others then
? ?? ?v_whcdmc:='-9';
end;
begin
? ? select to_char(to_number(max(yhsx)) + 1) into maxxh from? bmryxxb@dblink_dxctozfoa ?where xydm=:new.dwh;
exception
? ? when others then
? ?? ?maxxh:='-9';
end;
begin
? ???select mc into v_jzglbmc from DM_HB_JZGLB where dm=:new.JZGLBM;
exception
? ? when others then
? ?? ?v_jzglbmc:='-9';
end;
if inserting then
? ???insert into? jsxxb@dblink_dxctojwgl(zgh,bm,xm,xb,csrq,jg,mz,xl,lbmc,sjly ) values(:new.jgh,v_bmmc,:new.xm,v_xb,:new.csrq,:new.jg,v_mz,v_whcdmc,v_jzglbmc,'人事');
? ???insert into? bmryxxb@dblink_dxctozfoa(xydm,yhm,ryid,yhsx ) values(:new.dwh,:new.jgh,bmryxx_ryid.nextval@dblink_dxctozfoa,maxxh);
? ???insert into? yhjbxxb@zfky_dblink(yhjbxxbid,xm,xbdmbid,jgdmbid,xzzw ) values(kyyhjbxxbid,:new.xm,:new.xbm,:new.dwh,:new.zw);
? ???insert into? yhb@zfky_dblink(yhbid,yhm,mm,yhlybid,yhlyb,yhzt ) values(kyyhbid,:new.jgh,'u',kyyhjbxxbid,'YHJBXXB','1');
? ???
??elsif deleting??then
? ???delete from? jsxxb@dblink_dxctojwgl ?where zgh=:old.jgh;
? ???delete from? bmryxxb@dblink_dxctozfoa ?where yhm=:old.jgh;
? ???delete from? yhjbxxb@zfky_dblink ?where xm=:old.xm;
? ???delete from? yhb@zfky_dblink ?where yhm=:old.jgh;
??elsif??updating then
? ???update? jsxxb@dblink_dxctojwgl ?set zgh=:new.jgh,bm=v_bmmc,xm=:new.xm,xb=v_xb,csrq=:new.csrq,jg=:new.jg,mz=v_mz,xl=v_whcdmc,lbmc=v_jzglbmc where zgh=:old.jgh;
? ???update? bmryxxb@dblink_dxctozfoa ?set xydm=:new.dwh,yhm=:new.jgh,yhsx=maxxh where yhm=:old.jgh;
? ???update? yhjbxxb@zfky_dblink ?set xm=:new.xm where xm=:old.xm;
? ???update? yhb@zfky_dblink ?set yhm=:new.jgh? ?where yhm=:old.jgh;
??end if;
end if;
end;
/
create or replace trigger trig_jzgjcsjzl_portalyhb
after insert or delete or update of jgh,xm
on jg_jzgjcsjzl for each row
BEGIN
if inserting then
? ???insert into? yhb@dblink_dxctoportal(yhm,kl,xm,yhlx ) values(:new.jgh,'u',:new.xm,'2');
??elsif deleting??then
? ???delete from? yhb@dblink_dxctoportal ?where yhm=:old.jgh;
??elsif??updating then
? ???update? yhb@dblink_dxctoportal ?set yhm=:new.jgh,xm=:new.xm where yhm=:old.jgh;
??end if;
END;
/
create or replace trigger trig_jzgjcsjzl_zfoayhb
after insert or delete or update of jgh,xm
on jg_jzgjcsjzl for each row
BEGIN
if inserting then
? ???insert into? yhb@dblink_dxctozfoa(yhm,kl,zdm,xm,yhlx ) values(:new.jgh,'u','21',:new.xm,'2');
??elsif deleting??then
? ???delete from? yhb@dblink_dxctozfoa ?where yhm=:old.jgh;
??elsif??updating then
? ???update? yhb@dblink_dxctozfoa ?set yhm=:new.jgh,xm=:new.xm where yhm=:old.jgh;
??end if;
END;
/
create or replace trigger trig_zyjszw_jsxxb after insert or delete or update of przwm on jg_zyjszwzl for each row
declare
v_przwmc varchar2(100);
BEGIN
begin
? ?select zwxlmc into v_przwmc from dm_gb_zyjszwdm where dm=:new.przwm;
exception
? ?? ?when others then
? ?? ?v_przwmc:='-9';
end;
? ???update? jsxxb@dblink_dxctojwgl ?set zw=v_przwmc where zgh=:new.jgh;
END;
/
create or replace trigger trig_zzmm_jsxxb
after insert or delete or update
of zzmmm on jg_zzmmsjl for each row
declare
v_zzmmmc varchar2(100);
BEGIN
begin
? ???select mc into v_zzmmmc from dm_gb_zzmmdm where dm=:new.zzmmm;
exception
? ? when others then
? ?? ?v_zzmmmc:='-9';
end;
? ???update? jsxxb@dblink_dxctojwgl ?set zzmm=v_zzmmmc where zgh=:new.jgh;
END;
/
----------------------------------------------學生
create or replace trigger tger_xs_xsjbsjzl_ist
before insert on zfdxc.xs_xsjbsjzl
for each row
begin
----學工系統學生基本信息
insert into? xgxt.bks_xsjbxx@dblink_dxctoxgxt
(xh,bmdm,bjdm,zydm,xm,xmpy,cym,pyfs,xz,rxny,nj,sfzh,xbm,xjztm,xxnx,zyfx,ksh,bz,mm) values(:new.xh,
(case when :new.xymc in(select dwmc from XX_YXSDWJBSJZl) then (select dwh from XX_YXSDWJBSJZl where
:new.xymc=dwmc ) else 'NU' end),(case when :new.bjmc in(select bj from xx_bjsjl) then (select bh from
xx_bjsjl where :new.bjmc=bj ) else 'NULL' end) ,(case when :new.zydm??is null then 'NULL' else
:new.zydm end),:new.xm,:new.xmpy,:new.cym,:new.pyfs,:new.xz,:new.rxrq,:new.nj,:new.sfzjh,(case
:new.xb when '男' then 1 when '女' then 2 else 0
end),:new.xjzt,:new.xxnx,:new.zyfx,:new.ksh,:new.bz,:new.mm);
----學工系統學生其他信息
insert into? xgxt.bks_xsqtxx@dblink_dxctoxgxt ?(xh,mzdm,hkszd,byzx,lydq,csrq) values
(:new.xh,:new.mzm,:new.jg,:new.byzx,:new.lydq,:new.csrq);
----學工系統學生密碼表
insert into? xgxt.xsmmb@dblink_dxctoxgxt ?(xh,mm) values(:new.xh,:new.mm);
end;
/
create or replace trigger tger_xs_xsjbsjzl_udt
before update on zfdxc.xs_xsjbsjzl
for each row
begin
----學工系統學生基本信息
update? xgxt.bks_xsjbxx@dblink_dxctoxgxt ?set xh=:new.xh,bmdm=(case when :new.xymc in(select dwmc from
XX_YXSDWJBSJZl) then (select dwh from XX_YXSDWJBSJZl where :new.xymc=dwmc ) else 'NU' end),bjdm=(case
when :new.bjmc in(select bj from xx_bjsjl) then (select bh from xx_bjsjl where :new.bjmc=bj ) else
'NULL' end) ,zydm=(case when :new.zydm??is null then 'NULL' else :new.zydm end),xm=(case when :new.xm
is null then 'NULL' else :new.xm
end),xmpy=:new.xmpy,cym=:new.cym,pyfs=:new.pyfs,xz=:new.xz,rxny=:new.rxrq,nj=:new.nj,sfzh=:new.sfzjh,
xbm=(case :new.xb when '男' then 1 when '女' then 2 else 0
end),xjztm=:new.xjzt,xxnx=:new.xxnx,zyfx=:new.zyfx,ksh=:new.ksh,bz=:new.bz,mm=:new.mm where
xh=:old.xh;
----學工系統學生其他信息
update? xgxt.bks_xsqtxx@dblink_dxctoxgxt ?set
xh=:new.xh,mzdm=:new.mzm,hkszd=:new.jg,byzx=:new.byzx,lydq=:new.lydq,csrq=:new.csrq where xh=:old.xh;
end;
/
create or replace trigger tger_xs_xsjbsjzl_del
before delete on zfdxc.xs_xsjbsjzl
for each row
begin
delete? xgxt.bks_xsjbxx@dblink_dxctoxgxt ?where xh=:old.xh;
delete? xgxt.bks_xsqtxx@dblink_dxctoxgxt ?where xh=:old.xh;
delete? xgxt.xsmmb@dblink_dxctoxgxt ? ?? ?where xh=:old.xh;
end;
/
------------------------------------------------------------------------------------------------------------
人事
create or replace trigger trig_xydmbtozfdxc after INSERT OR DELETE OR UPDATE
of code,info ON dm_def_org FOR EACH ROW
BEGIN
? ?IF INSERTING THEN
? ?? ? insert into? xx_yxsdwjbsjzl@MEDI_DBLINK_zfdxc ?(dwh,dwmc) values (:new.code,:new.info);
? ? ELSIF DELETING THEN
? ???delete from?? xx_yxsdwjbsjzl@MEDI_DBLINK_zfdxc ?where dwh=:old.code;
? ?ELSIF UPDATING THEN
? ?? ?update? xx_yxsdwjbsjzl@MEDI_DBLINK_zfdxc ?set dwh=:new.code,dwmc=:new.info??where dwh=:old.code;
? ?END IF;
END;
/
CREATE OR REPLACE TRIGGER trig_overall AFTER INSERT OR DELETE OR UPDATE
--of X__STAFFID,X__NAME,X__NAMESPELL,X__OLDNAME,X__BIRTHDAY,X__SEX,X__NATIONALITY,X__NATION,X__NATIVEPLACE,X__BORNPLACE,X__IDCARD,X__WORKTIME,X__HEALTHSTATE,X__BLOODTYPE,X__COLONY,X__MARRIAGESTATE,X__ORIGIN,X__PERSONSTATION,X__FILENO,X__JOINCOLLEGETIME,X__ORG,X__EDUCATIONLEVEL,X__AUTHSORT,X__STAFFSORT
ON overall??FOR EACH ROW
BEGIN
? ?IF INSERTING THEN
? ?? ? insert into? jg_jzgjcsjzl@MEDI_DBLINK_zfdxc (JGH,XM,XMPY,CYM,CSRQ,XBM,GJM,MZM,JG,CSDM,SFZJH,CJGZNY,JKZKM,XXM,GATQWM,HYZKM,JTCSM,BRCFM,DABH,LXRQ,DWH,WHCDM,BZLBM,JZGLBM,MM,xjxdm,zgxl,zgxw,rdsj,rzwsj) values (:new.X__STAFFID,:new.X__NAME,:new.X__NAMESPELL,:new.X__OLDNAME,:new.X__BIRTHDAY,:new.X__SEX,:new.X__NATIONALITY,:new.X__NATION,:new.X__NATIVEPLACE,:new.X__BORNPLACE,:new.X__IDCARD,:new.X__WORKTIME,:new.X__HEALTHSTATE,:new.X__BLOODTYPE,:new.X__COLONY,:new.X__MARRIAGESTATE,:new.X__ORIGIN,:new.X__PERSONSTATION,:new.X__FILENO,:new.X__JOINCOLLEGETIME,:new.X__ORG,:new.X__EDUCATIONLEVEL,:new.X__AUTHSORT,:new.X__STAFFSORT,'u',:new.X__FILENO,:new.X__EDUCATIONLEVEL,:new.X__DEGREE,:new.X__JOINDATE,:new.X__APPOINTDATE);
? ?? ? insert into? JG_ZYJSZWZL@MEDI_DBLINK_zfdxc ?(JGH,RZZGMCM,PRZWM) values (:new.X__STAFFID,:new.X__MAJORQUALIFICATION,:new.X__APPOINTDUTY);
? ?? ? insert into? JG_ZZMMSJL@MEDI_DBLINK_zfdxc ?(JGH,ZZMMM,CJRQ) values (:new.X__STAFFID,:new.X__POLITICS,:new.X__JOINDATE);
? ?ELSIF DELETING THEN
? ?? ?delete from?? jg_jzgjcsjzl@MEDI_DBLINK_zfdxc ?where jgh=:old.X__STAFFID;
? ?? ?delete from?? JG_ZYJSZWZL@MEDI_DBLINK_zfdxc ?where jgh=:old.X__STAFFID;
? ?? ?delete from? JG_ZZMMSJL@MEDI_DBLINK_zfdxc ?where jgh=:old.X__STAFFID;
? ?ELSIF UPDATING THEN
? ?? ?update?? jg_jzgjcsjzl@MEDI_DBLINK_zfdxc ?set JGH=:new.X__STAFFID,XM=:new.X__NAME,XMPY=:new.X__NAMESPELL,CYM=:new.X__OLDNAME,CSRQ=:new.X__BIRTHDAY,XBM=:new.X__SEX,GJM=:new.X__NATIONALITY,MZM=:new.X__NATION,JG=:new.X__NATIVEPLACE,CSDM=:new.X__BORNPLACE,SFZJH=:new.X__IDCARD,CJGZNY=:new.X__WORKTIME,JKZKM=:new.X__HEALTHSTATE,XXM=:new.X__BLOODTYPE,GATQWM=:new.X__COLONY,HYZKM=:new.X__MARRIAGESTATE,JTCSM=:new.X__ORIGIN,BRCFM=:new.X__PERSONSTATION,DABH=:new.X__FILENO,LXRQ=:new.X__JOINCOLLEGETIME,DWH=:new.X__ORG,WHCDM=:new.X__EDUCATIONLEVEL,BZLBM=:new.X__AUTHSORT,JZGLBM=:new.X__STAFFSORT,XJXDM=:new.X__FILENO,ZGXL=:new.X__EDUCATIONLEVEL,ZGXW=:new.X__DEGREE,RDSJ=:new.X__JOINDATE,RZWSJ=:new.X__APPOINTDATE where jgh=:old.X__STAFFID;
? ?? ?update? JG_ZYJSZWZL@MEDI_DBLINK_zfdxc ?set JGH=:new.X__STAFFID,RZZGMCM=:new.X__MAJORQUALIFICATION,PRZWM=:new.X__APPOINTDUTY where jgh=:old.X__STAFFID;
? ?? ?update? JG_ZZMMSJL@MEDI_DBLINK_zfdxc ?set JGH=:new.X__STAFFID,ZZMMM=:new.X__POLITICS,CJRQ=:new.X__JOINDATE where jgh=:old.X__STAFFID;
? ?END IF;
END;
/
--------------------------------------------------------------------------------------------------------------------
教務
---校區
create or replace trigger tger_xqdm_ist
before insert on zfxfzb.xqdmb
for each row
begin
insert into? xx_xqjbsjzl@dblink_jwgltodxc ?(xqh,xqm) values(:new.xqdm,:new.xqmc);
end;
/
create or replace trigger tger_xqdm_udt
before update on zfxfzb.xqdmb
for each row
begin
update? xx_xqjbsjzl@dblink_jwgltodxc ??set xqh=:new.xqdm,xqm=:new.xqmc where xqh=:old.xqdm;
end;
/
create or replace trigger tger_xqdm_del
before delete on zfxfzb.xqdmb
for each row
begin
delete?? xx_xqjbsjzl@dblink_jwgltodxc ?where xqh=:old.xqdm;
end;
---專業
create or replace trigger tger_zydm_ist
before insert on zfxfzb.zydmb
for each row
begin
insert into? jx_zyxxsjl@dblink_jwgltodxc ?(zyh,zymc,zyjc,zyywmc,dwh,xz,bzkzym) values(:new.zydm,:new.zymc,:new.zyjc,:new.zyywmc,:new.ssxydm,:new.xz,:new.tjzydm);
end;
/
create or replace trigger tger_zydm_udt
before update on zfxfzb.zydmb
for each row
begin
update? jx_zyxxsjl@dblink_jwgltodxc ??set zyh=:new.zydm,zymc=:new.zymc,zyjc=:new.zyjc,zyywmc=:new.zyywmc,dwh=:new.ssxydm,xz=:new.xz,bzkzym=:new.ssxydm where zyh=:old.zydm;
end;
/
create or replace trigger tger_zydm_del
before delete on zfxfzb.zydmb
for each row
begin
delete?? jx_zyxxsjl@dblink_jwgltodxc ?where zyh=:old.zydm;
end;
/
---班級
create or replace trigger tger_bjdm_ist
before insert on zfxfzb.bjdmb
for each row
begin
insert into? xx_bjsjl@dblink_jwgltodxc ?(bh,bj,bzrjgh,fdyh,zyh,bjjc,zyfx,ssxydm,nj,ssxqdm,xz,cc) values(:new.bjdm,:new.bjmc,:new.bzrzgh,:new.fdyxm,:new.sszydm,:new.bjjc,:new.zyfx,:new.ssxydm,:new.nj,:new.ssxqdm,:new.xz,:new.cc);
end;
/
create or replace trigger tger_bjdm_udt
before update on zfxfzb.bjdmb
for each row
begin
update? xx_bjsjl@dblink_jwgltodxc ??set bh=:new.bjdm,bj=:new.bjmc,bzrjgh=:new.bzrzgh,fdyh=:new.fdyxm,zyh=:new.sszydm,bjjc=:new.bjjc,zyfx=:new.zyfx,ssxydm=:new.ssxydm,nj=:new.nj,ssxqdm=:new.ssxqdm,xz=:new.xz,cc=:new.cc where bh=:old.bjdm;
end;
/
create or replace trigger tger_bjdm_del
before delete on zfxfzb.bjdmb
for each row
begin
delete?? xx_bjsjl@dblink_jwgltodxc ?where bh=:old.bjdm;
end;
/
--學生
create or replace trigger tger_xsjbxx_ist
before insert on zfxfzb.xsjbxxb
for each row

declare
v_bjdm varchar2(50);
v_xydm varchar2(50);
begin
begin
select xydm into v_xydm from xydmb where xymc=:new.xy;
exception
? ?when others then
? ?v_xydm:='9';
end;
begin
select bjdm into v_bjdm from bjdmb where bjmc=:new.xzb;
exception
? ?when others then
? ?v_bjdm:='9';
end;
----數據中心學生基本數據子類
insert into? zfdxc.xs_xsjbsjzl@dblink_jwgltodxc (xh,xm,xmpy,cym,csrq,jg,sfzjh,xymc,zydm,zymc,bjmc,mz,pyfs,ksh,xxnx,xz,xb,zyfx,pyfx,xjzt,sfzx,sfzc,bz,nj,rxrq,LYDQ,BYZX,SSH,DZYXDZ,LXDH,ZKZH,JTSZD,SFLXS,TELNUMBER,TELLX,CC,YZBM,RXZF,YYCJ,zzmm,mm) values(:new.xh,:new.xm,:new.xmpy,:new.zym,:new.csrq,:new.jg,:new.sfzh,:new.xy,:new.zydm,:new.zymc,:new.xzb,:new.mz,:new.xxxs,:new.ksh,:new.xxnx,:new.xz,:new.xb,:new.zyfx,:new.pyfx,:new.xjzt,:new.sfzx,:new.sfzc,:new.bz,:new.dqszj,:new.rxrq,:new.LYDQ,:new.BYZX,:new.SSH,:new.DZYXDZ,:new.LXDH,:new.ZKZH,:new.JTSZD,:new.SFLXS,:new.TELNUMBER,:new.TELLX,:new.CC,:new.YZBM,:new.RXZF,:new.YYCJ,:new.zzmm,:new.mm);
----數據中心學籍基本數據子類
insert into? zfdxc.xs_xjjbsjzl@dblink_jwgltodxc ?(xh,yxsh,zym,bh) values(:new.xh,v_xydm,:new.zydm,v_bjdm);
end;
/
create or replace trigger tger_xsjbxx_udt
before update on zfxfzb.xsjbxxb
for each row

declare
v_bjdm varchar2(50);
v_xydm varchar2(50);
begin
----數據中心學生基本數據子類
begin
select xydm into v_xydm from xydmb where xymc=:new.xy;
exception
? ?when others then
? ?v_xydm:='9';
end;
begin
select bjdm into v_bjdm from bjdmb where bjmc=:new.xzb;
exception
? ?when others then
? ?v_bjdm:='9';
end;
update? xs_xsjbsjzl@dblink_jwgltodxc ??set xh=:new.xh,xm=:new.xm,xmpy=:new.xmpy,cym=:new.zym,csrq=:new.csrq,jg=:new.jg,sfzjh=:new.sfzh,xymc=:new.xy,zydm=:new.zydm,zymc=:new.zymc,bjmc=:new.xzb,mz=:new.mz,pyfs=:new.xxxs,ksh=:new.ksh,xxnx=:new.xxnx,xz=:new.xz,xb=:new.xb,zyfx=:new.zyfx,pyfx=:new.pyfx,xjzt=:new.xjzt,sfzx=:new.sfzx,sfzc=:new.sfzc,bz=:new.bz,nj=:new.dqszj,rxrq=:new.rxrq,lydq=:new.LYDQ,byzx=:new.BYZX,ssh=:new.SSH,dzyxdz=:new.DZYXDZ,lxdh=:new.LXDH,zkzh=:new.ZKZH,jtszd=:new.JTSZD,sflxs=:new.SFLXS,TELNUMBER=:new.TELNUMBER,TELLX=:new.TELLX,cc=:new.CC,YZBM=:new.YZBM,RXZF=:new.RXZF,YYCJ=:new.YYCJ,zzmm=:new.zzmm,mm=:new.mm where xh=:old.xh;
----數據中心學籍基本數據子類
update? xs_xjjbsjzl@dblink_jwgltodxc ??set xh=:new.xh,yxsh=v_xydm,zym=:new.zydm,bh=v_bjdm where xh=:old.xh;
end;
/
create or replace trigger tger_xsjbxx_del
before delete on zfxfzb.xsjbxxb
for each row
begin
delete?? xs_xsjbsjzl@dblink_jwgltodxc ?where xh=:old.xh;
delete?? xs_xjjbsjzl@dblink_jwgltodxc ?where xh=:old.xh;
end;
/
--外聘教師
create or replace trigger trig_wpjs_zfdxc after insert or delete or update of zgh,xm,bm on jsxxb for each row

declare
v_bmdm varchar2(10);
len number;
begin
select count(jgh) into len from? jg_jzgjcsjzl@dblink_jwgltodxc ?where jgh=:old.zgh and sjly='人事';
if len=0 and :new.sjly||'A'<>'人事A' then--不存在人事的數據
begin
??select xydm into v_bmdm from xydmb where xymc=:new.bm;
exception
? ? when others then
? ?? ?v_bmdm:='-9';
end;
??if inserting then
? ? insert into? jg_jzgjcsjzl@dblink_jwgltodxc(jgh,xm,dwh,sjly ) values(:new.zgh,:new.xm,v_bmdm,'教務');
??elsif deleting??then
? ? delete from? jg_jzgjcsjzl@dblink_jwgltodxc ?where jgh=:old.zgh;
??elsif??updating then
? ? update? jg_jzgjcsjzl@dblink_jwgltodxc ?set jgh=:new.zgh,xm=:new.xm,dwh=v_bmdm where jgh=:old.zgh;
??end if;
end if;
end;

/

**********本博客所有內容均為原創，如有轉載請注明作者和出處!!!**********
Name: ? ?guoyJoe

QQ: ? ? ? ?252803295

Email: ? ?oracledba_cn@hotmail.com

Blog: ? ? ?http://blog.csdn.net/guoyJoe

ITPUB: ??http://www.itpub.net/space-uid-28460966.html

OCM: ? ??http://education.oracle.com/education/otn/YGuo.HTM
?_____________________________________________________________
加群驗證問題：哪些SGA結構是必需的，哪些是可選的？否則拒絕申請!!!

答案在：http://blog.csdn.net/guoyjoe/article/details/8624392

Oracle@Paradise 　總群:127149411

Oracle@Paradise No.1群:177089463(已滿)

Oracle@Paradise No.2群:121341761

Oracle@Paradise No.3群:140856036

總結

以上是生活随笔為你收集整理的工作中使用了一些触发器的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。