库存管理系统设计毕业论文.doc

库存管理系统毕业论文目 录摘 要1Abstract2第一章 引言411 课题背景412 选题意义413 系统简介5第二章 系统的分析621 系统的初步调查622 系统开发的目标和思想623系统开发方法724 系统的可行性分析825 系统的组织结构分析926 业务流程分析10第三章 系统的设计1831 系统的功能结构设计1832 界面设计与代码设计2333 输入输出设计2234 系统的数据库设计24第四章 系统使用与维护说明书3441 概述-运行环境3442 安全与保护措施3443 系统的登录及使用说明34结束语46致谢47参考文献48第一章 引言11 选题背景本课题以我所工作过的单位：某电器公司为设计背景，此公司是一个正在迅猛发展中的企业，随着其规模的不断扩大，公司每天要处理的数据量也越来越大，单纯的手工处理这些海量数据,所以对于一套可靠方便的库存管理系统拥有需求。为了帮助企业建立良好的管理秩序，在信息化时代充分利用计算机作为管理手段提高管理水平和业务处理，我们设计了此管理信息系统，希望能为企业发挥一点作用。在设计期间我们得到了各方面人员的大力配合，在借鉴其它一些软件开发经验的基础上，设计了这套库存管理系统。12 选题意义任何学科的发展都与当时的环境和条件紧密相联。管理信息系统也是一样，在人类进入工业社会以后，出于对生存与发展的需要，人们开始尝试使用更先进的设备和技术来处理和使用设备来解决现实中遇到的问题,从实际求出发，针对性强，功能齐备，旨在通过帮助该企业管理实现信息化，以提高企业管理的效率。13 系统简介本系统是根据企业的特点，集进、销、存、分析于一体，为企业量身定做的库存管理软件，在设计格方面，适当搭配图形，显示内容可随时依条件更新。显示信息准确，信息量大，有直观形象，给人以美观大方的感受。第二章 系统的分析2.1系统的初步调查库存管理是管理或控制公司资源，如在制品、原材料、组件和成品的系统方法和工具。通过本课程的学习，将使您迅速识别库存管理中存在的问题，并对这些问题加以改善；它还将帮助您设计及建立整套的库存管理流程，从而提高库存周转率，减少运营资金的占用，使冻结的资产变成现金，减少由于库存淘汰所造成的成本。22 系统开发的目标和思想(1)防止断档。缩短从接受定单到送达货物的时间，以保证优质服务，同时又要防止脱销。(2)保证适当的库存量，节约库存费用。(3)降低物流成本。用适当的时间间隔补充与需求量相适应的合理的货物量以降低物流成本，消除或避免销售波动的影响。(4)保证生产的计划性、平稳性以消除或避免销售波动的影响。(5)展示功能。(6)储备功能。在价格下降时大量储存，减少损失，以应灾害等不时之需。23 系统开发方法本系统采用visual basic与微软的access为数据库的方式.Visual Basic 6.0是Micrsoft公司出品的开发工具，Visual Basic是一种可视化的，面向对象的Windows开发语言，它具有易用，通用和开发效率高的特点。随着微软对它不断地改进以及计算机本身性能的提高，使得Visual Basic越来越适合一般的应用程序开发。正如Bill Gate所说，世界上绝大多数的Windows应用程序是用Visual Basic编写的。在众多的开发工具中，我们为什么要选择Visual Basic6.0呢？因为VB具有众多其它开发工具所没有的优点！使用MicrosoftAccess，可以在单一的数据库文件中管理所有的信息。在这个文件中，用户可以将自己的数据分别保存在各自独立的存储空间中，这些空间称作表；可以使用联机窗体来查看、添加及更新表中的数据；使用查询来查找并检索所要的数据；也可以使用报表以特定的版面布置来分析及打印数据。 如果要保存数据，请为每一种类型的信息创建一个表。如果要从查询、窗体或报表中的多个表中将数据合并在一起，就要定义各个表之间的关系。 如果要搜索并检索符合指定条件的数据，包括来自多个表中的数据，就要创建查询。查询的同时也可以更新或删除多条记录，并对数据执行内嵌或自定义的计算。 如果要简单地直接在某个表中查看、输入及更改数据，请创建一个窗体。在打开一个窗体时，MicrosoftAccess将从一个或多个表中检索数据，并使用用户在“窗体向导”选择的版面布局或所创建的版面布局，将窗体显示在屏幕上。 如果要分析数据或将数据以特定的方式打印出来，请创建一个报表。例如，可以打印一份将数据分组并计算数据总和的报表，也可以打印另一份带有各种数据格式的打印邮件标签的报表。24 系统的可行性分析系统定义明确以后,应该对系统可行性进行研究.可行性研究包括技术可行性,经济可行性以及社会可行性等方面. 技术可行性研究是根据现有的和准备充实的设备条件与技术力量来分析系统在技术上实现的可能性,弄清楚现有的技术条件能否保证顺利完成开发工作.库存管理系统在技术可行性上完全可以胜任,由于本库存管理系统,采用单机版,对网络的研究不高,采用micorsof access数据库,以及visual basic 6.0 结合操作系统.在设备条件上,主要考虑计算机的内存容量,外存容量,运算速度,数据精度,汉字功能,多媒体功能,可靠性以及对数据传送与通信,网络,数据库的需求以及实现的可能性.库存管理系统在如下平台中经过测试可以正常运行:硬件平台CPUIntel P4 2.2G主板Intel 850芯片组的GA-8TX-C内存1256的三星Rambus内存硬盘Seagate Barracuda 7200.7 80G显卡Unika 小妖G9800显示器美格770PF，17寸纯平显示器软件环境操作系统Microsoft WindowsXP简体中文专业版SP2办公软件Microsoft Office 2003显卡驱动nVIDIA ForceWare驱动56.72版For Win2000/XP经济可行性研究的目的,是希望以最小的开发成本取得具有最佳经济效益的软件产品,它除了研究开发与维护新系统所需要的费用是否能够可靠地提供外,主要研究新系统将来带来地经济效益是否超过其开发与维护所需要大的费用,论证搞这样的一个项目是否合算.库存管理系统是方便企业管理者仓库管理员完成日常工作的得力助手,由于辅助了计算机高科技技术,大大的提高了员工,管理者的工作效率.而且软件产品的无损耗性,决定了此系统的低投入,高回报的特性,所以在经济上具有可行性.社会可行性是指所开发的软件项目是否涉及到知识产权的纠纷等法律问题,这样的软件产品投入运行后,对生产,管理或经营体制带来变革的社会影响以及社会承认能力.25 系统的组织结构分析 本系统由以下几个主要部分构成:程序登陆系统设置采购信息库存入库信息出库信息数据维护模拟配货工具管理退出26 业务流程分析 采购信息获得库存信息查询出库信息建立模拟配货第三章 系统的设计31 系统的功能结构设计本系统主要功能模块由:1.系统设置:锁定系统,操作员入口,登陆设置.2.采购信息:采购单,采购查询,采购统计.3.库存:元件登记,产品登记,库存查询.4.入库信息:入库单,入库查询,入库统计5.出库信息:出库单,出库查询,出库统计6.数据维护:供应商信息,数据维护7.模拟配货:公司材料模拟组成,公司材料模拟配套8.工具管理:工具库存,入库管理.出库管理,入库管理9.退出32 界面设计与代码设计创建新用户界面创建新用户源代码:Private Sub CmdOk_Click()On Error GoTo gl If Txt(1).Enabled = False Then If rs.State Then rs.Close End If rs.Source = select * from usertable where username= & MSF.TextMatrix(MSF.row, 0) & rs.Open , cn, adOpenKeyset, adLockOptimistic rs!UserName = Trim(Txt(0).Text) rs.Update rs.Close Set rs = Nothing MSF.TextMatrix(MSF.row, 0) = Txt(0).Text CmdAdd.Enabled = True CmdAdd.SetFocus Exit Sub End If CmdCancel.Enabled = False If Len(Trim(Txt(2).Text) = 0 Or Len(Trim(Txt(0).Text) = 0 Or Len(Trim(Txt(1).Text) = 0 Then MsgBox 数据不完整，请检查！ , , 提示信息 Exit Sub End If If Trim(Txt(2).Text) Trim(Txt(1).Text) Then MsgBox 两次密码值不相等！ , , ginfo Exit Sub End If Set rs = New ADODB.Recordset rs.Source = select * from usertable order by id rs.Open , cn, adOpenKeyset, adLockOptimistic If rs.RecordCount -1 Then rs.MoveLast Idadd = rs!ID Else Idadd = 1 End If If Flg Then rs.AddNew rs!ID = Idadd + 1 rs!UserName = Txt(0).Text rs!userpwd = Txt(1).Text rs!userdep = UsrDepartment rs.Update rs.Close Set rs = Nothing MSF.AddItem Txt(0).Text CmdAdd.Enabled = True CmdOk.Enabled = False CmdDelete.Enabled = False CmdAdd.SetFocus Exit Subgl: MsgBox err.DescriptionEnd SubPrivate Sub cmdpwdedit_Click()frmChangePassword.Show 1End SubPrivate Sub Form_Load() UsrDepartment = MainManager LoadUserToMsfObjectEnd Sub采购单界面:采购单源代码:Private Sub Command3_Click() RsbuydTmp.Filter = ename= & Trim(dtgrd.Columns(0).Text) & And etype = & Trim(dtgrd.Columns(1).Text) & Toolbar1.Buttons(6).Enabled = False If dtgrd.row -1 Then Re = MsgBox(您确定要删除表格中的记录吗?, vbYesNo + vbQuestion + vbDefaultButton2, ginfo) If Re = 6 Then RsbuydTmp.Delete adAffectCurrent RsbuydTmp.UpdateBatch adAffectCurrent RsbuydTmp.Requery End If End If Ado.RecordSource = select * from grdbuy Ado.CursorLocation = adUseClient Ado.Refresh Set dtgrd.DataSource = Ado dtgrd.Refresh RsbuydTmp.Filter = RsbuydTmp.Requery End Sub库存查询界面:库存界面源代码:Private Sub CmdOk_Click()On Error GoTo gl Dim SQL As String If opt1.Value Then If Trim(txtname) Then SQL = ename like % & Trim(txtname) & % End If RsE.Filter = SQL If Not (RsE.BOF Or RsE.EOF) Then Set dtgrd2.DataSource = RsE Else MsgBox 没有找到记录!, , ginfo RsE.Filter = End If Else If Trim(txtname) Then SQL = Pname= & Trim(txtname) & End If RsP.Filter = SQL If Not (RsP.BOF Or RsP.EOF) Then Set dtgrd1.DataSource = RsP Else MsgBox 没有找到记录！, , ginfo RsP.Filter = End If End If Exit Subgl: MsgBox err.DescriptionEnd SubPrivate Sub Form_Load() frmph.Top = 0 frmph.Left = 0 RsP.Open select * FROM prostock, cn, adOpenKeyset, adLockBatchOptimistic RsE.Open select * from EleStock, cn, adOpenKeyset, adLockBatchOptimisticEnd SubPrivate Sub Form_Unload(Cancel As Integer) RsP.Close RsE.CloseEnd Sub33 输入输出设计输入设计包括输入方式设计、用户界面设计。在实现系统开发过程中输入设计所占的比重较大。以某厂开发的系统为例,在涉及全厂生产、经营、财务、销售、物资供应等12个子系统中,与输入输出界面相关的程序占总程序量的65%左右(当时还没有菜单和屏幕格式生成器这类软件工具)。从这一比率足以看出在一个处理管理领域的信息系统中输入输出界面的重要,一个好的输入设计能为今后系统运行带来很多方便。相对于输入方式来说,输出方式的设计要简单得多。从系统的角度来说输入和输出都是相对的,各级子系统的输出就是上级主系统输入。从这个意义上来说,前面所介绍的几种数据传输方式,如网络传递、软磁盘传递、通过电话线传递等,对于数据传出方来说也就是输出方式设计的内容。为了区别起见,在这里笔者将输出粗分为中间输出和最终输出两类。中间输出是指子系统对主系统或另一个子系统之间的数据传送,而最终输出则是指通过终端设备(如显示器屏幕、打印机等)向管理者输出的一类信息。下面着重来讨论一下最终输出方式的设计问题。 最终输出方式常用的只有两种:一种是报表输出,另一种是图形输出。究竟采用哪种输出形式为宜,应根据系统分析和管理业务的要求而定。一般来说对于基层或具体事物的管理者,应用报表方式给出详细的记录数据为宜,而对于高层领导或宏观、综合管理部门,则应该使用图形方式给出比例或综合发展趋势的信息。34 系统的数据库设计1.用户表设计2.工具管理表3.backup备份数据库表:4.buydetail表:4.buyinfo表6.companydepart表:第四章 系统使用说明与维护说明书41 概述-运行环境硬件平台CPUIntel P4 2.2G主板Intel 850芯片组的GA-8TX-C内存1256的三星Rambus内存硬盘Seagate Barracuda 7200.7 80G显卡Unika 小妖G9800显示器美格770PF，17寸纯平显示器软件环境操作系统Microsoft WindowsXP简体中文专业版SP2办公软件Microsoft Office 2003显卡驱动nVIDIA ForceWare驱动56.72版For Win2000/XP软件平台: windows xp操作系统 +微软 access一个好的库存管理系统，不仅仅是一次性制作完美就算了，由于企业的情况在不断地变化，软件系统的内容也需要随之调整，让人感觉内容时刻在变更，给人常新的感觉，而且给访问者很好的印象。这就要求管理员对库存管理系统进行长期的不间断的维护。一.系统设置 1） 锁定：当登陆到本机的操作员临时离开时，为防止别人操作而设定,只有登陆本机的人,通过输入密码后才能解除锁定。 2） 登陆设置:对操作员进行管理维护 和 修改密码（对登陆本系统的操作员密码进行修改）,本 系统中第 一个登陆的用户为最高权限用户，具有删除操作权限, 其它用户没有此权限，删 除功能不可用。本系统的所有操作员将显示在右边的表格里，双击任何一个操作员可对其进行编辑。 3) 操作员入口：用来改变登陆的用户。二.库存 1)元件登记:对库存的元件进行登记维护。 2)产品登记:对库存的产品进行登记维护。 3)库存查询:对库存的元件和产品数量进行查询。三.入库信息1) 入库单: 生成入库信息。对入库单的增,改,删,查和打印做操作。首先单击新增按钮，激活导入数据和导入历史数据 两个按钮，导入数据按钮是对一次的入库单进行的导入 而导入历史数据是对多个入库单进行导 入。若没有导入的数据则单击靠近产品名称的查找按钮，会弹出产品信息窗体选择或添加产品后，单击确定按 钮则传回相应的产品信息，然后输入相应的其它信息后，单击添加按钮，则一条入库信息将显示在表格里，可按此操作重复添加其它的入库信息，然后单击确定按钮保存后，将激活打印按钮进行打印。2)入库查询：通过对入库单号，元件名称，时间，公司名称的设置对入库单进行查询。具体操作如下：首先选择相应的单选框便击活相应选项，输入或选择所需的条件，点击确定按钮，弹出相应的查询结果。 3)统计：通过对时间设置，对入库元件的数量和总金额进行统计。四.出库信息 1)出库单：同入库类似。 2)出库查询：同入库类似。3）统计：同入库类似。五.数据维护 1）数据备份：对数据库进行定期备份，防止数据的丢失。 2）供应商信息：对供应商的用户进行添加，修改，删除等维护。七.模拟配货 1）产品材料组成：对我公司的产品的材料组成进行配置。首先选择配置产品列表框，然后可以 选择添加配件或者导入材料组成的excel 表，对我公司的产品进行配置。 2）产品模拟配货：选择模拟配货的产品，在模拟量中添入模拟量的数值，然后选择模拟配按钮,便自动和库存做比较，显示出库存需求的数据。八工具管理 工具管理采用了同元件管理相似的做法，操作基本相同。4.2安全与保护措施由于库存管理涉及到一个企业的商业秘密信息,不宜公开,否则会给企业带来不可估量的损失.所有我们有必要对本系统的安全与保护措施进行加强. 常用的做法有数据库备份.合理设置管理权限等.4.3系统的登录及使用说明 输入用户名与密码验证.Private Sub CmdOk_Click()On Error GoTo lDim rs As Recordset Set rs = New ADODB.Recordset rs.Source = select * from usertable rs.Open , cn, adOpenKeyset, adLockOptimistic rs.Filter = username= & UserNameCmb & If Not rs.BOF Or Not rs.EOF Then Usrpass = Trim(rs.Fields!userpwd) rs.Close Set rs = Nothing UsrName = UserNameCmb.Text If Usrpass = UserPassTxt.Text Then Unload Me Unload frmSplash MDIMain.Show FrmM.Show Else MsgBox 你所输入的口令不对，请重新输入！, vbOKOnly, 口令错误 UserPassTxt.SetFocus End If Else MsgBox 请选择用户名称！