实验三：数据库编程

1、数据库原理实验报告(三)成绩实验名称数据库编程姓名学号班级实 验 内 容(1) 了解存储过程、函数和触发器的作用; 实验 (2)熟悉使用命令创建存储过程的方法； 目的 (3)熟悉使用命令创建函数的方法；(4)熟悉使用命令创建触发器的方法。(1)创建一个函数，以工程号为参数，返回该工程所在的城市，如果没 有该工程，返回“无此工程”。create fun cti on ret_city(j nochar(2)retur nschar(20)asbegi ndeclare city char(20)；if not exists (select * from jwhere jno= jno)set c

2、ity='无此工程'；elseselect city=city from jwhere jno= jno;return city ；end(2) 创建一个函数，以供应商号为参数，返回该供应商供应零件的总数量。如果不存在该供应商，则返回-100。create fun cti on ret_sl(s nochar(2)returns intasbegi ndeclare total_qty int ；if not exists (select * from swhere sno= sno)set total_qty=-100 ；elseselect total_qty =sum(q

3、ty) from spjwhere sno= sno；return total_qty ；end(3) 创建一个存储过程，以供应商号、工程号、零件号、供应量为参数， 在SPk表中插入一条记录，如果该记录已存在，显示“记录已存在！ ”， 否则显示“插入成功！ ”。Create PROCEDURE in sert_1 sno char(2),p no char ,j nochar ,qty intASbegi nif exists (select * from spj where sno= sno and pno=pno and jno= jno and qty=qty)Print 记录已存在！&

4、#39;elsebeg inin sert into spj values(s no,p no,j no,qty);print '插入成功！endend(4) 创建一个存储过程，以供应商号、工程号、零件号、供应量(新)为参数，修改SPJ表中某供应商给某工程供应某零件的供应量为新供应量，如果不存在该记录，则显示“无此记录！”，否则显示“修改成 功！ ”。Create PROCEDURE update_1 s no char(2),p no char(2),j no char ,qty intASbegi nif not exists (select * from spj where sn

5、o= sno and pno= pno and jno= jno)Print无此记录！'elsebeg inupdate spj set qty=qty where sno= sno and pno= pno and jno= jno;print '修改成功！'endend(5) 创建一个存储过程，以工程号为参数，删除J表及SPJ表中相应的记录，如果不存在该工程，显示“无此工程！ ”；如果该工程没有零 件供应记录，显示“该工程没有供应记录，J表中记录已删除！ ”；如果该工程有零件供应记录，显示“已删除J表及SPJ表中的记录！ ”。Create PROCEDURE del

6、ete_1 jno char(2)ASbegi nif not exists (select * from j where jno= jno) Print无此工程！'elseif not exists (select * from spj where jno= jno)beg indelete from j where jno= jno;print'该工程没有供应记录，J表中记录已删除！endelsebeg indelete from spj where jno= jno;delete from j where jno= jno;print '已删除J表及SPJ表中的记

7、录！endend(6)创建入库表出库表上的六个触发器。入库修改：create trigger updat_rk on tab_rkfor updateasbegi ndeclare old_spbh intdeclare old_rksl intdeclare n ew_spbh intdeclare n ew_rksl intselect old_spbh=spbh from deletedselect old_rksl=rksl from deletedselect n ew_spbh=spbh from in sertedselect n ew_rksl=rksl from in sertedif old_spbh=n ew_spbh and old_rksl!=n ew_rksl begi nupdate tab kc set kcl=kcl - old rksl + new rkslwhere spbh=n ew_spbh;return;endif old_spbh!=n ew_spbhbegi nupdate tab_kc set kcl=kcl - old_rksl where spbh=old_spbh;if exists(select * from tab_kc where spbh=n e