DELETE FROM emp WHERE empno=pempno;

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

       END delrec;

       FUNCTION selsal(pempno NUMBER) RETURN NUMBER

       IS

              vTotalSal NUMBER;

       BEGIN

              SELECT NVL(sal,0)+NVL(comm,0) INTO vTotalSal

              FROM emp

              WHERE empno=pempno;

              RETURN vTotalSal;

       END selsal;

       FUNCTION seldname(pempno NUMBER) RETURN VARCHAR2

       IS

              vdname dept.dname%TYPE;

       BEGIN

              SELECT dname INTO vdname

              FROM emp,dept

              WHERE empno=pempno AND emp.deptno=dept.deptno;

              RETURN vdname;

       END seldname;

END;

/

--执行包中的过程和函数

EXECUTE emppack.insrec(1111,''''Goldens'''',''''MANAGER'''',7698,''''2003-01-18'''',2000,400,30);

EXECUTE emppack.delrec(1111);

DECLARE

       salary NUMBER;

BEGIN

       salary:=emppack.selsal(7369);

       DBMS_OUTPUT.PUT_LINE(''''Total Salary is ''''||salary);

END;

/

DECLARE

       department VARCHAR2(30);

BEGIN

       department:=emppack.seldname(7369);

       DBMS_OUTPUT.PUT_LINE(''''Department name is ''''||department);

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