物流仓库管理系统毕业设计(共29页).doc
精选优质文档-倾情为你奉上XXX 大 学课 程 设 计课 程 应用网站课程设计 题 目 仓库管理应用网站系统 院 系 计算机与信息技术学院 专业班级 xxxxxxxxx 学生姓名 xxxxx 学生学号 xxxxxxxxxxx 指导教师 xxxxx 2011年 7月 8日专心-专注-专业目 录第1章 系统分析1.1 开发背景伴随着企业规模的不断扩大,原始的、手工的进行管理工作已经不能适应工业企业发展的现状，更无法满足企业对管理工作的快速、准确的要求。而计算机信息管理技术的迅速发展恰恰解决了这个问题，它使计算机技术与现代的管理技术相互配合，来更加准确、高速的完成工业企业日常的仓库管理工作。使企业能够以最少的人员来完成更多的工作，所以设计出一款界面友好型、经济实用型的软件已经迫在眉睫、刻不容缓。随着科学技术的不断发展，计算机科学日趋成熟，其强大的功能已为人们深刻认识和体现到，它已进入到社会生活的各个领域当中，并发挥着越来越重要的作用。作为计算机应用的一部分，使用计算机对小型工程信息进行管理，具有着手工管理所无法比拟的优点，例如：检索快速、查找方便、可靠性高、存储量大、保密性好、寿命长、成本低等。这些优点能够极大地提高仓库管理人员的工作效率，也是企业的科学化、正规化管理的必由之路，与世界接轨的前提条件。 仓库管理信息系统主要采用VS2005和微软SQL server2005数据库做为开发工具，应用面向对象的程序设计方法，进行开发与设计的。 它是一个典型的信息管理系统。1.2 系统需求分析1. 功能需求系统应提供用户登录识别，对仓库里面的产品进行增、删、改、查询功能。人性化的管理单据，在库存盘点中应用回收站功能，以防用户误操作删除仓库中的信息。当库存中的商品数量低于商品下限或者高于商品上限时，库存会发出警报。当有重要通知时，管理员可以在系统中发布。用户可以修改密码等功能。2. 性能需求系统反应时间应在2s内，主存容量应该为256MB，磁盘容量最少应为80GB，在安全性方面应该防止SQL注入等【1】。3. 可靠性可用性需求在对仓库中的数据进行操作时不能出现系统崩溃情况，当遇到的断电等突发情况，应该有一定的恢复措施，在一个月内在任何一台计算机上该系统不可用的时间不能超过2%。4. 出错处理需求当插入的数据出现错误或重复时系统应该给一个友好的提示，比如弹出一个对话框进行提示等。流程图：系统登录验证密码或验证码不正确密码修改库存查询库存查询库存警报退出图1-1 系统流程图库存盘点单据管理修改密码生成报表管理员库存警报普通用户系统通知开始结束1.3 开发环境数据库是数据管理的最新技术，是计算机科学的重要分支【2】。今天，信息资源已成为各个部门的重要财富和资源。十年来，数据库管理系统已从专用的应用程序包发展成为通用系统软件。由于数据库具有数据的结构化、可控冗余度、较高的程序与数据独立性、易于扩充、易于编制应用程序等优点，因此，作为信息系统核心和和基础的数据库技术得到了越来越广泛的应用，越来越多的新的应用领域采用数据库技术来存储和处理信息资源，较大的信息系统都是建立在数据库设计之上的。由于用到的数据表格多，仓库商品信息的变动较大，我们选用SQL Server作为数据库开发，而不用Access,主要是因为Access存放的记录，在实际运用中不适合此系统；而SQL Server是一种常用的关系数据库，能存放和读取大量的数据，管理众多并发的用户，使用方便快捷，故选用SQL Server数据库。用VB语言进行编码。VB 编程语言是微软在.NET计划中重要的开发语言，它具有语法简单，功能强大，快速应用，语言自由，强大的Web服务器控件，支持跨平台，与XML相融合等。因此选择VB编程语言。 第2章 系统设计2.1 系统架构 整个系统分为四个部分，登录控制、管理员、普通用户和主框架。由于每个用户的权限不同，所以用户进入系统应该进行身份验证。根据不同的身份权限进入不同的操作界面，进行不同的操作，浏览不同的页面。管理员进入仓库管理系统后，对仓库里面的产品进行增、删、改、查询功能。库存盘点界面对各种操作类型（出/入库、归还、调拨等）的货物数量统计，并且可以防止用户误操作删除仓库中的信息。当库存中的商品数量低于商品下限或者高于商品上限时，库存会发出警报。当有重要通知时，管理员可以在系统中发布等功能。 对于普通用户来说，可以根据需要查询所需要的库存信息，还能查看库存警报有关信息，以及修改本身密码等功能。本系统是以Windows XP系统为操作平台，在.NET2005环境下编程实现。系统E-R图：N1N111N11N单据管理N1图2-1 系统E-R图商品号名称商品制造价格管理仓储人员库存产品时间操作类型操作人产品名称产品数量操作时间用户名密码管理编号产品名称现有库存数量下限数量上限回收站库存管理管理系统通知管理标题时间2.2 系统功能模块本仓库管理系统分为系统通知、库存查询、库存警报、数据报表、库存盘点、单据管理、修改密码以及注销登录八个模块。仓库管理系统系统管理修改密码密码修改管理员普通用户库存管理数据报表库存警报库存查询单据管理库存查询库存盘点库存警报系统注销系统通知 图2-2 系统模块图用例图【3】：数据报表管理导出报表单据管理库存管理用户操作单据查询库存警报库存盘点库存查询注销用户修改密码物流角色图 2-3 用例图2.3 系统数据库设计 综合以上分析，要实现上面的所有功能模块，本系统共有6个数据表，分别是：选择题信息表、判断题信息表、填空题信息表、问答题信息表、试题科目表、管理员信息表、试卷信息表和试卷内容表。 表2-1 库存产品表(GoodList)字段名数据类型长度是否主键说明IDINT4是NOT NULLGoodNumINT4否NOT NULLGoodMingChengVARCHAR50否NOT NULLGoodMakeVARCHAR50否NOT NULLGoodCostVARCHAR50否NULLMakeTimeDATETIME8否NULLInputTimeDATETIME8否NOT NULL表2-2 单据表(GoodPagers)字段名数据类型长度是否主键说明IDVARCHAR4是NOT NULLCaoZuoLeiXingNVARCHAR50否NOT NULLCaoZuoRenNVARCHAR50否NOT NULLChanPinMingChengNVARCHAR50否NOT NULLChanPinShuLiangINT4否NULLXvQiuRenNVARCHAR50否NULLCaoZuoShiJianDATETIME8否NOT NULL表2-3 库存表(KuCun)字段名数据类型长度是否主键说明ChanPinBianHaoNVARCHAR4是NOT NULLChanPinMingChengNVARCHAR50否NOT NULLXianYouKuCunINT4否NOT NULLShuLiangShangXianINT4否NOT NULLShuLiangXiaXianINT4否NULLSuoShuHuoJiaINT4否NULLSuoShuCangKuINT4否NOT NULL 表2-4 库存回收站表(KuCunHuiShouZhan)字段名数据类型长度是否主键说明ChanPinBianHaoNVARCHAR4是NOT NULLChanPinMingChengNVARCHAR50否NOT NULLXianYouKuCunINT4否NOT NULLShuLiangShangXianINT4否NOT NULLShuLiangXiaXianINT4否NULLSuoShuHuoJiaINT4否NULLSuoShuCangKuINT4否NOT NULL表2-5 系统通知表(SystemTest)字段名数据类型长度是否主键说明IDINT4是NOT NULLTongZhiBiaoTiNVARCHAR50否NOT NULLFaBuShiJianDATETIME8否NOT NULL表2-6 仓储人员表(UserList)字段名数据类型长度是否主键说明IDINT4是NOT NULLUserNameVARCHAR50否NOT NULLUserTypeINT4否NOT NULLPassWordVARCHAR50否NOT NULLAlignTypeINT4否NOT NULLControlsINT4否NOT NULLGoodTypeNUMBER50否NOT NULL第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='" & username & "' and PassWord='" & password & "'", conn) conn.Open() Dim dr As OleDbDataReader = cmd.ExecuteReader() If (dr.Read() And TextYanZhengMa.Text = Label1.Text) Then Session("UserName") = username If DropDLAdmin.SelectedItem.Value = "管理员" Then Response.Redirect("index.aspx") ElseIf DropDLAdmin.SelectedItem.Value = "普通用户" Then Response.Redirect("indexPuTong.aspx") End If ElseIf MsgBox("你输入的用户名、密码、验证码有误！") Then End If conn.Close() 产生随机验证码代码如下： If Not IsPostBack Then Dim code As Integer code = Convert.ToInt16(10000 * Rnd() Label1.Text = CStr(code) End If管理员主页面（index.aspx），此页面使用了框架集，其中包括Top.aspx页面、Left.aspx页面和Main.aspx页面： 图 3-2 框架的顶部使用Now()函数来获取当前时间。Label2.Text = Now()图 3-3 框架的左部 其中点击注销登录按钮系统会自动跳转到Login.aspx页面。点击系统通知系统会自动跳转到XiTongTongZhi.aspx页面：图 3-4 系统通知页面加载时代码如下：If Not Page.IsPostBack Then DataBindGridView() End If其中DataBindGridView()子过程代码为：Sub DataBindGridView() '建立Connection对象 Dim conn As New OleDbConnection("Provider=SQLOLEDB.1;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('" & bianhao & "','" & biaoti & "','" & shijian & "')" 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 SystemTest where id='" & bianhao & "'", 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() Label1.Text = "插入成功！" ElseIf MsgBox("此编号已经存在！") Then End If conn.Close() '重新对控件进行绑定，是显示的信息始终是最新的 DataBindGridView()单击库存查询按钮时系统自动进入KuCunChaXun.aspx页面，其中用户可以根据自己的需求来选择查询条件，即可以按照产品名称进行查询也可按照产品编号进行查询。图 3-5 库存查询其中查询按钮单击事件代码如下：Dim strsql, strsql2 As String '建立Connection对象 Dim conn As New OleDbConnection("Provider=SQLOLEDB.1;Password=sa;Persist Security Info=True;User ID=sa;Initial Catalog=CangKu;Data Source=.") '建立Command对象 strsql = "select * from GoodList where GoodNum='" & TexKeyName.Text & "' " strsql2 = "select * from GoodList where GoodMingCheng='" & TexKeyName.Text & "'" Dim cmd As New OleDbCommand(strsql, conn) Dim cmd2 As New OleDbCommand(strsql2, conn) '建立DataAdapter对象 Dim adp As New OleDbDataAdapter(cmd) Dim adp2 As New OleDbDataAdapter(cmd2) '建立DataSet对象 Dim ds As New DataSet() Dim ds2 As New DataSet() '填充DataSet对象 If (RadLeiXing.Text = "产品编号") Then adp.Fill(ds, "link") GridView1.DataSource = ds.Tables("link").DefaultView End If If (RadLeiXing.Text = "产品名称") Then adp2.Fill(ds2, "link") GridView1.DataSource = ds2.Tables("link").DefaultView End If GridView1.DataBind() '执行绑定单击库存警报按钮，系统页面跳转到KuCunJingBao.aspx页面，本功能主要通过GridView控件来实现，其中“现有库存”使用模板列，用label标签来显示数据库中的值，并且设置label标签显示红色字体。图 3-6 库存警报在页面加载事件中写入如下代码：Dim strsql As String '建立Connection对象 Dim conn As New OleDbConnection("Provider=SQLOLEDB.1;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页面，当修改成功时弹出成功对话框 ：图 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='" & jiumima & "' and UserName= '" & Session("UserName") & "'", conn) conn.Open() Dim dr1 As OleDbDataReader = cmd1.ExecuteReader() '判断记录是否存在 If (dr1.Read() Then If TextBox2.Text = TextBox3.Text Then Dim cmd2 As New OleDbCommand("update UserList set PassWord='" & xinmima1 & "' where UserName='" & Session("UserName") & "'", conn) Dim dr2 As OleDbDataReader = cmd2.ExecuteReader() MsgBox("恭喜，密码修改成功") ElseIf MsgBox("两次输入的密码不一致") Then End If ElseIf MsgBox("你输入的密码有误！") Then End If conn.Close()当单击数据报表按钮时系统进入页面ShuJuBaoBiao.aspx，用户可以从下拉列表中选择不同的数据表进行导出。图 3-8 数据报表在确定按钮的单击事件中写入如下代码：If IsPostBack Then DataBind() End If其中databind()子过程如下： Sub databinds() If DropDownList1.Text = "GoodPapers" Then strbm = "GoodPapers" End If If DropDownList1.Text = "KuCun" Then strbm = "KuCun" End If Dim str As String str = "select * from " & strbm 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(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 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() 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='" & mingcheng & "',xianyoukucun='" & CInt(kucun) & "',shuliangshangxian='" & CInt(shangxian) & "',shuliangxiaxian='" & CInt(xiaxian) & "',suoshuhuojia='" & CInt(huojia) & "',suoshucangku='" & CInt(cangku) & "' where chanpinbianhao='" & bianhao & "'" Dim cmd As New OleDbCommand(strsql, conn) conn.Open()
