实验6 PLSQL程序设计
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
实验6 PL/SQL程序设计
1 实验目的
(1)掌握PL/SQL程序开发方法。
(2)掌握存储过程、函数、触发器、包的创建于调用。
2 实验要求
(1)根据图书销售系统业务要求创建特定的存储过程、函数、触发器。
(2)根据图书销售系统业务要求将图书销售系统相关的函数、存储过程封装到包里。
3 实验步骤
以bs用户登录BOOKSALES数据库，利用PL/SQL程序编写下列功能模块。
(1)创建一个存储过程，输出不同类型图书的数量、平均价格。
SQL> create or replace procedure proc_category_static
2 as
3 --定义游标，获取当前有哪些图书种类
4 cursor c_all_category is select distinct category from books;
5 --图书的平均价格
6 v_avg_cost number;
7 begin
8 --保存图书种类
9 for v_each_category in c_all_category LOOP
10 select avg(retail) into v_avg_cost from books where category=v_each_category.category group by category;
11 dbms_output.put_line('种类为：'||v_each_category.category||',平均价格为：'||
v_avg_cost);
12 END LOOP;
13 end proc_category_static;
14 /
(2)创建一个存储过程，以客户号为参数，输出该客户订购的所有图书的名称与数量。create or replace procedure proc_get_orderinfo(
2 p_customer_id customers.customer_id%type)
3 as
4 --声明游标存储客户的订单号
5 cursor c_orderid is select order_id from orders where customer_id=p_customer_id;
6 v_orderid orders.order_id%type;
7 --声明游标存储订单信息
8 cursor c_orderitem is select ISBN, sum(quantity) totalnum from orderitem where order_id=v_orderid group by ISBN;
9 --保存图书的书名
10 v_title books.title%type;
11
12 begin
13 open c_orderid;
14 LOOP
15 fetch c_orderid into v_orderid;
16 exit when c_orderid%NOTFOUND;
17 for v_orderitem in c_orderitem LOOP
18 select title into v_title from books where ISBN=v_orderitem.ISBN;
19 DBMS_OUTPUT.PUT_LINE(p_customer_id||'订购'||v_title||'的数量是
'||v_orderitem.totalnum);
20 end LOOP;
21 end LOOP;
22 close c_orderid;
23 end proc_get_orderinfo;
24 /
exec proc_get_orderinfoo(1001);
(3)创建一个存储过程，以订单号为参数，输出该订单中所有图书的名称、单价、数量。create or replace procedure proc_get_orderinfoo(
p_order_id orderitem.order_id%type)
as
--声明游标存储订单号的ISBN
cursor c_ISBN is select ISBN from orderitem where order_id=p_order_id;
v_ISBN orderitem.ISBN%type;
--声明游标存储订单信息
cursor c_orderitem is select ISBN,sum(quantity) totalnum from orderitem where ISBN=v_ISBN ;
v_title books.title%type;
v_retail books.retail%type;
begin
open c_ISBN;
LOOP
fetch c_ISBN into v_ISBN;
exit when c_ISBN%NOTFOUND;
for v_orderitem in c_orderitem LOOP
select title,retail into v_title,v_retail from books where ISBN=v_orderitem.ISBN;
DBMS_OUTPUT.PUT_LINE(p_order_id||v_title||v_retail||v_orderitem.totalnum);
end LOOP;
end LOOP;
close c_ISBN;
end proc_get_orderinfoo;
/