實(shí)驗(yàn)三：數(shù)據(jù)庫(kù)編程

1、數(shù)據(jù)庫(kù)原理實(shí)驗(yàn)報(bào)告(三)成績(jī)實(shí)驗(yàn)名稱數(shù)據(jù)庫(kù)編程姓名學(xué)號(hào)班級(jí)實(shí)驗(yàn)?zāi)康?1) 了解存儲(chǔ)過(guò)程、函數(shù)和觸發(fā)器的作用；(2) 熟悉使用命令創(chuàng)建存儲(chǔ)過(guò)程的方法；(3) 熟悉使用命令創(chuàng)建函數(shù)的方法；(4) 熟悉使用命令創(chuàng)建觸發(fā)器的方法。實(shí)驗(yàn)內(nèi)容(1) 創(chuàng)建一個(gè)函數(shù)，以工程號(hào)為參數(shù)，返回該工程所在的城市，如果沒(méi)有該工程，返回“無(wú)此工程”。create function ret_city(jno char(2)returns char(20)asbegin declare city char(20)； if not exists (select * from j where jno= jno) set city

2、=無(wú)此工程； else select city=city from j where jno= jno； return city；end(2) 創(chuàng)建一個(gè)函數(shù)，以供應(yīng)商號(hào)為參數(shù)，返回該供應(yīng)商供應(yīng)零件的總數(shù)量。如果不存在該供應(yīng)商，則返回-100。create function ret_sl(sno char(2)returns intasbegin declare total_qty int； if not exists (select * from s where sno= sno) set total_qty=-100； else select total_qty =sum(qty) from

3、spj where sno= sno； return total_qty；end(3) 創(chuàng)建一個(gè)存儲(chǔ)過(guò)程，以供應(yīng)商號(hào)、工程號(hào)、零件號(hào)、供應(yīng)量為參數(shù)，在SPJ表中插入一條記錄，如果該記錄已存在，顯示“記錄已存在！”，否則顯示“插入成功！”。Create PROCEDURE insert_1 sno char(2),pno char(2),jno char(2),qty intAS begin if exists (select * from spj where sno= sno and pno= pno and jno= jno and qty=qty) Print 記錄已存在！; else b

4、egin insert into spj values(sno,pno,jno,qty); print 插入成功！ end end(4) 創(chuàng)建一個(gè)存儲(chǔ)過(guò)程，以供應(yīng)商號(hào)、工程號(hào)、零件號(hào)、供應(yīng)量(新)為參數(shù)，修改SPJ表中某供應(yīng)商給某工程供應(yīng)某零件的供應(yīng)量為新供應(yīng)量，如果不存在該記錄，則顯示“無(wú)此記錄！”，否則顯示“修改成功！”。Create PROCEDURE update_1 sno char(2),pno char(2),jno char(2),qty intAS begin if not exists (select * from spj where sno= sno and pno= p

5、no and jno= jno) Print 無(wú)此記錄！; else begin update spj set qty=qty where sno= sno and pno= pno and jno= jno; print 修改成功！ end end(5) 創(chuàng)建一個(gè)存儲(chǔ)過(guò)程，以工程號(hào)為參數(shù)，刪除J表及SPJ表中相應(yīng)的記錄，如果不存在該工程，顯示“無(wú)此工程！”；如果該工程沒(méi)有零件供應(yīng)記錄，顯示“該工程沒(méi)有供應(yīng)記錄，J表中記錄已刪除！”；如果該工程有零件供應(yīng)記錄，顯示“已刪除J表及SPJ表中的記錄！”。Create PROCEDURE delete_1 jno char(2)AS begin if

6、 not exists (select * from j where jno= jno) Print 無(wú)此工程！; else if not exists (select * from spj where jno= jno) begin delete from j where jno= jno; print 該工程沒(méi)有供應(yīng)記錄，J表中記錄已刪除！ end else begin delete from spj where jno= jno; delete from j where jno= jno; print 已刪除J表及SPJ表中的記錄！ end end(6) 創(chuàng)建入庫(kù)表出庫(kù)表上的六個(gè)觸發(fā)器。

7、入庫(kù)修改：create trigger updat_rk on tab_rkfor updateasbegin declare old_spbh int declare old_rksl int declare new_spbh int declare new_rksl int select old_spbh=spbh from deleted select old_rksl=rksl from deleted select new_spbh=spbh from inserted select new_rksl=rksl from inserted if old_spbh=new_spbh and old_rksl!=new_rksl begin update tab_kc set kcl=kcl - old_rksl + new_rksl where spbh=new_spbh; return; end if old_spbh!=new_spbh begin update tab_kc set kcl=kcl - old_rksl where spbh=old_spbh; if exists(select * from tab_kc where spbh=ne