examplecreate or replace trigger TUB_CGXYZX before update of CGXYZ05 on tablename for each row declare INTEGRITY_ERROR EXCEPTION; ERRNO INTEGER; ERRMSG CHAR(200); begin IF UPDATING('字段') AND (:NEW.字段1>:OLD.字段2) AND (:OLD.字段2>0) THEN ERRNO := -20005; ERRMSG := '??'||:OLD.字段3||'????????????!'; RAISE INTEGRITY_ERROR; END IF; EXCEPTION WHEN INTEGRITY_ERROR THEN RAISE_APPLICATION_ERROR(ERRNO, ERRMSG); end TUB_CGXYZX;
before update of CGXYZ05
on tablename
for each row
declare
INTEGRITY_ERROR EXCEPTION;
ERRNO INTEGER;
ERRMSG CHAR(200);
begin
IF UPDATING('字段') AND (:NEW.字段1>:OLD.字段2) AND (:OLD.字段2>0) THEN
ERRNO := -20005;
ERRMSG := '??'||:OLD.字段3||'????????????!';
RAISE INTEGRITY_ERROR;
END IF;
EXCEPTION
WHEN INTEGRITY_ERROR THEN
RAISE_APPLICATION_ERROR(ERRNO, ERRMSG);
end TUB_CGXYZX;