实验LSQL程序设计.doc

实验LSQL程序设计
实验LSQL程序设计
实验LSQL程序设计
实验6PL/SQL程序设计
实验目的
掌握PL/SQL程序开发方法。
掌握存储过程、函SQL程序设计
实验LSQL程序设计
endLOOP;
endLOOP;
closec_orderid;
endproc_get_orderinfo;
实验LSQL程序设计
实验LSQL程序设计
实验LSQL程序设计
24/
execproc_get_orderinfoo(1001);
创立一个存储过程，以订单号为参数，输出该订单中所有图书的名称、单价、数量。
createorreplaceprocedureproc_get_orderinfoo(
%type)
as
--声明游标存储订单号的ISBN
cursorc_ISBNisselectISBNfromorderitemwhereorder_id=p_order_id;
%type;
声明游标存储订单信息
cursorc_orderitemisselectISBN,sum(quantity)totalnumfromorderitemwhereISBN=v_ISBN;
实验LSQL程序设计
实验LSQL程序设计
实验LSQL程序设计
%type;
%type;
begin
openc_ISBN;
LOOP
fetchc_ISBNintov_ISBN;
exitwhenc_ISBN%NOTFOUND;
forv_orderiteminc_orderitemLOOP
实验LSQL程序设计
实验LSQL程序设计
实验LSQL程序设计
selecttitle,retail

into

v_title,v_retail

from

books

where
实验LSQL程序设计
实验LSQL程序设计
实验LSQL程序设计
ISBN=;
(p_order_id||v_title||v_retail||);
endLOOP;
endLOOP;
closec_ISBN;
endproc_get_orderinfoo;
/
实验LSQL程序设计
实验LSQL程序设计
实验LSQL程序设计
创立一个存储过程，以出版社名为参数，输出该出版社出版的所有图书的名称、ISBN、批发价钱、零售价钱信息。
createorreplaceprocedureproc_get_name(
%type)
实验LSQL程序设计
实验LSQL程序设计
实验LSQL程序设计
as
实验LSQL程序设计
实验LSQL程序设计
实验LSQL程序设计
cursorc_orderidisselectorder_idfromorderswhere
customer_id=p_customer_id;
%type;
cursorc_orderitemisselectISBN,sum(qua