实验八 存储过程

实验八存储过程
【实验目的】
1、理解存储过程、函数基本概念。

2、掌握Oracle存储过程与函数定义、调用、删除。

3、了解存储过程、函数调试。

4、理解存储过程、函数作用。

【实验性质】
综合性实验
【实验学时】
2H
【实验内容】
1、定义、调用简单存储过程：计算所有供应商供应零件总数量并修改供应商相关列sqty（其中S表增加一列供应零件总数量sqty默认值为0）。

(10分)
create or replace procedure proc_no1
as
cursor cur_spj is select sno,sum(qty) sumqty from spj group by sno; begin
for rec in cur_spj loop
update s set sqty=rec.sumqty where sno=rec.sno;
end loop;
end;
begin
proc_no1;
commit;
end;
select * from s;
2、定义、调用参数存储过程：查询返回指定供应商的供应零件总数量。

(15分)
create or replace procedure proc_no2(p_sno in s.sno%type,p_qty out s.sqty%type)
as
begin
select sqty into p_qty from s where sno=p_sno;
end;
declare
v_sno s.sno%type:='S1';
v_qty s.sqty%type;
begin
dbms_output.put_line('供应商S1总数量'||v_qty);
end;
3、定义、调用参数函数：查询返回指定供应商的供应零件总数量。

(10分)
create or replace function fun_no3(p_sno in s.sno%type) return integer as
p_qty s.sqty%type;
begin
select sqty into p_qty from s where sno=p_sno;
return p_qty;
end;
declare
v_sno s.sno%type:='S1';
v_qty s.sqty%type;
begin
v_qty:=fun_no3(v_sno);
dbms_output.put_line('供应商S1总数量'||v_qty);
end;
4、定义、调用存储过程：插入一个供应商信息（所有信息由参数提供）。

(20分)
create or replace procedure proc_no4(p_sno in s.sno%type,p_sname in s.sname%type,p_status in s.status%type,p_city in s.city%type)
as
begin
insert into s(sno,sname,status,city)
values(p_sno,p_sname,p_status,p_city);
end;
declare
p_sno s.sno%type:='S6';
p_sname s.sname%type:='汽院';
p_status s.status%type:=20;
p_city s.city%type:='十堰';
begin
proc_no4(p_sno,p_sname,p_status,p_city);
end;
select * from s;
5、定义、调用存储过程：删除指定代码的零件信息，并给出删除元组数。

(20分)
create or replace procedure proc_no5(p_pno p.pno%type,p_count out number)
as
begin
delete from p where pno=p_pno;
p_count:=SQL%ROWCOUNT;
end;
declare
p_pno p.pno%type:='&pno';
p_count number;
begin
proc_no5(p_pno,p_count);
dbms_output.put_line('删除元组数量'||p_count);
end;
6、定义、调用存储过程：修改指定代码项目的其它信息（所有信息由参数提供）。

(20分)
create or replace procedure proc_no6(p_jno in j.jno%type,p_jname in j.jname%type,p_city in j.city%type)
as
p_count int:=0;
begin
select count(*) into p_count from j where jno=p_jno;
if (p_count>0) then
update j set jname=p_jname,city=p_city where j.jno=p_jno;
end if;
end;
declare
p_jno j.jno%type:='J1';
p_jname j.jname%type:='汽院';
p_city j.city%type:='十堰';
begin
proc_no6(p_jno,p_jname,p_city);
end;
select * from j;
【实验总结】
请根据实验内容谈谈你对本次实验的收获、感想，或提出你对实验内容的建议等等。

(5分)
本次实验中，主要动手实践了如何定义和调用存储过程，其中同样运用到了游标和分组，以及使用变量，在存储过程中的删除，更新，插入对于老师讲过的情况下，跟着做都不难，就是要细心点，要知道其中begin和end要搭配，declare 是声明变量。