5.28.txt

delphi renyuanguanlixinxioxitong

CREATE OR REPLACE PROCEDURE add_employee
(eno VARCHAR2,name VARCHAR2,deptno VARCHAR2, 
 sex VARCHAR2 DEFAULT '男',edate DATE,wdate DATE,
 natno VARCHAR2,pno VARCHAR2,esal NUMBER,ecomm NUMBER)
IS
  e_integerity EXCEPTION;
  PRAGMA exception_init(e_integerity,-2291);
BEGIN
  INSERT INTO employee VALUES(eno,name,deptno,sex,edate,wdate,
  natno,pno,esal,ecomm);
EXCEPTION
  WHEN DUP_VAL_ON_INDEX THEN
     raise_application_error(-20000,'雇员号不能重复');
  WHEN e_integerity THEN
    raise_application_error(-20001,'部门号不存在');       
END add_employee;