传送门（不用再辛苦百度实验报告啦，一键直达呦）
oracle实验1 oracle 基本操作
oracle实验2 oracle数据体系结构
oracle实验3 用户、方案的创建与管理
oracle实验4 表的创建与管理
oracle实验5 sql基本查询
oracle实验6 sql高级查询
oracle实验7 pl/sql编程基础
oracle实验8 存储过程与函数的创建
oracle实验9-10 索引与视图，序列和同义词的创建
oracle大作业下载
一、实验目的
1.掌握存储过程与函数的概念
2.能够熟练创建和调用存储过程与函数。
二、实验内容
- 教材：第八章实验和练习题（全做）
- 补充练习题：
- 编写函数get_salary，根据emp表中的员工编号，获取他的工资。输入参数为员工编号，如果找到该员工，屏幕显示已找到的信息，函数返回值为该员工的工资。如果找不到，捕获并处理异常，函数返回值为0。函数创建成功后，调用该函数查看效果。
- 编写函数get_cnt，根据输入参数部门编号，输出参数输出该部门的人数，返回值是该部门的工资总和。如果如果找不到，捕获并处理异常，函数返回值为0。函数创建成功后，调用该函数查看效果。
- 编写存储过程DelEmp，删除emp表中指定员工记录。输入参数为员工编号。如果找到该员工，则删除他的记录，并在屏幕显示该员工被删除。如果没找到，则使用异常处理。存储过程定义成功后，调用该存储过程查看结果。
- 编写存储过程QueryEmp，查询指定员工记录；输入参数为员工编号，输出参数是员工的姓名和工资。如果找到该员工，在屏幕显示该员工已经查到。如果没找到，则捕获异常并处理。存储过程定义成功后，调用该存储过程查看结果。
三、实验环境
Windows 10， Oracle 11g
四、实验步骤
1.创建存储过程，根据职工编号删除scott.emp表中的相关记录。
（1）以scott 用户连接数据库，然后为system 用户授予delete 权限。
语句：
connect scott/tiger;
grant delete on emp to system;
截图：
（2）以system 用户连接数据库，创建存储过程。
语句：
connect system/orcl1234；
create or replace procedure delete_emp
(id scott.emp.empno%type)
is
begin
delete from scott.emp where empno=id;
exception
when others then
dbms_output.put_line('errors');
end；
截图：
（3）system 用户调用delete_emp存储过程。
语句：execute delete_emp(7369);
截图：
（4）scott 用户调用delete_emp存储过程。
语句：
grant execute on delete_emp to scott;
connect scott/tiger;
execute system.delete_emp(7369);
截图：
2.创建存储过程，根据职工编号修改scott.emp表中该职工的其他信息。
（1） 创建新用户，并授予权限。
语句：
connect system/orcl1234;
create user u1
identified by abcdef;
grant create session,
create procedure to u1;
grant select,update on scott.emp to u1;
截图：
（2） 以新用户连接数据库，创建存储过程。
语句：
connect u1/abcdef;
CREATE OR REPLACE PROCEDURE update_emp
(no IN scott.emp.empno%TYPE,--引用emp表中的某字段的数据类型，必须对该表具有select权限
name IN scott.emp.ename%TYPE DEFAULT NULL,
job1 IN scott.emp.job%TYPE DEFAULT NULL,
mgr1 IN scott.emp.mgr%TYPE DEFAULT NULL,
hiredate1 scott.emp.hiredate%TYPE DEFAULT NULL,
salary scott.emp.sal%TYPE DEFAULT NULL,
comm1 scott.emp.comm%TYPE DEFAULT NULL,
deptno1 scott.emp.deptno%TYPE DEFAULT NULL
)
IS
BEGIN
if name is not null then
update scott.emp set ename=name where empno=no;
end if;
if job1 is not null then
update scott.emp set job=job1 where empno=no;
end if;
if mgr1 is not null then
update scott.emp set mgr=mgr1 where empno=no;
end if;
if hiredate1 is not null then
update scott.emp set hiredate=hiredate1 where empno=no;
end if;
if salary is not null then
update scott.emp set sal=salary where empno=no;
end if;
if comm1 is not null then
update scott.emp set comm=comm1 where empno=no;
end if;
if deptno1 is not null then
update scott.emp set deptno=deptno1 where empno=no;
end if;
EXCEPTION
WHEN others THEN
rollback;
END;
/
截图：
（3） u1调用update_emp 过程。
语句： exec update_emp(7369,salary=>2000);
截图：
3.创建存储过程，根据指定的职工编号查询该职工的详细信息。
（1）创建存储过程。
语句：
connect scott/tiger;
create or replace procedure select_emp
(no in scott.emp.empno%type,
emp_information out varchar2)
is
r scott.emp%ROWTYPE;
begin
select * into r from scott.emp where empno=no;
emp_information:=emp_information||r.ename||' '||r.job||' '||r.sal||' '||r.mgr||
' '||r.hiredate||' '||r.comm||' '||r.deptno;
exception
when no_data_found then
emp_information:='No person!';
when others then
emp_information:='Error!';
End;
/
截图：
（2）调用存储过程。
语句：
set serveroutput on
declare
info varchar2(50);
begin
select_emp(7369,info);
dbms_output.put_line(info);
end;
/
截图：
4.创建函数，根据给定的部门编号计算该部门所有职工的平均工资。
（1）创建函数。
语句：
create or replace function avg_sal
(no scott.emp.deptno%type)
return number
is
avgsal number(7,2);
begin
select avg(sal) into avgsal from scott.emp where deptno=no;
if avgsal is not null then --因为上面的语句不触发异常，因此用if语句判断是否查询成功
return avgsal;
else
avgsal:=-1;
return avgsal;
end if;
end avg_sal;
/
截图：
（2）调用函数。
语句：
begin
dbms_output.put_line(avg_sal(&deptno));
end;
截图：
（选择题）
- 以下哪种程序单元必须返回数据？（ A ）
A.函数 B.存储过程 C.触发器 D.包
2.当建立存储过程时，以下哪个关键字用来定义输出型参数？（ C ）
A.IN B.PROCEDURE C.OUT D.FUNCTION
3.下列哪个语句可以在SQL*Plus中直接调用一个存储过程？（ B ）
A.RETURN B.EXEC C.SET D.IN
4.下面哪些不是存储过程中参数的有效模式？（ D ）
A.IN B.OUT C.IN OUT D.OUT IN
5.函数头部中的RETURN语句的作用是什么？（ A ）
A.声明返回的数据类型
B.调用函数
C.调用过程
D.函数头部不能使用RETURN语句
（编程题）
- 根据以下要求编写存储过程：输入部门编号，输出scott.emp 表中该部门所有职工的职工编号、姓名、工作岗位。
（1）授予system用户对scott.emp具有显示的查询权限。
（2）创建存储过程
语句：
create or replace procedure pro_depart
(no in scott.emp.deptno%type)
is
cursor c1 is select * from scott.emp where deptno=no;
begin
dbms_output.put_line('编号 姓名 工作岗位');
for rec in c1
loop
dbms_output.put_line(rec.empno||' '||rec.ename||' '||rec.job);
end loop;
end;
截图：
（3）执行存储过程
语句： execute pro_depart(20);
截图：
2.根据以下要求编写函数：将scott.emp 表中工资低于平均工资的职工工资加上200，并返回修改了工资的总人数。
（1）授予system用户对scott.emp具有修改的权限。
（2）创建函数
语句：
conn system/orcl1234;
create or replace function fun_sal
return number
is
cursor c2 is select * from scott.emp for update;
rows number default 0;
avg_sal number(7,2);
begin
select avg(sal) into avg_sal from scott.emp;
for rec in c2
loop
if rec.sal< avg_sal then
update scott.emp set sal=sal+200 where current of c2;
rows:=rows+1;
end if;
end loop;
return rows;
end;
截图：
（3）调用函数
语句：
begin
dbms_output.put_line('修改了工资的总人数是： '||fun_sal);
end;
截图：
（简答题）
创建与调用存储过程或函数时，应事先授予哪些权限？
答：1.首先创建存储过程自身需要的权限，即应授予create procedure系统权限。
2.用户调用其他用户所创建的存储过程时，应事先授予对该过程的execute权限。
3.如果对某表进行增、删、查、改的操作时，应授予insert、delete、update、select的显示权限。
（补充练习题）
1. 编写函数get_salary，根据emp表中的员工编号，获取他的工资。输入参数为员工编号，如果找到该员工，屏幕显示已找到的信息，函数返回值为该员工的工资。如果找不到，捕获并处理异常，函数返回值为0。函数创建成功后，调用该函数查看效果。
（1）创建函数
语句：
create or replace function get_salary
(no in scott.emp.empno%type)
return number
is
salary scott.emp.sal%type;
begin
select sal into salary from scott.emp where empno=no;
return salary;
exception
when others then
return 0;
end;
截图：
（2）调用函数
语句：
begin
dbms_output.put_line('该员工工资是：'||get_salary(7369));
end;
截图：
语句：
begin
dbms_output.put_line('该员工工资是：'||get_salary(2000));
end;
截图：
2. 编写函数get_cnt，根据输入参数部门编号，输出参数输出该部门的人数，返回值是该部门的工资总和。如果如果找不到，捕获并处理异常，函数返回值为0。函数创建成功后，调用该函数查看效果。
（1）创建函数
语句：
create or replace function get_cnt
(no in scott.dept.deptno%type,
cnt out number )
return number
is
salary_sum number(7,2);
begin
select sum(sal) into salary_sum from scott.emp where deptno=no;
select count(*) into cnt from scott.emp where deptno=no;
return salary_sum;
exception
when others then
return 0;
end;
截图：
（2）调用函数
语句：
var salary_sum number;
var cnt number;
exec :salary_sum:=get_cnt(30,:cnt);
截图：
3．编写存储过程DelEmp，删除emp表中指定员工记录。输入参数为员工编号。如果找到该员工，则删除他的记录，并在屏幕显示该员工被删除。如果没找到，则使用自定义异常处理。存储过程定义成功后，调用该存储过程查看结果。
（1）以scott 用户连接数据库，然后为system 用户授予delete 权限。
语句：
connect scott/tiger;
grant delete on emp to system;
截图：
（2）以system 用户连接数据库，创建存储过程。
语句：
connect system/orcl1234；
create or replace procedure DelEmp
(no scott.emp.empno%type)
is
no_emp exception;
cnt number;
begin
select count(*) into cnt from scott.emp where empno=no;
if cnt=0 then
raise no_emp;
end if;
delete from scott.emp where empno=no;
dbms_output.put_line(no||'号员工已经被删除完毕！');
exception
when no_emp then
dbms_output.put_line('抱歉！没有找到'||no||'号员工！');
end;
/
截图：
（3）调用存储过程。
语句：exec DelEmp(2000);
截图：
4. 编写存储过程QueryEmp，查询指定员工记录；输入参数为员工编号，输出参数是员工的姓名和工资。如果找到该员工，在屏幕显示该员工已经查到。如果没找到，则捕获异常并处理。存储过程定义成功后，调用该存储过程查看结果。
（1）创建过程
语句：
CREATE OR REPLACE PROCEDURE QueryEmp
(no IN scott.emp.empno%TYPE,
name OUT scott.emp.ename%TYPE,
salary OUT scott.emp.sal%TYPE)
IS
BEGIN
SELECT ename,sal into name,salary FROM scott.emp WHERE empno=no;
dbms_output.put_line('找到员工！');
EXCEPTION
WHEN NO_DATA_FOUND THEN
dbms_output.put_line('该职工不存在！');
END;
/
截图：
（2）执行过程
语句：
DECLARE
emp_name scott.emp.ename%TYPE;
emp_salary scott.emp.sal%TYPE;
BEGIN
QueryEmp(7788,emp_name,emp_salary); --调用存储过程
IF emp_name IS NOT NULL THEN --如果该职工存在，则输出
dbms_output.put_line('姓名是：'||emp_name|| ' 工资是：'||emp_salary);
END IF;
END;
亦可：exec QueryEmp(7788,:ename,:sal);
截图：
