validate_score.sql

OReilly Oracle PL SQL Programming第4版源代码

/*-- validate_score.sql */
CREATE OR REPLACE TRIGGER validate_score
AFTER INSERT OR UPDATE ON frame
FOR EACH ROW
BEGIN
  IF :NEW.strike = 'Y' AND
     :NEW.score < 10 THEN
       RAISE_APPLICATION_ERROR(-20001,'ERROR: Score For Strike Must Be >= 10');
  ELSIF :NEW.spare = 'Y' AND
        :NEW.score < 10 THEN
       RAISE_APPLICATION_ERROR(-20001,'ERROR: Score For Spare Must Be >= 10');
  ELSIF :NEW.strike = 'Y' AND
        :NEW.spare = 'Y' THEN
       RAISE_APPLICATION_ERROR(-20001,'ERROR: Cannot Enter Spare And Strike For Same Frame');
  END IF;
END;
/


/*======================================================================
| Supplement to the third edition of Oracle PL/SQL Programming by Steven
| Feuerstein with Bill Pribyl, Copyright (c) 1997-2002 O'Reilly &
| Associates, Inc. To submit corrections or find more code samples visit
| http://www.oreilly.com/catalog/oraclep3/
*/