5.29.txt

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

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;