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

课程设计说明书

设计题目：生产企业内部物资管理信息系统

专 业：物流工程

设 计 人：

学 号

山东科技大学

1 月 3日
课程设计任务书

学院：机电学院 专业：物流工程 班级：11-2 姓名：刘菲

一、课程设计题目　生产企业物资管理信息系统设计　　　　　　　　　　　　　　　　　　　　

二、课程设计内容和要求：
（1）___________________________________________________________
（2）___________________________________________________________
（3）___________________________________________________________
________________________________________________________________
三、课程设计应处理关键问题：
（1）___________________________________________________________
（2）___________________________________________________________
（3）___________________________________________________________
________________________________________________________________
四、课程设计相关附件（如：图纸、软件等）
（1）____________________________________________________________
（2）____________________________________________________________
________________________________________________________________
________________________________________________________________
五、任务发出日期：____________ 课程设计完成日期：__-1-3__

指导老师签字：_______________ 系主任签字：_____________

指导老师对课程设计评语

指导老师签字：　　　　　

_____年____月____日

目      录

1．课题介绍………………………………………………………1
1.1 课题研究目标和意义………………………………………1
1.2 课题关键研究内容…………………………………………1
2．系统分析………………………………………………………1
2.1 业务步骤图…………………………………………………1
2.2 用户需求分析………………………………………………1
2.3 系统功效设计………………………………………………1
3．系统设计………………………………………………………1
3.1 总体设计……………………………………………………1
3.2 具体设计……………………………………………………1
3.3 数据结构设计………………………………………………1
4．系统实施……………………………………………………1
4.1 各功效界面设计（每个功效作一小节）………………1
5．使用说明……………………………………………………1
6．参考资料……………………………………………………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 Integer
Dim sqlstr As String
sqlstr = "select*from 管理表 where 用户名='" & Text1 & " ' "
Adodc1.RecordSource = sqlstr
Adodc1.Refresh
If Adodc1.Recordset.BOF Then '若没有找到符合where条件统计
MsgBox "用户名错误,重新输入", vbExclamation, "警告"
Text1.Text = " "
Text1.SetFocus
Else
If Adodc1.Recordset.Fields("密码") = Text2 Then
首页.Show
Unload Me
Else
MsgBox "密码错误,重新输入", vbExclamation, "警告"
Text2.Text = " "
Text2.SetFocus
End If
End If
miCount = miCount + 1
If miCount = 3 Then Unload Me
End Sub
Private Sub cmdCancel_Click()
Unload Me
End Sub
（2）、首页界面设计及代码：

Private Sub clxsxxtj_Click()
销售额统计
End Sub
Private Sub gccbtj_Click()
工程成本统计.Show
End Sub
Private Sub Picture1_Click()
End Sub
Private Sub sywzxxcx_Click()
剩下物资查询.Show
End Sub
Private Sub tc_Click()
登录.Show
Unload Me
End Sub
Private Sub wzrkxxcxcx_Click()
入库信息查询.Show
End Sub
Private Sub wzrkxxtj_Click()
入库物资添加.Show
End Sub
Private Sub wzckxxcx_Click()
出库物资查询.Show
End Sub
Private Sub wzckxxtjyxg_Click()
物资出库信息.Show
End Sub
Private Sub wzrkxxcx_Click()
入库信息查询.Show
End Sub
Private Sub wzrkxxtjyxg_Click()
物资入库信息.Show
End Sub
Private Sub wzxxsc_Click()
物资信息删除.Show
End Sub
Private Sub wzxxtj_Click()
物资信息添加.Show
End Sub
Private Sub wzxxxg_Click()
物资信息修改.Show
End Sub
Private Sub xsetj_Click()
销售额统计.Show
End Sub
（3）、物资信息添加设计及代码 ：

Private Sub cmdedit_Click()
CmdAdd.Enabled = True
CmdDel.Enabled = True
CmdOk.Enabled = False
CmdEsc.Enabled = False
Cmdback.Enabled = True
End Sub
Private Sub CmdAdd_Click()
Adodc1.Recordset.AddNew
CmdAdd.Enabled = False
CmdDel.Enabled = False
CmdOk.Enabled = True
CmdEsc.Enabled = True
End Sub
Private 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 If
Else
Adodc1.Refresh
End Sub
Private Sub cmdok_click()
Adodc1.Recordset.Update
CmdAdd.Enabled = True
CmdDel.Enabled = True
CmdOk.Enabled = False
CmdEsc.Enabled = False
If Text1.Text = "" Then
MsgBox "请输入材料编码", vbExclamation, "警告"
Text1.Text = ""
Text.SetFocus
CmdOk.Enabled = True
Else
MsgBox "添加成功"
End If
End Sub
Private Sub cmdesc_click()
Adodc1.Refresh
CmdAdd.Enabled = True
CmdDel.Enabled = True
CmdOk.Enabled = False
CmdEsc.Enabled = False
End Sub
Private Sub 返回_Click()
首页.Show
Unload Me
End Sub
（4）物资信息修改设计及代码：

Private Sub cmdedit_Click()
If Adodc1.Recordset.EOF = True Or Adodc1.Recordset.BOF = True Then
MsgBox "请选择要修改行"
Exit Sub
End If
物资信息修改窗口.Show
物资信息修改.Hide
End Sub
Private Sub comback_Click()
首页.Show
Unload Me
End Sub
Private 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.Refresh
MsgBox "修改成功"
End Sub
Private Sub comback_Click()
Unload 物资信息修改窗口
物资信息修改.Show
End Sub
Private 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()
首页.Show
Unload Me
End Sub
Private Sub Form_Load()
CmdDel.Enabled = True
End Sub
Private Sub cmdedit_Click()
If Adodc1.Recordset.EOF = True Or Adodc1.Recordset.BOF = True Then
MsgBox "请选择要删除行"
Exit Sub
End If
End Sub
Private 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 If
Adodc1.Refresh
End If
End Sub
（6）、入库物资信息添加和修改及代码：

Private Sub Command1_Click()
Adodc1.Recordset.AddNew
Command1.Visible = True
Text1.SetFocus
End Sub
Private Sub Command3_Click()
Adodc1.Refresh
End Sub
Private Sub Command4_Click()
首页.Show
End Sub
Private Sub Command2_Click()
X = MsgBox("添加成功", vbOKOnly + vbInformation + 0, "添加成功")
Print "x = "; X;

End Sub
Private Sub cmdupdate_Click()
If Adodc1.Recordset.EOF = True Or Adodc1.Recordset.BOF = True Then
MsgBox "请选择要修改行"
End If
Adodc1.Recordset.Fields("入库单号码") = 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.Update
Adodc1.Refresh
MsgBox "修改成功"
End Sub

（7）、出库信息添加修改及代码;

Private Sub Command1_Click()
Adodc1.Recordset.AddNew
Command1.Visible = True
Text1.SetFocus
End Sub
Private Sub Command3_Click()
Adodc1.Refresh
End Sub
Private Sub Command4_Click()
首页.Show
Unload Me
End Sub

Private Sub Command2_Click()
X = MsgBox("添加成功", vbOKOnly + vbInformation + 0, "添加成功")
Print "x = "; X;
End Sub
Private Sub cmdupdate_Click()
If Adodc1.Recordset.EOF = True Or Adodc1.Recordset.BOF = True Then
MsgBox "请选择要修改行"
End If
Adodc1.Recordset.Fields("出库单号码") = 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.Update
Adodc1.Refresh
MsgBox "修改成功"
End Sub
Private Sub comback_Click()
首页.Show
End Sub
Private 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 String
str = "select * from 入库信息表 where 入库信息表." & Combo1.Text & " like '" & Text1.Text & "%'"
Adodc1.RecordSource = str
Adodc1.Refresh
End Sub
Private Sub Cmd2_Click()
首页.Show
Unload Me
End Sub
Private 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 String
str = "select * from 出库信息表 where 出库信息表." & Combo1.Text & " like '" & Text1.Text & "%'"
Adodc1.RecordSource = str
Adodc1.Refresh
End Sub
Private Sub Cmd2_Click()
首页.Show
Unload Me
End Sub
Private 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 String
str = "select * from 余额信息表 where 余额信息表." & Combo1.Text & " like '" & Text1.Text & "%'"
Adodc1.RecordSource = str
Adodc1.Refresh

End Sub
Private Sub Cmd2_Click()
首页.Show
Unload Me
End Sub
Private 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 String
str = "select 金额 from 出库信息表 where 出库日期 > = '" & Combo1.Text & " ' and 出库日期 < = '" & Combo2.Text & " '"
Adodc1.RecordSource = str
Adodc1.Refresh
End Sub
Private Sub Cmd2_Click()
首页.Show
Unload Me
End Sub
Private Sub Form_Load()
Combo1.AddItem "-1-1"
Combo1.AddItem "-1-2"
Combo1.AddItem "-1-3"
Combo1.AddItem "-1-4"
Combo1.AddItem "-1-5"
Combo1.AddItem "-1-6"
Combo1.AddItem "-1-7"
Combo1.AddItem "-2-1"
Combo1.AddItem "-2-2"
Combo2.AddItem "-1-1"
Combo2.AddItem "-1-2"
Combo2.AddItem "-1-3"
Combo2.AddItem "-1-4"
Combo2.AddItem "-1-5"
Combo2.AddItem "-1-6"
Combo2.AddItem "-1-7"
Combo2.AddItem "-2-1"
Combo2.AddItem "-2-2"
Text1.Text = ""
End Sub
Private Sub Text1_Change()
rssum.Open "select sum(金额) from 出库信息表 where 出库日期 > = '" & Combo1.Text & " ' and 出库日期 < = '" & Combo2.Text & " '"
Text1.Text = rssum.Fields(0)
End Sub
（12）、工程成本设计及代码：

Private Sub Form_Load()
Combo1.AddItem "10101"
Combo1.AddItem "10102"
Text1.Text = ""
End Sub
Private Sub Cmd1_Click()
Dim str As String
str = "select 金额 from 出库信息表 where 工程号 = '" & Combo1.Text & " '"
Adodc1.RecordSource = str
Adodc1.Refresh
End Sub
Private Sub Cmd2_Click()
首页.Show
Unload Me
End Sub

五、 使用说明
物资管理信息系统建立后，应装入大量物资统计，进入试运行及调试阶段。
装入物资数据
往数据库中装入数据又称为数据库加载。因为数据库中通常包含着一个组织内多个部门数据，这些数据格式、规格全部可能不一样，所以在加载之前要对这些数据作严格地检验、整理，并建立严格数据登录和校验规范，设计出完善数据检验和校正程序，尽可能在加载之前把不合格数据排除掉。然后，经过系统提供工具程序或自编专门装入程序将数据装入数据库。
试运行及调试
这个阶段工作关键是实际运行物资管理应用程序，进入物资管理系统登录界面，输入正确用户名和口令，单击确定进入主菜单。在前一阶段，即使也作了性能估计，不过仅仅做了性能估量，且在估量过程中，做了很多简化和假设，忽略了许数次要原因，所以估量是粗糙，并可能失真。在试运行阶段，必需进行实际测量和评价，测试数据尽可能覆盖现实世界多种情况。假如实际测试结果不符合设计目标，则需返回物理设计阶段，修改参数。有时可能还需要返回初始阶段。
首先，测试用户登录功效能否实现：打开仓库管理系统，在“用户名”里填入数据库“用户表”中任一用户名，“密码”框里我们填入和用户名相正确密码作为用户登录密码。填写完成点击“确定”按钮，将会出现操作程序页面，即该用户已经登陆成功了。当我们输入错误密码时，提醒“密码错误”，三次密码错误会自动退出系统。至此，用户登录成功实现。
其次，测试编辑功效能否实现：在登录成功以后，用户进入对应管理页面，能够对对应信息进行新增、修改和删除操作，最终把编辑好信息送入数据库。至此，编辑功效成功实现。
再次，测试查询功效能否实现：查询功效：在登录成功以后，用户进入对应管理页面，点击“查询”时，进入对应查询界面，在里面输入想要查找资料，点击“查询”按钮，成功即可出现结果页面，页面内显示查询出来信息，表示测试成功。
再次，测试用户登出系统能否实现：在管理操作已全部完成，需要退出程序时候，在主菜单页面“系统”下拉菜单有一个“退出”选项，点击以后便可退出。
最终，测试密码更改能否实现：在用户成功登录情况下，在主菜单“系统”下拉菜单中选择“密码修改”，进入到“用户密码修改”界面，用户能够对自己密码进行对应修改。
经过以上各项测试，证实本系统完全能够正常运行，至此测试成功！
本项目关键完成了物资管理信息系统各个模块功效实现，能够添加、删除、查询物资信息，关键采取了Visual Basic + SQL，不过因为设计时间较短，所以该系统还有很多不尽如人意地方，比如联机文档比较少，用户界面不够美观，犯错处理不够，系统维护功效不全，对于数据一致性问题也没有完全处理等多方面问题，这些全部有待工作中深入改善。
六、 参考文件
【1】《基于VB和SQL数据库编程技术》 刘志妩、张焕君等编著
【2】《Visual Basic管理信息系统项目开发实践》 梁伟、苏瑞主编
【3】《Visual Basic数据库系统开发实例导航》第二版