创建包

包头：

CREATE OR REPLACE PACKAGE test_pkg IS

PROCEDURE update_sal(e_name VARCHAR2,newsal NUMBER);     --  定义一个函数

FUNCTION ann_income(e_name VARCHAR2) RETURN NUMBER;    -- 定义一个存储过程

END;

 

包体：

CREATE OR REPLACE PACKAGE BODY test_pkg IS

PROCEDURE update_sal(e_name VARCHAR2,newsal NUMBER)

IS

BEGIN

UPDATE emp1 SET sal=newsal WHERE ename=e_name;

END;

 

FUNCTION ann_income(e_name VARCHAR2)

RETURN NUMBER IS

annsal NUMBER;

BEGIN

SELECT sal*12 NVL(comm,0) INTO annsal FROM emp1

WHERE ename=e_name;

RETURN annsal;

END;

END;

 

注意：文中黄色区域，包头和包体的命名要一模一样

 

3、调用包

 

内部调用：即在指的包里调用，直接调，不用写：包名.；

外部调用：包名.函数，或者包名.存过。