【正文】 varchar(20),@Gtype varchar(20),@Gprice float,@Gshelf dateasinsert into Goodsvalues(@Gname,@Gkind,@Gtype,@Gprice,@Gshelf)測(cè)試執(zhí)行結(jié)果exec pro_addgoods 39。牛黃解毒片39。,39。處方藥39。,39。普通片39。,39。20132339。刪除一條藥品記錄create procedure pro_delgoods@Gname char(30)asdeletefrom Goodswhere Gname=@Gname測(cè)試執(zhí)行結(jié)果exec pro_delgoods 39。牛黃解毒片39。按銷售量排序create procedure pro_orderSaleasselect 藥品名,Saleliang 銷售量from Goods,Salelistwhere =order by Saleliang desc測(cè)試執(zhí)行結(jié)果exec pro_orderSale更新入庫量create procedure pro_updInasupdate Inlistset Inliang=Inliang+500測(cè)試執(zhí)行結(jié)果exec pro_updIndrop procedure pro_updIn 附錄四 Sql語句驗(yàn)證視圖過程驗(yàn)證： 視圖驗(yàn)證結(jié)果（Vi_supplier） 視圖驗(yàn)證結(jié)果（Vi_sale） 視圖驗(yàn)證結(jié)果（Vi_pancun）存儲(chǔ)過程驗(yàn)證：存儲(chǔ)過程驗(yàn)證（Goods_shelf） 存儲(chǔ)過程驗(yàn)證（pro_Gtype）存儲(chǔ)過程驗(yàn)證（pro_cback）存儲(chǔ)過程驗(yàn)證（pro_orderSale）存儲(chǔ)過程驗(yàn)證（pro_updIn）觸發(fā)器驗(yàn)證：觸發(fā)器驗(yàn)證（tri_C02）觸發(fā)器驗(yàn)證（tri_Acc）觸發(fā)器驗(yàn)證（tri_gprice）觸發(fā)器驗(yàn)證（tri_gshelf）觸發(fā)器驗(yàn)證（tri_buy） Oracle語句視圖：create or replace view Vi_supplierasselect *from Suppliercreate or place view Vi_pancunasselect Gname,Pancliangfrom Panclist存儲(chǔ)過程：輸出退貨單為B11的信息create or replace procedure p1is v_sbacknumber %type。 v_supnumber %type。 v_gname %type。 v_empnumber %type。 v_sbackliang %type。 v_sbackreas %type。 begin select sbacknumber,supnumber,gname,empnumber,sbackling,sbackreas into v_sbacknumber,v_supnumber, v_gname,v_empnumber,v_sbackliang,v_sbackreas from sbacklist where sbacknumber=39。SB1139。(v_sbacknumBer||39。39。||v_supnumber||39。39。||v_gname||39。39。||v_empnumber||39。39。||v_sbackliang||39。39。||v_sbackreas)。end。測(cè)試結(jié)果begin p1。end。輸出指定劑型的藥品的入庫量create or replace procedure p2(v_type %type)is v_gname %type。 v_inliang %type。 cursor c1 is select , inliang from goods,inlist where = and gtype =v_type。begin open c1。 loop fetch c1 into v_gname,v_inliang。 exit when c1%notfound。 (v_gname||39。39。|| v_inliang)。 end loop。 close c1。end。測(cè)試結(jié)果declare v_type varchar2(10):=39。普通片39。begin p2(v_type)。end。插入一條藥品信息Create or replace procedure p3(v_gname %type,v_gkind %type,v_gtype %type,v_gprice %type,v_gshelf %type)asbegin insert into goods(gname,gkind,gtype,gprice,gshelf) values(v_gname,v_gkind,v_gtype,v_gprice,v_gshelf)。 mit。end。測(cè)試結(jié)果declare v_gname varchar2(30):=39。感冒膠囊39。 v_gkind varchar2(10):=39。處方藥39。 v_gtype varchar2(10):=39。顆粒39。 v_gprice number:=。 v_gshelf date:= to_date(39。201211139。,39。YYYYMMDD39。)。begin p3(v_gname,v_gkind,v_gtype,v_gprice,v_gshelf )。end。刪除一條藥品信息create or replace procedure p4 (v_gname %type)asbegin delete from goods where gname=v_gname。 mit。end 。測(cè)試結(jié)果declare v_gname varchar2(30):=39。感冒膠囊39。begin p4(v_gname)。end。按銷售量排序create or replace procedure p5is v_gname %type。 v_saleliang %type。 cursor c1 is select ,saleliang from salelist,goods where = order by Saleliang desc。begin open c1。 loop fetch c1 into v_gname,v_saleliang。 exit when c1%notfound。 (v_gname||39。39。||v_saleliang)。 end loop。 close c1。end。測(cè)試結(jié)果begin p5。 end。更新某藥品入庫量create or replace procedure p6(v_gname in %type) isbegin update inlist set inliang=inliang+100 where v_gname=gname。 mit。end 。測(cè)試結(jié)果declare v_gname varchar2(30):=39。穿心蓮片39。begin p6(v_gname)。end。觸發(fā)器：限制刪除C02客戶的退貨記錄create or replace trigger t1 before delete on cbacklist for each rowbegin delete from cbacklist where cusmumber=39。c0239。 end 。測(cè)試結(jié)果delete from cbacklistwhere cusmumber=39。c0239。限制入庫量不少于400create or replace trigger t2 before insert on inlist for each rowbegin if (:400)then (39。入庫量小于40039。)。 end if。end。測(cè)試結(jié)果insertinto inlistvalues(39。I2639。,39。舒必利39。,39。H0139。,39。E1639。,200,to_date(39。201212439。,39。YYYYMMDD39。))限制更新的藥品價(jià)格不小于1元，小于1元的改為1元create or replace trigger t3 before insert or update on goods for each rowbegin if(:1)then update goods set gprice=1。 end if。end。測(cè)試結(jié)果insert into Goodsvalues(39。一針39。,39。處方藥39。,39。普通片39。,39。20129139。)mit。保質(zhì)期到2010年的不允許插入create or replace trigger t4 before insert on goods for each rowbegin if(:to_date(39。20101139。,39。YYYYMMDD39。))then (39。藥品已過期39。)。 end if。end 。測(cè)試結(jié)果insert into Goodsvalues(39。瀉立停39。,39。處方藥39。,39。普通片39。,3,to_date(39。20091739。,39。YYYYMMDD39。))。mit。限制采購量更新量不小于100create or replace trigger t5 before insert on buylist for each rowbegin if (:100)then (39。采購量小于10039。)。 end if。end。測(cè)試結(jié)果insert into Buylistvalues(39。B2739。,39。S1139。,39。保和丸39。,39。E0439。,50,to_date(39。201211239。,39。YYYYMMDD39。))。mit。 附錄六Oracle語句驗(yàn)證表驗(yàn)證：客戶退貨表 客戶表供應(yīng)商表視圖驗(yàn)證： 視圖驗(yàn)證（Vi_supplier）視圖驗(yàn)證（vi_pancun）存儲(chǔ)過程驗(yàn)證：存儲(chǔ)過程驗(yàn)證（p1）存儲(chǔ)過程驗(yàn)證（p2）存儲(chǔ)過程驗(yàn)證（p3）存儲(chǔ)過程驗(yàn)證（p5）觸發(fā)器驗(yàn)證：觸發(fā)器驗(yàn)證（t1）觸發(fā)器驗(yàn)證（t2）觸發(fā)器驗(yàn)證（t3）觸發(fā)器驗(yàn)證（t4）觸發(fā)器驗(yàn)證（t5）