实验三：数据库编程.docx

《数据库原理》实验报告(三) 成绩 实验名称 数据库编程 姓名 学号 班级 实验 目的 了解存储过程、函数和触发器的作用； 熟悉使用命令创建存储过程的方法； 熟悉使用命令创建函数的方法； 熟悉使用命令创建触发器的方法。 实 验 内 容 创建一个函数，以工程号为参数，返回该工程所在的城市，如果没 有该工程，返回“无此工程”。 create fun cti on ret_city(@j no char(2)) retur ns char(20) as begi n declare @city char(20)； if not exists (select * from j where jno= @jno) set @city=无此工程； else select @city=city from j where jno= @jno ; return @city ； end 创建一个函数，以供应商号为参数，返回该供应商供应零件的总数 量。如果不存在该供应商，则返回-100。 create fun cti on ret_sl(@s no char(2)) returns int as begi n declare @total qty int ； if not exists (select * from s where sno= @sno) set @total_qty=-100 ; else select @total_qty =sum(qty) from spj where sno= @sno； return @total_qty ; end 创建一个存储过程，以供应商号、工程号、零件号、供应量为参数, 在SPJ表中插入一条记录，如果该记录已存在，显示“记录已存在！ ” 否则显示“插入成功！ ”。 Create PROCEDURE in sert_1 @s no char(2),@p no char⑵,@j no char ⑵,@qty int AS beg in if exists (select * from spj where sno= @sno and pno= @pno and jno= @jno and qty=@qty) Print 记录已存在！ else begi n in sert into spj values(@s no,@p no,@j no,@qty); print 插入成功！’ end end 创建一个存储过程，以供应商号、工程号、零件号、供应量 (新)为 参数，修改SPJ表中某供应商给某工程供应某零件的供应量为新供应 量，如果不存在该记录，则显示“无此记录！”，否则显示“修改成 功！ ”。 Create PROCEDURE update_1 @s no char(2),@p no char⑵,@j no char ⑵,@qty int AS beg in if n ot exists (select * from spj where sno= @sno and pno= @pno and ino= @ino) Print 无此记录！ else begi n update spj set qty=@qty where sno= @sno and pno= @pno and jno= @jno; print 修改成功！ end end 创建一个存储过程，以工程号为参数，删除 J表及SPJ表中相应的 记录，如果不存在该工程，显示“无此工程！ ”；如果该工程没有零 件供应记录，显示“该工程没有供应记录，J表中记录已删除！ ”；如 果该工程有零件供应记录，显示“已删除 J表及SPJ表中的记录！ ”。 Create PROCEDURE delete_1 @jno char(2) AS beg in if not exists (select * from j where jno= @jno) Print 无此工程！ else if not exists (select * from spj where jno= @jno) begi n delete from j where jno= @jno; print 该工程没有供应记录，J表中记录已删除！’ end else begi n delete from spj where jno= @jno; delete from j where jno= @jno; print 已删除J表及SPJ表中的记录！’ end end 创建入库表出库表上的六个触发器。 入库修改： create trigger updat_rk on tab_rk for update as begi n declare @old_spbh int declare @old_rksl int dec