设备管理系统说明书.docx
- 文档编号:11129255
- 上传时间:2023-02-25
- 格式:DOCX
- 页数:27
- 大小:388.75KB
设备管理系统说明书.docx
《设备管理系统说明书.docx》由会员分享,可在线阅读,更多相关《设备管理系统说明书.docx(27页珍藏版)》请在冰豆网上搜索。
设备管理系统说明书
1.概述
对于我们的这个系统,主要是建立在电脑公司的设备管理系统上。
也可以安排在相关的设备管理系统上。
其作用主要是当我们在面对庞大的数据库需要管理时,这时就显得人工管理不仅效率低,而且其管理出现的错误率也是相对比较高的。
这时我们应该建立一种设备管理系统,它比起一般的手工管理不仅效率高,而且好管理,在建立的设备管理系统上我们可以直接的系统中进行相关的删除、添加、修改等操作。
这样我们就会很方便我们更新我们的数据库,而不是人工自己去查看并修改。
那样既节省时间又是提高效率。
从而实现设备信息关系的系统化、规范化和自动化。
2.需求分析
对于我们的设备管理系统,我们有系统管理、设备管理、配件管理、维修管理。
在不同的选项中,我们对于各部分的选项又有不一样的选项。
本系统的主要任务是实现对设备的添加管理,修改管理及相关查询。
其主要功能包括:
1)配件删除修改功能
修改配件信息,包括:
名称、价格、编号、数量、生产厂家等
删除配件信息,当配件报废后,我们就该从数据库中转移备份数据库中,系统的基本数据库中需要删除设备信息对配件相应的信息进行修改等。
2)设备查询功能
查询设备名称、报废状态、生产厂家等。
3)设备的添加功能
添加新的信息,包括:
名称、编号、价格、购买日期、数量、厂家等。
4)维修查询
设备在使用一段时间后,其可能会坏掉,因此我们建立了维修查询,其包括了设备的编号、维修的日期、及原因等。
5)配件的添加功能
比如一些配件坏了,我们得添加配件,添加新的配件,包括:
配件的名称、编号、价格、数量、厂家等。
6)设备维修功能
维修设备,其包括的内容有设备编号、及维修的时间等。
7)配件的查询
此功能和设备查询相似,就是在查询配件的名称、厂家、编号等信息。
3.系统设计
3.1总体设计框架
对系统划分模块。
例如:
根据需求分析,设备管理系统主要有四个模块,分别包括:
系统管理模块、设备管理模块、配件管理模块、维修管理模块。
系统模块结构图,如图1所示
用户登录
维修
管理
维修查询
设备维修
配件查询
删除修改配件
添加配件
设备查询
添加设备
设备管理
配件管理
图1设备管理系统总概图
3.2数据库设计
数据库采用了Microsoft推出的Access数据库,这是微软集成到Office中的一个桌面数据库,能够快速方便的和Office的其他套件综合使用。
由于MicrosoftAccess具有显著的简易性和有效性,大量的桌面数据库系统都采用MicrosoftAccess作为后台数据库。
使用MicrosoftAccess的好处还在于,如果你的系统扩展到Client/Server模式的时候,可以使用Microsoft的数据库服务器软件SQLServer,此时,程序只需要简单的修改一下链接就可以,这样,为程序的平滑扩展提供了非常有力的条件。
各表的物理结构如下
若要建立一个合格的管理系统,一个数据库是必不可少的。
通过ACCESS建立数据库文件以此来为管理系统提供数据来源。
建立的数据库如下图所示。
图2是输入库的总览:
图2数据库的总览
根据系统功能设计的要求及功能模块的划分,数据库表格设计如下。
1设备信息表如下表1所示
表1设备信息表
名称
字段名称
类型
主键
非空
设备编号
设备编号
文本
Yes
Yes
设备名称
设备名称
文本
No
Yes
生产厂家
生产厂家
文本
No
Yes
购买日期
购买日期
文本
No
Yes
价格
价格
文本
No
Yes
2配件信息表见表2所示
表2配件信息表
名称
字段名称
类型
主键
非空
配件编号
配件编号
文本
YES
YES
配件名称
配件名称
文本
NO
YES
配件价值
配件价值
文本
NO
YES
库存数量
库存数量
文本
NO
YES
生产厂家
生产厂家
文本
NO
YES
备注
备注
文本
NO
YES
3维修记录表见表3所示
表3维修记录表
名称
字段名称
类型
主键
非空
编号
NO
自动编号
YES
YES
维修内容
维修内容
文本
NO
YES
设备编号
设备编号
文本
NO
YES
维修日期
维修日期
文本
NO
YES
备注
备注
文本
NO
YES
4配件使用记录表见表4所示
表4配件使用记录表
名称
字段名称
类型
主键
非空
编号
NO
自动编号
YES
YES
配件标号
配件标号
文本
NO
YES
用量
用量
数字
NO
YES
使用日期
使用日期
文本
NO
YES
4.系统实现
首先用户通过登录界面登录到系统中,在主页面下,我们会有系统管理、设备管理、配件管理和维修管理四个模块。
在系统管理模块中,我们有关于系统和系统退出的选项。
在设备管理中,我们有选项添加设备、设备报废、设备查询选项。
在配件管理中,我们有添加配件,查询配件、删除修改配件选项。
在维修管理中,有选项设备维修和维修查询选项。
4.1登陆界面
在登陆界面上,我们先是确定用户名,这个设备管理系统我把它的用户名规定为0000,即如果输入的不是这个用户名,就算是密码正确,也不会登陆进去的。
其界面显示如图3所示
图3登陆界面
程序代码:
登陆界面程序:
PrivateSubComTC_Click()
End
EndSub
PrivateSubCmdOk_click()
DimqAsInteger
DimIAsInteger
IftxtNo.Text="0000"Then
IftxtPas.Text="123456"Then
Fdenglu.Hide
Fzhujiemian.Show
Else
I=MsgBox("密码错误",5+vbExclamation,"输入密码")
IfI<>4Then
End
Else
txtPas.Text=""
txtPas.SetFocus
EndIf
EndIf
Else
q=MsgBox("没有此用户",5+vbExclamation,"输入用户名")
Ifq<>4Then
End
Else
txtNo.Text=""
txtPas.Text=""
txtNo.SetFocus
EndIf
EndIf
EndSub
PrivateSubtxtpas_KeyPress(KeyAsciiAsInteger)
DimaAsString
a=KeyAscii
Ifa=13Then
SendKeys"{Tab}"
SendKeys"{Enter}"
EndIf
EndSub
PrivateSubForm_Load()
txtNo.Text=""
txtPas.Text=""
EndSub
4.2主界面
其界面显示如图4所示
图4主界面的显示
源程序代码:
主界面的程序:
PrivateSubcxpj_Click()
Fchaxunpeijian.Show
EndSub
PrivateSubsbbf_Click()
Fbaofei.Show
EndSub
PrivateSubsbcx_Click()
Fshebeichaxun.Show
EndSub
PrivateSubsbwx_Click()
Fshebeiwx.Show
EndSub
PrivateSubtcxt_Click()
Fdenglu.Show
Fzhujiemian.Hide
EndSub
PrivateSubtjpj_Click()
FtianjiapeIjian.Show
EndSub
PrivateSubtjsb_Click()
Fshebeitianjia.Show
EndSub
PrivateSubwxgl_Click()
Fweixiuchaxun.Show
EndSub
PrivateSubxgsc_Click()
Fscxg.Show
EndSub
4.3系统管理
其包括了关于系统和退出系统.
1关于系统就是我们设置的一个版权的界面。
其界面如图5所示
图5关于系统
源程序代码:
PrivateSubCommand1_Click()
UnloadMe
EndSub
2退出系统就是用户在不使用的时候退出的操作,其界面显示如图6所示
图6退出系统界面
源程序代码:
PrivateSubtcxt_Click()
Fdenglu.Show
Fzhujiemian.Hide
EndSub
4.4设备管理
其中包括了添加设备和设备查询两个选项,
1添加设备
设备添加功能的界面显示如图7所示
图7设备添加的界面
源程序代码:
设备添加程序:
PrivateSubCommand1_Click()
OnErrorResumeNext
DimIAsInteger
IfCommand1.Caption="添加"Then
Command1.Caption="确定"
Adodc1.Recordset.AddNew
Text1(o).SetFocus
Else
ForI=0To4
IfText1(I)=""Then
MsgBox"请将信息填写完整",vbOKOnly+vbExclamation,"警告"
ExitSub
EndIf
NextI
Command1.Caption="添加"
Adodc1.Recordset.Update
Adodc1.Recordset.MoveLast
EndIf
EndSub
PrivateSubCommand2_Click()
Fshebeitianjia.Hide
Fzhujiemian.Show
EndSub
PrivateSubTexrq_Change()
EndSub
2设备查询
其界面显示如图8所示
图8设备删除的界面
源程序代码:
设备查询程序:
PrivateSubComfh_Click()
Fshebeichaxun.Hide
Fzhujiemian.Show
EndSub
PrivateSubcomok_Click()
IfOption1.Value=TrueThen
IfText1.Text=""Then
MsgBox"请输入设备名称!
!
"
ExitSub
Else
Adodc1.RecordSource="select*from设备列表where设备名称='"&Text1.Text&"'"
Adodc1.CommandType=adCmdUnknown
Adodc1.Refresh
DataGrid1.Refresh
Adodc1.Refresh
IfAdodc1.Recordset.EOFThen
MsgBox"无此设备!
",,"提示"
Adodc1.RecordSource="设备列表"
Adodc1.Refresh
EndIf
EndIf
EndIf
IfOption2.Value=TrueThen
IfText2.Text=""Then
MsgBox"请输入生产厂家!
!
"
ExitSub
Else
Adodc1.RecordSource="select*from设备列表where生产厂家='"_&Text2.Text&"'"
Adodc1.CommandType=adCmdUnknown
Adodc1.Refresh
DataGrid1.Refresh
IfAdodc1.Recordset.EOFThen
MsgBox"无此生产厂家!
",,"提示"
Adodc1.RecordSource="设备列表"
Adodc1.Refresh
EndIf
EndIf
EndIf
EndSub
PrivateSubOption1_Click()
Text1.SetFocus
EndSub
PrivateSubOption2_Click()
Text2.SetFocus
EndSub
PrivateSubText1_Click()
Option1.Value=True
EndSub
PrivateSubText2_Click()
Option2.Value=True
EndSub
4.5配件管理
其包括了添加配件、删除/修改配件和配件查询三个选项。
各项的作用如下所示:
1添加配件
其界面的显示如图9所示
图9添加配件的界面
源程序代码:
添加配件程序:
PrivateSubCommand1_Click()
OnErrorResumeNext
DimIAsInteger
IfCommand1.Caption="添加"Then
Command1.Caption="确定"
Adodc1.Recordset.AddNew
Text1(o).SetFocus
Else
ForI=0To4
IfText1(I)=""Then
MsgBox"请将信息填写完整",vbOKOnly+vbExclamation,"警告"
ExitSub
EndIf
NextI
Command1.Caption="添加"
Adodc1.Recordset.Update
Adodc1.Recordset.MoveLast
EndIf
EndSub
PrivateSubCommand2_Click()
FtianjiapeIjian.Hide
Fzhujiemian.Show
EndSub
2删除/修改配件
其界面显示如图10所示
图10配件删除/修改的界面
源程序代码:
删除/修改信息程序:
PrivateSubCommand1_Click()
OnErrorResumeNext
IfCommand1.Caption="修改"Then
Command1.Caption="确认"
Adodc1.Recordset.Update
Text1.SetFocus
Else
Command1.Caption="修改"
Adodc1.Recordset.Update
EndIf
EndSub
PrivateSubCommand2_Click()
OnErrorResumeNext
Adodc1.Recordset.Delete
Adodc1.Recordset.MoveLast
IfAdodc1.Recordset.EOFThen
Adodc1.Recordset.MoveLast
EndIf
EndSub
PrivateSubCommand3_Click()
Fscxg.Hide
Fzhujiemian.Show
EndSub
3配件查询
其界面显示如图11所示
图11配件查询的界面
源程序代码:
查询配件程序:
PrivateSubData1_Validate(ActionAsInteger,SaveAsInteger)
EndSub
PrivateSubCommand1_Click()
IfOption1.Value=TrueThen
IfText1.Text=""Then
MsgBox"请输入配件名称!
!
"
ExitSub
Else
Adodc1.RecordSource="select*from配件列表where配件名称='"&Text1.Text&"'"
Adodc1.CommandType=adCmdUnknown
Adodc1.Refresh
DataGrid1.Refresh
Adodc1.Refresh
IfAdodc1.Recordset.EOFThen
MsgBox"无此配件!
",,"提示"
Adodc1.RecordSource="配件列表"
EndIf
EndIf
EndIf
IfOption2.Value=TrueThen
IfText2.Text=""Then
MsgBox"请输入生产厂家!
!
"
ExitSub
Else
Adodc1.RecordSource="select*from配件列表where生产厂家='"&Text2.Text&"'"
Adodc1.CommandType=adCmdUnknown
Adodc1.Refresh
DataGrid1.Refresh
IfAdodc1.Recordset.EOFThen
MsgBox"无此生产厂家!
",,"提示"
Adodc1.RecordSource="配件列表"
EndIf
EndIf
EndIf
IfOption3.Value=TrueThen
IfText3.Text=""Then
MsgBox"请输入配件编号!
!
"
ExitSub
Else
Adodc1.RecordSource="select*from配件列表where配件编号='"&Text3.Text&"'"
Adodc1.CommandType=adCmdUnknown
Adodc1.Refresh
DataGrid1.Refresh
Adodc1.Refresh
IfAdodc1.Recordset.EOFThen
MsgBox"无此配件!
",,"提示"
Adodc1.RecordSource="配件列表"
EndIf
EndIf
EndIf
IfOption4.Value=TrueThen
EndIf
EndSub
PrivateSubCommand2_Click()
Fchaxunpeijian.Hide
Fzhujiemian.Show
EndSub
4.6维修管理
其包括了设备维修与维修查询
1设备维修
其界面显示如图12所示
图12设备维修的界面
源程序代码:
设备维修程序:
PrivateSubCommand1_Click()
OnErrorResumeNext
IfCommand1.Caption="添加"Then
Command1.Caption="确定"
Adodc1.Recordset.AddNew
Text7.SetFocus
Else
Command1.Caption="添加"
Adodc1.Recordset.Update
Adodc1.Recordset.MoveLast
EndIf
EndSub
PrivateSubCommand3_Click()
Fshebeiwx.Hide
Fzhujiemian.Show
EndSub
2维修查询
其界面的显如图13所示
图13维修查询的界面
源程序代码:
维修查询程序:
PrivateSubCommand1_Click()
IfOption1.Value=TrueThen
IfText1.Text=""Then
MsgBox"请输入设备编号!
!
"
ExitSub
Else
Adodc1.RecordSource="select*from维修列表where设备编号='"&Text1.Text&"'"
Adodc1.CommandType=adCmdUnknown
Adodc1.Refresh
DataGrid1.Refresh
Adodc1.Refresh
IfAdodc1.Recordset.EOFThen
MsgBox"无此设备!
",,"提示"
Adodc1.RecordSource="维修列表"
EndIf
EndIf
EndIf
IfOption2.Value=TrueThen
IfText2.Text=""Then
MsgBox"请输入维修日期!
!
"
ExitSub
Else
Adodc1.RecordSource="select*from维修列表where维修日期='"&Text2.Text&"'"
Adodc1.CommandType=adCmdUnknown
Adodc1.Refresh
DataGrid1.Refresh
IfAdodc1.Recordset.EOFThen
MsgBox"无此设备!
",,"提示"
Adodc1.RecordSource="维修列表"
EndIf
EndIf
EndIf
IfOption3.Value=TrueThen
Adodc1.Refresh
EndIf
EndSub
PrivateSubCommand2_Click()
Fweixiuchaxun.Hide
Fzhujiemian.Show
EndSub
5.总结
5.1选题
选定实验题目以后,进行了仔细比对和研究,对各种类型题目特点及难易度有较深的理解,再结合小组成员自身特点,特长,初步选定为设备管理系统。
5.2问题及解决问题
我们在整个设计的过程中,基本上都按着进度表的进度来进行,但其间也遇到了不少问题。
(1)数据库链接不上
在试验中,我们发现通过VB链接Access数据库经常出错,无法为系统建立一个完整的数据库。
解决办法:
后来经过研究发现,VB系统为安装ADU插件。
(2)无法给系统界面设置背景。
解决办法:
将FORM的picture属性修改为背景图路径。
5.3心得与建议
通过这次的实践活动,我们除了温习了以前学的VisualBasic知识,另外还学会了如何在VisualBasic中链接Access数据库,就是得使用adu连接数据库。
对数据库的内容进行修改。
再者就是对系统进行添加、删除、查询代码的编写。
初步了解了一个设备系统的大体框架和系统流程。
但是在设计的时候我们也感觉到自己在编写那些程序时,自己对于那个一些Visu
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 设备管理 系统 说明书