设备管理系统说明书.docx

资源描述

设备管理系统说明书.docx

《设备管理系统说明书.docx》由会员分享，可在线阅读，更多相关《设备管理系统说明书.docx（27页珍藏版）》请在冰豆网上搜索。

设备管理系统说明书.docx

设备管理系统说明书

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

生产厂家

文本

Yes

购买日期

文本

Yes

价格

文本

Yes

2配件信息表见表2所示

表2配件信息表

名称

字段名称

类型

主键

非空

配件编号

文本

YES

配件名称

文本

YES

配件价值

文本

YES

库存数量

文本

YES

生产厂家

文本

YES

备注

文本

YES

3维修记录表见表3所示

表3维修记录表

名称

字段名称

类型

主键

非空

编号

自动编号

YES

维修内容

文本

YES

设备编号

文本

YES

维修日期

文本

YES

备注

文本

YES

4配件使用记录表见表4所示

表4配件使用记录表

名称

字段名称

类型

主键

非空

编号

自动编号

YES

配件标号

文本

YES

用量

数字

YES

使用日期

文本

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

Else

q=MsgBox（"没有此用户",5+vbExclamation,"输入用户名"）

Ifq<>4Then

End

Else

txtNo.Text=""

txtPas.Text=""

txtNo.SetFocus

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

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

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

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

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

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

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

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

展开阅读全文