生产企业内部物资管理信息系统课程设计.doc

课程设计说明书设计题目：生产企业内部物资管理信息系统专 业：物流工程设 计 人：学 号山东科技大学2014年 1 月 3日课程设计任务书学院：机电学院 专业：物流工程 班级：11-2 姓名：刘菲一、课程设计题目生产企业物资管理信息系统设计二、课程设计内容与要求：（1）_（2）_（3）_三、课程设计应解决主要问题：（1）_（2）_（3）_四、课程设计相关附件（如：图纸、软件等）（1）_（2）_五、任务发出日期：_ 课程设计完成日期：_2014-1-3_指导教师签字：_ 系主任签字：_37 / 37指导教师对课程设计的评语 指导教师签字： _年_月_日目录 1课题简介11.1 课题研究目的和意义11.2 课题主要研究内容12系统分析12.1 业务流程图12.2 用户需求分析12.3 系统功能设计13系统设计13.1 总体设计13.2 详细设计13.3 数据结构设计14系统实施14.1 各功能界面设计（每个功能作一小节）15使用说明16参考资料1一、 课题简介1.1项目背景物资管理系统是企业管理的一个重要内容，随着时代的进步，企业也逐渐变的庞大起来。如何管理好企业内部物质的信息，成为企业管理中的一个大问题。在这种情况下，一个可以规范化，自动化的物资管理信息系统就显得非常必要。最初的物资管理，都是靠人力来完成的。当企业规模比较小的时候，人力可以完成，随着企业的规模越来越大，企业的进出物资数量也越来越多，依然维持着人力进行物资管理，必然会造成工作效率低，工作错误增高的问题。物资管理系统就是把分散的企事业单位的职工信息实行统一，集中，规范的收集管理，建立分类编号管理，电脑存储查询以及防火，防潮，防蛀，防盗等现代化，专业化的管理系统，为企事业单位和职工解除后顾之忧。1.2、项目研究目的和意义 系统开发的总体任务是实现物资设备管理系统化、规范化和自动化，从而达到提高单位工作效率的目的。信息已成为继劳动力、土地、资本之后的又一大资源。谁控制的信息越多，谁利用信息资源的效率越高，谁就会在各方面的竞争中占有一席之地，谁就会有更多的优势。物资供应部门是企业与生产单位之间的桥梁、纽带，是企业正常生产的物资保障部门。正因为供应部门是关键的中转环节，建立一套物资管理信息系统对于如何有效的把本单位生产资料及时、保质保量的供应上去，有着重要的意义。从微观上讲，建立一套物资管理信息系统能够加快物资的周转速度，提高生产效率，从而加强了管理的信息化手段，提高了本单位的经济效益。从宏观上讲，顺应了社会的信息化、社会化潮流，缩短了整个社会化大生产的周期。二、 系统分析 2.1、业务流程图出库物资信息管理入库物资信息管理物资余额信息管理物资调配物资基本信息管理基本信息录入物资登记 2.2、用户需求分析针对一般物资管理信息系统的需求，通过对上面物资调配工作过程的内容和数据流程分析，设计如下面所示的数据项和数据结构：l 有关物资基本信息的输入、包括物资编号、物资名称、规格型号、种类和计量单位等；l 物资基本信息的查询、修改；l 入库信息的输入、查询、修改；l 出库信息的输入、查询、修改；l 物质剩余物资的查询、预览。l 物资金额简单的统计查询2.3、系统功能设计系统管理物资基本信息管理物资出库信息管理物资入库信息管理物资余额信息管理用户管理密码管理物资基本信息添加物资基本信息查询物资基本信息修改入库物资信息添加入库物资信息修改入库物资信息查询出库物资信息添加出库物资信息修改出库物资信息查询物资余额信息查询物资余额信息浏览物资管理信息系统三、 系统设计3.1、系统详细设计各个实体具体的描述E-R图如下：物资基本信息实体计量单位物资编号物资名称物资规格物资基本信息实体E-R图物资入库信息实体保管人物资基本信息经办人入库时间物资入库信息实体E-R图物资出库信息实体保管人物资基本信息经办人出库时间物资出库信息实体E-R图物资剩余信息实体仓库物资基本信息数量金额物资余额信息实体E-R图3.2、数据结构设计在上面的实体以及实体之间关系的基础上，形成数据库中的表格以及各个表格之间的关系。仓库管理系统数据库中各个表格的设计结果如下面的几个表格所示。每个表格表示在数据库中的一个表。物资信息表：管理表：入库信息表：出库信息表：余额信息表：四、 系统实施4.1、各功能页面设计：（1）、登陆界面设计及代码：Private Sub CmdLand_Click()Static miCount As IntegerDim sqlstr As Stringsqlstr = select*from 管理表 where 用户名= & Text1 & Adodc1.RecordSource = sqlstrAdodc1.RefreshIf Adodc1.Recordset.BOF Then 若没有找到符合where条件的记录MsgBox 用户名错误,重新输入, vbExclamation, 警告Text1.Text = Text1.SetFocusElseIf Adodc1.Recordset.Fields(密码) = Text2 Then首页.ShowUnload MeElseMsgBox 密码错误,重新输入, vbExclamation, 警告Text2.Text = Text2.SetFocusEnd IfEnd IfmiCount = miCount + 1If miCount = 3 Then Unload MeEnd SubPrivate Sub cmdCancel_Click()Unload MeEnd Sub（2）、首页界面设计及代码：Private Sub clxsxxtj_Click()销售额统计End SubPrivate Sub gccbtj_Click()工程成本统计.ShowEnd SubPrivate Sub Picture1_Click()End SubPrivate Sub sywzxxcx_Click()剩余物资查询.ShowEnd SubPrivate Sub tc_Click()登录.ShowUnload MeEnd SubPrivate Sub wzrkxxcxcx_Click()入库信息查询.ShowEnd SubPrivate Sub wzrkxxtj_Click()入库物资添加.ShowEnd SubPrivate Sub wzckxxcx_Click()出库物资查询.ShowEnd SubPrivate Sub wzckxxtjyxg_Click()物资出库信息.ShowEnd SubPrivate Sub wzrkxxcx_Click()入库信息查询.ShowEnd SubPrivate Sub wzrkxxtjyxg_Click()物资入库信息.ShowEnd SubPrivate Sub wzxxsc_Click()物资信息删除.ShowEnd SubPrivate Sub wzxxtj_Click()物资信息添加.ShowEnd SubPrivate Sub wzxxxg_Click()物资信息修改.ShowEnd SubPrivate Sub xsetj_Click()销售额统计.ShowEnd Sub（3）、物资信息添加设计及代码 ：Private Sub cmdedit_Click()CmdAdd.Enabled = TrueCmdDel.Enabled = TrueCmdOk.Enabled = FalseCmdEsc.Enabled = FalseCmdback.Enabled = TrueEnd SubPrivate Sub CmdAdd_Click()Adodc1.Recordset.AddNewCmdAdd.Enabled = FalseCmdDel.Enabled = FalseCmdOk.Enabled = TrueCmdEsc.Enabled = TrueEnd SubPrivate Sub Cmddel_Click()X = MsgBox(确实要删除此条记录吗？, vbYesNo + vbQuestion, 确认)If X = vbYes Then Adodc1.Recordset.Delete Adodc1.Recordset.MoveNext If Adodc1.Recordset.EOF Then Adodc1.Recordset.MoveLast End IfElse Adodc1.RefreshEnd SubPrivate Sub cmdok_click()Adodc1.Recordset.UpdateCmdAdd.Enabled = TrueCmdDel.Enabled = TrueCmdOk.Enabled = FalseCmdEsc.Enabled = FalseIf Text1.Text = ThenMsgBox 请输入材料编码, vbExclamation, 警告Text1.Text = Text.SetFocusCmdOk.Enabled = TrueElseMsgBox 添加成功End IfEnd SubPrivate Sub cmdesc_click()Adodc1.RefreshCmdAdd.Enabled = TrueCmdDel.Enabled = TrueCmdOk.Enabled = FalseCmdEsc.Enabled = FalseEnd SubPrivate Sub 返回_Click()首页.ShowUnload MeEnd Sub（4）物资信息修改设计及代码：Private Sub cmdedit_Click()If Adodc1.Recordset.EOF = True Or Adodc1.Recordset.BOF = True ThenMsgBox 请选择要修改的行Exit SubEnd If物资信息修改窗口.Show物资信息修改.HideEnd SubPrivate Sub comback_Click()首页.ShowUnload MeEnd SubPrivate Sub cmdupdate_Click()物资信息修改.Adodc1.Recordset.Fields(材料编号) = Text1.Text物资信息修改.Adodc1.Recordset.Fields(材料名称) = Text2.Text物资信息修改.Adodc1.Recordset.Fields(型号) = Text3.Text物资信息修改.Adodc1.Recordset.Fields(单位) = Text4.Text物资信息修改.Adodc1.Recordset.Update物资信息修改.Adodc1.RefreshMsgBox 修改成功End SubPrivate Sub comback_Click()Unload 物资信息修改窗口物资信息修改.ShowEnd SubPrivate Sub Form_Load()Text1.Text = 物资信息修改.Adodc1.Recordset.Fields(材料编号)Text2.Text = 物资信息修改.Adodc1.Recordset.Fields(材料名称)Text3.Text = 物资信息修改.Adodc1.Recordset.Fields(型号)Text4.Text = 物资信息修改.Adodc1.Recordset.Fields(单位)End Sub（5）物资信息删除：Private Sub Command1_Click()首页.ShowUnload MeEnd SubPrivate Sub Form_Load()CmdDel.Enabled = TrueEnd SubPrivate Sub cmdedit_Click()If Adodc1.Recordset.EOF = True Or Adodc1.Recordset.BOF = True ThenMsgBox 请选择要删除的行Exit SubEnd IfEnd SubPrivate Sub Cmddel_Click()X = MsgBox(确实要删除当前记录吗?, vbYesNo + vbQuestion, 确认)If X = vbYes ThenAdodc1.Recordset.DeleteAdodc1.Recordset.MoveNextIf Adodc1.Recordset.EOF ThenAdodc1.Recordset.MoveLastEnd IfAdodc1.RefreshEnd IfEnd Sub（6）、入库物资信息添加和修改及代码：Private Sub Command1_Click()Adodc1.Recordset.AddNewCommand1.Visible = TrueText1.SetFocusEnd SubPrivate Sub Command3_Click()Adodc1.RefreshEnd SubPrivate Sub Command4_Click()首页.ShowEnd SubPrivate Sub Command2_Click()X = MsgBox(添加成功, vbOKOnly + vbInformation + 0, 添加成功)Print x = ; X;End SubPrivate Sub cmdupdate_Click()If Adodc1.Recordset.EOF = True Or Adodc1.Recordset.BOF = True ThenMsgBox 请选择要修改的行End IfAdodc1.Recordset.Fields(入库单号码) = Text11.TextAdodc1.Recordset.Fields(发票号码) = Text12.TextAdodc1.Recordset.Fields(进库日期) = Text13.TextAdodc1.Recordset.Fields(经办人) = Text14.TextAdodc1.Recordset.Fields(保管人) = Text15.TextAdodc1.Recordset.Fields(材料编码) = Text16.TextAdodc1.Recordset.Fields(数量) = Text17.TextAdodc1.Recordset.Fields(单价) = Text18.TextAdodc1.Recordset.Fields(金额) = Text19.TextAdodc1.Recordset.Fields(材料名称) = Text20.TextAdodc1.Recordset.UpdateAdodc1.RefreshMsgBox 修改成功End Sub（7）、出库信息添加修改及代码;Private Sub Command1_Click()Adodc1.Recordset.AddNewCommand1.Visible = TrueText1.SetFocusEnd SubPrivate Sub Command3_Click()Adodc1.RefreshEnd SubPrivate Sub Command4_Click()首页.ShowUnload MeEnd SubPrivate Sub Command2_Click()X = MsgBox(添加成功, vbOKOnly + vbInformation + 0, 添加成功)Print x = ; X;End SubPrivate Sub cmdupdate_Click()If Adodc1.Recordset.EOF = True Or Adodc1.Recordset.BOF = True ThenMsgBox 请选择要修改的行End IfAdodc1.Recordset.Fields(出库单号码) = Text11.TextAdodc1.Recordset.Fields(发票号码) = Text12.TextAdodc1.Recordset.Fields(工程号) = Text13.TextAdodc1.Recordset.Fields(出库日期) = Text14.TextAdodc1.Recordset.Fields(经办人) = Text15.TextAdodc1.Recordset.Fields(保管人) = Text16.TextAdodc1.Recordset.Fields(材料编码) = Text17.TextAdodc1.Recordset.Fields(数量) = Text18.TextAdodc1.Recordset.Fields(单价) = Text19.TextAdodc1.Recordset.Fields(金额) = Text20.TextAdodc1.Recordset.Fields(物资名称) = Text21.TextAdodc1.Recordset.UpdateAdodc1.RefreshMsgBox 修改成功End SubPrivate Sub comback_Click()首页.ShowEnd SubPrivate Sub SSTab1_DblClick()Text11.Text = Adodc1.Recordset.Fields(出库单号码)Text12.Text = Adodc1.Recordset.Fields(发票号码)Text13.Text = Adodc1.Recordset.Fields(工程号)Text14.Text = Adodc1.Recordset.Fields(出库日期)Text15.Text = Adodc1.Recordset.Fields(经办人)Text16.Text = Adodc1.Recordset.Fields(保管人)Text17.Text = Adodc1.Recordset.Fields(材料编码)Text18.Text = Adodc1.Recordset.Fields(数量)Text19.Text = Adodc1.Recordset.Fields(单价)Text20.Text = Adodc1.Recordset.Fields(金额)Text21.Text = Adodc1.Recordset.Fields(物资名称)End Sub（8）、入库信息查询及代码：Private Sub Cmd1_Click()Dim str As Stringstr = select * from 入库信息表 where 入库信息表. & Combo1.Text & like & Text1.Text & %Adodc1.RecordSource = strAdodc1.RefreshEnd SubPrivate Sub Cmd2_Click()首页.ShowUnload MeEnd SubPrivate Sub Form_Load()Combo1.AddItem 材料名称Combo1.AddItem 材料编码Combo1.AddItem 入库单号码Combo1.AddItem 发票号码Combo1.AddItem 数量Combo1.AddItem 经办人Combo1.Text = 保管人Text1.Text = End Sub（9）、出库信息查询及代码：Private Sub Cmd1_Click()Dim str As Stringstr = select * from 出库信息表 where 出库信息表. & Combo1.Text & like & Text1.Text & %Adodc1.RecordSource = strAdodc1.RefreshEnd SubPrivate Sub Cmd2_Click()首页.ShowUnload MeEnd SubPrivate Sub Form_Load()Combo1.AddItem 物资名称Combo1.AddItem 材料编码Combo1.AddItem 出库单号码Combo1.AddItem 发票号码Combo1.AddItem 数量Combo1.AddItem 经办人Combo1.Text = 保管人Text1.Text = End Sub（10）、剩余物资设计及代码：Private Sub Cmd1_Click()Dim str As Stringstr = select * from 余额信息表 where 余额信息表. & Combo1.Text & like & Text1.Text & %Adodc1.RecordSource = strAdodc1.RefreshEnd SubPrivate Sub Cmd2_Click()首页.ShowUnload MeEnd SubPrivate Sub Form_Load()Combo1.AddItem 金额Combo1.AddItem 材料编码Combo1.AddItem 数量Combo1.AddItem 单价Combo1.Text = 材料名称Text1.Text = End Sub（11）、销售额统计及代码：Private Sub Cmd1_Click()Dim str As Stringstr = select 金额 from 出库信息表 where 出库日期 = & Combo1.Text & and 出库日期 = & Combo1.Text & and 出库日期 = & Combo2.Text & Text1.Text = rssum.Fields(0)End Sub（12）、工程成本设计及代码：Private Sub Form_Load()Combo1.AddItem 10101Combo1.AddItem 10102Text1.Text = End SubPrivate Sub Cmd1_Click()Dim str As Stringstr = select 金额 from 出库信息表 where 工程号 = & Combo1.Text & Adodc1.RecordSource = strAdodc1.RefreshEnd SubPrivate Sub Cmd2_Click()首页.ShowUnload MeEnd Sub五、 使用说明物资管理信息系统建立后，应装入大量物资记录，进入试运行及调试阶段。 装入物资数据往数据库中装入数据又称为数据库加载。由于数据库中通常包含着一个组织内多个部门的数据，这些数据的格式、规格都可能不同，所以在加载之前要对这些数据作严格地检验、整理，并建立严格的数据登录和校验规范，设计出完善的数据检验和校正程序，尽可能在加载之前把不合格的数据排除掉。然后，通过系统提供的工