在本章中，我们将讨论PL/SQL中的包.包是模式对象，它们对逻辑上相关的PL/SQL类型，变量和子程序进行分组.
包将有两个必需部分 :
包装规格
包装正文或定义
规范是包的接口.它只是 DECLARES 可以从包外引用的类型，变量，常量，异常，游标和子程序.换句话说，它包含有关包内容的所有信息，但不包括子程序的代码.
规范中放置的所有对象都称为 public 对象.任何不在包规范中但在包体中编码的子程序称为私有对象.
以下代码片段显示了具有单个过程的包规范.您可以在包中定义许多全局变量和多个过程或函数.
CREATE PACKAGE cust_sal AS PROCEDURE find_sal(c_id customers.id%type); END cust_sal; /
当在SQL提示符下执行上述代码时，它会产生以下结果 :
Package created.
包体具有包规范和其他私有声明中声明的各种方法的代码，隐藏在包外的代码中.
CREATE PACKAGE BODY 语句用于创建包体.以下代码段显示了上面创建的 cust_sal 包的包体声明.我假设我们已经在我们的数据库中创建了CUSTOMERS表，如 PL/SQL - 变量章节所述.
CREATE OR REPLACE PACKAGE BODY cust_sal AS
PROCEDURE find_sal(c_id customers.id%TYPE) IS
c_sal customers.salary%TYPE;
BEGIN
SELECT salary INTO c_sal
FROM customers
WHERE id = c_id;
dbms_output.put_line('Salary: '|| c_sal);
END find_sal;
END cust_sal;
/当在SQL提示符下执行上述代码时，它会产生以下结果 :
Package body created.
使用以下语法访问包元素(变量，过程或函数) : ;
package_name.element_name;
考虑一下，我们已经在数据库模式中创建了上面的包，下面的程序使用 find_sal cust_sal 包的方法 :
DECLARE code customers.id%type := &cc_id; BEGIN cust_sal.find_sal(code); END; /
当在SQL提示符下执行上述代码时，它会提示输入客户ID，当您输入ID时，它会显示相应的工资如下:<
Enter value for cc_id: 1 Salary: 3000 PL/SQL procedure successfully completed.
以下程序提供了更完整的包.我们将使用存储在我们数据库中的CUSTOMERS表，其中包含以下记录和减号;
Select * from customers; +----+----------+-----+-----------+----------+ | ID | NAME | AGE | ADDRESS | SALARY | +----+----------+-----+-----------+----------+ | 1 | Ramesh | 32 | Ahmedabad | 3000.00 | | 2 | Khilan | 25 | Delhi | 3000.00 | | 3 | kaushik | 23 | Kota | 3000.00 | | 4 | Chaitali | 25 | Mumbai | 7500.00 | | 5 | Hardik | 27 | Bhopal | 9500.00 | | 6 | Komal | 22 | MP | 5500.00 | +----+----------+-----+-----------+----------+
CREATE OR REPLACE PACKAGE c_package AS -- Adds a customer PROCEDURE addCustomer(c_id customers.id%type, c_name customerS.No.ame%type, c_age customers.age%type, c_addr customers.address%type, c_sal customers.salary%type); -- Removes a customer PROCEDURE delCustomer(c_id customers.id%TYPE); --Lists all customers PROCEDURE listCustomer; END c_package; /
当在SQL提示符下执行上述代码时，它会创建上述包并显示以下结果 :
Package created.
CREATE OR REPLACE PACKAGE BODY c_package AS
PROCEDURE addCustomer(c_id customers.id%type,
c_name customerS.No.ame%type,
c_age customers.age%type,
c_addr customers.address%type,
c_sal customers.salary%type)
IS
BEGIN
INSERT INTO customers (id,name,age,address,salary)
VALUES(c_id, c_name, c_age, c_addr, c_sal);
END addCustomer;
PROCEDURE delCustomer(c_id customers.id%type) IS
BEGIN
DELETE FROM customers
WHERE id = c_id;
END delCustomer;
PROCEDURE listCustomer IS
CURSOR c_customers is
SELECT name FROM customers;
TYPE c_list is TABLE OF customerS.No.ame%type;
name_list c_list := c_list();
counter integer :=0;
BEGIN
FOR n IN c_customers LOOP
counter := counter +1;
name_list.extend;
name_list(counter) := n.name;
dbms_output.put_line('Customer(' ||counter|| ')'||name_list(counter));
END LOOP;
END listCustomer;
END c_package;
/以上示例使用嵌套表.我们将在下一章讨论嵌套表的概念.
当在SQL提示符下执行上述代码时，它会产生以下结果 :
Package body created.
以下程序使用包 c_package中声明和定义的方法.
DECLARE code customers.id%type:= 8; BEGIN c_package.addcustomer(7, 'Rajnish', 25, 'Chennai', 3500); c_package.addcustomer(8, 'Subham', 32, 'Delhi', 7500); c_package.listcustomer; c_package.delcustomer(code); c_package.listcustomer; END; /
当在SQL提示符下执行上述代码时，它会产生以下结果 :
Customer(1): Ramesh Customer(2): Khilan Customer(3): kaushik Customer(4): Chaitali Customer(5): Hardik Customer(6): Komal Customer(7): Rajnish Customer(8): Subham Customer(1): Ramesh Customer(2): Khilan Customer(3): kaushik Customer(4): Chaitali Customer(5): Hardik Customer(6): Komal Customer(7): Rajnish PL/SQL procedure successfully completed
