技术标签: 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;
文章浏览阅读5.8k次。在大数据的发展当中,大数据技术生态的组件,也在不断地拓展开来,而其中的Hive组件,作为Hadoop的数据仓库工具,可以实现对Hadoop集群当中的大规模数据进行相应的数据处理。今天我们的大数据入门分享,就主要来讲讲,Hive应用场景。关于Hive,首先需要明确的一点就是,Hive并非数据库,Hive所提供的数据存储、查询和分析功能,本质上来说,并非传统数据库所提供的存储、查询、分析功能。Hive..._hive应用场景
文章浏览阅读496次。Zblog是由Zblog开发团队开发的一款小巧而强大的基于Asp和PHP平台的开源程序,但是插件市场上的Zblog采集插件,没有一款能打的,要么就是没有SEO文章内容处理,要么就是功能单一。很少有适合SEO站长的Zblog采集。人们都知道Zblog采集接口都是对Zblog采集不熟悉的人做的,很多人采取模拟登陆的方法进行发布文章,也有很多人直接操作数据库发布文章,然而这些都或多或少的产生各种问题,发布速度慢、文章内容未经严格过滤,导致安全性问题、不能发Tag、不能自动创建分类等。但是使用Zblog采._zblog 网页采集插件
文章浏览阅读2.4k次,点赞2次,收藏2次。restUI页面提交1.1 添加上传jar包1.2 提交任务job1.3 查看提交的任务2. 命令行提交./flink-1.9.3/bin/flink run -c com.qu.wc.StreamWordCount -p 2 FlinkTutorial-1.0-SNAPSHOT.jar3. 命令行查看正在运行的job./flink-1.9.3/bin/flink list4. 命令行查看所有job./flink-1.9.3/bin/flink list --all._flink定时运行job
文章浏览阅读1k次,点赞2次,收藏6次。这个项目是基于STM32的LED闪烁项目,主要目的是让学习者熟悉STM32的基本操作和编程方法。在这个项目中,我们将使用STM32作为控制器,通过对GPIO口的控制实现LED灯的闪烁。这个STM32 LED闪烁的项目是一个非常简单的入门项目,但它可以帮助学习者熟悉STM32的编程方法和GPIO口的使用。在这个项目中,我们通过对GPIO口的控制实现了LED灯的闪烁。LED闪烁是STM32入门课程的基础操作之一,它旨在教学生如何使用STM32开发板控制LED灯的闪烁。_嵌入式stm32闪烁led实验总结
文章浏览阅读63次。本文介绍了安装和部署Debezium的详细步骤,并演示了如何将Debezium服务托管到systemctl以进行方便的管理。本文将详细介绍如何安装和部署Debezium,并将其服务托管到systemctl。解压缩后,将得到一个名为"debezium"的目录,其中包含Debezium的二进制文件和其他必要的资源。注意替换"ExecStart"中的"/path/to/debezium"为实际的Debezium目录路径。接下来,需要下载Debezium的压缩包,并将其解压到所需的目录。
文章浏览阅读4.4k次。需求:在诗词曲文项目中,诗词整篇朗读的时候,文章没有读完会因为屏幕熄灭停止朗读。要求:在文章没有朗读完毕之前屏幕常亮,读完以后屏幕常亮关闭;1.权限配置:设置电源管理的权限。
文章浏览阅读2.3k次。目标检测简介、评估标准、经典算法_目标检测
文章浏览阅读6.3k次,点赞4次,收藏9次。实训时需要安装SQL server2008 R所以我上网上找了一个.exe 的安装包链接:https://pan.baidu.com/s/1_FkhB8XJy3Js_rFADhdtmA提取码:ztki注:解压后1.04G安装时Microsoft需下载.NET,更新安装后会自动安装如下:点击第一个傻瓜式安装,唯一注意的是在修改路径的时候如下不可修改:到安装实例的时候就可以修改啦数据..._sqlserver 127 0 01 无法连接
文章浏览阅读7.4k次。1. Object.keys(item); 获取到了key之后就可以遍历的时候直接使用这个进行遍历所有的key跟valuevar infoItem={ name:'xiaowu', age:'18',}//的出来的keys就是[name,age]var keys=Object.keys(infoItem);2. 通常用于以下实力中 <div *ngFor="let item of keys"> <div>{{item}}.._js 遍历对象的key
文章浏览阅读2.2w次,点赞51次,收藏310次。粒子群算法求解路径规划路径规划问题描述 给定环境信息,如果该环境内有障碍物,寻求起始点到目标点的最短路径, 并且路径不能与障碍物相交,如图 1.1.1 所示。1.2 粒子群算法求解1.2.1 求解思路 粒子群优化算法(PSO),粒子群中的每一个粒子都代表一个问题的可能解, 通过粒子个体的简单行为,群体内的信息交互实现问题求解的智能性。 在路径规划中,我们将每一条路径规划为一个粒子,每个粒子群群有 n 个粒 子,即有 n 条路径,同时,每个粒子又有 m 个染色体,即中间过渡点的_粒子群算法路径规划
文章浏览阅读353次。所谓稳健的评估指标,是指在评估的过程中数据的轻微变化并不会显著的影响一个统计指标。而不稳健的评估指标则相反,在对交易系统进行回测时,参数值的轻微变化会带来不稳健指标的大幅变化。对于不稳健的评估指标,任何对数据有影响的因素都会对测试结果产生过大的影响,这很容易导致数据过拟合。_rar 海龟
文章浏览阅读607次,点赞2次,收藏7次。–基于STM32F103ZET6的UART通讯实现一、什么是IAP,为什么要IAPIAP即为In Application Programming(在应用中编程),一般情况下,以STM32F10x系列芯片为主控制器的设备在出厂时就已经使用J-Link仿真器将应用代码烧录了,如果在设备使用过程中需要进行应用代码的更换、升级等操作的话,则可能需要将设备返回原厂并拆解出来再使用J-Link重新烧录代码,这就增加了很多不必要的麻烦。站在用户的角度来说,就是能让用户自己来更换设备里边的代码程序而厂家这边只需要提供给_value line devices connectivity line devices