vb设备管理系统

摘要
目前的公司企业,对于大型电气设备的使用十分频繁,对于大型设备的管理也成为现代企业管理之中不可或缺的一部分。因此,开发这样一套软件成为很有必要的事情。
本管理信息系统是针对企业的实际需求开发设计的,利用计算机运算速度快、存储信息容量大、处理逻辑问题强、功能强大的优势,从企业管理特别是查询与决策信息的管理需求出发,针对性强,功能齐备,旨在通过帮助该企业物资管理实现信息化,以提高企业管理的效率。
经过分析,我们使用 MICROSOFT公司的 ACCESS 2000和VISUAL BASIC开发工具,利用其提供的各种面向对象的开发工具,尤其是数据窗口这一能方便而简洁操纵数据库的智能化对象,首先在短时间内建立系统应用原型,然后对初始原型系统进行需求迭代,不断修正和改进,直到形成用户满意的可行系统。
关键字：Visual Basic6.0，控件、窗体、Access数据库、设备管理信息

本文来自think58 [资料来源：THINK58.com]

目录
摘要......................................................................2
第一章 系统的功能需求分析................................................. 4
1.1、设备管理系统的背景分析................................................ 4
1.2、开发设备管理系统的必要性.......................................... 4
1.3、设备管理系统的功能需求分析............................... 4
第二章 系统技术以及系统性能需求分析...............................5
2.1、Visual Basic.6.0技术简介..........................................................5
2.2、ACCESS2003技术简介................................................... 6
2.3、SQL语句简介................................................. 6
2.4运行环境及系统性能需求分析................................... 7
2.4.1、硬件需求..................................................8
2.4.2、软件需求..................................................8
2.4.3、开发环境.................................................8
第三章 设备管理系统的设计..................................... 9 think58 [来源：http://www.think58.com]
3.1、系统详细功能分析.............................................8
3.2、系统流程图................................................... 11
3.2.1业务流程分析.................................................... 15
3.2.2、设备管理系统的构架图.................................................... 17
3.3、设备管理系统E-R图.................................................... 18
3.4、数据库设计与实现............................................19
第四章 设备管理系统的实现.................................... 25
4.1、数据库的连接................................................ 25
4.2、主界面模块说明.......................................... 28
4.3、数据查询管模块分析与实现..................................... 33
4.4、数据处理模块设计........................................ 37
总结 ............................................................ 38
致谢 ............................................................ 39
参考文献 ........................................................ 40 [资料来源：www.THINK58.com]

第三章 设备管理系统的设计
3.1、系统详细功能分析
设备管理系统包括数据处理、数据查询和成本核算三个子功能模块。
数据处理功能：新设备的添加、修改、删除；及领用设备和消耗设备的修改、删除等一些设备信息操作活动。
数据查询功能：实现每一阶段库设备、领用设备和消耗设备的查询操作活动。
成本核算功能：对每月设备的运行状态（领用、消耗）以领用报表、消耗报表、班组报表和个人报表四表分别进行统计分析。
设备管理信息系统是一个面向设备人员，为其提供服务的综合信息管理系统。设备管理信息人员通过本系统完成相关的日常工作，这些工作也是平常较为繁重的工作。
想要把收集到的信息（如文件、图表、票据、笔记等）转化为下一设计阶段可用形式的信息，必须对需求信息做分析整理工作。
3.2、系统流程图
3.2.1业务流程分析：
业务流程分析的目的是获得业务流程及业务与数据联系的形式描述。下图是本系统的业务流图：
  think58

下面是设备管理数据库系统设计的业务流程分析，原始的数据是设备的基本信息，系统要求统计设备的信息，并根据信息统计的结果由及时对设备进行检修和更换，其数据流图如下图： copyright think58

信息清单           统计整理           报表清单         更换清单   内容来自think58 [来源：http://www.think58.com]

         存储文件
图2.2    设备统计的数据流
3.2.2、设备管理系统的构架图:
本系统主要用数据处理、数据查询、成本核算三个功能模块对设备信息进行综合的管理过程，让管理人员随时掌握设备的运行动态，以进行操作与管理工作，功能模块图如下： think58好，好think58 [资料来源：http://think58.com]

  本文来自think58

3.3、设备管理系统E-R图
 
3.4、数据库设计与实现
在需求分析阶段对系统数据要求已经做了基本分析，总体设计阶段分析了各个模块所要实现的功能，再根据需求分析阶段的数据字典系统需求，设计数据库如下表：
产量表
字段名称 数据类型 是否允许空值 备注
chanliang int 0 主键
yiqi Datetime 1  think58

[版权所有：http://think58.com]

领料库表
字段名称 数据类型 是否允许空值 备注
xinghao Long int 0 主键
Shuliang int 0 
danjia int 0 
yiqi Datetime 1  think58好，好think58 [版权所有：http://think58.com]

消耗库表
字段名称 数据类型 是否允许空值 备注
xinghao Long int 0 主键
yiqi Datetime 0 
Shuliang Varchar(50) 0 
zerenren Long int 0 
zerenzu Int 0 
xiaohaoyuanyin text 0  copyright think58

总库表
字段名称 数据类型 是否允许空值 备注
mingchan Varchar(40) 0 主键
xinghao Long int 0 外键
Jishucanshu1 Varchar(40) 0 
Jishucanshu2 Varchar(40) 0 
Jishucanshu3 Varchar(50) 0 
pinjianxinghao Datetime 0 
danjia int 0 
kuzenliang Long int 0 
shiyongshouming Varchar(200) 0 
chuangjia text 0 
zhongli Text 0 

接下来就利用上面创建的表实现数据库的设计:如消耗表(其余表的与之同)
 
数据库之间的关系指明两个库之间共享一个共同的关键字值。一个连接是指一种虚拟的表，这种表是在当用户要求从相互关联的各个不同的表中获取信息时建立的，关键字段用于在相互连接的不同表中查找匹配的记录,最终实现各表之间通过关键字段联系起来。 think58好，好think58 [资料来源：THINK58.com]

第四章 设备管理系统的实现
4.1、数据库的连接
Public dbmain As Database
Sub opendb()
   allfilepath = ""
   Set dbmain = OpenDatabase(allfilepath & "data\beijianku.mdb")
   On Error GoTo errhandel:
   Exit Sub
errhandel:
   MsgBox ("数据库打开出错（路径错误），请与编程者联系处理。")
End Sub
4.2、主界面模块说明
随着计算机技术的不断发展，计算机应用于各大领域，给人们的生活带来了极大的便利，人们的生活水平也得到很大提高，更加喜欢追求美好事物，因此，任何事物的第一印象是非常重要。
前台界面是给用户提供一个方便易用的接口和美观友好的界面，它满足拥护的各种查询、修改和删除综合实现。事之今日，系统开发工具不断升级，软件的功能越来越强大，利用先进的技术设计新颖、大方的界面，让用户接受也是越来越显的重要。本系统没有用户名登录方式，而是用一个计时器直接进入主界面，设计如图：
 
Option Explicit
Private Sub Form_Load()
   startime = 0
   Timer1.Enabled = True
End Sub
Private Sub Timer1_Timer() think58.com [资料来源：http://think58.com]
    startime = startime + 1
    ProgressBar1.Visible = True
    ProgressBar1.Value = startime * 5
    Label5.Caption = startime * 5 & "%"
    If startime >= 20 Then
        Timer1.Enabled = False
        MDifrm.Show
        Frmstart.Hide
    End If
    DoEvents
End Sub接下来在Visual Basic6.0自带功能”菜单编辑器”编辑窗体界面中的相关数据信息，形成的前台用户界面如图：
 
前台是用户进行综合管理、进入其它操作模块的唯一的接口，主要连接的界面窗口有：
数据处理、数据查询、成本核算三个功能模
数据处理包括新设备的添加、修改、删除；及领用设备和消耗设备的修改、删除。
数据查询包括库设备、领用设备和消耗设备的查询。
成本核算包括对每月设备的运行状态（领用、消耗）以领用报表、消耗报表、班组报表和个人报表四表分别进行统计分析。
4.3、数据查询管模块分析与实现
 

设备信息数据查询，数据查询包括库设备查询、领用查询、消耗查询三部分，不同的查询模块有不同的查询方式，库设备查询、消耗查询都是以设备的属性进行查找，而领用查询以设备在每一阶段的运动情况进行查找的，同时还分别以详细列表、与汇总表两种方式显示在ListView框格中，上图是库设备查询的显示：
Option Explicit
Private Sub Check1_Click(Index As Integer)
   Select Case Index
      Case 0
         If Check1(0).Value = 1 Then
            Combo1(0).Enabled = True
            Combo1(0).BackColor = &H80000005
         Else
            Combo1(0).Enabled = False
            Combo1(0).BackColor = &H8000000F
         End If copyright think58 [来源：http://www.think58.com]
      Case 1
         If Check1(1).Value = 1 Then
            Combo1(1).Enabled = True
            Combo1(1).BackColor = &H80000005
         Else
            Combo1(1).Enabled = False
            Combo1(1).BackColor = &H8000000F
         End If
      Case 2
         If Check1(2).Value = 1 Then
            Combo1(2).Enabled = True
            Combo1(2).BackColor = &H80000005
         Else
            Combo1(2).Enabled = False think58 [来源：http://think58.com]
            Combo1(2).BackColor = &H8000000F
         End If
      Case 3
         If Check1(3).Value = 1 Then
            Combo1(3).Enabled = True
            Combo1(3).BackColor = &H80000005
         Else
            Combo1(3).Enabled = False
            Combo1(3).BackColor = &H8000000F
         End If
   End Select
End Sub
Private Sub Check2_Click(Index As Integer)
   Select Case Index
      Case 0
         If Check2(0).Value = 1 Then 内容来自think58 [资料来源：www.THINK58.com]
            Combo2(0).Enabled = True
            Combo2(0).BackColor = &H80000005
         Else
            Combo2(0).Enabled = False
            Combo2(0).BackColor = &H8000000F
         End If
      Case 1
         If Check2(1).Value = 1 Then
            Combo2(1).Enabled = True
            Combo2(1).BackColor = &H80000005
         Else
            Combo2(1).Enabled = False
            Combo2(1).BackColor = &H8000000F 本文来自think58

         End If
      Case 2
         If Check2(2).Value = 1 Then
            Combo2(2).Enabled = True
            Combo2(2).BackColor = &H80000005
         Else
            Combo2(2).Enabled = False
            Combo2(2).BackColor = &H8000000F
         End If
      Case 3
         If Check2(3).Value = 1 Then

参考文献
1．《软件项目管理》机械工业出版社  韩万江 姜立新
2．《软件工程导论》清华大学出版社  张海藩
3.《VB系统的设计与实现》高等教育出版社  王少清
4．《数据库系统概论》 高等教育出版社  萨师煊 王珊
6．《Visual Basic 进销存系统开发实例导航》 人民邮电出版社  刘韬 骆娟
7．《Access 2000 24学时教程》 机械工业出版社 Craig Eddy  Timothy Buchanan
[资料来源：THINK58.com]