一个简单的例子:
包头:
1 CREATE OR REPLACE PACKAGE TEST_PAC IS
2
3 -- AUTHOR : ADMINISTRATOR
4 -- CREATED : 2011-12-19 21:18:41
5 -- PURPOSE : 包含表的基本的增删改查操作
6
7 -- PUBLIC TYPE DECLARATIONS
8 TYPE EMP_RECORD IS RECORD(
9 EMPNO NUMBER(4),
10 ENAME VARCHAR2(10),
11 JOB VARCHAR2(9),
12 MGR NUMBER(4),
13 HIREDATE DATE,
14 SAL NUMBER(7, 2),
15 COMM NUMBER(7, 2),
16 DEPTNO NUMBER(2)
17
18 );
19 -- PUBLIC EXCEPTION
20 E_EMPNOTFOUND EXCEPTION;
21
22 -- PUBLIC CONSTANT DECLARATIONS
23 SUCCESS CONSTANT VARCHAR2(100) := 'SUCCESS';
24 FAIL CONSTANT VARCHAR2(100) := 'FAIL';
25
26 /*********************************************************
27 * 根据用户ID获取用户的名字
28 * 作者:董永江
29 * 时间：2011-12-19
30 **********************************************************/
31
32 END TEST_PAC;
包体：
1 CREATE OR REPLACE PACKAGE BODY TEST_PAC IS
2 /*********************************************************
3 根据用户ID获取用户的名字
4 作者:董永江
5 时间：2011-12-19
6 **********************************************************/
7 FUNCTION GETENAMEBYEMPNO(P_EMPNO EMP.EMPNO%TYPE) RETURN VARCHAR2 IS
8 V_ENAME EMP.ENAME%TYPE;
9 BEGIN
10 SELECT E.ENAME INTO V_ENAME FROM EMP E WHERE E.EMPNO = P_EMPNO;
11 IF SQL%ROWCOUNT = 0 THEN
12 RETURN TEST_PAC.FAIL;
13 RAISE E_EMPNOTFOUND;
14 END IF;
15 RETURN TEST_PAC.SUCCESS;
16 END GETENAMEBYEMPNO;
17 END TEST_PAC;
位置表示法和名称表示法：