5.33.txt

delphi renyuanguanlixinxioxitong

CREATE OR REPLACE PACKAGE emp_package IS
 g_deptno VARCHAR2(3):='008';
 PROCEDURE add_employee(eno VARCHAR2,name VARCHAR2,deptno VARCHAR2,
 sex VARCHAR2 DEFAULT '男',edate DATE,wdate DATE,
 natno VARCHAR2,pno VARCHAR2,esal NUMBER,ecomm NUMBER
);
 PROCEDURE fire_employee(eno varchar2);
 FUNCTION get_sal(name VARCHAR2) RETURN NUMBER;  
END emp_package;