【正文】 pdate SELL because CUSTOMERS does not exist.39。 )。 END IF。 /* ERwin Builtin 2010年12月28日 4:13:58 */ /* CLERK R/13 SELL on child update restrict */ /* ERWIN_RELATION:CHECKSUM=00000000, PARENT_OWNER=, PARENT_TABLE=CLERK CHILD_OWNER=, CHILD_TABLE=SELL P2C_VERB_PHRASE=R/13, C2P_VERB_PHRASE=, FK_CONSTRAINT=R_13, FK_COLUMNS=LNUM */ SELECT count(*) INTO NUMROWS FROM CLERK WHERE /* %JoinFKPK(:%New,CLERK, = , AND) */ : = 。 IF ( /* %NotnullFK(:%New, IS NOT NULL AND) */ NUMROWS = 0 ) THEN raise_application_error( 20007, 39。Cannot update SELL because CLERK does not exist.39。 )。 END IF。 ERwin Builtin 2010年12月28日 4:13:58END。//* 在STORAGE表上創(chuàng)建刪除觸發(fā)器，在STORAGE（被參照表）中刪除記錄時(shí)，若RESERVE（參照表）中有對(duì)應(yīng)SNUM的記錄，則拒絕執(zhí)行刪除操作。*/CREATE TRIGGER tD_STORAGE AFTER DELETE ON STORAGE for each row ERwin Builtin 2010年12月28日 4:13:58 DELETE trigger on STORAGE DECLARE NUMROWS INTEGER。BEGIN /* ERwin Builtin 2010年12月28日 4:13:58 */ /* STORAGE R/3 RESERVE on parent delete restrict */ /* ERWIN_RELATION:CHECKSUM=0000c7d1, 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 RESERVE WHERE /* %JoinFKPK(RESERVE,:%Old, = , AND) */ = :。 IF (NUMROWS 0) THEN raise_application_error( 20001, 39。Cannot delete STORAGE because RESERVE exists.39。 )。 END IF。 ERwin Builtin 2010年12月28日 4:13:58END。//* 在STORAGE表上創(chuàng)建更新觸發(fā)器，在STORAGE（被參照表）中更新記錄時(shí)，若造成了與RESERVE（參照表）中對(duì)應(yīng)SNUM的不一致，則拒絕執(zhí)行更新操作。*/CREATE TRIGGER tU_STORAGE AFTER UPDATE ON STORAGE for each row ERwin Builtin 2010年12月28日 4:13:58 UPDATE trigger on STORAGE DECLARE NUMROWS INTEGER。BEGIN /* ERwin Builtin 2010年12月28日 4:13:58 */ /* STORAGE R/3 RESERVE on parent update restrict */ /* ERWIN_RELATION:CHECKSUM=0000ea3e, 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 */ 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 STORAGE because RESERVE exists.39。 )。 END IF。 END IF。 ERwin Builtin 2010年12月28日 4:13:58END。//* 在STORE r表上創(chuàng)建插入觸發(fā)器，在STORE（參照表）中插入記錄時(shí)，若GOODS（被參照表）中沒(méi)有相應(yīng)的NUM，則拒絕執(zhí)行插入操作。同樣，若FREEDERS（被參照表）中沒(méi)有相應(yīng)的FNUM，則拒絕執(zhí)行插入操作。同樣，若CLERK（被參照表）中沒(méi)有相應(yīng)的ANUM，則拒絕執(zhí)行插入操作。*/CREATE TRIGGER tI_STORE BEFORE INSERT ON STORE for each row ERwin Builtin 2010年12月28日 4:13:59 INSERT trigger on STORE DECLARE NUMROWS INTEGER。BEGIN /* ERwin Builtin 2010年12月28日 4:13:59 */ /* GOODS R/14 STORE on child insert restrict */ /* ERWIN_RELATION:CHECKSUM=0002de52, 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 GOODS WHERE /* %JoinFKPK(:%New,GOODS, = , AND) */ : = 。 IF ( /* %NotnullFK(:%New, IS NOT NULL AND) */ NUMROWS = 0 ) THEN raise_application_error( 20002, 39。Cannot insert STORE because GOODS does not exist.39。 )。 END IF。 /* ERwin Builtin 2010年12月28日 4:13:59 */ /* FREEDERS R/16 STORE on child insert restrict */ /* ERWIN_RELATION:CHECKSUM=00000000, PARENT_OWNER=, PARENT_TABLE=FREEDERS CHILD_OWNER=, CHILD_TABLE=STORE P2C_VERB_PHRASE=R/16, C2P_VERB_PHRASE=, FK_CONSTRAINT=R_16, FK_COLUMNS=FNUM */ SELECT count(*) INTO NUMROWS FROM FREEDERS WHERE /* %JoinFKPK(:%New,FREEDERS, = , AND) */ : = 。 IF ( /* %NotnullFK(:%New, IS NOT NULL AND) */ NUMROWS = 0 ) THEN raise_application_error( 20002, 39。Cannot insert STORE because FREEDERS does not exist.39。 )。 END IF。 /* ERwin Builtin 2010年12月28日 4:13:59 */ /* CLERK R/18 STORE on child insert restrict */ /* ERWIN_RELATION:CHECKSUM=00000000, PARENT_OWNER=, PARENT_TABLE=CLERK CHILD_OWNER=, CHILD_TABLE=STORE P2C_VERB_PHRASE=R/18, C2P_VERB_PHRASE=, FK_CONSTRAINT=R_18, FK_COLUMNS=ANUM */ SELECT count(*) INTO NUMROWS FROM CLERK WHERE /* %JoinFKPK(:%New,CLERK, = , AND) */ : = 。 IF ( /* %NotnullFK(:%New, IS NOT NULL AND) */ NUMROWS = 0 ) THEN raise_application_error( 20002, 39。Cannot insert STORE because CLERK does not exist.39。 )。 END IF。 ERwin Builtin 2010年12月28日 4:13:59END。///* 在STORE表上創(chuàng)建更新觸發(fā)器，在STORE（參照表）中更新記錄時(shí)，若造成了與GOODS（被參照表）中對(duì)應(yīng)NUM的不一致，則拒絕執(zhí)行更新操作。同樣，若造成了與FREEDERS（被參照表）中對(duì)應(yīng)FNUM的不一致，也拒絕執(zhí)行更新操作。同樣，若造成了與CLERK（被參照表）中對(duì)應(yīng)ANUM的不一致，也拒絕執(zhí)行更新操作。 */CREATE TRIGGER tU_STORE AFTER UPDATE ON STORE for each row ERwin Builtin 2010年12月28日 4:13:59 UPDATE trigger on STORE DECLARE NUMROWS INTEGER。BEGIN /* ERwin Builtin 2010年12月28日 4:13:59 */ /* GOODS R/14 STORE on child update restrict */ /* ERWIN_RELATION:CHECKSUM=0002d985, 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 GOODS WHERE /* %JoinFKPK(:%New,GOODS, = , AND) */ : = 。 IF ( /* %NotnullFK(:%New, IS NOT NULL AND) */ NUMROWS = 0 ) THEN raise_application