跪求触发器问题

Question

create or replace trigger bas_bomhead_delete
  before delete on bas_bomhead
REFERENCING OLD AS oldvalues   for each row
declare
  varcount integer;
  -- local variables here
begin
  varcount:=0;
  select count(*) into varcount from BAS_BomBody where f_GoodsID=:oldvalues.f_GoodsID;  if varcount!=0 then
    RAISE_APPLICATION_ERROR(-20600,'错误1');
   end if ;
  
end bas_bomhead_delete;
在BAS_BomBody 条件f_GoodsID=:oldvalues.f_GoodsID有数据的时候，跳不出错误，请问是什么原因？？

Answer 1

可能不是很多人知道 RAISE_APPLICATION_ERROR 的用途是什么，虽然从字面上已经猜到这个函数是干什么用的。今天在我们的业务库里发现了触发器错才看到这东西的用法的。
        其实 RAISE_APPLICATION_ERROR 是将应用程序专有的错误从服务器端转达到客户端应用程序。        RAISE_APPLICATION_ERROR 的声明：        PROCEDURE RAISE_APPLICATION_ERROR
                                                      ( error_number_in IN NUMBER, error_msg_in IN VARCHAR2);        里面的错误代码和内容，都是自定义的。说明是自定义，当然就不是系统中已经命名存在的错误类别，是属于一种自定义事务错误类型，才调用此函数。
        error_number_in 之容许从 -20000 到 -20999 之间，这样就不会与 ORACLE 的任何错误代码发生冲突。
        error_msg_in 的长度不能超过 2K，否则截取 2K。
举个例吧：
阻止小于18岁的用户增加到数据库 employee 表中CREATE OR REPALCE TRIGGER minimun_age_check
BEFORE INSERT ON employee
FOR EACH ROW
BEGIN
        IF ADD_MONTHS( :new.birth_date, 18*12) > SYSDATE
        THEN
               RAISE_APPLICATION_ERROR(-20001, 'Employees must at least eighteen years of age.');
        END IF;
END;
在客户端，你可以写一个类似下面的程序，来测试一下。
DECLARE      no_babies_allowed EXCEPTION;       /*将名称与用于触发器中的错误号码关联起来*/
       PRAGMA EXCEPTION_INIT(no_babies_allowed, -20001);BEGIN         INSERT INTO employee ....;EXCEPTION
         WHEN no_babies_allowed
         THEN
                /*
                || SQLERRM 将传递给内置过程 RAISE_APPLICATION_ERROR 的消息返回
                */
                DBMS_OUTPUT.PUT_LINE(SQLERRM);
END;