技术标签: Oracle Certification Oracle 11g OCP每日一题专栏
正确答案:AD
这张图描述了包规范和包主体。表明包规规范提当着包主体的接口。包规范和包主体中都可以声明变量、类型和组件。在包规规范中声明的变量、类型和组件会被发布,而仅在包主体内声明的变量、类型和组件则是局部组件。在组件实现内定义的命名块是私有模块,或者是局部函数和过程的黑盒内的部分。
当在包规范中声明了包函数和过程时,外部PL/SQL块可调用它们。仅在包体主体中声明的组件通过它们的包声明调用发布组件。
当在包规范中定义用户自定义数据类型时,它们就对其它所有PL/SQL块公有可用。
当在包体中定义用户自定义数据类型时,它们就对在包体中实现的PL/SQL块私有可用。
无论使用的是包规范还是包主体,变量和类型的实现方法式都是相同的。
这张图是说明黑盒的重载的工作方。在第一个签名中,第二个参数是CLOB,第三个参数是DATE,而它们在第二个签名中的位置调了个儿。示例ADDING函数的图将VARCHAR2参数显示成两个圆漏斗,将NUMBER参数显示成两个方漏斗。
包主体:
包主体包含在包规范中声明实现.一切都必须完全相符,包括形参的默认值。在Oracle9i之前可以在规范中声明形参,但是不完全强制在包主体中实现它们。所以从Oracle8i迁移到更新的版本之前需要检查一下(如果还没有检查的话)代码某些部分。
包主体原型与包规范原型非常相似。包主体几乎可以声明包规范设置的一切,除了一件事外:不能在包主体内定义函数的PRAAGMA。任何这样的企图都会引发PLS-00708错误,该项错误表明必须把它们放在包规范中。
只要不同于包规范中所声明的内空,就可以使用包级异常的EXCEPTION_INIT PRAGMA指令。也可以重写在包规范中声明的一个变量。可以通过在包主体中再次声明这个变量来重写。这样,就使包主体不能访问变量的这两个副本。当试图编制译包主体时,在包主体内对声明了两次变量的任何引用都会引发PLS-00371异常。该异常表明,至多只允许声明变量一次。其意图似乎是表明不应当利用这个行为,而包主体的成功编译很可能是一个潜在的BUG。
在包主体中声明的包级变量不同于在包规中声明的包级变量。不能在包之外访问包级变量。只有包规范发布的函数和过程可以访问包级变量。这使得这些变量非常像实例变量,因为它们在对包函数与过程的调用之间保持了状态。至少,从第一次调用直到会话结束或因为留时间过长被推出SGA,它们保持了它们的状态。
举个实际工作中的例子:
创建包规范:
CREATE OR REPLACE PACKAGE EBS_TRADE IS
-- Éú³É´íÎóÐÅÏ¢
PROCEDURE MakeErrorMessage(Head IN EBSHEADOBJECT, ErrorCode IN VARCHAR2,
ResBuffer OUT VARCHAR2);
PROCEDURE MakeCancelMessage(Head IN EBSHEADOBJECT, ErrorCode IN VARCHAR2,
ResBuffer IN VARCHAR2);
PROCEDURE PrintLogInfo(Head IN EBSHEADOBJECT, Info IN VARCHAR2);
-- ¼ÓÃܺ¯Êý
FUNCTION EncryptPassword(iOldPass IN VARCHAR2) RETURN VARCHAR2;
FUNCTION EncryptPassword6(iOldPass IN VARCHAR2) RETURN VARCHAR2;
-- ¼ÓÃÜÊÚȨÂ뺯Êý
FUNCTION EncryptAuth(iAuthCode IN VARCHAR2,
iHdCode IN VARCHAR2) RETURN VARCHAR2;
-- »ñÈ¡6λËæ»úÊý
FUNCTION GetRandNum RETURN NUMBER;
PROCEDURE WriteElapsed(Head IN EBSHEADOBJECT);
END EBS_TRADE;
创建包主体
CREATE OR REPLACE PACKAGE BODY EBS_TRADE IS
-- »ñÈ¡Êý¾Ý¿âÖеĴíÎóÐÅÏ¢
PROCEDURE MakeErrorMessage(Head IN EbsHeadObject, ErrorCode IN VARCHAR2,
ResBuffer OUT VARCHAR2)
AS
PRAGMA AUTONOMOUS_TRANSACTION;
time_end NUMBER;
BEGIN
time_end:=DBMS_UTILITY.GET_TIME;
UPDATE BASE_STREAM_LOG SET STATE = 1,RETCODE=ErrorCode,ELAPSED=(time_end-Head.time_begin) WHERE STREAMID = Head.StreamId;
-- Õâ¸öÊÇÄÚ²¿ÊÂÎñ£¬½øÐÐÌá½»
COMMIT;
SELECT LPAD(Head.serno,13,'0') || RETCODE || RETMESSAGE INTO ResBuffer FROM BASE_RET_INFO
WHERE RETCODE = ErrorCode;
EXCEPTION
WHEN NO_DATA_FOUND THEN
ResBuffer := LPAD(Head.serno,13,'0') ||ErrorCode || 'δ֪´íÎó´úÂë';
END MakeErrorMessage;
PROCEDURE MakeCancelMessage(Head IN EbsHeadObject, ErrorCode IN VARCHAR2,
ResBuffer IN VARCHAR2)
AS
PRAGMA AUTONOMOUS_TRANSACTION;
time_end NUMBER;
BEGIN
time_end:=DBMS_UTILITY.GET_TIME;
UPDATE BASE_STREAM_LOG SET STATE = 1,RETCODE=ErrorCode,ELAPSED=(time_end-Head.time_begin) WHERE STREAMID = Head.StreamId;
-- Õâ¸öÊÇÄÚ²¿ÊÂÎñ£¬½øÐÐÌá½»
COMMIT;
--SELECT LPAD(Head.serno,13,'0') || RETCODE || RETMESSAGE INTO ResBuffer FROM BASE_RET_INFO
-- WHERE RETCODE = ErrorCode;
EXCEPTION
WHEN NO_DATA_FOUND THEN
--ResBuffer := LPAD(Head.serno,13,'0') ||ErrorCode || 'δ֪´íÎó´úÂë';
ROLLBACK;
RETURN;
END MakeCancelMessage;
PROCEDURE WriteElapsed(Head IN EbsHeadObject)
AS
PRAGMA AUTONOMOUS_TRANSACTION;
time_end NUMBER;
BEGIN
time_end:=DBMS_UTILITY.GET_TIME;
UPDATE BASE_STREAM_LOG SET ELAPSED=(time_end-Head.time_begin)||'ºÁÃë' WHERE STREAMID = Head.StreamId;
-- Õâ¸öÊÇÄÚ²¿ÊÂÎñ£¬½øÐÐÌá½»
COMMIT;
END WriteElapsed;
PROCEDURE PrintLogInfo(Head IN EBSHEADOBJECT, Info IN VARCHAR2)
AS
FileHandle UTL_FILE.file_type;
HeadInfo VARCHAR(2000);
BEGIN
FileHandle := UTL_FILE.fopen('FILESERVERDIR','PrintLogInfo.dbg', 'a', 2000);
HeadInfo := '[½»Ò×' || Head.TradeType || Head.TradeCode
|| '][ȇȡ' || sys_context('USERENV', 'SESSIONID')
|| '][ʱ¼ä'|| to_char(SYSDATE, 'YYYY-MM-DD HH24:MI:SS') || ']';
UTL_FILE.put_line(FileHandle, HeadInfo);
UTL_FILE.put_line(FileHandle, ' ' || Info);
UTL_FILE.fflush(FileHandle);
UTL_FILE.fclose(FileHandle);
END PrintLogInfo;
FUNCTION EncryptPassword6(iOldPass IN VARCHAR2) RETURN VARCHAR2 IS
Result VARCHAR2(6);
Temp VARCHAR2(6);
c CHAR(1);
c1 CHAR(1);
c2 CHAR(1);
c3 CHAR(1);
c4 CHAR(1);
c5 CHAR(1);
c6 CHAR(1);
BEGIN
IF LENGTHB(iOldPass) < 6 THEN
Temp := LPAD(iOldPass, 6, '0');
ELSIF LENGTHB(iOldPass) > 6 THEN
Temp := SUBSTRB(iOldPass, 1, 6);
ELSE
Temp := iOldPass;
END IF;
c := SUBSTRB(Temp, 5, 1);
IF c = '0' THEN
c1 := '0';
ELSE
c1 :=CHR(106 - ASCII(c));
END IF;
c := SUBSTRB(Temp, 4, 1);
IF c = '0' THEN
c2 := '0';
ELSE
c2 :=CHR(106 - ASCII(c));
END IF;
c := SUBSTRB(Temp, 1, 1);
IF c = '0' THEN
c3 := '0';
ELSE
c3 :=CHR(106 - ASCII(c));
END IF;
c := SUBSTRB(Temp, 6, 1);
IF c = '0' THEN
c4 := '0';
ELSE
c4 :=CHR(106 - ASCII(c));
END IF;
c := SUBSTRB(Temp, 3, 1);
IF c = '0' THEN
c5 := '0';
ELSE
c5 :=CHR(106 - ASCII(c));
END IF;
c := SUBSTRB(Temp, 2, 1);
IF c = '0' THEN
c6 := '0';
ELSE
c6 := CHR(106 - ASCII(c));
END IF;
Result := c1 || c2 || c3 || c4 || c5 || c6;
RETURN Result;
END EncryptPassword6;
-- ¼ÓÃÜÃÜÂë
FUNCTION EncryptPassword(iOldPass IN VARCHAR2) RETURN VARCHAR2 IS
Result VARCHAR2(8);
Temp VARCHAR2(8);
c CHAR(1);
c1 CHAR(1);
c2 CHAR(1);
c3 CHAR(1);
c4 CHAR(1);
c5 CHAR(1);
c6 CHAR(1);
C7 CHAR(1);
C8 CHAR(1);
BEGIN
IF LENGTHB(iOldPass) < 8 THEN
Temp := LPAD(iOldPass, 8, '0');
ELSIF LENGTHB(iOldPass) > 8 THEN
Temp := SUBSTRB(iOldPass, 1, 8);
ELSE
Temp := iOldPass;
END IF;
c := SUBSTRB(Temp, 5, 1);
IF c = '0' THEN
c1 := '0';
ELSE
c1 :=CHR(106 - ASCII(c));
END IF;
c := SUBSTRB(Temp, 4, 1);
IF c = '0' THEN
c2 := '0';
ELSE
c2 :=CHR(106 - ASCII(c));
END IF;
c := SUBSTRB(Temp, 1, 1);
IF c = '0' THEN
c3 := '0';
ELSE
c3 :=CHR(106 - ASCII(c));
END IF;
c := SUBSTRB(Temp, 6, 1);
IF c = '0' THEN
c4 := '0';
ELSE
c4 :=CHR(106 - ASCII(c));
END IF;
c := SUBSTRB(Temp, 3, 1);
IF c = '0' THEN
c5 := '0';
ELSE
c5 :=CHR(106 - ASCII(c));
END IF;
c := SUBSTRB(Temp, 2, 1);
IF c = '0' THEN
c6 := '0';
ELSE
c6 := CHR(106 - ASCII(c));
END IF;
c := SUBSTRB(Temp, 7, 1);
IF c = '0' THEN
c7 := '0';
ELSE
c7 := CHR(106 - ASCII(c));
END IF;
c := SUBSTRB(Temp, 8, 1);
IF c = '0' THEN
c8 := '0';
ELSE
c8 := CHR(106 - ASCII(c));
END IF;
Result := c1 || c2 || c3 || c4 || c5 || c6 || c7 || c8 ;
RETURN Result;
END EncryptPassword;
/*Éú³ÉËæ»úÊý*/
FUNCTION GetRandNum RETURN NUMBER
IS
ResultNumber NUMBER(6);
BEGIN
ResultNumber := CEIL(DBMS_RANDOM.VALUE() * 1000000);
IF ResultNumber < 100000 THEN
ResultNumber := ResultNumber + 100000;
END IF;
RETURN ResultNumber;
END GetRandNum;
-- ¼ÓÃÜÊÚȨÂë
FUNCTION EncryptAuth(
iAuthCode IN VARCHAR2, iHdCode IN VARCHAR2) RETURN VARCHAR2
AS
AuthCode2 VARCHAR2(6);
SoundChar VARCHAR2(32);
TransChar VARCHAR2(32);
BEGIN
AuthCode2 := EBS_TRADE.EncryptPassword6(iAuthCode);
SoundChar := SOUNDEX(iHdcode);
TransChar := TRANSLATE(iHdcode, '0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ',
'0123456789');
RETURN SoundChar || substr(iHdCode, 1, 3) || AuthCode2|| TransChar;
END EncryptAuth;
END;
文章浏览阅读331次。第一部分:准备工作1 安装虚拟机2 安装centos73 安装JDK以上三步是准备工作,至此已经完成一台已安装JDK的主机第二部分:准备3台虚拟机以下所有工作最好都在root权限下操作1 克隆上面已经有一台虚拟机了,现在对master进行克隆,克隆出另外2台子机;1.1 进行克隆21.2 下一步1.3 下一步1.4 下一步1.5 根据子机需要,命名和安装路径1.6 ..._创建一个hadoop项目
文章浏览阅读1.7k次。心脏滴血漏洞HeartBleed CVE-2014-0160 是由heartbeat功能引入的,本文从深入码层面的分析该漏洞产生的原因_heartbleed代码分析
文章浏览阅读1.4k次。前言ofd是国家文档标准,其对标的文档格式是pdf。ofd文档是容器格式文件,ofd其实就是压缩包。将ofd文件后缀改为.zip,解压后可看到文件包含的内容。ofd文件分析工具下载:点我下载。ofd文件解压后,可以看到如下内容: 对于xml文件,可以用文本工具查看。但是对于印章文件(Seal.esl)、签名文件(SignedValue.dat)就无法查看其内容了。本人开发一款ofd内容查看器,..._signedvalue.dat
文章浏览阅读1.8w次,点赞29次,收藏313次。整体系统设计本设计主要是对ADC和DAC的使用,主要实现功能流程为:首先通过串口向FPGA发送控制信号,控制DAC芯片tlv5618进行DA装换,转换的数据存在ROM中,转换开始时读取ROM中数据进行读取转换。其次用按键控制adc128s052进行模数转换100次,模数转换数据存储到FIFO中,再从FIFO中读取数据通过串口输出显示在pc上。其整体系统框图如下:图1:FPGA数据采集系统框图从图中可以看出,该系统主要包括9个模块:串口接收模块、按键消抖模块、按键控制模块、ROM模块、D.._基于fpga的信息采集
文章浏览阅读2.5w次。1.背景错误信息:-- [http-nio-9904-exec-5] o.s.c.n.z.filters.post.SendErrorFilter : Error during filteringcom.netflix.zuul.exception.ZuulException: Forwarding error at org.springframework.cloud..._com.netflix.zuul.exception.zuulexception
文章浏览阅读358次。1.介绍图的相关概念 图是由顶点的有穷非空集和一个描述顶点之间关系-边(或者弧)的集合组成。通常,图中的数据元素被称为顶点,顶点间的关系用边表示,图通常用字母G表示,图的顶点通常用字母V表示,所以图可以定义为: G=(V,E)其中,V(G)是图中顶点的有穷非空集合,E(G)是V(G)中顶点的边的有穷集合1.1 无向图:图中任意两个顶点构成的边是没有方向的1.2 有向图:图中..._给定一个邻接矩阵未必能够造出一个图
文章浏览阅读321次。(十二)、WDS服务器安装通过前面的测试我们会发现,每次安装的时候需要加域光盘映像,这是一个比较麻烦的事情,试想一个上万个的公司,你天天带着一个光盘与光驱去给别人装系统,这将是一个多么痛苦的事情啊,有什么方法可以解决这个问题了?答案是肯定的,下面我们就来简单说一下。WDS服务器,它是Windows自带的一个免费的基于系统本身角色的一个功能,它主要提供一种简单、安全的通过网络快速、远程将Window..._doc server2012上通过wds+mdt无人值守部署win11系统.doc
文章浏览阅读219次。python–xlrd/xlwt/xlutilsxlrd只能读取,不能改,支持 xlsx和xls 格式xlwt只能改,不能读xlwt只能保存为.xls格式xlutils能将xlrd.Book转为xlwt.Workbook,从而得以在现有xls的基础上修改数据,并创建一个新的xls,实现修改xlrd打开文件import xlrdexcel=xlrd.open_workbook('E:/test.xlsx') 返回值为xlrd.book.Book对象,不能修改获取sheett_xlutils模块可以读xlsx吗
文章浏览阅读8.2w次,点赞267次,收藏656次。运行Selenium出现'WebDriver' object has no attribute 'find_element_by_id'或AttributeError: 'WebDriver' object has no attribute 'find_element_by_xpath'等定位元素代码错误,是因为selenium更新到了新的版本,以前的一些语法经过改动。..............._unresolved attribute reference 'find_element_by_id' for class 'webdriver
文章浏览阅读198次。一:模态窗口//父页面JSwindow.showModalDialog(ifrmehref, window, 'dialogWidth:550px;dialogHeight:150px;help:no;resizable:no;status:no');//子页面获取父页面DOM对象//window.showModalDialog的DOM对象var v=parentWin..._jquery获取父window下的dom对象
文章浏览阅读1.7w次,点赞15次,收藏129次。算法(algorithm)是解决一系列问题的清晰指令,也就是,能对一定规范的输入,在有限的时间内获得所要求的输出。 简单来说,算法就是解决一个问题的具体方法和步骤。算法是程序的灵 魂。二、算法的特征1.可行性 算法中执行的任何计算步骤都可以分解为基本可执行的操作步,即每个计算步都可以在有限时间里完成(也称之为有效性) 算法的每一步都要有确切的意义,不能有二义性。例如“增加x的值”,并没有说增加多少,计算机就无法执行明确的运算。 _算法
文章浏览阅读1.5k次,点赞18次,收藏26次。网络安全的标准和规范是网络安全领域的重要组成部分。它们为网络安全提供了技术依据,规定了网络安全的技术要求和操作方式,帮助我们构建安全的网络环境。下面,我们将详细介绍一些主要的网络安全标准和规范,以及它们在实际操作中的应用。_网络安全标准规范