请问这个触发器如何写? 我已经想了一天了,搞的头疼,有点晕,中午也没吃饭

自问自答吧,这也是其他网站的兄弟们给的,以嗣分享
SQL> create table TJDWJBXX1 (BIANH varchar2(20),MINGXH varchar2(20), DANWMC varchar2(20), TIJMC varchar2(20));Table createdSQL> create table TJSFXM (BAINH varchar2(20), MINGC varchar2(20), DANJ number(10,2));Table createdSQL> insert into TJSFXM values ('000002' ,'一般检查', 10);1 row insertedSQL> create table XYCFMX (BIANH varchar2(20),MINGC varchar2(20), ZHIXKS varchar2(20));Table createdSQL> insert into XYCFMX values ('000002', '视力检查', '五官科');1 row insertedSQL> insert into XYCFMX values ('000002', '血型检查', '检验科');1 row insertedSQL> insert into XYCFMX values ('000002', '钡餐', '放射科');1 row insertedSQL> create table TJDWJZD (DANWMC varchar2(20), DWMCXH varchar2(20),XIANGMXH varchar2(20),TIJXM varchar2(20),
  2                        TIJXMBH varchar2(20),ZHIXKS varchar2(20));Table createdSQL> create or replace trigger tr_TJDWJBXX1 before insert on TJDWJBXX1
  2  for each row
  3  begin
  4  for x in
  5  (select decode(length(rownum),1,'0'||rownum,to_char(rownum)) rn,BIANH, MINGC, ZHIXKS
  6   from XYCFMX
  7   where BIANH = (select bianh from TJSFXM where MINGC = :new.TIJMC)) loop
  8   insert into TJDWJZD(DANWMC, DWMCXH, XIANGMXH, TIJXMBH, TIJXM,  ZHIXKS)
  9   Values (:new.DANWMC,:new.MINGXH,x.rn,x.BIANH, x.MINGC, x.ZHIXKS);
 10   end loop;
 11  end tr_TJDWJBXX1;
 12  /Trigger createdSQL> insert into TJDWJBXX1 values ('00000001', '012', '教育局', '一般检查');1 row insertedSQL> commit;
Commit completeSQL> select * from TJSFXM;BAINH                MINGC                        DANJ
-------------------- -------------------- ------------
000002               一般检查                    10.00SQL> select * from TJDWJZD;DANWMC               DWMCXH               XIANGMXH             TIJXM                TIJXMBH              ZHIXKS
-------------------- -------------------- -------------------- -------------------- -------------------- --------------------
教育局               012                  01                   视力检查             000002               五官科
教育局               012                  02                   血型检查             000002               检验科
教育局               012                  03                   钡餐                 000002               放射科