第五阶段

Q.编写一个数据包，它有两个函数和两个过程以操作“emp”表。

  该数据包要执行的任务为：

   插入一个新雇员；删除一个现有雇员；显示指定雇员的整体薪水（薪水+佣金）；显示指定雇员所在部门名称。

A.

CREATE OR REPLACE PACKAGE emppack AS

       PROCEDURE insrec(pempno emp.empno%TYPE,pename emp.ename%TYPE,

                                    pjob emp.job%TYPE,pmgr emp.mgr%TYPE,

                                    phiredate emp.hiredate%TYPE,psal emp.sal%TYPE,

                                    pcomm emp.comm%TYPE,pdeptno emp.deptno%TYPE);

       PROCEDURE delrec(pempno IN NUMBER);

       FUNCTION selsal(pempno NUMBER) RETURN NUMBER;

       FUNCTION seldname(pempno NUMBER) RETURN VARCHAR2;

END;

/

CREATE OR REPLACE PACKAGE BODY emppack AS

       PROCEDURE insrec(pempno emp.empno%TYPE,pename emp.ename%TYPE,

                                    pjob emp.job%TYPE,pmgr emp.mgr%TYPE,

                                    phiredate emp.hiredate%TYPE,psal emp.sal%TYPE,

                                    pcomm emp.comm%TYPE,pdeptno emp.deptno%TYPE)

       IS

       BEGIN

              INSERT INTO emp VALUES(pempno,pename,pjob,pmgr,phiredate,

                                                        psal,pcomm,pdeptno);

              DBMS_OUTPUT.PUT_LINE(''''1 record is created.'''');

       END insrec;

       PROCEDURE delrec(pempno IN NUMBER)

       IS

[1] [2] [3] [4]  下一页