5.24.txt

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

DECLARE
  e_integrity EXCEPTION;--定义异常类
  PRAGMA EXCEPTION_INIT(e_integrity,-2291);--关联异常
BEGIN
 UPDATE employee SET departmentno=&dno  WHERE employeeno='1990-003';
 EXCEPTION
  WHEN e_integrity THEN
    dbms_output.put_line('部门号不存在！');
END;
/