oracle 触发器

需求如下：

公司内部开发人员没有形成统一规范，开发各种的系统，采用不同的用户表清单，现在为方便用户，将各系统用户表信息进行统一。

解决方案如下：

1.初始时，采用存储过程做成一个计划任务，每天定时更新。

CREATE OR REPLACE PROCEDURE "UPDATE_DDCM_USERS" AS

  sEmpno         VARCHAR2(20) default '';
  sDept          VARCHAR2(40) default '';
  sFName         VARCHAR2(20) DEFAULT '';
  sLName         VARCHAR2(20) DEFAULT '';
  sFLName        VARCHAR2(20) DEFAULT '';
  sEmail         VARCHAR2(20) DEFAULT '';
  sPassword      VARCHAR2(20) DEFAULT '';
  sRETDT         VARCHAR2(20) DEFAULT '';
  iusercnt1     number;

  CURSOR USER IS  
    SELECT EMP_NO,
           E_PASS,
           F_NM,
           L_NM,
           C_NM,
           E_MAIL,
           DEPT_NM,
           RETDT 
      FROM SFMG.USERLIST;   

BEGIN
    FOR X in USER LOOP
    
    sEmpno     := X.EMP_NO;
    sDept      := X.DEPT_NM; 
    sFName     := X.F_NM;
    sLName     := X.L_NM;
    sFLName    := X.C_NM;
    sEmail     := SUBSTR(X.E_MAIL, 0, INSTR(X.E_MAIL, '@')-1);
    sPassword  := X.E_PASS;
    sRETDT     := X.RETDT;
  
    begin
      select count(*) into iusercnt1 from USER_LIST where EMP_NO = sEmpno;
    EXCEPTION
      WHEN no_data_found THEN
        iusercnt1 := 0;
    end;

       IF iusercnt1 = 0 THEN
      INSERT INTO USER_LIST
      VALUES
        (sEmpno,
         sDept,
         sFName,
         sLName,
         sFLName,
         sEmail,
         sPassword,
         ''
        );
    ELSE
      IF sRETDT = '00000000' THEN
        UPDATE USER_LIST SET DEPT_NM= sDept,F_NM = sFName,L_NM = sLName,FL_NM = sFLName,
                             E_MAIL = sEmail,E_PASS = sPassword,ADMIN_FLAG = ADMIN_FLAG
        where EMP_NO = sEmpno;
            END IF;
    END IF;

END LOOP;
  COMMIT;
EXCEPTION
  WHEN PROGRAM_ERROR THEN
    ROLLBACK WORK;
END; 
-- 复制用户清单从sfmg.userlist@whdb，应该做为计划任务执行。

缺点：由于每天只是更新一次，用户变更信息后，没有及时更新。

2.采用DML 行级触发器解决。

create or replace trigger async_userlist
after insert or update on sfmg.user_list
for each row

begin
     if INSERTING then
       insert into dcc.user_list (emp_no,dept_nm,f_nm,l_nm,e_mail,e_pass,admin_flag)
         values ( :new.empno,:new.dept_en,:new.name_cn,:new.name_en,substr(:new.email,0,instr(:new.email,'@')-1),:new.password,'');
     elsif updating then
       update dcc.user_list set dept_nm = :new.dept_cn,f_nm = :new.name_cn, l_nm = :new.name_en,
                                 e_mail = substr(:new.email,0,instr(:new.email,'@')-1) ,e_pass = :new.password
       where emp_no = :new.empno;
     end if;
end async_userlist;