oracle10g 包

1. 包package
2. 包是一组相关过程、函数、变量、常量、类型和游标等PL/SQL程序设计元素的组合。包具有面向对象设计的特点，
3. 是对这些PL/SQL程序设计元素的封装。一个包由两个分开的部分组成：
4. (1)包package声明或定义：包定义部分是创建包的规范说明，声明包内数据类型、变量、常量、游标等元素。
5. 这部分也是为使用者提供了透明的接口。
6. (2)包体packpage boyd:包体是包定义部分的具体实现。
7. (3)将有联系的对象打成包,方便使用
8. (4)包中对象包括储存过程,函数,游标,自定义类型和变量,可以在PL_SQL块中应用这些对象.
10. 定义包头:
11. ----------------------------------------------------------------------------------------------
12. create or replace package <Package_name> is
13.   type <TypeName> is <Datatype>;--定义类型
14.   -- Public constant declarations
15.   <ConstantName> constant <Datatype> := <Value>;--声明常量
16.   -- Public variable declarations
17.   <VariableName> <Datatype>;  --数据类型
18.   -- Public function and procedure declarations
19.   function <FunctionName>(<Parameter> <Datatype>) return <Datatype>; --函数
20. end <Package_name>;
22. 定义包体:
23. ----------------------------------------------------------------------------------------------
24. create or replace package body <Package_name> is
25.   -- Private type declarations
26.   type <TypeName> is <Datatype>;
27.   -- Private constant declarations
28.   <ConstantName> constant <Datatype> := <Value>
29.   -- Private variable declarations
30.   <VariableName> <Datatype>;
31.   -- Function and procedure implementations
32.   function <FunctionName>(<Parameter> <Datatype>) return <Datatype> is --函数的具体内容
33.     <LocalVariable> <Datatype>;
34.   begin
35.     <Statement>;
36.     return(<Result>);
37.   end;
38. begin
39.   -- Initialization--初始化包体,每次调用时被初始化
40.   <Statement>;
41. end <Package_name>;
43. 只有当包头编辑成功后才能编辑包体.其中的函数名与过程名须和包头中的函数过程一样.
45. 1 包说明和包体必须有相同的名字
46. 2 包的开始没有begin语句，与存储过程和函数不同。
47. 3 在包的说明部分定义函数和过程的名称和参数，具体实现在包体中定义。
48. 4 在包内声明常量、变量、类型定义、异常、及游标时不使用declare。
49. 5 包内的过程和函数的定义不要create or replace语句。
50. 6 包声明和包体两者分离。
52. 包头(Package)与包体(Package body)的应用
54. 包的作用: 根据出生年月返回年龄function Getage,返回工资function Getsalary
55. --创建环境
56. Create Table T_PsnSalary  --工资表
57. (
58. Fpsncode varchar(4) default '',  --个人代码
59. Fpsndesc varchar(20) default '',  --描述
60. FpsnBirth varchar(20) default '', --生日
61. FpsnSalary number(8,2)            --工资
62. );
64. --添加数据
65. Insert into T_PsnSalary(Fpsncode,Fpsndesc,FpsnBirth,FpsnSalary) Values('C001','张三','1986.01.10',1100);
66. Insert into T_PsnSalary(Fpsncode,Fpsndesc,FpsnBirth,FpsnSalary) Values('C002','李四','1980.10.10',3000);
67. Insert into T_PsnSalary(Fpsncode,Fpsndesc,FpsnBirth,FpsnSalary) Values('C003','王五','1996.12.10',800);
68. commit;
70. --创建包头
71. create or replace package package_demo is
72.   function Getage(birthst varchar,birthend varchar) return integer;
73.   function Getsalary(VFpsncode varchar) return number;
74. end package_demo;
76. --创建包体
77. create or replace package body package_demo is
78.   function Getage(birthst varchar,birthend varchar) return integer --得到年龄函数
79.   is
80.      V_birth integer;
81.      ToDateEnd Date;
82.      Toyear number(4);
83.      Tomonth number(4);
84.      Fromyear number(4);
85.      Frommonth number(4);
86.   begin
87.     if (birthend='') or (birthend is null) then
88.     select sysdate into ToDateEnd from dual; --得到系统时间
89.     end if;
90.     Toyear := to_number(to_char(ToDateEnd,'YYYY')); --得到最后年月
91.     Tomonth := to_number(to_char(ToDateEnd,'MM'));
92.     Fromyear := to_number(substr(birthst,1,4));--计算的年月
93.     Frommonth := to_number(substr(birthst,6,2));
94.     if Tomonth-Frommonth>0 then V_birth:=Toyear-fromyear;
95.     else V_birth:=Toyear-fromyear-1;
96.     end if;
97.     return(V_birth);
98.   end Getage;
100.   function getSalary(VFpsncode varchar) return number--返回工资情况
101.   is
102.     V_psnSalary number(8,2);
103.   begin
104.     Select FpsnSalary into V_psnSalary from T_PsnSalary  where Fpsncode=VFpsncode;
105.     return(V_psnSalary);
106.   end getSalary;
107.   
108. end package_demo;
110. select a.*,package_demo.Getage(Fpsnbirth,'')age from T_psnsalary a;  --调用包得到年龄功能
111. select package_demo.getsalary('C001') from dual;                     --代码得到工资