5.25.txt

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

DECLARE
  e_integrity EXCEPTION;
  e_no_employee EXCEPTION;
  PRAGMA EXCEPTION_INIT(e_integrity,-2291);
BEGIN
  UPDATE employee SET departmentno='008' WHERE employeeno='999';
  IF SQL%NOTFOUND THEN
     RAISE e_no_employee;
  END IF;  
  EXCEPTION
    WHEN e_integrity THEN
      dbms_output.put_line('该部门不存在！');
    WHEN e_no_employee THEN
      dbms_output.put_line('该员工不存在！');   
END;