课题三多物料进出仓信息管理.docVIP

福建工程学院计算机与信息科学系 实验报告 2012 – 三 学年第 一 学期 任课老师： 张晓志 课程名称 多物料进出仓信息管理 班级 网络1001 座号 13 姓名 林基强 实验题目 多物料进出仓信息管理 实验时间 2012.09.23 实验目的、要求 一般企业进行物料进出仓时，多在一个进出仓单号上同时对多种物料做同进或同出操作，通过程序实现多个物料在一个界面一个单号上同时实现进仓或出仓操作，如果不成功，必须全部回滚。 多物料进仓出仓，可以在一个程序中完成，也可以分开编程，程序名以“班级＋座号＋（表示程序名的中英文信息）”来命名，同一单号中进出仓单号、进出仓日期、操作人员必须完全相同，同一单号中不能进仓与出仓同时存在，通过调用存储过程完成进出仓操作。 多物料进出仓存储过程，过程名以“班级＋座号＋（表示程序名的中英文信息）”来命名，多物料进出仓单增加到表中，并修改多个物料的库存数量，失败就显示提示内容。 实验设计内容 主界面： 多物料进出仓设计有点复杂，不是简单的单物料进出仓，因此，设计多物料表时，考虑到物料进出的冗余， 没有设置主码约束条件。多物料关键技术还要用到临时表和游标等技术。当然在单物料进出仓基础上，所以 继承了单物料进出仓程序的功能。 在进入多物料程序时，临时表随即建立，随着程序的打开和关闭，临时表的生存周期也跟着开始和结束。 建立临时表的结构与多物料表一样。 代码： begin adoconnection1.Close; //连接关闭 adoconnection1.open;连接打开 form5.show; adoquery2.SQL.Clear; adoquery2.sql.Add(select distinct max(Wno) as maxno from 多物料进出单); ADOQuery2.Open; form5.Edit1.Text:=inttostr(adoquery2.fieldbyname(maxno).asinteger+1); adoquery2.sql.clear; adoquery2.sql.add(if object_id(tempdb..#tp) is not null begin drop table #tp end else begin + create table #tp(Wno varchar(10),Weno varchar(10),Wid varchar(15),Wtype char(5),Wjnum int,Wcnum int,Wdate datetime,Wmeno text) end); / /建立局部临时表 adoquery2.execsql; 代码中的连接关闭和打开很重要，因为局部临时表是针对某个事务建立的，一旦数据库存在局部临时表，再 次建立临时表会默认在临时表后面加上序号。如果没有连接关闭和打开，该程序会在退出再次进去执行程序 找不到自己建立的临时表而出错！ 建立临时表的好处就是，当数据频繁操作时，能减少对基表的操作和进程CPU的消耗，在连接断开时， 自动drop掉。 插入临时表也是使用存储过程： ① Create proc wl1001_13_临时表出仓存储 @out varchar(40) output, @Wnols varchar(15), @Wenols varchar(10), @Widls varchar(15), @Wtypels char(5), @Wjnumls int, @Wcnumls int, @Wdatels datetime, @Wmenols text as begin tran declare @num int select @num=(select Mnum from 物料档案where Mno=@Widls) if @num@Wcnumls begin set @out=库存不足,出仓失败! end else begin insert into #tp values(@Wnols,@Wenols,@Widls,@Wtypels,0,@Wcnumls,@Wdatels,@Wmenols) set @out=出仓成功! end commit tran ② Create proc wl1001_13_临时表存储进仓 @out varchar(40) output, @Wnolsj varchar(15), @Wenolsj varchar(10), @Widlsj varchar(15), @Wtypelsj char(5), @Wjnumlsj int, @Wcnumlsj int, @Wdatelsj date