PACKAGE(包)

01. 新建包
02. 加入/修改项
03. 删除项
04. 访问项
05. 查询包
06. 删除包

==============

01. 新建包
------------
进行创建:
SQL> CREATE PACKAGE ADDFUN_PKG
　2　IS
　3　END ADDFUN_PKG;
　4　/

程序包已创建。

进行包对象查看:
SQL> SELECT SUBSTR(OBJECT_NAME,0,10),STATUS,OBJECT_TYPE
　2　FROM USER_OBJECTS;

SUBSTR(OBJECT_NAME,0 STATUS　OBJECT_TYPE
-------------------- ------- ------------------
ADDFUN_PKG　　　　　 VALID　 PACKAGE
SP_STUDENT　　　　　 VALID　 PROCEDURE
STUDENT　　　　　　　VALID　 TABLE
V_STUDENT　　　　　　VALID　 VIEW

或：


伊图教程网[www.etoow.com]
http://www.etoow.com/html/2007-08/1186821958.html
SQL> SELECT SUBSTR(OBJECT_NAME,0,10),STATUS,OBJECT_TYPE
　2　FROM USER_OBJECTS
　3　WHERE OBJECT_TYPE='PACKAGE';

SUBSTR(OBJECT_NAME,0 STATUS　OBJECT_TYPE
-------------------- ------- ------------------
ADDFUN_PKG　　　　　 VALID　 PACKAGE


02. 加入/修改项
----------------
SQL> CREATE OR REPLACE PACKAGE ADDFUN_PKG
　2　AS
　3　FUNCTION FN_ADDONE(ANUM NUMBER) RETURN NUMBER;
　4　END;
　5　/

程序包已创建。


SQL> CREATE OR REPLACE PACKAGE BODY ADDFUN_PKG
　2　AS
　3
　4　FUNCTION FN_ADDONE(ANUM NUMBER) RETURN NUMBER
　5　　AS
　6　　BNUM NUMBER;
　7　　BEGIN
　8　　　BNUM := ANUM + 1;
　9　　　RETURN BNUM ;
10　END FN_ADDONE;
11
12　END ADDFUN_PKG;
13　/

程序包主体已创建。


03. 删除项
------------
需要重新定义包头及包体

需要查询包体：

04. 访问项
------------
SQL> SELECT USER1_ADB.ADDFUN_PKG.FN_ADDONE(2) AS VALUE FROM DUAL;

　　 VALUE
----------
　　　　 3

05. 查询包
----------
SQL> SELECT TEXT FROM USER_SOURCE
　2　WHERE NAME='ADDFUN_PKG'
　3　AND TYPE='PACKAGE BODY';

TEXT
----------------------------------------------------------
PACKAGE BODY ADDFUN_PKG
AS

FUNCTION FN_ADDONE(ANUM NUMBER) RETURN NUMBER

伊图教程网[www.etoow.com]
http://www.etoow.com/html/2007-08/1186821958-1.html
　 AS

　 BNUM NUMBER;
　 BEGIN
　　 BNUM := ANUM + 1;
　　 RETURN BNUM ;
END;


TEXT
----------------------------------------------------------
FUNCTION FN_ADDTWO(ANUM NUMBER) RETURN NUMBER
　 AS
　 BNUM NUMBER;
　 BEGIN
　　 BNUM := ANUM + 2;
　　 RETURN BNUM ;
END;

END ADDFUN_PKG;

已选择20行。

或：

SQL> SET LONG 1000
SQL> SET PAGES 1
SQL> SELECT DBMS_METADATA.GET_DDL('PACKAGE','ADDFUN_PKG') FROM DUAL;

06. 删除包
SQL> DROP PACKAGE ADDFUN_PKG;

程序包已丢弃。