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