实验三 存储过程的使用

实验三存储过程的使用 4

实验目的

1、理解存储过程基本概念。

2、掌握存储过程定义、调用、删除。

3、了解存储过程调试。

4、理解存储过程作用。

实验内容

实验内容

1、定义、调用简单存储过程：计算所有供应商供应零件总数量并修改供应商相关列sqty。CREATE OR REPLACE PROCEDURE p1

AS

cursor cur_1

is

select sno ,sum(qty) as sumqty from spj group by sno;

BEGIN

for cur in cur_1 loop

update s set sqty=cur.sumqty where s.sno=cur.sno;

end loop;

END;

begin

p1;

end;

2、定义、调用参数存储过程：查询返回指定供应商的供应零件总数量。比较与函数不同。CREATE OR REPLACE procedure p2(sno_sno IN s.sno%type,s_sname OUT s.sname%type,v_sqty out s.sqty%type)

IS

BEGIN

SELECT sname,SUM(qty)INTO s_sname,v_sqty FROM s,spj WHERE s.sno=spj.sno GROUP BY spj.sno,s.sname HA VING spj.sno=sno_sno;

end;

DECLARE

v_sno s.sno%TYPE:='S1';

v_sqty s.sqty%TYPE;

v_sname s.sname%TYPE;

BEGIN

pro2(v_sno,v_sname,v_sqty);

dbms_output.put_line(v_sname||'供应商'||v_sno||'所供应的零件总数为：'||v_sqty); END;

3、定义、调用存储过程：插入一个供应商信息（所有信息由参数提供）。

create or replace procedure p3

(s_sno in s.sno%type,s_sname in s.sname%type,s_status in s.status%type,s_city in s.city%type) is

v_count number;

begin

select count(sno) into v_count from s where s.sno=s_sno;

if(v_count>0)then

dbms_output.put_line('插入的供应商存在');

else

insert into s(sno,sname,status,city) values(s_sno,s_sname,s_status,s_city);

end if;

end;

declare

v_sno s.sno%type:='S6';

v_sname s.sname%type:='科院';

v_status s.status%type:=50;

v_city s.city%type:='十堰';

begin

pro3(v_sno,v_sname,v_status,v_city);

end;

4、定义、调用存储过程：删除指定代码的零件信息，并给出删除元组数。

CREATE OR REPLACE PROCEDURE proc4(p_pno p.pno%type ,p_count out number)

is

v_count number;

begin

delete from spj where spj.pno=p_pno ;

delete from p where pno=p_pno;

v_count:=sql%rowcount;

p_count:=v_count;

end;

declare

v_pno p.pno%type:='&pno';

v_count number;

begin

proc4(v_pno,v_count);

dbms_output.put_line('删除元组的数目为：'||v_count);

end;

5、定义、调用存储过程：修改指定代码项目的其它信息（所有信息由参数提供）。

CREATE OR REPLACE PROCEDURE proc5(p_pno p.pno%type,p_pname p.pname%type,p_color p.color%type,p_weight p.weight%type)

is

v_count number:=0;

begin

select count(p_pno) into v_count from p where p.pno=p_pno;

if(v_count=0)

then

dbms_output.put_line('你所要修改的零件号不存在...');

else

update p set pname=p_pname,color=p_color,weight=p_weight where p.pno=p_pno;

end if;

end;

declare

v_pno p.pno%type:='&pno';

v_pname p.pname%type:='螺丝刀';

v_color p.color%type:='红';

v_weight p.weight%type:=15;

begin

proc5(v_pno,v_pname,v_color,v_weight);

end;