5.27.txt

来自「delphi renyuanguanlixinxioxitong」· 文本 代码 · 共 14 行

CREATE OR REPLACE PROCEDURE comm_error(eno VARCHAR2)
IS
  v_comm employee.comm%TYPE;
BEGIN
  SELECT comm INTO v_comm FROM employee WHERE employeeno=eno;
  IF v_comm IS NULL THEN
    RAISE_APPLICATION_ERROR(-20001,'该员工无补助！');
  END IF;  
  EXCEPTION
    WHEN NO_DATA_FOUND THEN
      dbms_output.put_line('该员工不存在！');
END comm_error;
/