Oracle PL/SQL程序设计 实验六

实验内容

以bs用户登录BOOKSALES数据库，利用PL/SQL程序编写下列功能模块。
SQL>CONN bs/bs@booksales

（1）创建一个函数，以客户号为参数，返回该客户订购图书的价格总额。

create or replace function sumprice(id customers.customer_id%type)return books.cost%typeassumprice books.cost%type;beginselect sum(quantity*cost) into sumprice from customers,books,orders,orderitemwhere customers.customer_id = orders.customer_id and orders.order_id = orderitem.order_id and orderitem.isbn = books.isbn and customers.customer_id = id;return sumprice;exceptionwhen no_data_found thendbms_output.put_line(\'the id is invaild!\');end sumprice;/

（6）创建一个存储过程，输出不同类型图书的数量、平均价格。

create or replace procedure books_msgasbooks_count orderitem.quantity%type;beginfor emp in (select title,ISBN,cost from books)loopselect sum(quantity) into books_count from orderitem where ISBN=emp.ISBN;dbms_output.put_line(emp.title||\'  单价：\'||emp.cost||\'  数量：\'||books_count);end loop;end books_msg;/

（18）创建一个触发器，禁止客户在非工作时间（早上8：00之前，晚上17：00之后）下订单。

CREATE OR REPLACE TRIGGER trg_orderitemBEFORE INSERT OR UPDATE OR DELETE ON orderitemBEGINIF TO_CHAR(SYSDATE,\'HH24:MI\') NOT BETWEEN \'08:00\' AND \'17:00\'OR TO_CHAR(SYSDATE,\'DY\',\'NLS_DATE_LANGUAGE=AMERICAN\') IN (\'SAT\',\'SUN\')THENRAISE_APPLICATION_ERROR(-20005,\'只能在正常的时间内进行改变。\');END IF;END trg_orderitem;/

检查

调用函数看结果；

declaresprice books.cost%type;beginsprice:=sumprice(1);dbms_output.put_line(\'价格\'||sprice);exceptionwhen no_data_found thendbms_output.put_line(\'not found\');end;/

执行存储过程看结果；

触发触发器看结果

insert into orderitem values(\'1000\',\'1\',\'978-7-121-18619-8\',\'5\');