仓库管理系统设计(陈超--)

仓库管理系统课程设计报告 1 理工学院 MIS课程设计 课程设计题目： 仓库管理系统 专 业 班 级： 工业工程 062 班 学 生 姓 名： 陈超 学 号： 指 导 教 师： 杨明欣 2009 年 6 月 20 日 仓库管理系统课程设计报告 2 摘 要 本数据库是一个简单仓库管理系统，通过它可以实现对原料，物料，产品的入库， 出库等管理，包含注册用户的信息，可以对原料，物料，产品的分种类，分不同型号 进行管理，而且对各种各样的查询，以及对各种各样的组合条件的查询也是非常的方 便，可以在实践当中运行。 通过它我们可以很方便的给仓库划分种类，使得什么样仓库存什么样的东西，还可 以对各种产品以及物料进行很好的管理，还包括可以自己定义仓库中的剩余容量少于 多少时给出很友好的提示。 关键词：仓库管理、数据流、E-R、触发器、存储过程 仓库管理系统课程设计报告 II 目 录 1 设计内容与要求.1 1.1 设计内容 .1 1.2 设计要求 .1 2 需求分析.2 2.1 系统需求概述 .2 2.2 系统需求说明.3 2.2.1 功能需求.3 2.2.2 性能需求.3 2.3 模块分析 .3 2.3.1 总体模块.3 2.3.2 分模块功能.4 2.4 数据流图.4 2.5 数据字典 .5 2.5.1 具体表.5 2.5.2 表里的具体清单.5 3 概念结构设计.6 3.1 入出库信息尸体 E-R 图.6 3.2 货物信息实体 E-R 图.6 3.3 用户信息实体 E-R 图.7 4 仓库管理系统应用程序设计.7 4.1 “登陆”模块详细设计 .7 4.2“主窗体”模块详细设计.9 4.3 各项子模块详细设计.12 5 设计体会与建议.63 致谢.63 参考文献.63 仓库管理系统课程设计报告 1 1 1 设计内容与要求设计内容与要求 1.1 设计内容 本次设计是要求设计一个仓库管理系统，能对原料，物料和产品的入库进行分开管 理，还能够进行一种或者多种要求的组合的查询。 1.2 设计要求 这个系统设计出来以后能够在实际当中发挥作用，并能够在实际当中给仓库管理员 带来方便，也能够在以后有需要的时候能够很方便的进行扩展，很方便的对这个数据 库进行维护，而且用较小的资源消耗就能够实现这些基本功能。 这个系统主要能实现以下的功能： 该系统能够实现对货物的各种信息的查询，并且查询时可以按照以货单号或日期进 行查询，包括逐个浏览，及对货物出入库信息的增加，删除和编辑操作，另外可以 根据输入的信息来检索某货物的信息。 对库房的货物信息进行汇总，其中汇总的主要内容主要包括日期，货单号，货物名 称，货源地，金额等。汇总时可以按照各种情况进行汇总，比如说按照日期，或者 按照条件组合进行汇总。 另外，管理人员也可以直接增加和删除用户信息。系统还可以提供一定的附加功能 来方便用户。 仓库管理系统课程设计报告 2 2 需求分析 2.1 系统需求概述 近年来，改革开放使我国企业得到了前所未有的发展机遇，同时也面对市场竞争 的严重挑战。虽然我国制造企业飞速发展。但是，由于制造企业的管理水平低，导致 了生产力的降低和众多企业的倒闭。随着全球范围内大市场的形成与发展，加剧了企 业之间在国内外市场的激烈竞争，迫使企业必须从时间、质量、成本和服务上不断增 强自己的竞争力以求得生存与发展。这就要求企业在生产管理上必须做出新的努力， 寻求新的理论和技术。面临这种严峻的形势，我们国家必须引进先进的企业管理思想 和技术并不断创新。信息技术的广泛应用，正改变着企业生产与管理的面貌，信息技 术已成为改善生产力、提高产品质量和增加经济效益的主要力量。近年来为了适应新 的竞争形势出现了一些新型生产方式，如计算机集成制造系统、精益生产方式、敏捷 制造、虚拟企业等，都是在计算机系统的支持下得以实现的。这样，又产生了如何在 生产管理中应用计算机技术来改善管理工作的问题。 众所周知，企业是通过向社会提供所需要的产品或服务而获得利润的经济组织。 对工业企业而言，企业生产经过原材料购入、产品加工等环节，产生价值的转移，从 而生产出社会所需要的新的产品。在这样的一个从原材料采购到生产，再由生产到销 售的过程中，企业必然要对它的各种物资进行有计划的采购、供应、保管、组织和合 理使用等一系列的管理工作，通常将上述工作统称为物资管理，物资管理工作的核心 是库存控制工作。 此仓库管理系统为了适应新形势的需要，借鉴了 MRP（制造资源计划 Manufacturing Resource Planning）的先进管理思想。其功能覆盖了物料需求和库存控制 两个方面的生产经营过程以及相关的财务活动。从而为制造业管理提供了比较有效的 工具。 仓库管理系统课程设计报告 3 2.2 系统需求说明 2.2.1 功能需求功能需求分析分析 1、该系统能够实现对货物的各种信息查询，并且查询时可以按照以货单号或日期进行 查询，包括逐个浏览，及时出入库信息的增加，删除和编辑操作，另外可以根据输入 的信息来检索某货物的信息。 2、对库房的货物进行汇总，其中汇总的内容主要包括日期，货单号，货物名称，货源 地，金额等。汇总时可以按照各种情况进行汇总，比如说按照日期，或者按照条件组 合进行汇总。 3、另外，管理人员也可以直接增加和删除用户信息。系统还可以提供一定的附加功能 来方便用户。 2.2.2 性能需求 在保证质量的情况下，提高运行速度，实现界面友好性、易操作性和跨平台性。 “仓库管理系统”应有良好的安全性，系统管理员通过“用户设置” ，可以建立任意多 个账户并为其设置权限和密码，保证系统信息的保密性。 2.3 模块分析 2.3.1 总体模块 经过整体分析，此系统主要包含以下几个主要模块如图 2.1： 仓库管理系统 系统管理 出库入库 货物详况 货物汇总 用户管理 密码管理 出库管理 入库管理 货物管理 货物查询 日期汇总 客户汇总 货物汇总 综合汇总 仓库管理系统课程设计报告 4 图 2.1 总体模块 2.3.2 分模块功能 系统的各个模块的功能如表 2.1 演示： 表 2.1 模块名称模块功能 物料入库模块完成各种物料入库登记工作，并增加库存量。 物料出库模块完成各种物料出库登记工作，并减少库存量。 物料查询模块实现对入库单，出库单以及前库存情况进行组合查询的功能。 用户，系统设置模 块 实现系统用户及其权限设置，参数设置和退出设置的功能。 2.4 数据流图 物料入库 物料入库信息 记录 物料入库信息 登记 物料出库 物料出库信息 记录 物料出库信息 登记 库存设置库存信息登记库存信息记录 物料查询查询信息登记 查询信息记录 物料控制物料信息登记 物料信息记录 设置用户信息登机用户信息记录 仓库管理 物料入库 表 物料出库 表 库存设置 表 物料查询 表 物料控制表 用户设置表 统计信息 统计信息 统计信息 统计信息 统计信息 统计信息 图 2.2 数据流图 仓库管理系统课程设计报告 5 2.5 数据字典 2.5.1 具体表 本数据库包含以下几个表，见表 2.2： 表 2.2 名称主键注释 货源地 货源地描述货源地的信息 货物详况货单号描述货单信息 入出库货单号描述产品入出库信息 客户客户名描述客户信息 系统管理用户名 用户信息注册表 2.5.2 表里的具体的列清单表里的具体的列清单 如表 2.3 所示： 表 2.3 名称数据类型长度 货源地文本20 货单号文本30 日期日期/时间 货物名称文本 单价文本10 数量数字10 单位文本10 金额货币 客户名文本 编号文本50 经手人文本10 备注文本10 用户名文本10 密码文本 权限文本 入出库是/否 仓库管理系统课程设计报告 6 3 概念结构设计概念结构设计 3.1 入出库信息实体入出库信息实体 E-R 图图 入出库信息实体 货源地 编号 日期 经手 人 货单号入出库备注 原料-仓库 E-R 图 3.2 货物信息实体货物信息实体 E-R 图图 货物货物 货 物 信 息 实 体 货单号货源地货物名称客户名 信息实体信息实体 E-R 图图 仓库管理系统课程设计报告 7 3.33.3 用户信息实体用户信息实体 E-RE-R 图图 用户信息实体 用户名密码权限 用户信息实体 E-R 图 4 4、仓库管理系统应用程序设计、仓库管理系统应用程序设计 41 “登录”模块详细设计 登录模块的详细设计主要是用户登录的一个界面，判断登录的用户是管理 员还是普通用户，进入后将面对的是主界面，从而进行相关的操作。 登录的界面主要由用户名和密码的信息，还有一些标题设置，确定和取消 的按钮组成。通过标题可以知道此系统的大概内容，由此，登录界面的设计完 成。 其代码如下： 仓库管理系统课程设计报告 8 Private Sub Command1_Click() Dim sql As String Dim rs_login As New ADODB.Recordset If Trim(txtuser.Text) = Then 判断输入的用户名是否为空 MsgBox 没有这个用户, vbOKOnly + vbExclamation, txtuser.SetFocus Else sql = select * from 系统管理 where 用户名= & _ data source=cangku.mdb conn.Open connectionstring cnt = 0 End Sub Private Sub Timer1_Timer() Label3.Caption = Time Label4.Caption = Date End Sub 42 “主窗体”模块详细设计 在这个项目中，选择使用多文档界面。使用这个窗体的好处是可以使程序 更加有条理。对于一个多任务的应用程序，使用多文档窗体还可以减少占用的 系统资源。 主窗体设计的界面是用菜单编辑器做的，主要由系统管理、出库入库、货 物详情、货物汇总和关于这五个大模块组成。主窗体是进行相关操作的主界面。 在这几个里，管理员有所有的权利进行各种操作。 仓库管理系统课程设计报告 10 其代码如下： Private Sub about_Click() frmabout.Show End Sub Private Sub add_user_Click() adduser.Show End Sub Private Sub check_find_Click() chaxun.Show End Sub Private Sub data_manage_Click() sqlfind = select * from 入出库 rs_data1.Open sqlfind, conn, adOpenKeyset, adLockPessimistic kumanage.Show End Sub 仓库管理系统课程设计报告 11 Private Sub exit_Click() Unload Me End Sub Private Sub in_check_Click() jinku.Caption = 入库 jinku.Show End Sub Private Sub MDIForm_Load() frmdata = False find = False End Sub Private Sub modify_pw_Click() changpwd.Show End Sub Private Sub out_check_Click() jinku.Caption = 出库 jinku.Show End Sub Private Sub sum_check_date_Click() summary_menu = check_date huizong.Show 1 End Sub Private Sub sum_date_custom_Click() summary_menu = date_custom huizong.Show 1 仓库管理系统课程设计报告 12 End Sub Private Sub summary_check_Click() summary_menu = check huizong.Show 1 End Sub Private Sub summary_custom_Click() summary_menu = custom huizong.Show 1 End Sub Private Sub summary_date_Click() summary_menu = date huizong.Show 1 End Sub 4.3 各项子模块详细设计 选择“系统管理”“添加用户”菜单，在添加用户的窗体里,输入新的 用户名称和密码后，单击“确定”按钮，系统将会添加新的用户。 其代码如下： Private Sub Command1_Click() Dim sql As String Dim rs_add As New ADODB.Recordset 仓库管理系统课程设计报告 13 If Trim(Text1.Text) = Then MsgBox 用户名不能为空, vbOKOnly + vbExclamation, Exit Sub Text1.SetFocus Else If Trim(Text2.Text) = Then MsgBox 密码不能为空, vbOKOnly + vbExclamation, Exit Sub Text2.SetFocus Else sql = select * from 系统管理 rs_add.Open sql, conn, adOpenKeyset, adLockPessimistic While (rs_add.EOF = False) If Trim(rs_add.Fields(0) = Trim(Text1.Text) Then MsgBox 已有这个用户, vbOKOnly + vbExclamation, Text1.SetFocus Text1.Text = Text2.Text = Text3.Text = Combo1.Text = Exit Sub Else rs_add.MoveNext End If Wend 仓库管理系统课程设计报告 14 If Trim(Text2.Text) Trim(Text3.Text) Then MsgBox 两次密码不一致, vbOKOnly + vbExclamation, Text2.SetFocus Text2.Text = Text3.Text = Exit Sub ElseIf Trim(Combo1.Text) system And Trim(Combo1.Text) guest Then MsgBox 请选择正确的用户权限, vbOKOnly + vbExclamation, Combo1.SetFocus Combo1.Text = Exit Sub Else rs_add.AddNew rs_add.Fields(0) = Text1.Text rs_add.Fields(1) = Text2.Text rs_add.Fields(2) = Combo1.Text rs_add.Update rs_add.Close MsgBox 添加用户成功, vbOKOnly + vbExclamation, Unload Me End If End If End If End Sub Private Sub Command2_Click() 仓库管理系统课程设计报告 15 Unload Me End Sub Private Sub Form_Load() Combo1.AddItem system Combo1.AddItem guest End Sub 选择“系统管理”“修改密码”菜单，在修改密码的窗体里，输入旧密 码和 2 次输入新密码后，单击“确定”按钮，系统将会更改当前用户的密码。 其代码如下： Private Sub Command1_Click() Dim rs_chang As New ADODB.Recordset Dim sql As String If Trim(Text3.Text = ) Then MsgBox 旧密码不能为空，请重新输入！, vbOKOnly + vbExclamation, 警告 Text3.SetFocus Text3.Text = Exit Sub End If If Trim(Text1.Text = ) Then MsgBox 新密码不能为空，请重新输入！, vbOKOnly + vbExclamation, 警告 仓库管理系统课程设计报告 16 Text1.SetFocus Text1.Text = Exit Sub End If If Text1.Text Text2.Text Then MsgBox 两次输入的新密码不同，请重新输入！, vbOKOnly + vbExclamation, 警告 Text1.SetFocus Text1.Text = Text2.Text = Exit Sub End If Dim strSql As String Dim rs As New ADODB.Recordset strSql = Select * from 系统管理 where 用户名 = & userID & rs.Open strSql, conn, adOpenForwardOnly, adLockReadOnly If Trim(rs.Fields(密码) Trim(Text3.Text) Then MsgBox 旧密码不对，请重新输入！, vbOKOnly + vbExclamation, 警告 Text3.SetFocus Text3.Text = Else strSql = Update 系统管理 set 密码 = & Text2.Text & where 用户名 = & userID & conn.Execute strSql MsgBox 密码修改成功！, vbOKOnly + vbInformation, 提示 Text3.Text = 仓库管理系统课程设计报告 17 Text1.Text = Text2.Text = Unload Me End If rs.Close Set rs = Nothing End Sub Private Sub Command2_Click() Unload Me End Sub 选择“入库出库”“入库出库”菜单进入界面 其代码如下： Option Explicit Dim rs_checkname As New ADODB.Recordset 货源地对应的数据对象 Dim rs_custom As New ADODB.Recordset 客户名对应的数据对象 Const row_num = 10 表格行数 Const col_num = 6 表格列数 仓库管理系统课程设计报告 18 Private Sub Combo2_Click() MSFlexGrid1.Text = Combo2.Text MSFlexGrid1.Row = MSFlexGrid1.Row + 1 MSFlexGrid1.Col = 0 Combo2.Visible = False Text5.Visible = True nextposition MSFlexGrid1.Row, MSFlexGrid1.Col End Sub Private Sub Command1_Click() Dim rs_save As New ADODB.Recordset Dim sql As String Dim i As Integer Dim s As String 转化数据用 On Error GoTo saveerror If Trim(Text1.Text) = Then MsgBox 货单不能为空!, vbOKOnly + vbExclamation, Text1.SetFocus Exit Sub End If If Combo1.Text = Then MsgBox 请选择货源地！, vbOKOnly + vbExclamation, Combo1.SetFocus Exit Sub End If If comboy.Text = Then 仓库管理系统课程设计报告 19 MsgBox 请选择年份！, vbOKOnly + vbExclamation, comboy.SetFocus Exit Sub End If If combom.Text = Then MsgBox 请选择月份！, vbOKOnly + vbExclamation, combom.SetFocus Exit Sub End If If combod.Text = Then MsgBox 请选择日期！, vbOKOnly + vbExclamation, combod.SetFocus Exit Sub End If If Text2.Text = Then MsgBox 请填写凭证号！, vbOKOnly + vbExclamation, Text2.SetFocus Exit Sub End If If Text3.Text = Then MsgBox 请填写经手人！, vbOKOnly + vbExclamation, Text3.SetFocus Exit Sub End If If MSFlexGrid1.Col 0 Then 仓库管理系统课程设计报告 20 MsgBox 请输入完整的物品信息！, vbOKOnly + vbExclamation, MSFlexGrid1.SetFocus Exit Sub End If sql = select * from 入出库 where 货单号= & Text1.Text & rs_save.Open sql, conn, adOpenKeyset, adLockPessimistic If rs_save.EOF Then rs_save.AddNew rs_save.Fields(0) = Trim(Text1.Text) rs_save.Fields(1) = CDate(Trim(comboy.Text) & - & Trim(combom.Text) & - & Trim(combod.Text) rs_save.Fields(2) = Trim(Combo1.Text) rs_save.Fields(3) = Trim(Text2.Text) rs_save.Fields(4) = Trim(Text3.Text) rs_save.Fields(5) = Trim(Text4.Text) If jinku.Caption = 入库 Then 入出库标记 rs_save.Fields(6) = True Else rs_save.Fields(6) = False End If rs_save.Update rs_save.Close Else MsgBox 货单号重复！, vbOKOnly + vbExclamation, Text1.SetFocus Text1.Text = 仓库管理系统课程设计报告 21 rs_save.Close Exit Sub End If sql = select * from 货物详况 rs_save.Open sql, conn, adOpenKeyset, adLockPessimistic For i = 1 To MSFlexGrid1.Row - 1 rs_save.AddNew rs_save.Fields(0) = Trim(Text1.Text) rs_save.Fields(1) = CDate(Trim(comboy.Text) & - & Trim(combom.Text) & - & Trim(combod.Text) rs_save.Fields(2) = Trim(Combo1.Text) MSFlexGrid1.Row = i MSFlexGrid1.Col = 0 rs_save.Fields(3) = Trim(MSFlexGrid1.Text) MSFlexGrid1.Col = 1 If jinku.Caption = 出库 Then s = - & Trim(MSFlexGrid1.Text) rs_save.Fields(4) = CDbl(s) Else rs_save.Fields(4) = CDbl(Trim(MSFlexGrid1.Text) End If MSFlexGrid1.Col = 2 rs_save.Fields(5) = Trim(MSFlexGrid1.Text) MSFlexGrid1.Col = 3 rs_save.Fields(6) = Trim(MSFlexGrid1.Text) MSFlexGrid1.Col = 4 仓库管理系统课程设计报告 22 If jinku.Caption = 出库 Then s = - & Trim(MSFlexGrid1.Text) rs_save.Fields(7) = CDbl(s) Else rs_save.Fields(7) = CDbl(Trim(MSFlexGrid1.Text) End If MSFlexGrid1.Col = 5 rs_save.Fields(8) = Trim(MSFlexGrid1.Text) Next i rs_save.Update rs_save.Close MsgBox 添加成功！, vbOKOnly + vbExclamation, Unload Me Exit Sub saveerror: MsgBox Err.Description End Sub Private Sub Command2_Click() Unload Me End Sub Private Sub Form_Load() Dim sql As String Dim i As Integer On Error GoTo loaderror sql = select * from 货源地 仓库管理系统课程设计报告 23 rs_checkname.CursorLocation = adUseClient rs_checkname.Open sql, conn, adOpenKeyset, adLockPessimistic sql = select * from 客户名 rs_custom.CursorLocation = adUseClient rs_custom.Open sql, conn, adOpenKeyset, adLockPessimistic While Not rs_custom.EOF Combo2.AddItem rs_custom.Fields(0) rs_custom.MoveNext Wend If Not rs_checkname.EOF Then rs_checkname.MoveFirst While Not rs_checkname.EOF 添加可选择的货源地 Combo1.AddItem rs_checkname.Fields(0) rs_checkname.MoveNext Wend End If comboy.AddItem 2002 添加年份 comboy.AddItem 2003 comboy.AddItem 2004 comboy.AddItem 2005 For i = 1 To 12 添加月份 combom.AddItem i Next i For i = 1 To 31 添加日期 combod.AddItem i 仓库管理系统课程设计报告 24 Next i setgrid setgrid_head Text5.Visible = False clear_grid Exit Sub loaderror: MsgBox Err.Description End Sub Private Sub Form_Unload(Cancel As Integer) 关闭数据对象 rs_checkname.Close rs_custom.Close End Sub Public Sub setgrid() 设置表格子程序 Dim i As Integer On Error GoTo seterror MSFlexGrid1.ScrollBars = flexScrollBarBoth MSFlexGrid1.FixedCols = 0 MSFlexGrid1.Rows = row_num MSFlexGrid1.Cols = col_num MSFlexGrid1.SelectionMode = flexSelectionByRow For i = 0 To row_num - 1 MSFlexGrid1.RowHeight(i) = 315 Next 仓库管理系统课程设计报告 25 For i = 0 To col_num - 1 MSFlexGrid1.ColWidth(i) = 1300 Next i Exit Sub seterror: MsgBox Err.Description End Sub Public Sub setgrid_head() On Error GoTo setheaderror MSFlexGrid1.Row = 0 MSFlexGrid1.Col = 0 MSFlexGrid1.Text = 物品名称 MSFlexGrid1.Col = 1 MSFlexGrid1.Text = 单价 MSFlexGrid1.Col = 2 MSFlexGrid1.Text = 数量 MSFlexGrid1.Col = 3 MSFlexGrid1.Text = 单位 MSFlexGrid1.Col = 4 MSFlexGrid1.Text = 金额 MSFlexGrid1.Col = 5 MSFlexGrid1.Text = 客户名 Exit Sub setheaderror: MsgBox Err.Description 仓库管理系统课程设计报告 26 End Sub Public Sub clear_grid() Dim i As Integer, j As Integer For i = 1 To row_num - 1 MSFlexGrid1.Row = i For j = 0 To col_num - 1 MSFlexGrid1.Col = j MSFlexGrid1.Text = Next j Next i End Sub Public Sub nextposition(ByVal r As Integer, ByVal c As Integer) On Error GoTo nexterror Text5.Width = MSFlexGrid1.CellWidth Text5.Height = MSFlexGrid1.CellHeight Text5.Left = MSFlexGrid1.Left + MSFlexGrid1.ColPos(c) Text5.Top = MSFlexGrid1.Top + MSFlexGrid1.RowPos(r) Text5.Text = MSFlexGrid1.Text Text5.Visible = True Text5.SetFocus Exit Sub nexterror: MsgBox Err.Description End Sub Private Sub MSFlexGrid1_Click() 仓库管理系统课程设计报告 27 If Combo2.Visible = True Then Exit Sub End If nextposition MSFlexGrid1.Row, MSFlexGrid1.Col End Sub Private Sub Text5_KeyPress(KeyAscii As Integer) Dim i As Integer, j As Integer Dim price As Double, coun As Integer On Error GoTo texterror If KeyAscii = keyenter Then MSFlexGrid1.Text = Text5.Text i = MSFlexGrid1.Row j = MSFlexGrid1.Col If j = 0 And Trim(Text5.Text) = Then MsgBox 物品名称不能为空, vbOKOnly + vbExclamation, Text5.SetFocus Exit Sub End If If j = 1 And Not IsNumeric(Text5.Text) Then MsgBox 单价请输入数字！, vbOKOnly + vbExclamation, Text5.SetFocus Exit Sub End If If j = 2 And Not IsNumeric(Text5.Text) Then MsgBox 数量请输入数字！, vbOKOnly + vbExclamation, 仓库管理系统课程设计报告 28 Text5.SetFocus Exit Sub End If If j = 3 And Trim(Text5.Text) = Then MsgBox 单位不能为空！, vbOKOnly + vbExclamation, Text5.SetFocus Exit Sub End If If j = 3 And Not IsNull(Text5.Text) Then MSFlexGrid1.Col = 1 金额由程序算出 price = CDbl(MSFlexGrid1.Text) MSFl