物流仓库管理系统毕业设计

本科生课程设计 XXX 大 学 课 程 设 计 2011 年 7 月 8 日 课 程 应用网站课程设计 题 目 仓库管理应用网站系统 院 系 计算机与信息技术学院 专业班级 xxxxxxxxx 学生姓名 xxxxx 学生学号 xxxxxxxxxxx 指导教师 xxxxx 本科生课程设计 I 目 录 第第 1 1 章章 系统分析系统分析 .1 1 1.1 开发背景.1 1.2 系统需求分析.1 1.3 开发环境.2 第第 2 2 章章 系统设计系统设计 .4 4 2.1 系统架构.4 2.2 系统功能模块.5 2.3 系统数据库设计.7 第第 3 3 章章 系统实现系统实现 .9 9 3.1 管理员主页面.9 3.2 库存单据管理.16 3.3 普通用户页面.22 第第 4 4 章章 系统测试系统测试 .2424 第第 5 5 章章 结束语结束语 .2525 参考参考文文献献 .2626 本科生课程设计 1 第 1 章 系统分析 1.1 开发背景 伴随着企业规模的不断扩大,原始的、手工的进行管理工作已经不能适应工 业企业发展的现状，更无法满足企业对管理工作的快速、准确的要求。而计算机 信息管理技术的迅速发展恰恰解决了这个问题，它使计算机技术与现代的管理技 术相互配合，来更加准确、高速的完成工业企业日常的仓库管理工作。使企业能 够以最少的人员来完成更多的工作，所以设计出一款界面友好型、经济实用型的 软件已经迫在眉睫、刻不容缓。 随着科学技术的不断发展，计算机科学日趋成熟，其强大的功能已为人们深 刻认识和体现到，它已进入到社会生活的各个领域当中，并发挥着越来越重要的 作用。作为计算机应用的一部分，使用计算机对小型工程信息进行管理，具有着 手工管理所无法比拟的优点，例如：检索快速、查找方便、可靠性高、存储量大、 保密性好、寿命长、成本低等。这些优点能够极大地提高仓库管理人员的工作效 率，也是企业的科学化、正规化管理的必由之路，与世界接轨的前提条件。 仓库管理信息系统主要采用 VS2005 和微软 SQL server2005 数据库做为开发 工具，应用面向对象的程序设计方法，进行开发与设计的。 它是一个典型的信 息管理系统。 1.2 系统需求分析 1. 功能需求 系统应提供用户登录识别，对仓库里面的产品进行增、删、改、查询功 能。人性化的管理单据，在库存盘点中应用回收站功能，以防用户误操作删 除仓库中的信息。当库存中的商品数量低于商品下限或者高于商品上限时， 库存会发出警报。当有重要通知时，管理员可以在系统中发布。用户可以修 改密码等功能。 2. 性能需求 系统反应时间应在 2s 内，主存容量应该为 256MB，磁盘容量最少应为 80GB，在安全性方面应该防止 SQL 注入等【1】。 3. 可靠性可用性需求 在对仓库中的数据进行操作时不能出现系统崩溃情况，当遇到的断电等 突发情况，应该有一定的恢复措施，在一个月内在任何一台计算机上该系统 不可用的时间不能超过 2%。 本科生课程设计 2 4. 出错处理需求 当插入的数据出现错误或重复时系统应该给一个友好的提示，比如弹出一个 对话框进行提示等。 流程图： 系统登录 验证密码或验证码不正确 密 码 修 改 库 存 查 询 库 存 查 询 库 存 警 报 退出 图 1-1 系统流程图 库 存 盘 点 单 据 管 理 修 改 密 码 生 成 报 表 管理员 库 存 警 报 普通用户 系 统 通 知 开始 结束 1.3 开发环境 数据库是数据管理的最新技术，是计算机科学的重要分支【2】。今天，信息 资源已成为各个部门的重要财富和资源。十年来，数据库管理系统已从专用的应 用程序包发展成为通用系统软件。由于数据库具有数据的结构化、可控冗余度、 较高的程序与数据独立性、易于扩充、易于编制应用程序等优点，因此，作为信 本科生课程设计 3 息系统核心和和基础的数据库技术得到了越来越广泛的应用，越来越多的新的应 用领域采用数据库技术来存储和处理信息资源，较大的信息系统都是建立在数据 库设计之上的。 由于用到的数据表格多，仓库商品信息的变动较大，我们选用 SQL Server 作为数据库开发，而不用 Access,主要是因为 Access 存放的记录，在实际运用中 不适合此系统；而 SQL Server 是一种常用的关系数据库，能存放和读取大量的 数据，管理众多并发的用户，使用方便快捷，故选用 SQL Server 数据库。 用 VB 语言进行编码。VB 编程语言是微软在.NET 计划中重要的开发语言，它 具有语法简单，功能强大，快速应用，语言自由，强大的 Web 服务器控件，支持 跨平台，与 XML 相融合等。因此选择 VB 编程语言。 本科生课程设计 4 第 2 章 系统设计 2.1 系统架构 整个系统分为四个部分，登录控制、管理员、普通用户和主框架。 由于每个用户的权限不同，所以用户进入系统应该进行身份验证。根据不同 的身份权限进入不同的操作界面，进行不同的操作，浏览不同的页面。 管理员进入仓库管理系统后，对仓库里面的产品进行增、删、改、查询功能。 库存盘点界面对各种操作类型（出/入库、归还、调拨等）的货物数量统计，并 且可以防止用户误操作删除仓库中的信息。当库存中的商品数量低于商品下限或 者高于商品上限时，库存会发出警报。当有重要通知时，管理员可以在系统中发 布等功能。 对于普通用户来说，可以根据需要查询所需要的库存信息，还能查看库存警 报有关信息，以及修改本身密码等功能。 本系统是以 Windows XP 系统为操作平台，在.NET2005 环境下编程实现。 系统 E-R 图： 本科生课程设计 5 N 1 N 1 1 1N 11 N 单据 管理 N 1 图 2-1 系统 E-R 图 商品号 名称 商品制造 价格 管理 仓储人员 库存产品时间 操作类型 操作人 产品名称 产品数量 操作时间 用户名 密码 管 理 编号 产品名称 现有库存 数量下限 数量上限 回收站 库存 管 理 管理 系统通知 管理 标题 时间 2.2 系统功能模块 本仓库管理系统分为系统通知、库存查询、库存警报、数据报表、库存盘点、 单据管理、修改密码以及注销登录八个模块。 本科生课程设计 6 仓库管理系统 系 统 管 理 修 改 密 码 密 码 修 改 管理员普通用户 库 存 管 理 数 据 报 表 库 存 警 报 库 存 查 询 单 据 管 理 库 存 查 询 库 存 盘 点 库 存 警 报 系 统 注 销 系 统 通 知 图 2-2 系统模块图 用例图【3】： 数据报表管理 导出报表 单据管理 库存管理 用户操作 单据查询 库存警报 库存盘点 库存查询 注销用户 修改密码 物流角色 图 2-3 用例图 本科生课程设计 7 2.3 系统数据库设计 综合以上分析，要实现上面的所有功能模块，本系统共有 6 个数据表，分别 是：选择题信息表、判断题信息表、填空题信息表、问答题信息表、试题科目表、 管理员信息表、试卷信息表和试卷内容表。 表 2-1 库存产品表(GoodList) 字段名数据类型长度是否主键说明 IDINT4是NOT NULL GoodNumINT4否NOT NULL GoodMingChengVARCHAR50否NOT NULL GoodMakeVARCHAR50否NOT NULL GoodCostVARCHAR50否NULL MakeTimeDATETIME8否NULL InputTimeDATETIME8否NOT NULL 表 2-2 单据表(GoodPagers) 字段名数据类型长度是否主键说明 IDVARCHAR4是NOT NULL CaoZuoLeiXingNVARCHAR50否NOT NULL CaoZuoRenNVARCHAR50否NOT NULL ChanPinMingChengNVARCHAR50否NOT NULL ChanPinShuLiangINT4否NULL XvQiuRenNVARCHAR50否NULL CaoZuoShiJianDATETIME8否NOT NULL 表 2-3 库存表(KuCun) 字段名数据类型长度是否主键说明 ChanPinBianHaoNVARCHAR4是NOT NULL ChanPinMingChengNVARCHAR50否NOT NULL XianYouKuCunINT4否NOT NULL ShuLiangShangXianINT4否NOT NULL ShuLiangXiaXianINT4否NULL SuoShuHuoJiaINT4否NULL SuoShuCangKuINT4否NOT NULL 本科生课程设计 8 表 2-4 库存回收站表(KuCunHuiShouZhan) 字段名数据类型长度是否主键说明 ChanPinBianHaoNVARCHAR4是NOT NULL ChanPinMingChengNVARCHAR50否NOT NULL XianYouKuCunINT4否NOT NULL ShuLiangShangXianINT4否NOT NULL ShuLiangXiaXianINT4否NULL SuoShuHuoJiaINT4否NULL SuoShuCangKuINT4否NOT NULL 表 2-5 系统通知表(SystemTest) 字段名数据类型长度是否主键说明 IDINT4是NOT NULL TongZhiBiaoTiNVARCHAR50否NOT NULL FaBuShiJianDATETIME8否NOT NULL 表 2-6 仓储人员表(UserList) 字段名数据类型长度是否主键说明 IDINT4是NOT NULL UserNameVARCHAR50否NOT NULL UserTypeINT4否NOT NULL PassWordVARCHAR50否NOT NULL AlignTypeINT4否NOT NULL ControlsINT4否NOT NULL GoodTypeNUMBER50否NOT NULL 本科生课程设计 9 第 3 章 系统实现 3.1 管理员主页面 登录页面（Login.aspx），其中包括四个 label 标签，三个文本域，一个下 拉列表框，两个按钮，左侧为从下往上滚动字幕. 图 3-1 登录页面 对于判断登录用户是否合法，用 If (dr.Read()来判断【4】。登录按钮单击 事件代码如下： Dim username, password As String username = TexUserName.Text.ToString().Trim() password = TexPassword.Text.ToString().Trim() Dim conn As New OleDbConnection(Provider=SQLOLEDB.1;Password=sa;Persist Security Info=True;User ID=sa;Initial Catalog=CangKu;Data Source=.) Dim cmd As New OleDbCommand(select * from UserList where UserName= Password=sa;Persist Security Info=True;User ID=sa;Initial Catalog=CangKu;Data Source=.) 建立Command对象 Dim cmd As New OleDbCommand(select * from SystemTest , conn) 建立DataAdapter对象 Dim adp As New OleDbDataAdapter(cmd) 建立DataSet对象 Dim ds As New DataSet() 填充DataSet对象 adp.Fill(ds, link) 绑定数据对象 GridView1.DataSource = ds.Tables(link).DefaultView 指定数据源 GridView1.DataBind() 执行绑定 End Sub 插入按钮单击事件代码如下： Dim strsql, bianhao, biaoti, shijian As String bianhao = TextBianHao.Text.ToString().Trim() biaoti = TextBiaoTi.Text.ToString().Trim() shijian = TextShiJian.Text.ToString().Trim() strsql = insert into SystemTest values( Password=sa;Persist Security Info=True;User ID=sa;Initial Catalog=CangKu;Data Source=.) 本科生课程设计 12 Dim cmd1 As New OleDbCommand(select * from SystemTest where id= Password=sa;Persist Security Info=True;User ID=sa;Initial Catalog=CangKu;Data Source=.) 建立Command对象 strsql = select * from GoodList where GoodNum= Password=sa;Persist Security Info=True;User ID=sa;Initial Catalog=CangKu;Data Source=.) 建立Command对象 strsql = select * from KuCun where xianyoukucun shuliangshangxian or xianyoukucun shuliangxiaxian Dim cmd As New OleDbCommand(strsql, conn) 建立DataAdapter对象 Dim adp As New OleDbDataAdapter(cmd) 建立DataSet对象 Dim ds As New DataSet() 填充DataSet对象 adp.Fill(ds, link) GridView1.DataSource = ds.Tables(link).DefaultView 指定数据源 绑定数据对象 GridView1.DataBind() 单击密码修改按钮进入 XiuGaiMiMa.aspx 页面，当修改成功时弹出成功对话 框 ： 本科生课程设计 14 图 3-7 密码修改 修改按钮单击事件代码如下： Dim jiumima, xinmima1, xinmima2 As String jiumima = TextBox1.Text.ToString().Trim() xinmima1 = TextBox2.Text.ToString().Trim() xinmima2 = TextBox3.Text.ToString().Trim() Dim conn As New OleDbConnection(Provider=SQLOLEDB.1;Password=sa;Persist Security Info=True;User ID=sa;Initial Catalog=CangKu;Data Source=.) Dim cmd1 As New OleDbCommand(select * from UserList where PassWord= Password=sa;Persist Security Info=True;User ID=sa;Initial Catalog=CangKu;Data Source=.) Dim cmd As New OleDbCommand(str, conn) Dim adp As New OleDbDataAdapter(cmd) Dim ds As New DataSet adp.Fill(ds, link) GridView1.DataSource = ds.Tables(link).DefaultView GridView1.DataBind() End Sub 在“导出 Excel 数据表”按钮的单击事件中写入如下代码： GridView1.Visible = True Response.Clear() Response.Buffer = True GridView1.DataBind() Response.Charset = GB2312 Response.ContentEncoding = System.Text.Encoding.UTF7 Response.AddHeader(Content-Disposition, attachment;filename=FileFlow.xls) Response.ContentType = application/ms-excel GridView1.EnableViewState = False Dim strWriter As New StringWriter() Dim htw As New HtmlTextWriter(strWriter) GridView1.DataBind() GridView1.RenderControl(htw) Response.Write(strWriter.ToString) Response.Flush() Response.End() GridView1.Visible = False GridView1.DataBind() 在“导出 Word 数据表”按钮的单击事件中写入如下代码： GridView1.Visible = True Response.Clear() Response.Buffer = True GridView1.DataBind() Response.Charset = GB2312 Response.ContentEncoding = System.Text.Encoding.UTF7 Response.AddHeader(Content-Disposition, attachment;filename=FileFlow.doc) Response.ContentType = application/ms-word GridView1.EnableViewState = False 本科生课程设计 16 Dim strWriter As New StringWriter() Dim htw As New HtmlTextWriter(strWriter) GridView1.DataBind() GridView1.RenderControl(htw) Response.Write(strWriter.ToString) Response.Flush() Response.End() GridView1.Visible = False GridView1.DataBind() 3.2 库存单据管理 当点击库存盘点按钮时系统进入 KuCunPanDian.sapx 页面，此页面主要通过 GridView 控件来实现，当系统第一次运行时“把所删除的记录放入回收站”按钮 不可用，只有单击 GridView 控件里面的“删除”按钮时此按钮才可用。 图 3-9 库存管理 其中在 GridView 控件的 GridView1_RowUpdating 事件中写入如下代码： Dim conn As New OleDbConnection(Provider=SQLOLEDB.1;Password=sa;Persist Security Info=True;User ID=sa;Initial Catalog=CangKu;Data Source=.) 定义变量取GridView中的值 Dim strsql, bianhao, mingcheng, kucun, shangxian, xiaxian, huojia, cangku As String bianhao = GridView1.DataKeys(e.RowIndex).Value.ToString().Trim() mingcheng = CType(GridView1.Rows(e.RowIndex).Cells(1).Controls(0), TextBox).Text.ToString().Trim() kucun = CType(GridView1.Rows(e.RowIndex).Cells(2).Controls(0), TextBox).Text.ToString().Trim() 本科生课程设计 17 shangxian = CType(GridView1.Rows(e.RowIndex).Cells(3).Controls(0), TextBox).Text.ToString().Trim() xiaxian = CType(GridView1.Rows(e.RowIndex).Cells(4).Controls(0), TextBox).Text.ToString().Trim() huojia = CType(GridView1.Rows(e.RowIndex).Cells(5).Controls(0), TextBox).Text.ToString().Trim() cangku = CType(GridView1.Rows(e.RowIndex).Cells(6).Controls(0), TextBox).Text.ToString().Trim() strsql = update KuCun set chanpinmingcheng= Password=sa;Persist Security Info=True;User ID=sa;Initial Catalog=CangKu;Data Source=.) 定义变量取GridView中的值 Dim strsql, strsql1, chanpinbianhaotext, a1, a2, a3, a4, a5, a6, a7 As String chanpinbianhaotext = GridView1.DataKeys(e.RowIndex).Value.ToString() strsql1 = select * from KuCun where chanpinbianhao= Password=sa;Persist Security Info=True;User ID=sa;Initial Catalog=CangKu;Data Source=.) Dim cmd1 As New OleDbCommand(select * from KuCun where chanpinbianhao= Password=sa;Persist Security Info=True;User ID=sa;Initial Catalog=CangKu;Data Source=.) conn.Open() Dim cmd As New OleDbCommand(Session(strsql3), conn) Dim cmd1 As New OleDbCommand(Session(del), conn) Dim dr As OleDbDataReader = cmd.ExecuteReader() Label1.Text = 数据已经从回收站中恢复！ Dim dr1 As OleDbDataReader = cmd1.ExecuteReader() conn.Close() Button1.Enabled = False 在页面加载事件中写入代码： If (Not Page.IsPostBack) Then Dim conn As New OleDbConnection(Provider=SQLOLEDB.1;Password=sa;Persist Security Info=True;User ID=sa;Initial Catalog=CangKu;Data Source=.) conn.Open() Dim cmd As New OleDbCommand(Session(strsql2), conn) Dim dr As OleDbDataReader = cmd.ExecuteReader() conn.Close() 重新绑定GridView控件，使每次显示的数据都是最新的 GridViewDataBind() 在 GridView 控件的 GridView1_RowDeleting 事件中写入代码： Dim conn As New OleDbConnection(Provider=SQLOLEDB.1;Password=sa;Persist Security Info=True;User ID=sa;Initial Catalog=CangKu;Data Source=.) 定义变量取GridView中的值 Dim strsql, chanpinbianhaotext As String chanpinbianhaotext = GridView1.DataKeys(e.RowIndex).Value.ToString() strsql = delete KuCunHuiShouZhan where chanpinbianhao= Password=sa;Persist Security Info=True;User ID=sa;Initial Catalog=CangKu;Data Source=.) 建立Command对象 strsql = select caozuoleixing,caozuoren,chanpinmingcheng,chanpinshuliang,xvqiuren,caozuoshijian from GoodPapers where caozuoleixing Password=sa;Persist Security Info=True;User ID=sa;Initial Catalog=CangKu;Data Source=.) Dim cmd1 As New OleDbCommand(select * from GoodPapers where id= & texid & , conn) conn.Open() Dim dr1 As OleDbDataReader = cmd1.ExecuteReader() If (Not dr1.Read() Then 若插入的主键值不存在，插入成功 Dim cmd2 As New OleDbCommand(strsql, conn) Dim dr2 As OleDbDataReader = cmd2.ExecuteReader() Label2.Text = 插入成功！ ElseIf MsgBox(此产品编号已经存在！) Then 否则弹出提示 End If conn.Close() 重新绑定GridView控件，使每次显示的数据都是最新的 DataBindGridView() 3.3 普通用户页面 普通用户登录该系统时，当其点击左侧框架的“库存盘点”、“单据管理” 等按钮时，系统会弹出一个友好的权限限制页面: 图 3-12 权限限制 本科生课程设计 23 当普通用户点击“注销登录”、“库存查询”、“库存警报”、“修改密码” 按钮时，其界面操作效果和图 3-1、图 3-5、图 3-6、图 3-7 相同。 本科生课程设计 24 第 4 章 系统测试 使用黑盒进行测试软件功能，它很可能发现白盒测试不易发现的其他类型的 错误。 黑盒测试力图发现下述类型的错误： 1)功能不正确或遗漏了功能。 2)界面错误。 3)数据结构错误或外部数据库访问错误。 4)性能错误 5)初始化和终止错误。 测试修改密码模块，当两次输入的密码不相同时，弹出提示对话框： 图 4-1 密码两次输入不一致 当输入的用户名或