山东建筑大学 计算机学院 实验报告 班级：软测143 姓名：刘骎 学号：20141113089实验成绩： 课程：Oracle 同组者： 实验日期：2017.5.16 实验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 山东建筑大学 计算机学院 实验报告 班级：软测143 姓名：刘骎 学号：20141113089实验成绩： 课程：Oracle 同组者： 实验日期：2017.5.16 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; 山东建筑大学 计算机学院 实验报告 班级：软测143 姓名：刘骎 学号：20141113089...
