5.32.txt

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

CREATE OR REPLACE FUNCTION get_enosal(name VARCHAR2,eno out VARCHAR2) RETURN NUMBER AS
  v_sal employee.sal%TYPE;
  V_eno employee.employeeno%TYPE;
BEGIN
  SELECT sal,employeeno INTO v_sal,v_eno FROM employee WHERE trim(employeename)=trim(name);
  RETURN(v_sal);
EXCEPTION
  WHEN NO_DATA_FOUND THEN
    raise_application_error(-20000,'该员工不存在！');
END get_enosal;
/