仓库管理系统 数据库应用技术课程设计 报告 2

天津理工大学中环信息学院数据应用技术课程设计说明书 1 一、仓库管理信息系统问题综述

（一）、问题提出 “21世纪是中国的世纪”，这是一句在20世纪末被世界上很多国家和国际经济学专家所谈论的热门话题。随着我国改革开放程度的不断深入和经济的持续高速发展，大、中、小企业如雨后春笋般的在中国大地上崛起，为了适应21世纪信息时代的需要，相应的企业运做也显得尤其重要。好的企业管理必将带来好的效益，尤其是信息化的今天更显其重要性。所以很多信息化的管理方式被人们开发出来。“仓库管理系统”就是其中之一。 （二）、仓库管理系统基本背景 随着计算机机技术的飞跃发展，数据库的发展也日趋成熟，由于企业网建设的不断完善 ，对企业信息管理的要求也越来越高，为了实现对企业物资的便捷管理，就要求企业有一套方便的仓库管理系统，仓库管理系统是一个典型的管理信息系统（MIS），仓库管理系统是一个企业不可或缺的一个组成部分，它对于一个企业物资的方便管理有着重要作用。 仓库管理系统应该能够为用户提供充足的信息和方便的查询以及便捷的修改，但一直以来人们传统人工的方式管理仓库的各种资料，这种管理方式存在着很多缺点，如：效率低，保密性差，另外，时间一长将产生大量的文件和数据，这对于查找，更新和维护都带来了不少的麻烦，随着计算机日益走进人类社会的各个领域，其强大的功能已为人们所熟知，作为计算机应用的一部分，使用计算机对仓库信息进行管理，具有手工管理所无法比拟的优点，如：检索迅速，查找方便，可靠性高，存储量大，保密性好，寿命长，成本低等。这些优点能够极大提高仓库管理的效率，也是企业正规化，科学化管理，并与世界企业接轨的重要条件。 基于以上考虑，我根据企业中存在的大量有关仓库方面的数据的特点，提出在企业信息管理系统的基础上将仓库信息的查询，修改等环节与其有机的结合在一起，为企业提供一个完整的，有效的，综合的管理分析系统。 二、系统需求分析 （一）、系统的主要功能： 1、入库管理，可以填写入库单，确认产品入库； 2、出库管理，可以填写出库单，确认出库； 3、仓库管理，可以填写仓库编号，对仓库进行管理； 4、库存设置，连接入库管理和出库管理，确认库存； 5、查询产品入库情况、出库情况、当前库存情况，可以按出库单、入库单，产品、时间进行查询。 （二）、数据流图 天津理工大学中环信息学院数据应用技术课程设计说明书

2 图1 系统数据流图0层图

图2 系统数据流图1层图 （三）、数据字典 表1 产品表的结构 数据项名 别名 数据类型 长度 逻辑关系 cpnumber 产品编号 char 10 主键，决定产品信息的其它数据项 cpname 产品名称 char 10 依赖于产品编号

表2 仓库表的结构 数据项名 别名 数据类型 长度 逻辑关系 caknumber 仓库号 char 10 主键，决定仓库信息的其它数据项 cakname 仓库名 char 10 依赖于仓库号

表3 库存的结构 数据项名 别名 数据类型 长度 逻辑关系 caknumber 仓库号 char 10 主键，决定库存信息的其它数据项 cpnumber 产品编号 char 10 主键，决定库存信息的其它数据项 kcamount 库存量 int 4 依赖于仓库号，产品编号

表3 管理员的结构 数据项名 别名 数据类型 长度 逻辑关系 glynumber 管理员ID char 10 主键，决定管理员信息的其它数据项 glyname 管理员姓名 char 10 依赖于管理员 天津理工大学中环信息学院数据应用技术课程设计说明书 3 glypassword 密码 int 10 依赖于管理员

表4 入库表的结构 数据项名 别名 数据类型 长度 逻辑关系 rknumber 入库编号 char 10 主键，决定入库信息的其它数据项 rktime 入库时间 datetime 8 依赖于入库编号 caknumber 仓库号 char 10 依赖于入库编号 cpnumber 产品编号 char 10 依赖于入库编号 cpamount 产品数量 int 4 依赖于入库编号 glynumber 管理员编号 char 10 依赖于入库编号

表5 出库表的结构 数据项名 别名 数据类型 长度 逻辑关系 cknumber 出库编号 char 10 主键，决定出库信息的其它数据项 cktime 出库时间 datetime 8 依赖于出库编号 caknumber 仓库号 char 10 依赖于出库编号 cpnumber 产品编号 char 10 依赖于出库编号 cpamount 产品数量 int 4 依赖于出库编号 glynumber 管理员编号 char 10 依赖于出库编号 三、系统总体设计

图3 系统功能模块图 四、数据库设计 1、数据库概念结构设计 天津理工大学中环信息学院数据应用技术课程设计说明书 4 图4 系统E-R图 2、逻辑结构设计，将概念模型转化为关系模型： 产品：（产品编号；产品名称） 仓库：（仓库号；仓库名） 库存：（仓库号；产品编号；库存量） 管理员：（管理员ID；管理员姓名；密码） 入库：（入库编号；入库时间；仓库号；产品编号；产品数量；管理员编号） 出库：（出库编号；出库时间；仓库号；产品编号；产品数量；管理员编号） 3、物理设计，选择实施环境。 选择SQLServer2000作为本信息系统的数据库管理系统；选Microsoft Visual Studio 2008，利用Visual Basic语言编辑本信息管理系统。 五、系统详细设计

1、功能需求 该系统的用户为仓库管理员，同时他也是系统管理员。系统的主要功能如下： 1） 仓库入库管理：主要是管理员对进入仓库的产品进行登记，包括入库编号，入库时间，仓库号，产品编号，产品数量，以及管理员编号等。以便统一管理，当同一产品入库时记录追加，同时也要记录仓库入库的日志信息。 2） 仓库出库管理：主要是管理员对进入仓库的产品进行登记，包括出库编号，出库时间，仓库号，产品编号，产品数量，以及管理员编号等。以便统一管理，当同一产品出库时记录减少，同时也要记录仓库出库的日志信息。 3） 仓库查询管理：用户可按产品号，仓库号等进行查询。这些查询主要是用户需要知道产品资料是进行，由于只进行查询操作，所以数据以只读的形式出现。 天津理工大学中环信息学院数据应用技术课程设计说明书 5 2、用户界面设计

图5 用户登录界面

图6 系统管理界面 天津理工大学中环信息学院数据应用技术课程设计说明书

6 图7 入库管理界面 天津理工大学中环信息学院数据应用技术课程设计说明书

7 图8 新建入库信息界面

图9 系统管理界面 3、程序代码设计与分析 1）系统登录 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim 管理员ID As String Dim 密码 As String 管理员ID = TextBox1.Text 密码 = TextBox2.Text Dim str As String str = "select 管理员ID,密码 from 管理员 where 管理员ID='" & 管理员ID & "' and 密码='" & 密码 & "'" comm.Connection = conn comm.CommandType = CommandType.Text comm.CommandText = str da.SelectCommand = comm Try conn.Open() da.Fill(ds) If ds.Tables(0).Rows.Count <> 0 Then Dim frm1 As New Form2 天津理工大学中环信息学院数据应用技术课程设计说明书 8 frm1.Show() Me.Hide() Else MessageBox.Show("密码或用户名错误，请重新输入", "提示信息") TextBox1.Text = "" TextBox2.Text = "" TextBox1.Focus() End If Catch ex As Exception MessageBox.Show("登陆失败", "提示信息") End Try End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Application.Exit() End Sub

2）入库管理 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim frm1 As New Form7 frm1.Show() Me.Hide() End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click If conn.State = ConnectionState.Closed Then conn.Open() End If Dim a As String a = "select * from 入库" comm.Connection = conn comm.CommandType = CommandType.Text comm.CommandText = a da.SelectCommand = comm ds.Tables.Clear() DataGridView1.Invalidate() da.Fill(ds, "入库") DataGridView1.DataSource = ds.Tables("入库") If conn.State = ConnectionState.Open Then conn.Close() End If End Sub