【文章內(nèi)容簡(jiǎn)介】 n Builtin 2010年12月28日 4:13:58END。//* 在GOODS表上創(chuàng)建更新觸發(fā)器，在GOODS（被參照表）中更新記錄時(shí)，若造成了與RESERVE（參照表），則拒絕執(zhí)行更新操作。同樣，若造成了與 SELL（參照表），也拒絕執(zhí)行更新操作。同樣，若造成了與 STORE（參照表），也拒絕執(zhí)行更新操作*/CREATE TRIGGER tD_GOODS AFTER DELETE ON GOODS for each row ERwin Builtin 2010年12月28日 4:13:58 DELETE trigger on GOODS DECLARE NUMROWS INTEGER。BEGIN /* ERwin Builtin 2010年12月28日 4:13:58 */ /* GOODS R/5 RESERVE on parent delete restrict */ /* ERWIN_RELATION:CHECKSUM=00028f71, PARENT_OWNER=, PARENT_TABLE=GOODS CHILD_OWNER=, CHILD_TABLE=RESERVE P2C_VERB_PHRASE=R/5, C2P_VERB_PHRASE=, FK_CONSTRAINT=R_5, FK_COLUMNS=NUM */ SELECT count(*) INTO NUMROWS FROM RESERVE WHERE /* %JoinFKPK(RESERVE,:%Old, = , AND) */ = :。 IF (NUMROWS 0) THEN raise_application_error( 20001, 39。Cannot delete GOODS because RESERVE exists.39。 )。 END IF。 /* ERwin Builtin 2010年12月28日 4:13:58 */ /* GOODS R/10 SELL on parent delete restrict */ /* ERWIN_RELATION:CHECKSUM=00000000, PARENT_OWNER=, PARENT_TABLE=GOODS CHILD_OWNER=, CHILD_TABLE=SELL P2C_VERB_PHRASE=R/10, C2P_VERB_PHRASE=, FK_CONSTRAINT=R_10, FK_COLUMNS=NUM */ SELECT count(*) INTO NUMROWS FROM SELL WHERE /* %JoinFKPK(SELL,:%Old, = , AND) */ = :。 IF (NUMROWS 0) THEN raise_application_error( 20001, 39。Cannot delete GOODS because SELL exists.39。 )。 END IF。 /* ERwin Builtin 2010年12月28日 4:13:58 */ /* GOODS R/14 STORE on parent delete restrict */ /* ERWIN_RELATION:CHECKSUM=00000000, PARENT_OWNER=, PARENT_TABLE=GOODS CHILD_OWNER=, CHILD_TABLE=STORE P2C_VERB_PHRASE=R/14, C2P_VERB_PHRASE=, FK_CONSTRAINT=R_14, FK_COLUMNS=NUM */ SELECT count(*) INTO NUMROWS FROM STORE WHERE /* %JoinFKPK(STORE,:%Old, = , AND) */ = :。 IF (NUMROWS 0) THEN raise_application_error( 20001, 39。Cannot delete GOODS because STORE exists.39。 )。 END IF。 ERwin Builtin 2010年12月28日 4:13:58END。//* 在GOODS表上創(chuàng)建更新觸發(fā)器，在GOODS（被參照表）中更新記錄時(shí)，若造成了與RESERVE（參照表）中對(duì)應(yīng)NUM的不一致，則拒絕執(zhí)行更新操作。同樣，若造成了與 SELL（參照表），也拒絕執(zhí)行更新操作。同樣，若造成了與 STORE（參照表），也拒絕執(zhí)行更新操作 */CREATE TRIGGER tU_GOODS AFTER UPDATE ON GOODS for each row ERwin Builtin 2010年12月28日 4:13:58 UPDATE trigger on GOODS DECLARE NUMROWS INTEGER。BEGIN /* ERwin Builtin 2010年12月28日 4:13:58 */ /* GOODS R/5 RESERVE on parent update restrict */ /* ERWIN_RELATION:CHECKSUM=0002f63f, PARENT_OWNER=, PARENT_TABLE=GOODS CHILD_OWNER=, CHILD_TABLE=RESERVE P2C_VERB_PHRASE=R/5, C2P_VERB_PHRASE=, FK_CONSTRAINT=R_5, FK_COLUMNS=NUM */ IF /* %JoinPKPK(:%Old,:%New, , OR ) */ THEN SELECT count(*) INTO NUMROWS FROM RESERVE WHERE /* %JoinFKPK(RESERVE,:%Old, = , AND) */ = :。 IF (NUMROWS 0) THEN raise_application_error( 20005, 39。Cannot update GOODS because RESERVE exists.39。 )。 END IF。 END IF。 /* ERwin Builtin 2010年12月28日 4:13:58 */ /* GOODS R/10 SELL on parent update restrict */ /* ERWIN_RELATION:CHECKSUM=00000000, PARENT_OWNER=, PARENT_TABLE=GOODS CHILD_OWNER=, CHILD_TABLE=SELL P2C_VERB_PHRASE=R/10, C2P_VERB_PHRASE=, FK_CONSTRAINT=R_10, FK_COLUMNS=NUM */ IF /* %JoinPKPK(:%Old,:%New, , OR ) */ THEN SELECT count(*) INTO NUMROWS FROM SELL WHERE /* %JoinFKPK(SELL,:%Old, = , AND) */ = :。 IF (NUMROWS 0) THEN raise_application_error( 20005, 39。Cannot update GOODS because SELL exists.39。 )。 END IF。 END IF。 /* ERwin Builtin 2010年12月28日 4:13:58 */ /* GOODS R/14 STORE on parent update restrict */ /* ERWIN_RELATION:CHECKSUM=00000000, PARENT_OWNER=, PARENT_TABLE=GOODS CHILD_OWNER=, CHILD_TABLE=STORE P2C_VERB_PHRASE=R/14, C2P_VERB_PHRASE=, FK_CONSTRAINT=R_14, FK_COLUMNS=NUM */ IF /* %JoinPKPK(:%Old,:%New, , OR ) */ THEN SELECT count(*) INTO NUMROWS FROM STORE WHERE /* %JoinFKPK(STORE,:%Old, = , AND) */ = :。 IF (NUMROWS 0) THEN raise_application_error( 20005, 39。Cannot update GOODS because STORE exists.39。 )。 END IF。 END IF。 ERwin Builtin 2010年12月28日 4:13:58END。//* 在RESERVE表上創(chuàng)建插入觸發(fā)器，在RESERVE（被參照表）中插入記錄時(shí)，若造成了與STORAGE（參照表）中對(duì)應(yīng). SNUM的不一致，則拒絕執(zhí)行插入操作。同樣，若造成了與 GOODS（參照表）中對(duì)應(yīng). SNUM的不一致，也拒絕執(zhí)行插入操作。*/CREATE TRIGGER tI_RESERVE BEFORE INSERT ON RESERVE for each row ERwin Builtin 2010年12月28日 4:13:58 INSERT trigger on RESERVE DECLARE NUMROWS INTEGER。BEGIN /* ERwin Builtin 2010年12月28日 4:13:58 */ /* STORAGE R/3 RESERVE on child insert restrict */ /* ERWIN_RELATION:CHECKSUM=0001d7a3, PARENT_OWNER=, PARENT_TABLE=STORAGE CHILD_OWNER=, CHILD_TABLE=RESERVE P2C_VERB_PHRASE=R/3, C2P_VERB_PHRASE=, FK_CONSTRAINT=R_3, FK_COLUMNS=SNUM */ SELECT count(*) INTO NUMROWS FROM STORAGE WHERE /* %JoinFKPK(:%New,STORAGE, = , AND) */ : = 。 IF ( /* %NotnullFK(:%New, IS NOT NULL AND) */ NUMROWS = 0 ) THEN raise_application_error( 20002, 39。Cannot insert RESERVE because STORAGE does not exist.39。 )。 END IF。 /* ERwin Builtin 2010年12月28日 4:13:58 */ /* GOODS R/5 RESERVE on child insert restrict */ /* ERWIN_RELATION:CHECKSUM=00000000, PARENT_OWNER=, PARENT_TABLE=GOODS CHILD_OWNER=, CHILD_TABLE=RESERVE P2C_VERB_PHRASE=R/5, C2P_VERB_PHRASE=, FK_CONSTRAINT=R_5, FK_COLUMNS=NUM */ SELECT count(*) INTO NUMROWS FROM GOODS WHERE /* %JoinFKPK(:%N