CHANGSHA UNIVERSITY OF SCIENCE & TECHNOLOGY物流管理信息系统课程设计题目：工厂库存管理信息系统设计学生姓名：邹东林学号：班级: 物流1102专业：物流工程指导教师：向慧盛玉奎2014 年 06 月工厂库存管理信息系统设计学生姓名：邹东林学号：班级：物流1102所在院(系): 交通运输工程学院指导教师：向慧盛玉奎完成日期: 2014年06月长沙理工大学课程设计任务书交通运输工程系物流工程专业2011级班课程名称物流管理信息系统课程设计题目工厂库存管理信息系统设计学生姓名邹东林学号目录第一章系统开发论述 (1)1.1 系统开发的背景 (1)1.2 系统开发的目的和意义 (1)第二章系统规划 (2)2.1 系统目标 (2)2.2系统开发的可行性分析 (2)第三章系统分析 (3)3.1需求分析 (3)3.2组织结构分析 (3)3.3业务流程图 (4)3.4数据流程图 (4)第四章系统设计 (6)4.1系统总体结构设计 (6)4.2代码设计 (6)4.3E-R图 (7)4.4输入输出界面设计 (9)第五章总结 (12)参考文献 (12)附录 (13)第一章系统开发论述1.1 系统开发的背景在现代物流系统中，仓储是构成物流系统的重要环节，仓储是构成物流系统的重要环节，仓储功能包括对进入物流系统的的货物进行堆存、管理、保管、维护等一系列的活动。
随着经济的发展，物流由少量品种进入到多品种、小批量或多批次的、小批量物流时代，仓储功能从重视保管效率逐渐变为重视发货和配送作业。
仓储管理，是指对仓库及其库存物的管理。
现代的仓库已成为物流的中心。
物资的储存和运输是整个物流过程中两个关键环节，被人们称之为“物流的支柱”。
仓储在物流系统中的重要作用作用主要表现在：降低运输成本，提高运输效率，产品整合，支持企业的销售服务，调节供应和需求。
仓储管理信息系统是用于管理仓库中货物、空间资源、人力资源、设备资源等在仓库中的活动，对货物的进货、检验、上架、出货、转仓、盘点及其他库内作业的进行管理的系统。
1.2 系统开发的目的和意义随着科学技术的发展，社会进步，计算机技术的快速发展，仓库管理的方法也日新月异，以前全是由人管理的方法现存在很多缺点：管理效率低下，劳动强度大，信息处理速度低而且准确性也不够令人满意。
为了提高仓库管理效率，减轻劳动强度，提高信息处理速度和准确性，为仓库管理员提供更方便、科学的服务项目。
为仓库管理员提供一种更先进、科学的服务系统。
我们可以针对物料的出入库管理设计一个仓库管理系统。
让计算机对仓库进行自动管理，并能在一定程度上实现自动化。
仓库管理是企业生产过程中的重要组成部分。
其主要功能是在供、需之间建立缓冲区，达到缓和用户需求与企业生产能力之间、最终装配需求与零件加工工序之间、生产厂家需求与原材料供应商的矛盾。
第二章系统规划2.1 系统目标企业的库存管理工作主要由仓库部门完成，其主要业务就是企业物料的收发以及管理工作，根据物料的不同物理和化学属性做好物料存储与防护工作，降低各种库存管理费用，分析并提供库存管理所需的各种数据报表等。
2.2系统开发的可行性分析（1）管理上的可行性由于企业库存品种多，数量大，因此，要实现收发作业的快速、准确、高效，仓储管理自动化势在必行。
而实现管理自动化的“瓶颈”则是产品信息的采集、输入。
传统手工作业方式，在信息采集量加大的情形下，因信息不能及时的反馈，给收发作业造成一定的困难。
使用仓库管理信息系统，便于产品收、发、保管等全过程控制管理，不仅可改变信息采集的传统手工作业方式，降低作业强度，还可避免由此造成的各种差错，提高作业效率和科学管库水平。
（2）技术上的可行性我们在大学时期学过VF操作语言，所以我们可以用它来为我们所开发的系统服务。
因此我们在技术上也就有了支持。
通过老师的指导以及小组成员的一起讨论，并在查阅了大量的资料以后，我们的系统才慢慢的形成和开发出来，但是其中还有许多不完善的地方，我们会在以后的开发中努力学习，使这个系统更完善，合理，规范。
（3）经济上的可行性在经济上，因为我们开发的这个系统相对较小也较简单，不需要投入太大的人力，物力和财力，但又不缺乏实用性和可靠性，维护费用相对较低，所以用户在使用了新系统后只需要花一定资金购买一部分硬件设备与软件就能实现自动化，提高了工作效率并且也减少了工作人员的工作量，带来了很大的经济效益。
第三章系统分析3.1需求分析采购管理系统是根据工业企业采购业务管理和采购成本核算的实际需要，对采购计划制定、采购订单制定、原材料入库状况、原材料的检验、采购结算以及采购付款计划的编制进行全程管理，为采购部门和财务部门提供准确及时的信息。
本系统实施后，能够输入、修改商品和供应商基本资料，能对采购业务和交货信息进行维护，能对商品采购信息进行查询、交货追踪和统计。
3.2一人负责日常事务。
厂办下设两个车间，一个是童装车间，另一个是绣品车间。
财务核算以车间为单位，实行产供销一条龙。
厂长：管理订货和销售 厂长助理：协助厂长主任工作 办公室主任：管理日常事务 3.3业务流程图 采购订单发货领料单库存分析图3.2 库存管理业务流程图3.4数据流程图查询入库库存领料单图3.3库存记录4.1.14.1.2 货品出库：点击货品出库时，可以添加货品出库4.1.3 库存查询：点击库存查询时，可以查看库存情况4.1.4 信息统计：点击信息统计时，可以查看库存信息4.1.5 退出系统：点击退出系统时，可以退出系统4.2代码设计表4-1 订单代码设计表4-2 入库物品代码设计表4-3 供应商名称代码设计表4-4 入库单号代码设计表4-5 客户信息代码设计4.3 ER图图4.2 库存管理查询E-R图N关系模式转换货品信息（货品规格，货品名称，计量单位，数量，单价，供应商，客户）外码：货品编号，供应商，提货人厂长信息（姓名，用户名，密码，职位，权限）客户信息（客户编号，客户名称，联系人，联系方式，客户所在城市） 供应商信息（供应商号，供应商名称，业务联系人，联系电话，） 货品库存信息（出入库编号，出入库日期，货品规格，货品名称，计量单位，数量，单价） 外码：供应商编号，供应商名称，入库编号，出库编号4.4输入输出界面设计 1.登录界面设计，如图图4.4 登录界面2.用户名和密码正确时登录成功，出现以下界面：图4.5 主界面3.货品入库界面如图所示图4.6 物品入库界面4.货品出库界面如图所示图4.7 物品出库界面5.库存查询界面如图所示图4.8 库存查询界面6.出入库信息统计系统如图所示图4.9出入库信息统计界面第五章总结经过几个星期的不断实践与探索，我所设计的库存管理系统已经初步完成，本报告提供了系统规划、系统分析、系统设计、系统实施和编写程序等的具体操作过程，较为熟练地掌握了这些课本上所学的内容。
经过这次的课程设计，我对管理信息系统有了更深的了解，同时进一步温习巩固了VB计算机编程知识；通过实践，提高了系统分析的能力，对数据流程图、数据字典、系统流程图等的含义和制作方法有了更深刻的认识，为以后的学习、工作的进一步提高打下了坚实的基础，基本实现了课程设计的预期目标。
另外很值得一提的是小组所有成员在这次课程设计过程中养成了严谨的科学研究态度，互学互助，在良好的配合中实现了目标，在良好的互动中进一步体味团队精神的可贵。
最后，非常感谢所有指导我们完成本课程设计的老师和所有帮助我们的同学，老师在课程设计整个过程中给予我们很大的支持和指导，提出了许多有益的建议和意见，对我们的难题提出了切实的解决方法以使我们能继续完成整个系统的设计，同学们也给我们提供了很多的帮助，使这次的课程设计顺利完成。
本次课程设计使我们受益匪浅，让我们将书本上所学的知识运用到实践当中去，更能体会到系统设计的重要性。
参考文献[1] 金敏力.管理信息系统.科学出版社，2009[2] 飞思科技产品研发中心 . visual basic 6.0数据库应用开发 .电子工业出版社，2003[3] 飞思科技产品研发中心 . visual basic 6.0开发者手册 . 电子工业出版社, 2002[4] 申旻 . visual basic 6.0高手突破 . 清华大学出版社，2002，302[5] 萨师煊，王珊.数据库系统概论[M].北京：高等教育出版社.1997附录登录界面程序设计代码如下Dim itmX As ListItem '定义一个ListItem对象Dim aDim key As String '定义字符串变量'*** 用户登录按钮的事件代码 ***Private Sub Command1_Click()rtn = SetWindowPos(Me.hwnd, -2, 0, 0, 0, 0, 3) '运用API函数SetWindowPos，来实现取消窗体置前的功能On Error Resume NextDim MPassword As StringIf Text2.Text = "mr" And Text1.Text = "mingrisoft" Then '判断是否使用的是超级口令登录Name1 = Text2.TextUnload Mefrm_main.ShowElseAdodc1.RecordSource = "select * from tb_enter where M_Name ='" &Text2.Text & "'"Adodc1.RefreshIf Text1.Text = MPassword Then '判断数据的密码是否正确Name1 = Text2.Textfrm_main.Show'添加登录日志Open (App.Path & "\系统日志.ini") For InputAs #1Do While Not EOF(1)Line Input #1, IntextTStr = TStr + Intext + Chr(13) +Chr(10)LoopClose #1TStr = TStr + " " + Name1 + " " + Format(Now, "yyyy-mm-dd hh:mm:ss") + " " + "系统登录" + Chr(13) + Chr(10)Open (App.Path & "\系统日志.ini") For Output As #1Print #1, TStrClose #1Unload MeElseMsgBox "密码不正确,请您确认后重新输入", , "库存管理系统"Text1.Text = ""Text1.SetFocusEnd IfElseMsgBox "对不起没有此用户的信息", , "库存管理系统"Text2.Text = ""Text1.Text = ""End IfEnd IfEnd SubPrivate Sub Command2_Click()EndEnd SubPrivate Sub Form_Load()Call WHScreenrtn = SetWindowPos(Me.hwnd, -1, 0, 0, 0, 0, 3) '运用API 函数SetWindowPos，来实现使窗体置前的功能'使用代码连接数据库与数据表Adodc1.RecordSource = "select * from tb_enter"Adodc1.RefreshAdodc1.RecordSource = "select * from tb_enter"Adodc1.RefreshListView1.Enabled = TrueLoopElseListView1.Enabled = FalseEnd IfScreenCenterIf TWidth <= 800 Or THeigth <= 600 ThenExit SubElseChangeScreen '调整屏幕分辨率ScreenCenterEnd IfEnd SubPrivate Sub ListView1_Click()Text2.Text = ListView1.SelectedItemAdodc1.RecordSource = "select * from tb_enter where M_Name='" + Text2.Text + "'"Adodc1.RefreshText1.SetFocusEnd IfEnd SubPrivate Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = 13 ThenCall Command1_ClickEnd IfEnd SubPrivate Sub Text2_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = 13 ThenText1.SetFocusEnd IfEnd SubPrivate Sub Form_Unload(Cancel As Integer)frm_main.Enabled = TrueEnd SubPrivate Sub ScreenCenter()Me.Left = (Screen.Width - Me.Width) / 2Me.Top = (Screen.Height - Me.Height) / 2End SubPrivate Sub ChangeScreen() '改变屏幕分辨率函数MsgBox "您桌面的分辨率并不是800*600,建议您将桌面的分辨率调整成800*600之后，再运行此程序!", 64, "提示信息"End Sub主界面代码设计如下Dim itmX As ListItem '定义一个ListItem对象Dim Intext As String '定义一个添加系统登录日志功能的变量Dim TStr As String'声明API函数及常量Private Declare Function GetSystemMenu Lib "user32" (ByVal hwnd As Long, ByVal bRevert As Long) As LongPrivate Declare Function RemoveMenu Lib "user32" (ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long) As Long Private Const MF_REMOVE = &H1000&Private Const SC_MAXIMIZE = &HF030temp1 = " 操作员姓名日期时间操作类型"Print #1, temp1Print #1,Close #1MsgBox "日志清理成功完成!!", , "提示信息"ElseEnd IfEnd SubPrivate Sub SJBF_Click()frm_backup.Caption = "数据备份"frm_backup.Show '显示数据备份窗体End SubPrivate Sub SJHF_Click()frm_backup.Caption = "数据恢复"frm_backup.Show '显示数据备份窗体End SubPrivate Sub SJQL_Click() '进行数据清理操作 frm_sfyz.ShowMe.Enabled = FalseEnd SubPrivate Sub TCXT_Click() '退出系统操作'添加退出系统日志Dim cc = MsgBox("您确认要退出库存管理系统吗", 33, "提示信息")If c = vbOK ThenOpen (App.Path & "\系统日志.ini") For Input As #1Do While Not EOF(1)Line Input #1, IntextTStr = TStr + Intext + Chr(13) + Chr(10)LoopClose #1TStr = TStr + " " + Name1 + " " + Format(Now, "yyyy-mm-dd hh:mm:ss") + " " + "退出系统" + Chr(13) + Chr(10)Open (App.Path & "\系统日志.ini") For Output As #1Print #1, TStrClose #1EndElsertn = SetWindowPos(Me.hwnd, -2, 0, 0, 0, 0, 3) '运用API函数SetWindowPos，来实现取消窗体置前的功能End IfEnd Sub'在窗体的状态栏中显示当前系统的日期时间Private Sub Timer1_Timer()StatusBar1.Panels(4).Text = Format(Now, " hh点mm分ss秒") End SubPrivate Sub Timer2_Timer()Me.WindowState = 2Me.WindowState = 0Timer2.Enabled = FalseEnd Sub'*** 单击工具栏中的按钮，调用相应的窗体，完成相应的操作 *** Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)Select Case Button.IndexCase 1frm_in.ShowCase 3frm_out.ShowCase 6frm_KCQuery.ShowCase 8frm_Stat.ShowCase 10frm_backup.Caption = "数据备份"frm_backup.Show '显示数据备份窗体Case 12frm_backup.Caption = "数据恢复"frm_backup.Show '显示数据备份窗体Case 15Dim cc = MsgBox("您确认要退出库存管理系统吗", 33, "提示信息")If c = vbOK ThenOpen (App.Path & "\系统日志.ini") For Input As #1Do While Not EOF(1)Line Input #1, IntextTStr = TStr + Intext + Chr(13) + Chr(10)LoopClose #1TStr = TStr + " " + Name1 + " " + Format(Now, "yyyy-mm-dd hh:mm:ss") + " " + "退出系统" + Chr(13) + Chr(10)Open (App.Path & "\系统日志.ini") For Output As #1Print #1, TStrClose #1EndEnd Iffrm_setoperator.ShowMsgBox "对不起,您没有操作此项功能的权限,请您与系统管理员联系!", 48, "提示信息"Exit SubEnd IfDim delDim temp1 As StringOn Error Resume Next '错误处理语句del = MsgBox("确认要清除库存管理系统的日志信息吗", 17, "提示信息")If del = vbOK ThenKill (App.Path & "\系统日志.ini")Open (App.Path & "\系统日志.ini") For Output As #1temp1 = " 操作员姓名日期时间操作类型"Print #1, temp1Print #1,Close #1MsgBox "日志清理成功完成!!", , "提示信息"End IfMsgBox "对不起,您没有操作此项功能的权限,请您与系统管理员联系!", 48, "提示信息"Exit SubEnd Iffrm_look.ShowEnd Iffrm_Edit_Password.ShowMsgBox "对不起,您没有操作此项功能的权限,请您与系统管理员联系!", 48, "提示信息"Exit SubEnd Iffrm_sfyz.ShowMsgBox "对不起,您没有操作此项功能的权限,请您与系统管理员联系!", 48, "提示信息"Exit SubEnd Iffrm_systemer.ShowMsgBox "对不起,您没有操作此项功能的权限,请您与系统管理员联系!", 48, "提示信息"Exit SubEnd Iffrm_gys.ShowMsgBox "对不起,您没有操作此项功能的权限,请您与系统管理员联系!", 48, "提示信息"Exit SubEnd IfMe.Enabled = False '在单击TreeView控件的节点之后，使得窗体不可用End SubPrivate Sub Form_Resize()LeftSide_ResizeRightSide_ResizeEnd SubPrivate Sub LeftSide_Resize() '向左拖拽函数Dim y32&On Error Resume Nexty32 = 60 + Toolbar1.HeightWith TreeView1.Left = 100End WithWith Picture1.Width = 30End WithWith ListView1.Width = TreeView1.Width + 10.Left = 25End WithEnd SubPrivate Sub RightSide_Resize() '向右拖拽函数On Error Resume NextWith ListView1.Left = TreeView1.Width + 100.Width = Me.ScaleWidth - .Left - 10End WithWith Picture1.Height = Me.ScaleHeight - StatusBar1.Height - .Top - 430 .Left = TreeView1.Left + TreeView1.WidthEnd WithEnd Sub物流管理信息系统课程设计成绩评定表。