《设备管理系统说明书》由会员分享，可在线阅读，更多相关《设备管理系统说明书（21页珍藏版）》请在金锄头文库上搜索。
1、目 录1概述12需求分析13系统设计23.1总体设计框架23.2数据库设计24系统实现44.1登陆界面54.2主界面64.3系统管理74.4设备管理94.5配件管理124.6 维修管理165总结185.1选题185.2问题及解决问题185.3心得与建议186参考文献19数学与信息科学学院计算机应用技能实训稿纸1概述对于我们的这个系统，主要是建立在电脑公司的设备管理系统上。也可以安排在相关的设备管理系统上。其作用主要是当我们在面对庞大的数据库需要管理时，这时就显得人工管理不仅效率低，而且其管理出现的错误率也是相对比较高的。这时我们应该建立一种设备管理系统，它比起一般的手工管理不仅效率高，而且好管
2、理，在建立的设备管理系统上我们可以直接的系统中进行相关的删除、添加、修改等操作。这样我们就会很方便我们更新我们的数据库，而不是人工自己去查看并修改。那样既节省时间又是提高效率。从而实现设备信息关系的系统化、规范化和自动化。2需求分析对于我们的设备管理系统，我们有系统管理、设备管理、配件管理、维修管理。在不同的选项中，我们对于各部分的选项又有不一样的选项。本系统的主要任务是实现对设备的添加管理，修改管理及相关查询。其主要功能包括：1）配件删除修改功能修改配件信息，包括：名称、价格、编号、数量、生产厂家等 删除配件信息，当配件报废后，我们就该从数据库中转移备份数据库中，系统的基本数据库中需要删除设
3、备信息对配件相应的信息进行修改等。2) 设备查询功能查询设备名称、报废状态、生产厂家等。3)设备的添加功能添加新的信息，包括：名称、编号、价格、购买日期、数量、厂家等。4）维修查询设备在使用一段时间后，其可能会坏掉，因此我们建立了维修查询，其包括了设备的编号、维修的日期、及原因等。5)配件的添加功能比如一些配件坏了，我们得添加配件，添加新的配件，包括：配件的名称、编号、价格、数量、厂家等。6)设备维修功能维修设备，其包括的内容有设备编号、及维修的时间等。7）配件的查询此功能和设备查询相似，就是在查询配件的名称、厂家、编号等信息。3系统设计3.1总体设计框架对系统划分模块。例如：根据需求分析，设
4、备管理系统主要有四个模块，分别包括：系统管理模块、设备管理模块、配件管理模块、维修管理模块。系统模块结构图，如图1所示用户登 录维 修管 理维修查询设备维修配件查询删除修改配件添加配件设备查询添加设备设备管 理配件管 理系统管 理关于系统退出系统 图1 设备管理系统总概图3.2数据库设计数据库采用了Microsoft推出的Access数据库，这是微软集成到Office中的一个桌面数据库，能够快速方便的和Office的其他套件综合使用。由于Microsoft Access具有显著的简易性和有效性，大量的桌面数据库系统都采用Microsoft Access作为后台数据库。使用Microsoft A
5、ccess的好处还在于，如果你的系统扩展到Client/Server模式的时候，可以使用Microsoft的数据库服务器软件SQL Server，此时，程序只需要简单的修改一下链接就可以，这样，为程序的平滑扩展提供了非常有力的条件。各表的物理结构如下若要建立一个合格的管理系统，一个数据库是必不可少的。通过ACCESS建立数据库文件 以此来为管理系统提供数据来源。建立的数据库如下图所示。图2是输入库的总览：图2数据库的总览根据系统功能设计的要求及功能模块的划分，数据库表格设计如下。1设备信息表如下表1所示表1 设备信息表名称字段名称类型主键非空设备编号设备编号文本YesYes设备名称设备名称文本
6、NoYes生产厂家生产厂家文本NoYes购买日期购买日期文本NoYes价格价格文本NoYes2 配件信息表见表2所示表2 配件信息表名称字段名称类型主键非空配件编号配件编号文本YESYES 配件名称配件名称文本NOYES配件价值配件价值文本NOYES库存数量库存数量文本NOYES生产厂家生产厂家文本NOYES备注备注文本NOYES3维修记录表见表3所示表3 维修记录表名称字段名称类型主键非空编号NO自动编号YESYES维修内容维修内容文本NOYES设备编号设备编号文本NOYES维修日期维修日期文本NOYES备注备注文本NOYES4 配件使用记录表见表4所示表4 配件使用记录表名称字段名称类型主
7、键非空编号NO自动编号YESYES配件标号配件标号文本NOYES用量用量数字NOYES使用日期使用日期文本NOYES4系统实现首先用户通过登录界面登录到系统中，在主页面下，我们会有系统管理、设备管理、配件管理和维修管理四个模块。在系统管理模块中，我们有关于系统和系统退出的选项。在设备管理中，我们有选项添加设备、设备报废、设备查询选项。在配件管理中，我们有添加配件，查询配件、删除修改配件选项。在维修管理中，有选项设备维修和维修查询选项。4.1登陆界面在登陆界面上，我们先是确定用户名，这个设备管理系统我把它的用户名规定为0000，即如果输入的不是这个用户名，就算是密码正确，也不会登陆进去的。其界面
8、显示如图3所示 图3登陆界面程序代码： 登陆界面程序：Private Sub ComTC_Click()EndEnd SubPrivate Sub CmdOk_click()Dim q As IntegerDim I As IntegerIf txtNo.Text = 0000 Then If txtPas.Text = 123456 ThenFdenglu.Hide Fzhujiemian.Show Else I = MsgBox(密码错误, 5 + vbExclamation, 输入密码) If I 4 Then End Else txtPas.Text = txtPas.SetFocus
9、 End If End IfElse q = MsgBox(没有此用户, 5 + vbExclamation, 输入用户名) If q 4 Then End Else txtNo.Text = txtPas.Text = txtNo.SetFocus End If End If End SubPrivate Sub txtpas_KeyPress(KeyAscii As Integer)Dim a As Stringa = KeyAsciiIf a = 13 ThenSendKeys TabSendKeys EnterEnd IfEnd Sub Private Sub Form_Load()t
10、xtNo.Text = txtPas.Text = End Sub4.2主界面其界面显示如图4所示图4主界面的显示源程序代码：主界面的程序：Private Sub cxpj_Click()Fchaxunpeijian.ShowEnd SubPrivate Sub sbbf_Click()Fbaofei.ShowEnd SubPrivate Sub sbcx_Click()Fshebeichaxun.ShowEnd SubPrivate Sub sbwx_Click()Fshebeiwx.ShowEnd SubPrivate Sub tcxt_Click()Fdenglu.ShowFzhujie
11、mian.HideEnd SubPrivate Sub tjpj_Click()FtianjiapeIjian.ShowEnd SubPrivate Sub tjsb_Click()Fshebeitianjia.ShowEnd SubPrivate Sub wxgl_Click()Fweixiuchaxun.ShowEnd SubPrivate Sub xgsc_Click()Fscxg.ShowEnd Sub4.3系统管理其包括了关于系统和退出系统.1 关于系统就是我们设置的一个版权的界面。其界面如图5所示图5关于系统源程序代码：Private Sub Command1_Click()Unl
12、oad MeEnd Sub2 退出系统就是用户在不使用的时候退出的操作，其界面显示如图6所示图6 退出系统界面源程序代码：Private Sub tcxt_Click()Fdenglu.ShowFzhujiemian.HideEnd Sub4.4设备管理其中包括了添加设备和设备查询两个选项，1添加设备设备添加功能的界面显示如图7所示图7设备添加的界面源程序代码：设备添加程序：Private Sub Command1_Click()On Error Resume NextDim I As IntegerIf Command1.Caption = 添加 Then Command1.Caption
13、= 确定 Adodc1.Recordset.AddNew Text1(o).SetFocusElseFor I = 0 To 4If Text1(I) = Then MsgBox 请将信息填写完整, vbOKOnly + vbExclamation, 警告 Exit Sub End If Next ICommand1.Caption = 添加Adodc1.Recordset.UpdateAdodc1.Recordset.MoveLastEnd IfEnd SubPrivate Sub Command2_Click()Fshebeitianjia.HideFzhujiemian.ShowEnd SubPrivate Sub Texrq_Change()End Sub2设备查询其界面显示如图8所示图8设备删除的界面源程序代码：设备查询程序：Private Sub Comfh_Click()Fshebeichaxun.HideFzhujiemian.ShowEnd SubPrivate Sub comok_Click()If Option1.Value = True Then If Text1.Text = Then MsgBox 请输入设备名称!
