【正文】 20002, 39。 /* 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(:%New,GOODS, = , AND) */ : = 。 END IF。*/CREATE TRIGGER tU_RESERVE AFTER UPDATE ON RESERVE for each row ERwin Builtin 2010年12月28日 4:13:58 UPDATE trigger on RESERVE DECLARE NUMROWS INTEGER。 )。Cannot update RESERVE because GOODS does not exist.39。//* 在_SELL表上創(chuàng)建插入觸發(fā)器，在_SELL（被參照表）中插入記錄時，若造成了與GOODS（參照表）中對應NUM的不一致，則拒絕執(zhí)行插入操作。BEGIN /* ERwin Builtin 2010年12月28日 4:13:58 */ /* GOODS R/10 SELL on child insert restrict */ /* ERWIN_RELATION:CHECKSUM=0002deb1, 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 GOODS WHERE /* %JoinFKPK(:%New,GOODS, = , AND) */ : = 。 END IF。 )。Cannot insert SELL because CLERK does not exist.39。//* 在SELL表上創(chuàng)建更新觸發(fā)器，在SELL（參照表）中更新記錄時，若造成了與GOODS（被參照表）中對應NUM的不一致，則拒絕執(zhí)行更新操作。 IF ( /* %NotnullFK(:%New, IS NOT NULL AND) */ NUMROWS = 0 ) THEN raise_application_error( 20007, 39。 /* ERwin Builtin 2010年12月28日 4:13:58 */ /* CUSTOMERS R/12 SELL on child update restrict */ /* ERWIN_RELATION:CHECKSUM=00000000, PARENT_OWNER=, PARENT_TABLE=CUSTOMERS CHILD_OWNER=, CHILD_TABLE=SELL P2C_VERB_PHRASE=R/12, C2P_VERB_PHRASE=, FK_CONSTRAINT=R_12, FK_COLUMNS=CNUM */ SELECT count(*) INTO NUMROWS FROM CUSTOMERS WHERE /* %JoinFKPK(:%New,CUSTOMERS, = , AND) */ : = 。 END IF。 )。*/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。 )。*/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。 )。//* 在STORE r表上創(chuàng)建插入觸發(fā)器，在STORE（參照表）中插入記錄時，若GOODS（被參照表）中沒有相應的NUM，則拒絕執(zhí)行插入操作。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) */ : = 。 END IF。 )。Cannot insert STORE because CLERK does not exist.39。///* 在STORE表上創(chuàng)建更新觸發(fā)器，在STORE（參照表）中更新記錄時，若造成了與GOODS（被參照表）中對應NUM的不一致，則拒絕執(zhí)行更新操作。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) */ : = 。同樣，若造成了與CLERK（被參照表）中對應ANUM的不一致，也拒絕執(zhí)行更新操作。 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 GOODS does not exist.39。同樣，若CLERK（被參照表）中沒有相應的ANUM，則拒絕執(zhí)行插入操作。 END IF。 IF (NUMROWS 0) THEN raise_application_error( 20005, 39。 ERwin Builtin 2010年12月28日 4:13:58END。 IF (NUMROWS 0) THEN raise_application_error( 20001, 39。 ERwin Builtin 2010年12月28日 4:13:58END。 IF ( /* %NotnullFK(:%New, IS NOT NULL AND) */ NUMROWS = 0 ) THEN raise_application_error( 20007, 39。Cannot update SELL because CUSTOMERS does not exist.39。 )。同樣，若造成了與CLERK（被參照表）中對應LNUM的不一致，也拒絕執(zhí)行更新操作 */CREATE TRIGGER tU_SELL AFTER UPDATE ON SELL for each row ERwin Builtin 2010年12月28日 4:13:58 UPDATE trigger on SELL DECLARE NUMROWS INTEGER。 END IF。 /* ERwin Builtin 2010年12月28日 4:13:58 */ /* CLERK R/13 SELL on child insert 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( 20002, 39。Cannot insert SELL because GOODS does not exist.39。同樣，若CLERK（被參照表）中沒有相應的LNUM，則拒絕執(zhí)行插入操作。 END IF。 /* ERwin Builtin 2010年12月28日 4:13:58 */ /* GOODS R/5 RESERVE on child update 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