（帖）怎么建立触发器去自动修改字段内容感谢

（求助帖）如何建立触发器去自动修改字段内容感谢

create table  T_ORDER_test

(

  ORDERIDENTITY          NUMBER(19) not null,

  MODALITYS              VARCHAR2(256),

  BODYPARTS              VARCHAR2(1024)

  

)

 

create table T_PROCEDURE_test

(

  PROCEDUREIDENTITY    NUMBER(19) not null,

  ORDERIDENTITY        NUMBER(19) not null,

  BODYPART             VARCHAR2(512) not null

)


insert into T_ORDER_test values(101,'ZKDR','胸部正位;'）;

insert into T_ORDER_test values(102,'ZKDR','胸部正位; 胸部侧位;'）;

insert into T_ORDER_test values(103,'DR','腹部立位;'）;

insert into T_ORDER_test values(104,'ZKDR','胸部立位;'）;


select  * From T_ORDER_test  


 


insert into T_PROCEDURE_test values(1001,101,'胸部正位;'）;

insert into T_PROCEDURE_test values(1002,102,'胸部正位; 胸部侧位;'）;

insert into T_PROCEDURE_test values(1003,103,'腹部立位;'）;

insert into T_PROCEDURE_test values(1004,104,'胸部立位;'）;


select  * From T_PROCEDURE_test 

 

以上为测试代码,现在我想实现在T_PROCEDURE_test表中插入或更新数据时，如果插入记录的ORDERIDENTITY字段
在T_ORDER_test表中对应的MODALITYS='ZKDR'时，去自动更新T_PROCEDURE_test表中的bodypart字段
更新规则  如果一个部位时，将部位名称后的分号去掉  效果为：胸部正位
如果为多个部位时，将最后面的一个分号去掉，其他的分号改为加号    效果为  胸部正位+胸部侧位

哪位大哥可以帮忙写个触发器，十分感谢
------解决思路----------------------

引用:

CREATE OR REPLACE TRIGGER test

before UPDATE OR INSERT OF BODYPART ON T_PROCEDURE_test

FOR EACH ROW

declare

PRAGMA AUTONOMOUS_TRANSACTION; 

a varchar2(256);

BEGIN

select min(MODALITYS) into a from t_order_test where orderidentity=:new.ORDERIDENTITY;

if a='ZKDR' then

:new.bodypart:=replace(rtrim(:new.bodypart,';'),';','+')

;

end if;

exception when others then

null;

END;

/

------解决思路----------------------

CREATE OR REPLACE TRIGGER test

before UPDATE OR INSERT OF BODYPART ON T_PROCEDURE_test

FOR EACH ROW

declare

a varchar2(256);

BEGIN

select min(MODALITYS) into a from t_order_test where orderidentity=:new.ORDERIDENTITY;

if a='ZKDR' then

:new.bodypart:=replace(rtrim(:new.bodypart,';'),';','+')

;

end if;

exception when others then

null;

END;

/