仓库管理系统的设计

1、仓库管理系统的设计数据库原理及应用实验报告XIAMEN UNIVERSITY OF TECHNOLOGY（2015- 2016学年 第1学期）目：仓库管理系统的设计专 业：计算机科学与技术（嵌入式）班 级： 13计算机（2）班姓名学号：_J雨虹 13070122U黄成旺1307012216凤 1307012222庄海隆 1307012249指导教师：柳玲成 绩：计算机科学与技术系2016年1月7日目录一、需求分析 3】系统需求分析错误！未定义书签。1.2系统功能基本要求和功能描述错误！未定义书签口121基本信息管理错误！未定义书签。1.2.2 产品信息管理错误!未定义书签o1.2.3 仓库管理

2、操作错误！未定义书签。1.2.4 仓库警示管理错误！未定义书签。1.2.5 查询管理功能错误！未定义书签。13系统功能模型4L4数据分析4141数据流图4142数据字典5二、数据库概念结构设计6三，数据库逻辑结构设计.10四，数据库物理结构设计.12五、数据库的实施15六、数据库的运行 17 参考文献附录1仓库管理系统部分程序代码25仓库管理系统的设计需求分析1.1 系统需求分析仓库管理系统主要用于仓库货品信息的管理，系统包括仓库管理、入库、出库和一些统计查询等几部分组成。仓库管理系统实现对货品信息的管理和总体的统计等，仓库信息，供货单位和操作员信息的查看及维护。仓库管理人员可以浏览、查询、添

3、加、删除等产品的基本信息。 产品入库管理，可以填写入库单，确认产品入库； 产品出库管理，可以填写出库单，确认产品出库； 借出管理，凭借条借出，然后能够还库； 初始库存设置，设置库存的初始值，库存的上下警戒限； 可以进行盘库，反映每月、年的库存情况； 可以查询产品入库情况、出库情况、当前库存情况，可以按出库单、入库单，产品、时间进行查询；1.2 系统功能基本要求和功能描述1.2.1 基本信息管理基本信息包括客户信息、仓库信息和操作员信息。客户可以分为供应商和购货商两种类型。在产品入库时，需要提供供应商的信息；在产品出库和退货时，需要提供购货商的信息。基本信息管理模块可以实现以下功能： 添加、修改

4、、删除和查看客户信息； 添加、修改、删除和查看仓库信息； 添加、修改、删除和查看操作员信息。1.2.2 产品信息管理产品信息管理模块可以实现以下功能： 添加产品信息； 修改产品信息； 删除产品信息； 查询产品信息；1.2.3 仓库管理操作进行入库和出库操作。入库操作需要记录相关的产品信息、仓库信息、客户信息、入库时间等信息；出库操作需要记录相关的产品信息、仓库信息、客户信息、出库时间等信息。1.2.4 仓库警示管理仓库警示管理模块可以实现仓库产品数量报警和仓库容量报警。1.2.5 查询管理功能查询管理模块可以对仓库产品进行各种类型的查询，从而能够全面的了解仓库情况。1.3 系统功能模型根据以上

5、所介绍的功能，可以设计出系统的总体功能模块，如图1-1 所示。47仓库信I 口 操作 员仓添加查询删 除_Li=r、木查询仓询里仓rmj m除客图1-1仓库管理系统功能模块示意图1.4 数据分析1.4.1 数据流图通过进行系统调查，了解用户需求、分析应用软件 系统的功能需求。总结出了系统逻辑模型，即系统业务流程图、数据流图。如 图1-2和图1-3所示图1-2系统业务流程图图1-3仓库管理系统数据流图1.4.2数据字典名字：产品别名：描述：唯一的标识一个产品的信息名字：仓库别名：描述：唯一的标识一个仓库的信息名字：客户别名：描述：唯一的标识一个客户特征的名字：操作员别名：描述：唯一的标识一个职工

6、特征名字：库存表别名：描述：仓库存储物资名字：入库表别名：描述：物资的入库信一后、名字：出库表别名：描述：物资的出库信一后、定义：出库表=产品、数据库概念结构设计经考察和分析,本案例客房管理系统包括以下实 体：客户实体、客房实体、操作员实体、结算账单实 体，它们的E-R图如以下所示。图2-1产品及其属性图2-2库存表及其属性图2-3入库表及其属性图2-4出库表及其属性图2-5仓库及其属性图2-7操作员及其属性图2-8仓库管理系统E-R图三、数据库逻辑结构设计根据E-R图，数据库仓库管理系统包含以下 8个 表：客户信息表“客户”、仓库信息表“仓库”、操 作员信息表“操作员”、产品类别表“产品类别

7、”、 产品信息表“产品”、入库操作信息表“入库”、出库操作信息表“出库”和库存产品信息表“库存”。1.客户信息表“客户”客户信息表“客户”主要是用来保存客户信息, 表“客户”结构如图表2-1所示。表2-1客户信息表“客户”编号字段名称数据结构说明1客户号Int客户编号2客户名varchar(50)客户名称3客户类型tinyint客户类型，供应商、购货商4联系地址varchar(50)客户的联系地址5邮政编号varchar(10)邮政编码6联系电话varchar(30)联系电话7备注varchar(100)备注信息2.仓库信息表“仓库”仓库信息表“仓库”用来保存仓库信息，表“仓库” 的结构如表2

8、-2所示°表2-2仓库信息表“仓库”编号字段名称数据结构说明1仓库号int仓库编号2仓库名varchar(50)仓库名称3仓库备注varchar(100)仓库说明3 .操作员表“操作员”操作员表“操作员”用来保存用户信息，表“操 作员”的结构如表2-3表示。表2-3操作员信息表“操作员”编号字段名称数据结构说明1操作员号Int操作员的编号2操作员名varchar(40)用户名3密码varchar(40)密码4 .产品信息表“产品”产品信息表“产品”用来保存产品的基本信息, 表“产品”的结构如表2-5表示。表2-5产品信息表“产品”编号字段名称数据结构说明1产品号int产品编号2产品名

9、varchar(50)产品名称3产品数量int产品的数量4产品单价Varchar(20)产品的每单位价格5客户号int供应商编号5 .入库操作信息表“入库表”入库操作信息表“入库表”用来保存入库操作的 基本信息,表“入库表”的结构如表 2-6表示。表2-6入库操作信息表“入库表”编号字段名称数据结构说明1产品号int入库产品编号2入库单价Varchar(20)入库产品单价3入库数量int入库产品数量4客户号int客户编号5仓库号int仓库编号6入库时间char(10)入库日期6 .出库操作信息表“出库表”出库操作信息表“出库表”用来保存出库操作的 基本信息。表“出库表”的结构如表 2-7表示。

10、表2-7出库操作信息表“出库表”编号字段名称数据结构说 明1产品号int出库产品编号2出库单价Varchar(20)出库产品单价3出库数量int出库产品数量4客户号int客户编号5仓库号int仓库编号6出库时间char(20)出库日期7.库存产品信息表“库存表”库存产品信息表“库存表”用来保存库存产品的 基本信息，表“库存表”的结构如表 2-8表示。表2-8库存产品信息表“库存” e编号字段名称数据结构说明1产品号int产品编号2入库价格Varchar(20)产品入库单价3现存数量Int产品数量4仓库号Int仓库编号四、数据库物理结构设计在进行了数据表的逻辑结构定义后，需要为每个 数据表创建其

11、物理结构，即在数据库系统中定义数据 表具体存放的 格式、位置 等。这里列 出利用SQL Server2000自带的数据库创建的数据表的物理结构。1.“客户”表的物理结构“客户”表的物理结构如图4-1所示，关键字为"客户号”%设计表客户-，位置是仓库管理系统“中、-(local) *上2.“产品”表的物理结构数据类型长度允许空客户号int4客户名var char50客户类型vsr char20V联系地址varchar50V邮政编号varchsr10联系电话varchar307备注varchar100图4-1 “客户”表“产品”表的物理结构如图4-2所示，关键字产品号”飞设计表.产品”，

12、位置是.仓库管理系统”中."(local)"上列名数据类型长度允许空牌mt4产品名varchir50/产品数量mt4V产品单价v4rchar20V客户号mt4V3.图4-2 “产品”表“仓库”表的物理结构“仓库”表的物理结构如图 4-3所示，关键字为“仓库号”, 1E修仓库,包置是.仓库管理系统"中."(local)* 上列名数据类型长度允许空叩鱼库号int4仓库名var chsr50仓库备注viarchrIOCV4.“库存表”的物理结构“库存表”的物理结构如图4-4所示设营表库存表”，位置是融仓库管理系统,中' H(locaU"上列名

13、数据类型长度允许空产品号int4V入库价格var char20现存数量iM4仓库号int47图4-4 “库存表”5.“入库表”的物理结构“入库表”的物理结构如图4-5所示图4-3 “仓库”表Tti段计表"入库表* ,位置是"仓库管理系统再中.-(local)"上列名数据类型长度允年空JLint4V入库单价varchw20入库数量int4客尸号in七4仓库号int47入库时间varcKir10图4-5 “入库表”6. “出库表”的物理结构“出库表”的物理结构如图4-6所示Iffl设计表”出库表，位置是“仓库管理系统"中、Flocal'上列名数据类型

14、I长度允许空>产品号int4V出库单优V4r char20V出库数量int4V客户号一ilit4V仓库号int4V出库时间var char10V图4-6 “出库表”7. “操作员”表的物理结构“操作员”表的物理结构如图4-7所示扁设计表"操作员"，位置是“仓库管理系8T中、M(locaD"上列名数据类型长度允的|噪作员号int4操作员名rmhir407密蚂var char407图4-7 “操作员”表8. “产品视图”的物理结构“产品视图”的物理结构如图 4-8所示frlPx< IHI图*(701)炉严品号J产品名w产品数量7产品单价别名号名号 品品产

15、产产客品品品产产产草产人现食列有格量 所号怵数号 t品库存奉v>r7n设计观图,产品现图",便置上“色库管理系战“甲、"(local)- ±SELECT dbp产品产品号r dbv产：£1.产品匈dbo.产品，客户导，dho.产品产品豹1曷. db口.产品一声鼻血 心。.库存表.入库价格，心口.库存表.现存数量， 就。尾存表，仓库号FSCM 曲口.产品 IflHER JOIN<1111图4-8 “产品视图”五、数据库的实施根据以上所进行的调查、设计和进行方案，建立并 实施数据库。此系统运用SQL Server 2000进行数据库的开发。(1)

16、 据库建表语句名称：客户表“客户”标识：客户建表语句如下:intcreate table 客户 ( 客户号not null,客 户 名varchar(50)null,客 户 类 型tinyintnull,联 系 地 址varchar(50)null,邮政编号varchar(10)null,联系电话varchar(30)null,备注varchar(100)null,constraint PK_ 客户 primary key ( 客户号 )go(2) 名称 : 产品表“产品”标识：产品号建表语句如下:create table 产品 (产品号intnot null,产 品 名varchar(50)

17、null,产 品 数 量intnull,产 品 单 价varchar(20)null,客 户 号intnull,constraint PK_ 产品 primary key ( 产品号 )go(3) 名称：仓库表“仓库”标识：仓库号建表语句如下：create table 仓库 (仓 库 号intnot null,仓 库 名varchar(50)null,仓库备注varchar(100)null, constraint PK_ 仓库 primary key ( 仓库号 )go(4) 名称： “入库表”建表语句如下：create table 入库表 (产 品 号intnull,入 库 单 价varc

18、har(20)null,入 库 数 量intnull,客户号intnull,仓库号intnull,入 库 时 间varchar(10)null)go(5) 名称： “出库表”建表语句如下：create table 出库表 (产品号null,出库单价null,出库数量null,客户号null,仓库号null,出库时间null)intvarchar(20)intintintvarchar(10)go(6) 名称： “库存表”建表语句如下：create table 库存表 (产品号intnull,入 库 价 格varchar(20)null,现存数量intnull,仓库号intnull)go(7)

19、名称： “操作员”表建表语句如下：create table 操作员 (操 作 员 号intnot null,操 作 员 名varchar(40)null,密 码varchar(40)null,constraint PK_ 操作员 primary key ( 操作员号)go 2. 数据库建视图语句(1) 名称： “产品视图 ' ”建视图语句如下：CREATE VIEW db0fc 品视图ASSELECT dbo产品.产品号，dbo.产品.产品名, dbo.产品.客户号，dbo. 库存表.仓库号, dbo. 产品 .产品数量,dbo. 产品 . 产品单价, dbo. 库存表 . 入库价格

20、, dbo. 库存表 . 现存数量FROM dbo产品 INNER JOIN dbo. 库存表 ON dbo. 产品 . 产品号 = dbo. 库存表 . 产品号六、数据库的运行根据以上所做的准备以及SQL Server 2000 建立好的表、试图及各种关系，运用Visual Basic 6.0 为前台开发工具，开发出客户管理系统，主要运用了ADOD曜件和DataGrid控件。1 . 系统登陆界填入用户名和密码后点击【登录】按钮,系统将自动从数据库中判断是否存在相同的用户名和密码,如果有则进入系统, 进入系统的主页面并出现欢迎使用系统的对话框,不成功则显示错误信息页面。如果不存在 则提示用户名

21、和密码有错误信息。系统登陆界面如图6-1所示图6-1系统登陆界面2 .系统主界面主界面包括系统的主要功能包括新建客户信息、 客房信息查询、客户信息查询、结算信息账单，四个 主要的功能。用户可以根据需要点击自己想使用的功 能进入功能界面。系统主界面如图6-2所示。图6-2系统主界面3 .管理界面仓库信息管理修改更新删除返回客户信息管理客户类型：确定供反商 购贷茴 全部客户客户号1客户由1雷联录地址 .邮政编号JK奈电话1001李恒山和品片_1276000河北秦皇岛"M60M15Q33S6B519河花科技师范I0Q2冰舞1003奇迹班i帝北京ItlOCM卜1修改更新删除返回图6-3各信息

22、管理界面4 .添加界面用于添加新的信息，有添加客户信息、添加仓库 信息、添加产品信息、添加操作员信息，各个添加界 面如图4-4所示。图4-4-a添加客户信息界面图4-4-b添加仓库信息界面.漆加产品信息产品号：I产品名： I产品数量:I产品单价:I客户号：I确以褥加I返回图4-4-c添加产品信息界面5 .查询界面用于查询各种信息，有客户信息查询、仓库信息 查询、产品信息查询、操作员信息查询。各个查询界 面如图4-5所示。图4-5-1仓库信息查询图4-5-2产品信息查询入库表信息查询按产品编号查询：按入库时间查询：按仓库编号查询:亶询查询查询确定返回图4-5-3入库表信息查询图4-5-4客户信息

23、查询6 .删除界面删除界面用于删除无用的、过时的信息。包括删 除客户信息、删除仓库信息、删除产品信息。各界面 如下列图4-6所示。图4-6-1删除客户信息界面图4-6-2删除仓库信息界面图4-6-3删除产品信息界面参考文献1王珊，陈红.数据库系统原理教程M.北京：清华 大学出版社，1998.7.2王珊，萨师熠.数据库系统概论（第四版）M.北 京：高等教育出版社，2006.5.3虞益诚，孙莉.SQL Server 2000数据库应用技术M.北京:中国铁道出版社,2004.11.4刘钢.Visual Basic程序设计与应用案例M.北京：高等教育出版社,2003.9.5 Abraham Silbe

24、rschatz,HenryF.Korth ,S.Sudarshan.Database System口6esConcepts( Fourth Edition ) . Higher Education完全掌握SQL Server 2000J. 北京：人2001.PowerDesigner 软件工程技术M. 北京：2004.附录I仓库管理系统部分程序代码1. 登 陆代码Private Sub Command1_Click()Dim cn As New ADODB.Connectioncn.ConnectionString="Provider=SQLOLEDB.1;IntegratedSec

25、urity=SSPI;PersistSecurityInfo=False;Initial Catalog= 仓 库 管 理 系 统 ;Data Source=WWW-4FDE9FFEC01"cn.OpenDim rs, rss As New ADODB.RecordsetSet rs = cn.Execute("select * from 操作员 where操作员名='" & Text1.Text & "'")Set rss = cn.Execute("select * from 操作员 where密码

26、 ='" & Text2.Text & "'")If rs.EOF ThenMsgBox " 用户名错误!"Text1.Text = ""Text1.SetFocusElseIf rss.EOF ThenMsgBox " 密码错误!"Text2.Text = ""Text2.SetFocusElseMe.HideForm2.ShowMsgBox (Text1.Text + ", 欢迎您使用冰舞奇迹仓库管理系统")End IfEnd I

27、fEnd Sub2. 添 加客户信息代码Private Sub Command1_Click()Dim cn As New ADODB.ConnectionDim sql As String cn.ConnectionString"Provider=SQLOLEDB.1;IntegratedSecurity=SSPI;PersistSecurityInfo=False;Initial Catalog= 仓 库 管 理 系 统 ;DataSource=WWW-4FDE9FFEC01"cn.OpenDim a1, a2, a3, a4, a5, a6, a7 As String

28、a1 = Text1.Texta2 = Text2.Texta3 = Text3.Texta4 = Text4.Texta5 = Text5.Texta6 = Text6.Texta7 = Combo1.Textsql = "insert into 客户 values('" & a1 & "','" &a2 & "','" & a7 & "','" & a3 & "','

29、" & a4 & "','"& a5 & "','" & a6 & "')"cn.Execute (sql)cn.CloseMsgBox "已添加客户信息"End Sub3. 根 据客户号查看、删除客户代码Private Sub Command1_Click()Dim kehuhao As Stringkehuhao = Text8.TextAdodc1.Recordset.Find " 客户号 ="

30、; & Val(kehuhao) End SubPrivate Sub Command2_Click()Dim cn As New ADODB.ConnectionDim sql As StringDim kehuhao As Stringkehuhao = Text8.Textcn.ConnectionString="Provider=SQLOLEDB.1;IntegratedSecurity=SSPI;PersistSecurityInfo=False;Initial Catalog= 仓 库 管 理 系 统 ;DataSource=WWW-4FDE9FFEC01&quo

31、t;cn.Opensql = "delete from 客 户 where 客 户 号 ='" & kehuhao & "'"cn.Execute (sql)MsgBox "已删除编号为" & kehuhao & " 的客户信息"End Sub4. 查 看客户信息代码Private Sub Command1_Click()Dim cn As New ADODB.ConnectionDim rs As New ADODB.RecordsetDim sql As Stri

32、ng cn.ConnectionString="Provider=SQLOLEDB.1;Integrated Security=SSPI;PersistSecurityInfo=False;Initial Catalog= 仓 库 管 理 系 统 ;Data Source=WWW-4FDE9FFEC01" cn.Open If Combo1.Text = " 供应商 " Then rs.Open "select * from 客户 where 客户类型=' 供应商 '", cn, adOpenKeyset, adLoc

33、kBatchOptimistic, adCmdTextSet DataGrid1.DataSource = rs DataGrid1.RefreshElseIf Combo1.Text = " 购货商 " Then rs.Open "select * from 客户 where 客户类型='购 货 商 '", cn, adOpenKeyset, adLockBatchOptimistic, adCmdText Set DataGrid1.DataSource = rs DataGrid1.RefreshElsers.Open "

34、select * from 客户 ", cn, adOpenKeyset, adLockBatchOptimistic, adCmdText 41Set DataGrid1.DataSource = rsDataGrid1.RefreshEnd IfEnd IfEnd SubPrivate Sub Command2_Click()Dim cn As New ADODB.ConnectionDim rs As New ADODB.RecordsetDim sql As String cn.ConnectionString="Provider=SQLOLEDB.1;Integr

35、atedSecurity=SSPI;PersistSecurityInfo=False;Initial Catalog= 仓 库 管 理 系 统 ;Data Source=WWW-4FDE9FFEC01" cn.Open rs.Open "select * from 客户 where 客户号 ='" & Text1.Text &"'", cn, adOpenKeyset,adLockBatchOptimistic, adCmdTextSet DataGrid1.DataSource = rs DataGrid1.

36、RefreshEnd SubPrivate Sub Command3_Click()Dim cn As New ADODB.ConnectionDim rs As New ADODB.RecordsetDim sql As String cn.ConnectionString="Provider=SQLOLEDB.1;Integrated Security=SSPI;PersistSecurityInfo=False;Initial Catalog= 仓 库 管 理 系 统 ;Data Source=WWW-4FDE9FFEC01" cn.Open rs.Open &quo

37、t;select * from 客户 where 客户名 ='" &Text2.Text &"'", cn, adOpenKeyset,adLockBatchOptimistic, adCmdText Set DataGrid1.DataSource = rs DataGrid1.Refresh End Sub 5. 查 询仓库信息Dim sql As String cn.ConnectionString="Provider=SQLOLEDB.1;Integrated Security=SSPI;PersistSecuri

38、tyInfo=False;Initial Catalog= 仓 库 管 理 系 统 ;Data Source=WWW-4FDE9FFEC01" 43cn.Openrs.Open "select * from 仓库 where 仓库号 ='" &Text1.Text &"'", cn, adOpenKeyset,adLockBatchOptimistic, adCmdText Set DataGrid1.DataSource = rs DataGrid1.Refresh End SubPrivate Sub Com

39、mand2_Click()Dim cn As New ADODB.ConnectionDim rs As New ADODB.RecordsetDim sql As String cn.ConnectionString="Provider=SQLOLEDB.1;IntegratedSecurity=SSPI;PersistSecurityInfo=False;Initial Catalog= 仓 库 管 理 系 统 ;Data Source=WWW-4FDE9FFEC01" cn.Open rs.Open "select * from 仓库 where 仓库名 =

40、'" & Text2.Text &"'", cn, adOpenKeyset,adLockBatchOptimistic, adCmdTextSet DataGrid1.DataSource = rs DataGrid1.RefreshEnd Sub6. 添 加仓库信息Private Sub Command1_Click()Dim cn As New ADODB.ConnectionDim sql As Stringcn.ConnectionString"Provider=SQLOLEDB.1;IntegratedSecu

41、rity=SSPI;PersistSecurityInfo=False;Initial Catalog= 仓 库 管 理 系 统 ;DataSource=WWW-4FDE9FFEC01"cn.OpenDim a1, a2, a3 As Stringa1 = Text1.Texta2 = Text2.Texta3 = Text3.Textsql = "insert into 仓库 values('" & a1 & "','" &a2 & "','" &am

42、p; a3 & "')"cn.Execute (sql)cn.CloseMsgBox "已添加仓库信息"End Sub7. 查 看删除仓库信息Private Sub Command1_Click()Dim cangkuhao As Stringcangkuhao = Text1.TextAdodc1.Recordset.Find " 产 品 号 ="&Val(cangkuhao)End SubPrivate Sub Command2_Click()Dim cn As New ADODB.ConnectionDi

43、m sql As StringDim cangkuhao As Stringcangkuhao = Text1.Textcn.ConnectionString="Provider=SQLOLEDB.1;IntegratedSecurity=SSPI;PersistSecurityInfo=False;Initial Catalog= 仓 库 管 理 系 统 ;DataSource=WWW-4FDE9FFEC01"cn.Opensql = "delete from 仓 库 where 仓 库 号 ='" & cangkuhao &

44、"'"cn.Execute (sql)MsgBox "已删除编号为" & cangkuhao & " 的仓库信息End Sub8. 添 加操作员信息Private Sub Command1_Click()Dim cn As New ADODB.ConnectionDim sql As Stringcn.ConnectionString"Provider=SQLOLEDB.1;IntegratedSecurity=SSPI;PersistSecurityInfo=False;Initial Catalog= 仓

45、库 管 理 系 统 ;DataSource=WWW-4FDE9FFEC01"cn.OpenDim a1, a2, a3 As Stringa1 = Text1.Texta2 = Text2.Texta3 = Text3.Textsql = "insert into 操作员 values('" & a1 & "','"& a2 & "','" & a3 & "')"cn.Execute (sql)cn.Close

46、MsgBox "已添加操作员信息"End Sub9. 查 看删除操作员信息Private Sub Command3_Click()Dim caozuoyuanhao As Stringcaozuoyuanhao = Text1.TextAdodc1.Recordset.Find " 操 作 员 号 ="&Val(caozuoyuanhao)End SubPrivate Sub Command1_Click()Dim cn As New ADODB.ConnectionDim sql As StringDim kehuhao As Stringcaozuoyuanhao = Text1.Textcn.ConnectionSt