- ORACLEPACKAGE包详解
-
- 包是一组相关过程、函数、变量、常量#SinaEditor_Temp_FontName、类型和游标等PL/SQL程序设计元素的组合。包具有面向对象设计的特点，是对这些PL/SQL程序设计元素的封装。一个包由两个分开的部分组成：
- (1)包package声明或定义：包定义部分是创建包的规范说明，声明包内数据类型、变量、常量、游标等元素。这部分也是为使用者提供了透明的接口。
- (2)包体packpagebody:包体是包定义部分的具体实现。
- (3)将有联系的对象打成包,方便使用
- (4)包中对象包括储存过程,函数,游标,自定义类型和变量,可以在PL_SQL块中应用这些对象.
- 定义包头:
- ----------------------------------------------------------------------------------------------
- createorreplacepackage<Package_name>is
- typeTypeName>isDatatype>;--定义类型
- --Publicconstantdeclarations
- ConstantName>constant>:=Value>;--声明常量
- --Publicvariabledeclarations
- VariableName>>;--数据类型
- --Publicfunctionandproceduredeclarations
- functionFunctionName>(Parameter>)return>;--函数
- end>;
- 定义包体:
- createorreplacepackagebody --Privatetypedeclarations
- type --Privateconstantdeclarations
- >
- --Privatevariabledeclarations
- --Functionandprocedureimplementations
- function>is--函数的具体内容
- LocalVariable>;
- begin
- Statement return(Result>);
- end;
- --Initialization--初始化包体,每次调用时被初始化
- end
- 只有当包头编辑成功后才能编辑包体.其中的函数名与过程名须和包头中的函数过程一样.
- 1包说明和包体必须有相同的名字
- 2包的开始没有begin语句，与存储过程和函数不同。
- 3在包的说明部分定义函数和过程的名称和参数，具体实现在包体中定义。
- 4在包内声明常量、变量、类型定义、异常、及游标时不使用declare。
- 5包内的过程和函数的定义不要createorreplace语句。
- 6包声明和包体两者分离。
- 包头(Package)与包体(Packagebody)的应用
- 包的作用:根据出生年月返回年龄functionGetage,返回工资functionGetsalary
- --创建环境
- CreateTableT_PsnSalary--工资表
- (
- Fpsncodevarchar(4)default'',--个人代码
- Fpsndescvarchar(20)default'',--描述
- FpsnBirthvarchar(20)default'',--生日
- FpsnSalarynumber(8,2)--工资
- );
- --添加数据
- InsertintoT_PsnSalary(Fpsncode,Fpsndesc,FpsnBirth,FpsnSalary)Values('C001','张三','1986.01.10',1100);
- InsertintoT_PsnSalary(Fpsncode,FpsnSalary)Values('C002','李四','1980.10.10',3000);
- commit;
- --创建包头
- createorreplacepackagepackage_demois
- functionGetage(birthstvarchar,birthendvarchar)returninteger;
- functionGetsalary(VFpsncodevarchar)returnnumber;
- endpackage_demo;
- --创建包体
- createorreplacepackagebodypackage_demois
- is
- V_birthinteger;
- ToDateEndDate;
- Toyearnumber(4);
- Tomonthnumber(4);
- Fromyearnumber(4);
- Frommonthnumber(4);
- if(birthend='')or(birthendisnull)then
- selectsysdateintoToDateEndfromdual;--得到系统时间
- endif;
- Toyear:=to_number(to_char(ToDateEnd,'YYYY'));--得到最后年月
- Tomonth:=to_number(to_char(ToDateEnd,'MM'));
- Fromyear:=to_number(substr(birthst,1,4));--计算的年月
- Frommonth:=to_number(substr(birthst,6,2));
- ifTomonth-Frommonth>0then
- V_birth:=Toyear-fromyear;
- else
- V_birth:=Toyear-fromyear-1;
- endif;
- return(V_birth);
- endGetage;
- functiongetSalary(VFpsncodevarchar)returnnumber--返回工资情况
- V_psnSalarynumber(8,2);
- begin
- SelectFpsnSalaryintoV_psnSalaryfromT_PsnSalarywhereFpsncode=VFpsncode;
- return(V_psnSalary);
- endgetSalary;
- endpackage_demo;
- selecta.*,package_demo.Getage(Fpsnbirth,'')agefromT_psnsalarya;--调用包得到年龄功能
- selectpackage_demo.getsalary('C001')fromdual;--代码得到工资
（编辑：李大同）
【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!
|
