14(上)-过程、函数、包和触发器试卷.ppt

* 下面的例子显示了包EmployeePackage的包体： CREATE OR REPLACE PACKAGE BODY EmployeePackage AS --游标定义 CURSOR order_sal RETURN EmpRecType IS SELECT empno,sal FROM emp ORDER BY sal; --招聘雇员子程序代码 PROCEDURE HireEmployee(p_EmpNo emp.empno%TYPE, p_EName emp.ename%TYPE, p_Job emp.job%TYPE, p_Mgr emp.mgr%TYPE, p_HireDate emp.hiredate%TYPE, p_Sal emp.sal%TYPE, p_Comm m%TYPE, p_DeptNo emp.deptno%TYPE) IS BEGIN INSERT INTO emp(empno,ename,job,mgr, Hiredate,sal,comm,deptno) VALUES (p_EmpNo,p_EName,p_Job,p_Mgr, p_HireDate,p_Sal,p_Comm,p_DeptNo); END HireEmployee; --解雇雇员子程序代码 PROCEDURE FireEmployee(p_EmpNo emp.empno%TYPE)