5.29.txt

delphi renyuanguanlixinxioxitong

CREATE OR REPLACE PROCEDURE  query_sal
  (eno VARCHAR2,name OUT VARCHAR 2,salary IN OUT NUMBER)
IS
v_sal NUMBER;
BEGIN
  SELECT employeename,sal INTO name,v_sal
  FROM employee WHERE employeeno=eno;
  salary:=salary+v_sal;
EXCEPTION
  WHEN NO_DATA_FOUND THEN
    raise_application_error(-20000,'该雇员不存在');
END query_sal;