标签:customers orderitem books sumprice SQL Oracle type id PL
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%type
as
sumprice books.cost%type;
begin
select sum(quantity*cost) into sumprice from customers,books,orders,orderitem
where 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;
exception
when no_data_found then
dbms_output.put_line('the id is invaild!');
end sumprice;
/
(6)创建一个存储过程,输出不同类型图书的数量、平均价格。
create or replace procedure books_msg
as
books_count orderitem.quantity%type;
begin
for emp in (
select title,ISBN,cost from books
)
loop
select 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_orderitem
BEFORE INSERT OR UPDATE OR DELETE ON orderitem
BEGIN
IF TO_CHAR(SYSDATE,'HH24:MI') NOT BETWEEN '08:00' AND '17:00'
OR TO_CHAR(SYSDATE,'DY','NLS_DATE_LANGUAGE=AMERICAN') IN ('SAT','SUN')
THEN
RAISE_APPLICATION_ERROR(-20005,'只能在正常的时间内进行改变。');
END IF;
END trg_orderitem;
/
检查
调用函数看结果;
declare
sprice books.cost%type;
begin
sprice:=sumprice(1);
dbms_output.put_line('价格'||sprice);
exception
when no_data_found then
dbms_output.put_line('not found');
end;
/
执行存储过程看结果;
触发触发器看结果
insert into orderitem values('1000','1','978-7-121-18619-8','5');
标签:customers,orderitem,books,sumprice,SQL,Oracle,type,id,PL 来源: https://blog.csdn.net/weixin_43721535/article/details/105941400
本站声明: 1. iCode9 技术分享网(下文简称本站)提供的所有内容,仅供技术学习、探讨和分享; 2. 关于本站的所有留言、评论、转载及引用,纯属内容发起人的个人观点,与本站观点和立场无关; 3. 关于本站的所有言论和文字,纯属内容发起人的个人观点,与本站观点和立场无关; 4. 本站文章均是网友提供,不完全保证技术分享内容的完整性、准确性、时效性、风险性和版权归属;如您发现该文章侵犯了您的权益,可联系我们第一时间进行删除; 5. 本站为非盈利性的个人网站,所有内容不会用来进行牟利,也不会利用任何形式的广告来间接获益,纯粹是为了广大技术爱好者提供技术内容和技术思想的分享性交流网站。