《生产企业内部物资管理信息系统设计报告.docx》由会员分享，可在线阅读，更多相关《生产企业内部物资管理信息系统设计报告.docx（37页珍藏版）》请在三一办公上搜索。
1、课程设计说明书设计题目：生产企业内部物资管理信息系统专 业：物流工程设 计 人：学 号山东科技大学2014年 1 月 3日课程设计任务书学院：机电学院 专业：物流工程 班级：11-2 姓名：刘菲一、课程设计题目生产企业物资管理信息系统设计二、课程设计内容与要求：（1）_（2）_（3）_三、课程设计应解决主要问题：（1）_（2）_（3）_四、课程设计相关附件（如：图纸、软件等）（1）_（2）_五、任务发出日期：_ 课程设计完成日期：_2014-1-3_指导教师签字：_ 系主任签字：_指导教师对课程设计的评语 指导教师签字： _年_月_日目录 1课题简介11.1 课题研究目的和意义11.2 课题主
2、要研究内容12系统分析12.1 业务流程图12.2 用户需求分析12.3 系统功能设计13系统设计13.1 总体设计13.2 详细设计13.3 数据结构设计14系统实施14.1 各功能界面设计（每个功能作一小节）15使用说明16参考资料1一、 课题简介1.1项目背景物资管理系统是企业管理的一个重要内容，随着时代的进步，企业也逐渐变的庞大起来。如何管理好企业内部物质的信息，成为企业管理中的一个大问题。在这种情况下，一个可以规范化，自动化的物资管理信息系统就显得非常必要。最初的物资管理，都是靠人力来完成的。当企业规模比较小的时候，人力可以完成，随着企业的规模越来越大，企业的进出物资数量也越来越多，
3、依然维持着人力进行物资管理，必然会造成工作效率低，工作错误增高的问题。物资管理系统就是把分散的企事业单位的职工信息实行统一，集中，规范的收集管理，建立分类编号管理，电脑存储查询以及防火，防潮，防蛀，防盗等现代化，专业化的管理系统，为企事业单位和职工解除后顾之忧。1.2、项目研究目的和意义 系统开发的总体任务是实现物资设备管理系统化、规范化和自动化，从而达到提高单位工作效率的目的。信息已成为继劳动力、土地、资本之后的又一大资源。谁控制的信息越多，谁利用信息资源的效率越高，谁就会在各方面的竞争中占有一席之地，谁就会有更多的优势。物资供应部门是企业与生产单位之间的桥梁、纽带，是企业正常生产的物资保障
4、部门。正因为供应部门是关键的中转环节，建立一套物资管理信息系统对于如何有效的把本单位生产资料及时、保质保量的供应上去，有着重要的意义。从微观上讲，建立一套物资管理信息系统能够加快物资的周转速度，提高生产效率，从而加强了管理的信息化手段，提高了本单位的经济效益。从宏观上讲，顺应了社会的信息化、社会化潮流，缩短了整个社会化大生产的周期。二、 系统分析 2.1、业务流程图出库物资信息管理入库物资信息管理物资余额信息管理物资调配物资基本信息管理基本信息录入物资登记 2.2、用户需求分析针对一般物资管理信息系统的需求，通过对上面物资调配工作过程的内容和数据流程分析，设计如下面所示的数据项和数据结构：l
5、有关物资基本信息的输入、包括物资编号、物资名称、规格型号、种类和计量单位等；l 物资基本信息的查询、修改；l 入库信息的输入、查询、修改；l 出库信息的输入、查询、修改；l 物质剩余物资的查询、预览。l 物资金额简单的统计查询2.3、系统功能设计系统管理物资基本信息管理物资出库信息管理物资入库信息管理物资余额信息管理用户管理密码管理物资基本信息添加物资基本信息查询物资基本信息修改入库物资信息添加入库物资信息修改入库物资信息查询出库物资信息添加出库物资信息修改出库物资信息查询物资余额信息查询物资余额信息浏览物资管理信息系统三、 系统设计3.1、系统详细设计各个实体具体的描述E-R图如下：物资基本
6、信息实体计量单位物资编号物资名称物资规格物资基本信息实体E-R图物资入库信息实体保管人物资基本信息经办人入库时间物资入库信息实体E-R图物资出库信息实体保管人物资基本信息经办人出库时间物资出库信息实体E-R图物资剩余信息实体仓库物资基本信息数量金额物资余额信息实体E-R图3.2、数据结构设计在上面的实体以及实体之间关系的基础上，形成数据库中的表格以及各个表格之间的关系。仓库管理系统数据库中各个表格的设计结果如下面的几个表格所示。每个表格表示在数据库中的一个表。物资信息表：管理表：入库信息表：出库信息表：余额信息表：四、 系统实施4.1、各功能页面设计：（1）、登陆界面设计及代码：Private
7、 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(密码) = T
8、ext2 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
9、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()
10、物资出库信息.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）、物资信息添加设计及
11、代码 ：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 Cm
12、ddel_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
13、= 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 = Fals
14、eEnd 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()
15、物资信息修改.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 物资信息修
16、改窗口物资信息修改.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
17、 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.DeleteA
18、dodc1.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(
19、)首页.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(
20、发票号码) = 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(金额) =
21、 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()首页
22、.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.F
23、ields(发票号码) = 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.Field
24、s(单价) = 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.Records
25、et.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.F
26、ields(单价)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(
27、)首页.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.T
28、ext & 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）、剩余物
29、资设计及代码：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.
30、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
31、 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五、 使用说明物资管理信息系统建立后，应装入大量物资记录，进入试运行及调试阶段。 装入物资数据往数据库中装入数据又称为数据库加载。
32、由于数据库中通常包含着一个组织内多个部门的数据，这些数据的格式、规格都可能不同，所以在加载之前要对这些数据作严格地检验、整理，并建立严格的数据登录和校验规范，设计出完善的数据检验和校正程序，尽可能在加载之前把不合格的数据排除掉。然后，通过系统提供的工具程序或自编的专门装入程序将数据装入数据库。试运行及调试这个阶段的工作主要是实际运行物资管理应用程序，进入物资管理系统登录界面，输入正确的用户名和口令，单击确定进入主菜单。在前一阶段，虽然也作了性能预测，但是仅仅做了性能估计，且在估计过程中，做了许多简化和假设，忽略了许多次要因素，因而估计是粗糙的，并可能失真。在试运行阶段，必须进行实际测量和评价，
33、测试数据尽可能覆盖现实世界的各种情况。如果实际测试结果不符合设计目标，则需返回物理设计阶段，修改参数。有时也许还需要返回初始阶段。首先，测试用户登录功能能否实现：打开仓库管理系统，在“用户名”里填入数据库“用户表”中的任一用户名，“密码”框里我们填入与用户名相对的密码作为用户登录密码。填写完成点击“确定”按钮，将会出现操作程序页面，即该用户已经登陆成功了。当我们输入错误密码时，提示“密码错误”，三次密码错误会自动退出系统。至此，用户登录成功实现。其次，测试编辑功能能否实现：在登录成功之后，用户进入相应的管理页面，可以对相应的信息进行新增、修改和删除操作，最后把编辑好的信息送入数据库。至此，编辑
34、功能成功实现。再次，测试查询功能能否实现：查询功能：在登录成功之后，用户进入相应的管理页面，点击“查询”时，进入相应的查询界面，在里面输入想要查找的资料，点击“查询”按钮，成功即可出现结果页面，页面内显示查询出来的信息，表示测试成功。再次，测试用户登出系统能否实现：在管理操作已全部完成，需要退出程序的时候，在主菜单页面“系统”的下拉菜单的有一个“退出”的选项，点击之后便可退出。最后，测试密码更改能否实现：在用户成功登录的情况下，在主菜单“系统”的下拉菜单中选择“密码修改”，进入到“用户密码修改”界面，用户可以对自己的密码进行相应的修改。经过以上各项的测试，证明本系统完全可以正常运行，至此测试成功！本项目主要完成了物资管理信息系统各个模块功能的实现，可以添加、删除、查询物资的信息，主要采用了Visual Basic + SQL，但是由于设计时间较短，所以该系统还有许多不尽如人意的地方，比如联机文档比较少，用户界面不够美观，出错处理不够，系统维护功能不全，对于数据的一致性的问题也没有完全解决等多方面问题，这些都有待工作中进一步改善。六、 参考文献【1】基于VB和SQL的数据库编程技术 刘志妩、张焕君等编著【2】Visual Basic管理信息系统项目开发实践 梁伟、苏瑞主编【3】Visual Basic数据库系统开发实例导航第二版
