oracle 存储过程详细介绍(创建,删除存储过程,参数传递等)
oracle 创建,删除存储过程,参数传递,创建,删除存储函数,存储过程和函数的查看,包,系统包
认识存储过程和函数
存储过程和函数也是一种pl/sql块,是存入数据库的pl/sql块。但存储过程和函数不同于已经介绍过的pl/sql程序,我们通常把pl/sql程序称为无名块,而存储过程和函数是以命名的方式存储于数据库中的。和pl/sql程序相比,存储过程有很多优点,具体归纳如下:
* 存储过程和函数以命名的数据库对象形式存储于数据库当中。存储在数据库中的优点是很明显的,因为代码不保存在本地,用户可以在任何客户机上登录到数据库,并调用或修改代码。
* 存储过程和函数可由数据库提供安全保证,要想使用存储过程和函数,需要有存储过程和函数的所有者的授权,只有被授权的用户或创建者本身才能执行存储过程或调用函数。
* 存储过程和函数的信息是写入数据字典的,所以存储过程可以看作是一个公用模块,用户编写的pl/sql程序或其他存储过程都可以调用它(但存储过程和函数不能调用pl/sql程序)。一个重复使用的功能,可以设计成为存储过程,比如:显示一张工资统计表,可以设计成为存储过程;一个经常调用的计算,可以设计成为存储函数;根据雇员编号返回雇员的姓名,可以设计成存储函数。
* 像其他高级语言的过程和函数一样,可以传递参数给存储过程或函数,参数的传递也有多种方式。存储过程可以有返回值,也可以没有返回值,存储过程的返回值必须通过参数带回;函数有一定的数据类型,像其他的标准函数一样,我们可以通过对函数名的调用返回函数值。
存储过程和函数需要进行编译,以排除语法错误,只有编译通过才能调用。
创建和删除存储过程
创建存储过程,需要有create procedure或create any procedure的系统权限。该权限可由系统管理员授予。创建一个存储过程的基本语句如下:
create [or replace] procedure 存储过程名[(参数[in|out|in out] 数据类型...)]
{as|is}
[说明部分]
begin
可执行部分
[exception
错误处理部分]
end [过程名];
其中:
可选关键字or replace 表示如果存储过程已经存在,则用新的存储过程覆盖,通常用于存储过程的重建。
参数部分用于定义多个参数(如果没有参数,就可以省略)。参数有三种形式:in、out和in out。如果没有指明参数的形式,则默认为in。
关键字as也可以写成is,后跟过程的说明部分,可以在此定义过程的局部变量。
编写存储过程可以使用任何文本编辑器或直接在sql*plus环境下进行,编写好的存储过程必须要在sql*plus环境下进行编译,生成编译代码,原代码和编译代码在编译过程中都会被存入数据库。编译成功的存储过程就可以在oracle环境下进行调用了。
一个存储过程在不需要时可以删除。删除存储过程的人是过程的创建者或者拥有drop any procedure系统权限的人。删除存储过程的语法如下:
drop procedure 存储过程名;
如果要重新编译一个存储过程,则只能是过程的创建者或者拥有alter any procedure系统权限的人。语法如下:
alter procedure 存储过程名 compile;
执行(或调用)存储过程的人是过程的创建者或是拥有execute any procedure系统权限的人或是被拥有者授予execute权限的人。执行的方法如下:
方法1:
execute 模式名.存储过程名[(参数...)];
方法2:
begin
模式名.存储过程名[(参数...)];
end;
传递的参数必须与定义的参数类型、个数和顺序一致(如果参数定义了默认值,则调用时可以省略参数)。参数可以是变量、常量或表达式,用法参见下一节。
如果是调用本账户下的存储过程,则模式名可以省略。要调用其他账户编写的存储过程,则模式名必须要添加。
以下是一个生成和调用简单存储过程的训练。注意要事先授予创建存储过程的权限。
【训练1】 创建一个显示雇员总人数的存储过程。
步骤1:登录scott账户(或学生个人账户)。
步骤2:在sql*plus输入区中,输入以下存储过程:
create or replace procedure emp_count
as
v_total number(10);
begin
select count(*) into v_total from emp;
dbms_output.put_line('雇员总人数为:'||v_total);
end;
步骤3:按“执行”按钮进行编译。
如果存在错误,就会显示:
警告: 创建的过程带有编译错误。
如果存在错误,对脚本进行修改,直到没有错误产生。
如果编译结果正确,将显示:
过程已创建。
步骤4:调用存储过程,在输入区中输入以下语句并执行:
execute emp_count;
显示结果为:
雇员总人数为:14
pl/sql 过程已成功完成。
说明:在该训练中,v_total变量是存储过程定义的局部变量,用于接收查询到的雇员总人数。
注意:在sql*plus中输入存储过程,按“执行”按钮是进行编译,不是执行存储过程。
如果在存储过程中引用了其他用户的对象,比如表,则必须有其他用户授予的对象访问权限。一个存储过程一旦编译成功,就可以由其他用户或程序来引用。但存储过程或函数的所有者必须授予其他用户执行该过程的权限。
存储过程没有参数,在调用时,直接写过程名即可。
【训练2】 在pl/sql程序中调用存储过程。
步骤1:登录scott账户。
步骤2:授权student账户使用该存储过程,即在sql*plus输入区中,输入以下的命令:
grant execute on emp_count to student
授权成功。
步骤3:登录student账户,在sql*plus输入区中输入以下程序:
set serveroutput on
begin
scott.emp_count;
end;
步骤4:执行以上程序,结果为:
雇员总人数为:14
pl/sql 过程已成功完成。
说明:在本例中,存储过程是由scott账户创建的,studen账户获得scott账户的授权后,才能调用该存储过程。
注意:在程序中调用存储过程,使用了第二种语法。
【训练3】 编写显示雇员信息的存储过程emp_list,并引用emp_count存储过程。
步骤1:在sql*plus输入区中输入并编译以下存储过程:
create or replace procedure emp_list
as
cursor emp_cursor is
select empno,ename from emp;
begin
for emp_record in emp_cursor loop
dbms_output.put_line(emp_record.empno||emp_record.ename);
end loop;
emp_count;
end;
执行结果:
过程已创建。
步骤2:调用存储过程,在输入区中输入以下语句并执行:
execute emp_list
显示结果为:
7369smith
7499allen
7521ward
7566jones
执行结果:
雇员总人数为:14
pl/sql 过程已成功完成。
说明:以上的emp_list存储过程中定义并使用了游标,用来循环显示所有雇员的信息。然后调用已经成功编译的存储过程emp_count,用来附加显示雇员总人数。通过execute命令来执行emp_list存储过程。
【练习1】编写显示部门信息的存储过程dept_list,要求统计出部门个数。
参数传递
参数的作用是向存储过程传递数据,或从存储过程获得返回结果。正确的使用参数可以大大增加存储过程的灵活性和通用性。
参数的类型有三种,如下所示。
in 定义一个输入参数变量,用于传递参数给存储过程
out 定义一个输出参数变量,用于从存储过程获取数据
in out 定义一个输入、输出参数变量,兼有以上两者的功能
参数的定义形式和作用如下:
参数名 in 数据类型 default 值;
定义一个输入参数变量,用于传递参数给存储过程。在调用存储过程时,主程序的实际参数可以是常量、有值变量或表达式等。default 关键字为可选项,用来设定参数的默认值。如果在调用存储过程时不指明参数,则参数变量取默认值。在存储过程中,输入变量接收主程序传递的值,但不能对其进行赋值。
参数名 out 数据类型;
定义一个输出参数变量,用于从存储过程获取数据,即变量从存储过程中返回值给主程序。
在调用存储过程时,主程序的实际参数只能是一个变量,而不能是常量或表达式。在存储过程中,参数变量只能被赋值而不能将其用于赋值,在存储过程中必须给输出变量至少赋值一次。
参数名 in out 数据类型 default 值;
定义一个输入、输出参数变量,兼有以上两者的功能。在调用存储过程时,主程序的实际参数只能是一个变量,而不能是常量或表达式。default 关键字为可选项,用来设定参数的默认值。在存储过程中,变量接收主程序传递的值,同时可以参加赋值运算,也可以对其进行赋值。在存储过程中必须给变量至少赋值一次。
如果省略in、out或in out,则默认模式是in。
【训练1】 编写给雇员增加工资的存储过程change_salary,通过in类型的参数传递要增加工资的雇员编号和增加的工资额。
步骤1:登录scott账户。
步骤2:在sql*plus输入区中输入以下存储过程并执行:
create or replace procedure change_salary(p_empno in number default 7788,p_raise number default 10)
as
v_ename varchar2(10);
v_sal number(5);
begin
select ename,sal into v_ename,v_sal from emp where empno=p_empno;
update emp set sal=sal+p_raise where empno=p_empno;
dbms_output.put_line('雇员'||v_ename||'的工资被改为'||to_char(v_sal+p_raise));
commit;
exception
when others then
dbms_output.put_line('发生错误,修改失败!');
rollback;
end;
执行结果为:
过程已创建。
步骤3:调用存储过程,在输入区中输入以下语句并执行:
execute change_salary(7788,80)
显示结果为:
雇员scott的工资被改为3080
说明:从执行结果可以看到,雇员scott的工资已由原来的3000改为3080。
参数的值由调用者传递,传递的参数的个数、类型和顺序应该和定义的一致。如果顺序不一致,可以采用以下调用方法。如上例,执行语句可以改为:
execute change_salary(p_raise=>80,p_empno=>7788);
可以看出传递参数的顺序发生了变化,并且明确指出了参数名和要传递的值,=>运算符左侧是参数名,右侧是参数表达式,这种赋值方法的意义较清楚。
【练习1】创建插入雇员的存储过程insert_emp,并将雇员编号等作为参数。
在设计存储过程的时候,也可以为参数设定默认值,这样调用者就可以不传递或少传递参数了。
【训练2】 调用存储过程change_salary,不传递参数,使用默认参数值。
在sql*plus输入区中输入以下命令并执行:
execute change_salary
显示结果为:
雇员scott的工资被改为3090
说明:在存储过程的调用中没有传递参数,而是采用了默认值7788和10,即默认雇员号为7788,增加的工资为10。
【训练3】 使用out类型的参数返回存储过程的结果。
步骤1:登录scott账户。
步骤2:在sql*plus输入区中输入并编译以下存储过程:
create or replace procedure emp_count(p_total out number)
as
begin
select count(*) into p_total from emp;
end;
执行结果为:
1.过程已创建。
步骤3:输入以下程序并执行:
declare
v_empcount number;
begin
emp_count(v_empcount);
dbms_output.put_line('雇员总人数为:'||v_empcount);
end;
显示结果为:
雇员总人数为:14
pl/sql 过程已成功完成。
说明:在存储过程中定义了out类型的参数p_total,在主程序调用该存储过程时,传递了参数v_empcount。在存储过程中的select...into...语句中对p_total进行赋值,赋值结果由v_empcount变量带回给主程序并显示。
以上程序要覆盖同名的emp_count存储过程,如果不使用or replace选项,就会出现以下错误:
error 位于第 1 行:
ora-00955: 名称已由现有对象使用。
【练习2】创建存储过程,使用out类型参数获得雇员经理名。
【训练4】 使用in out类型的参数,给电话号码增加区码。
步骤1:登录scott账户。
步骤2:在sql*plus输入区中输入并编译以下存储过程:
create or replace procedure add_region(p_hpone_num in out varchar2)
as
begin
p_hpone_num:='0755-'||p_hpone_num;
end;
执行结果为:
过程已创建。
步骤3:输入以下程序并执行:
set serveroutput on
declare
v_phone_num varchar2(15);
begin
v_phone_num:='26731092';
add_region(v_phone_num);
dbms_output.put_line('新的电话号码:'||v_phone_num);
end;
显示结果为:
新的电话号码:0755-26731092
pl/sql 过程已成功完成。
说明:变量v_hpone_num既用来向存储过程传递旧电话号码,也用来向主程序返回新号码。新的号码在原来基础上增加了区号0755和-。
创建和删除存储函数
创建函数,需要有create procedure或create any procedure的系统权限。该权限可由系统管理员授予。创建存储函数的语法和创建存储过程的类似,即
create [or replace] function 函数名[(参数[in] 数据类型...)]
return 数据类型
{as|is}
[说明部分]
begin
可执行部分
return (表达式)
[exception
错误处理部分]
end [函数名];
其中,参数是可选的,但只能是in类型(in关键字可以省略)。
在定义部分的return 数据类型,用来表示函数的数据类型,也就是返回值的类型,此部分不可省略。
在可执行部分的return(表达式),用来生成函数的返回值,其表达式的类型应该和定义部分说明的函数返回值的数据类型一致。在函数的执行部分可以有多个return语句,但只有一个return语句会被执行,一旦执行了return语句,则函数结束并返回调用环境。
一个存储函数在不需要时可以删除,但删除的人应是函数的创建者或者是拥有drop any procedure系统权限的人。其语法如下:
drop function 函数名;
重新编译一个存储函数时,编译的人应是函数的创建者或者拥有alter any procedure系统权限的人。重新编译一个存储函数的语法如下:
alter procedure 函数名 compile;
函数的调用者应是函数的创建者或拥有execute any procedure系统权限的人,或是被函数的拥有者授予了函数执行权限的账户。函数的引用和存储过程不同,函数要出现在程序体中,可以参加表达式的运算或单独出现在表达式中,其形式如下:
变量名:=函数名(...)
【训练1】 创建一个通过雇员编号返回雇员名称的函数get_emp_name。
步骤1:登录scott账户。
步骤2:在sql*plus输入区中输入以下存储函数并编译:
create or replace function get_emp_name(p_empno number default 7788)
return varchar2
as
v_ename varchar2(10);
begin
elect ename into v_ename from emp where empno=p_empno;
return(v_ename);
exception
when no_data_found then
dbms_output.put_line('没有该编号雇员!');
return (null);
when too_many_rows then
dbms_output.put_line('有重复雇员编号!');
return (null);
when others then
dbms_output.put_line('发生其他错误!');
return (null);
end;
步骤3:调用该存储函数,输入并执行以下程序:
begin
dbms_output.put_line('雇员7369的名称是:'|| get_emp_name(7369));
dbms_output.put_line('雇员7839的名称是:'|| get_emp_name(7839));
end;
显示结果为:
雇员7369的名称是:smith
雇员7839的名称是:king
pl/sql 过程已成功完成。
说明:函数的调用直接出现在程序的dbms_output.put_line语句中,作为字符串表达式的一部分。如果输入了错误的雇员编号,就会在函数的错误处理部分输出错误信息。试修改雇员编号,重新运行调用部分。
【练习1】创建一个通过部门编号返回部门名称的存储函数get_dept_name。
【练习2】将函数的执行权限授予student账户,然后登录student账户调用。
存储过程和函数的查看
可以通过对数据字典的访问来查询存储过程或函数的有关信息,如果要查询当前用户的存储过程或函数的源代码,可以通过对user_source数据字典视图的查询得到。user_source的结构如下:
describe user_source
结果为:
名称 是否为空? 类型
------------------------------------------------------------- ------------- -----------------------
name varchar2(30)
type varchar2(12)
line number
text varchar2(4000)
说明:里面按行存放着过程或函数的脚本,name是过程或函数名,type 代表类型(procedure或function),line是行号,text 为脚本。
【训练1】 查询过程emp_count的脚本。
在sql*plus中输入并执行如下查询:
select text from user_source where name='emp_count';
结果为:
text
--------------------------------------------------------------------------------
procedure emp_count(p_total out number)
as
begin
select count(*) into p_total from emp;
end;
【训练2】 查询过程get_emp_name的参数。
在sql*plus中输入并执行如下查询:
describe get_emp_name
结果为:
function get_emp_name returns varchar2
参数名称 类型 输入/输出默认值?
----------------------------------------- ----------------------------------- ----------------- -------------
p_empno number(4) in default
【训练3】 在发生编译错误时,显示错误。
show errors
以下是一段编译错误显示:
line/col error
------------- -----------------------------------------------------------------
4/2 pl/sql: sql statement ignored
4/36 pls-00201: 必须说明标识符 'empp'
说明:查询一个存储过程或函数是否是有效状态(即编译成功),可以使用数据字典user_objects的status列。
【训练4】 查询emp_list存储过程是否可用:
select status from user_objects where object_name='emp_list';
结果为:
status
------------
valid
说明:valid表示该存储过程有效(即通过编译),invalid表示存储过程无效或需要重新编译。当oracle调用一个无效的存储过程或函数时,首先试图对其进行编译,如果编译成功则将状态置成valid并执行,否则给出错误信息。
当一个存储过程编译成功,状态变为valid,会不会在某些情况下变成invalid。结论是完全可能的。比如一个存储过程中包含对表的查询,如果表被修改或删除,存储过程就会变成无效invalid。所以要注意存储过程和函数对其他对象的依赖关系。
如果要检查存储过程或函数的依赖性,可以通过查询数据字典user_denpendencies来确定,该表结构如下:
describe user_dependencies;
结果:
名称 是否为空? 类型
-------------------------------------------------------------- ------------- ----------------------------
name not null varchar2(30)
type varchar2(12)
referenced_owner varchar2(30)
referenced_name varchar2(64)
referenced_type varchar2(12)
referenced_link_name varchar2(128)
schemaid number
dependency_type varchar2(4)
说明:name为实体名,type为实体类型,referenced_owner为涉及到的实体拥有者账户,referenced_name为涉及到的实体名,referenced_type 为涉及到的实体类型。
【训练5】 查询emp_list存储过程的依赖性。
select referenced_name,referenced_type from user_dependencies where name='emp_list';
执行结果:
referenced_name referenced_type
------------------------------------------------------------------------------------------ ----------------------------
standard package
sys_stub_for_purity_analysis package
dbms_output package
dbms_output synonym
dbms_output non-existent
emp table
emp_count procedure
说明:可以看出存储过程emp_list依赖一些系统包、emp表和emp_count存储过程。如果删除了emp表或emp_count存储过程,emp_list将变成无效。
还有一种情况需要我们注意:如果一个用户a被授予执行属于用户b的一个存储过程的权限,在用户b的存储过程中,访问到用户c的表,用户b被授予访问用户c的表的权限,但用户a没有被授予访问用户c表的权限,那么用户a调用用户b的存储过程是失败的还是成功的呢?答案是成功的。如果读者有兴趣,不妨进行一下实际测试。
包
包的概念和组成
包是用来存储相关程序结构的对象,它存储于数据字典中。包由两个分离的部分组成:包头(package)和包体(package body)。包头是包的说明部分,是对外的操作接口,对应用是可见的;包体是包的代码和实现部分,对应用来说是不可见的黑盒。
包中可以包含的程序结构如下所示。
过程(procudure) 带参数的命名的程序模块
函数(function) 带参数、具有返回值的命名的程序模块
变量(variable) 存储变化的量的存储单元
常量(constant) 存储不变的量的存储单元
游标(cursor) 用户定义的数据操作缓存区,在可执行部分使用
类型(type) 用户定义的新的结构类型
异常(exception) 在标准包中定义或由用户自定义,用于处理程序错误
说明部分可以出现在包的三个不同的部分:出现在包头中的称为公有元素,出现在包体中的称为私有元素,出现在包体的过程(或函数)中的称为局部变量。它们的性质有所不同,如下所示。
公有元素(public) 在包头中说明,在包体中具体定义 在包外可见并可以访问,对整个应用的全过程有效
私有元素(private) 在包体的说明部分说明 只能被包内部的其他部分访问
局部变量(local) 在过程或函数的说明部分说明 只能在定义变量的过程或函数中使用
在包体中出现的过程或函数,如果需要对外公用,就必须在包头中说明,包头中的说明应该和包体中的说明一致。
包有以下优点:
* 包可以方便地将存储过程和函数组织到一起,每个包又是相互独立的。在不同的包中,过程、函数都可以重名,这解决了在同一个用户环境中命名的冲突问题。
* 包增强了对存储过程和函数的安全管理,对整个包的访问权只需一次授予。
* 在同一个会话中,公用变量的值将被保留,直到会话结束。
* 区分了公有过程和私有过程,包体的私有过程增加了过程和函数的保密性。
* 包在被首次调用时,就作为一个整体被全部调入内存,减少了多次访问过程或函数的i/o次数。
创建包和包体
包由包头和包体两部分组成,包的创建应该先创建包头部分,然后创建包体部分。创建、删除和编译包的权限同创建、删除和编译存储过程的权限相同。
创建包头的简要语句如下:
create [or replace] package 包名
{is|as}
公有变量定义
公有类型定义
公有游标定义
公有异常定义
函数说明
过程说明
end;
创建包体的简要语法如下:
create [or replace] package body 包名
{is|as}
私有变量定义
私有类型定义
私有游标定义
私有异常定义
函数定义
过程定义
end;
包的其他操作命令包括:
删除包头:
drop package 包头名
删除包体:
drop package body 包体名
重新编译包头:
alter package 包名 compile package
重新编译包体:
alter package 包名 compile package body
在包头中说明的对象可以在包外调用,调用的方法和调用单独的过程或函数的方法基本相同,惟一的区别就是要在调用的过程或函数名前加上包的名字(中间用“.”分隔)。但要注意,不同的会话将单独对包的公用变量进行初始化,所以不同的会话对包的调用属于不同的应用。
系统包
oracle预定义了很多标准的系统包,这些包可以在应用中直接使用,比如在训练中我们使用的dbms_output包,就是系统包。put_line是该包的一个函数。常用系统包下所示。
dbms_output 在sql*plus环境下输出信息
dbms_ddl 编译过程函数和包
dbms_session 改变用户的会话,初始化包等
dbms_transaction 控制数据库事务
dbms_mail 连接oracle*mail
dbms_lock 进行复杂的锁机制管理
dbms_alert 识别数据库事件告警
dbms_pipe 通过管道在会话间传递信息
dbms_job 管理oracle的作业
dbms_lob 操纵大对象
dbms_sql 执行动态sql语句
包的应用
在sql*plus环境下,包和包体可以分别编译,也可以一起编译。如果分别编译,则要先编译包头,后编译包体。如果在一起编译,则包头写在前,包体在后,中间用“/”分隔。
可以将已经存在的存储过程或函数添加到包中,方法是去掉过程或函数创建语句的create or replace部分,将存储过程或函数复制到包体中 ,然后重新编译即可。
如果需要将私有过程或函数变成共有过程或函数的话,将过程或函数说明部分复制到包头说明部分,然后重新编译就可以了。
【训练1】 创建管理雇员信息的包employe,它具有从emp表获得雇员信息,修改雇员名称,修改雇员工资和写回emp表的功能。
步骤1:登录scott账户,输入以下代码并编译:
create or replace package employe --包头部分
is
procedure show_detail;
procedure get_employe(p_empno number);
procedure save_employe;
procedure change_name(p_newname varchar2);
procedure change_sal(p_newsal number);
end employe;
/
create or replace package body employe --包体部分
is
employe emp%rowtype;
-------------- 显示雇员信息 ---------------
procedure show_detail
as
begin
dbms_output.put_line(‘----- 雇员信息 -----');
dbms_output.put_line('雇员编号:'||employe.empno);
dbms_output.put_line('雇员名称:'||employe.ename);
dbms_output.put_line('雇员职务:'||employe.job);
dbms_output.put_line('雇员工资:'||employe.sal);
dbms_output.put_line('部门编号:'||employe.deptno);
end show_detail;
----------------- 从emp表取得一个雇员 --------------------
procedure get_employe(p_empno number)
as
begin
select * into employe from emp where empno=p_empno;
dbms_output.put_line('获取雇员'||employe.ename||'信息成功');
exception
when others then
dbms_output.put_line('获取雇员信息发生错误!');
end get_employe;
---------------------- 保存雇员到emp表 --------------------------
procedure save_employe
as
begin
update emp set ename=employe.ename, sal=employe.sal where empno=
employe.empno;
dbms_output.put_line('雇员信息保存完成!');
end save_employe;
---------------------------- 修改雇员名称 ------------------------------
procedure change_name(p_newname varchar2)
as
begin
employe.ename:=p_newname;
dbms_output.put_line('修改名称完成!');
end change_name;
---------------------------- 修改雇员工资 --------------------------
procedure change_sal(p_newsal number)
as
begin
employe.sal:=p_newsal;
dbms_output.put_line('修改工资完成!');
end change_sal;
end employe;
步骤2:获取雇员7788的信息:
set serveroutput on
execute employe.get_employe(7788);
结果为:
获取雇员scott信息成功
pl/sql 过程已成功完成。
步骤3:显示雇员信息:
execute employe.show_detail;
结果为:
------------------ 雇员信息 ------------------
雇员编号:7788
雇员名称:scott
雇员职务:analyst
雇员工资:3000
部门编号:20
pl/sql 过程已成功完成。
步骤4:修改雇员工资:
execute employe.change_sal(3800);
结果为:
修改工资完成!
pl/sql 过程已成功完成。
步骤5:将修改的雇员信息存入emp表
execute employe.save_employe;
结果为:
雇员信息保存完成!
pl/sql 过程已成功完成。
说明:该包完成将emp表中的某个雇员的信息取入内存记录变量,在记录变量中进行修改编辑,在确认显示信息正确后写回emp表的功能。记录变量employe用来存储取得的雇员信息,定义为私有变量,只能被包的内部模块访问。
【练习1】为包增加修改雇员职务和部门编号的功能。
阶段训练
下面的训练通过定义和创建完整的包emp_pk并综合运用本章的知识,完成对雇员表的插入、删除等功能,包中的主要元素解释如下所示。
程序结构 类 型 说 明
v_emp_count 公有变量 跟踪雇员的总人数变化,插入、删除雇员的同时修改该变量的值
init 公有过程 对包进行初始化,初始化雇员人数和工资修改的上、下限
list_emp 公有过程 显示雇员列表
insert_emp 公有过程 通过编号插入新雇员
delete_emp 公有过程 通过编号删除雇员
change_emp_sal 公有过程 通过编号修改雇员工资
v_message 私有变量 存放准备输出的信息
c_max_sal 私有变量 对工资修改的上限
c_min_sal 私有变量 对工资修改的下限
show_message 私有过程 显示私有变量v_message中的信息
exist_emp 私有函数 判断某个编号的雇员是否存在,该函数被insert_emp、delete_emp和change_emp_sal等过程调用
【训练1】 完整的雇员包emp_pk的创建和应用。
步骤1:在sql*plus中登录scott账户,输入以下包头和包体部分,按“执行”按钮编译:
create or replace package emp_pk
--包头部分
is
v_emp_count number(5);
--雇员人数
procedure init(p_max number,p_min number); --初始化
procedure list_emp;
--显示雇员列表
procedure insert_emp(p_empno number,p_enamevarchar2,p_job varchar2,
p_sal number);
--插入雇员
procedure delete_emp(p_empno number); --删除雇员
procedure change_emp_sal(p_empno number,p_sal number);
--修改雇员工资
end emp_pk;
/create or replace package body emp_pk
--包体部分
is
v_message varchar2(50); --显示信息
v_max_sal number(7); --工资上限
v_min_sal number(7); --工资下限
function exist_emp(p_empno number) return boolean; --判断雇员是否存在函数
procedure show_message; --显示信息过程
------------------------------- 初始化过程 ----------------------------
procedure init(p_max number,p_min number)
is
begin
select count(*) into v_emp_count from emp;
v_max_sal:=p_max;
v_min_sal:=p_min;
v_message:='初始化过程已经完成!';
show_message;
end init;
---------------------------- 显示雇员列表过程 ---------------------
procedure list_emp
is
begin
dbms_output.put_line('姓名 职务 工资');
for emp_rec in (select * from emp)
loop
dbms_output.put_line(rpad(emp_rec.ename,10,'')||rpad(emp_rec.job,10,' ')||to_char(emp_rec.sal));
end loop;
dbms_output.put_line('雇员总人数'||v_emp_count);
end list_emp;
----------------------------- 插入雇员过程 -----------------------------
procedureinsert_emp(p_empno number,p_enamevarchar2,p_job varchar2,p_sal number)
is
begin
if not exist_emp(p_empno) then
insert into emp(empno,ename,job,sal) values(p_empno,p_ename,p_job,p_sal);
commit;
v_emp_count:=v_emp_count+1;
v_message:='雇员'||p_empno||'已插入!';
else
v_message:='雇员'||p_empno||'已存在,不能插入!';
end if;
show_message;
exception
when others then
v_message:='雇员'||p_empno||'插入失败!';
show_message;
end insert_emp;
--------------------------- 删除雇员过程 --------------------
procedure delete_emp(p_empno number)
is
begin
if exist_emp(p_empno) then
delete from emp where empno=p_empno;
commit;
v_emp_count:=v_emp_count-1;
v_message:='雇员'||p_empno||'已删除!';
else
v_message:='雇员'||p_empno||'不存在,不能删除!';
end if;
show_message;
exception
when others then
v_message:='雇员'||p_empno||'删除失败!';
show_message;
end delete_emp;
--------------------------------------- 修改雇员工资过程 ------------------------------------
procedure change_emp_sal(p_empno number,p_sal number)
is
begin
if (p_sal>v_max_sal or p_sal<v_min_sal) then
v_message:='工资超出修改范围!';
elsif not exist_emp(p_empno) then
v_message:='雇员'||p_empno||'不存在,不能修改工资!';
else
update emp set sal=p_sal where empno=p_empno;
commit;
v_message:='雇员'||p_empno||'工资已经修改!';
end if;
show_message;
exception
when others then
v_message:='雇员'||p_empno||'工资修改失败!';
show_message;
end change_emp_sal;
---------------------------- 显示信息过程 ----------------------------
procedure show_message
is
begin
dbms_output.put_line('提示信息:'||v_message);
end show_message;
------------------------ 判断雇员是否存在函数 -------------------
function exist_emp(p_empno number)
return boolean
is
v_num number; --局部变量
begin
select count(*) into v_num from emp where empno=p_empno;
if v_num=1 then
return true;
else
return false;
end if;
end exist_emp;
-----------------------------
end emp_pk;
结果为:
1.程序包已创建。
2. 程序包主体已创建。
步骤2:初始化包:
set serveroutput on
execute emp_pk.init(6000,600);
显示为:
提示信息:初始化过程已经完成!
步骤3:显示雇员列表:
execute emp_pk.list_emp;
显示为:
姓名 职务 工资
smith clerk 1560
allen salesman 1936
ward salesman 1830
jones manager 2975
...
雇员总人数:14
pl/sql 过程已成功完成。
步骤4:插入一个新记录:
execute emp_pk.insert_emp(8001,'小王','clerk',1000);
显示结果为:
提示信息:雇员8001已插入!
pl/sql 过程已成功完成。
步骤5:通过全局变量v_emp_count查看雇员人数:
begin
dbms_output.put_line(emp_pk.v_emp_count);
end;
显示结果为:
15
pl/sql 过程已成功完成。
步骤6:删除新插入记录:
execute emp_pk.delete_emp(8001);
显示结果为:
提示信息:雇员8001已删除!
pl/sql 过程已成功完成。
再次删除该雇员:
execute emp_pk.delete_emp(8001);
结果为:
提示信息:雇员8001不存在,不能删除!
步骤7:修改雇员工资:
execute emp_pk.change_emp_sal(7788,8000);
显示结果为:
提示信息:工资超出修改范围!
pl/sql 过程已成功完成。
步骤8:授权其他用户调用包:
如果是另外一个用户要使用该包,必须由包的所有者授权,下面授予studen账户对该包的使用权:
grant execute on emp_pk to student;
每一个新的会话要为包中的公用变量开辟新的存储空间,所以需要重新执行初始化过程。两个会话的进程互不影响。
步骤9:其他用户调用包。
启动另外一个sql*plus,登录student账户,执行以下过程:
set serveroutput on
execute scott.emp_pk. emp_pk.init(5000,700);
结果为:
提示信息:初始化过程已经完成!
pl/sql 过程已成功完成。
说明:在初始化中设置雇员的总人数和修改工资的上、下限,初始化后v_emp_count为14人,插入雇员后v_emp_count为15人。v_emp_count为公有变量,所以可以在外部程序中使用dbms_output.put_line输出,引用时用emp_pk.v_emp_count的形式,说明所属的包。而私有变量v_max_sal和v_min_sal不能被外部访问,只能通过内部过程来修改。同样,exist_emp和show_message也是私有过程,也只能在过程体内被其他模块引用。
注意:在最后一个步骤中,因为student模式调用了scott模式的包,所以包名前要增加模式名scott。不同的会话对包的调用属于不同的应用,所以需要重新进行初始化。
练习
1.如果存储过程的参数类型为out,那么调用时传递的参数应该为:
a.常量 b.表达式 c.变量 d.都可以
2.下列有关存储过程的特点说法错误的是:
a.存储过程不能将值传回调用的主程序
b.存储过程是一个命名的模块
c.编译的存储过程存放在数据库中
d.一个存储过程可以调用另一个存储过程
3.下列有关函数的特点说法错误的是:
a.函数必须定义返回类型
b.函数参数的类型只能是in
c.在函数体内可以多次使用return语句
d.函数的调用应使用execute命令
4.包中不能包含的元素为:
a.存储过程 b.存储函数
c.游标 d.表
5.下列有关包的使用说法错误的是:
a.在不同的包内模块可以重名
b.包的私有过程不能被外部程序调用
c.包体中的过程和函数必须在包头部分说明
d.必须先创建包头,然后创建包体
推荐阅读
-
oracle 存储过程详细介绍(创建,删除存储过程,参数传递等)
-
在SQL Server 2005中创建CLR存储过程的详细介绍
-
MSSQL监控数据库的DDL操作(创建,修改,删除存储过程,创建,修改,删除表等)
-
oracle 存储过程详细介绍(创建,删除存储过程,参数传递等)
-
oracle存储过程详细介绍
-
MySQL数据库中如何在存储过程中通过传递的参数创建表
-
oracle存储过程中的select与参数详细说明
-
MyBatis 调用Oracle存储过程,使用Map传递参数
-
在SQL Server 2005中创建CLR存储过程的详细介绍
-
oracle死锁解锁和恢复删除的表、视图、存储过程、删除归档文件等