vb设备管理系统+论文

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

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

内容来自think58

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

信息清单 统计整理 报表清单 更换清单

内容来自think58

think58.com [资料来源：http://THINK58.com]

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

本文来自think58

[资料来源：http://think58.com]

3.3、设备管理系统E-R图

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

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

领料库表
字段名称 数据类型 是否允许空值 备注
xinghao Long int 0 主键
Shuliang int 0
danjia int 0
yiqi Datetime 1

think58

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

[资料来源：http://www.THINK58.com]

总库表
字段名称 数据类型 是否允许空值 备注
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

接下来就利用上面创建的表实现数据库的设计:如消耗表(其余表的与之同)

数据库之间的关系指明两个库之间共享一个共同的关键字值。一个连接是指一种虚拟的表，这种表是在当用户要求从相互关联的各个不同的表中获取信息时建立的，关键字段用于在相互连接的不同表中查找匹配的记录,最终实现各表之间通过关键字段联系起来。 copyright think58

[资料来源：http://THINK58.com]

think58 [资料来源：THINK58.com]

本文来自think58

[资料来源：http://www.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
copyright think58 [资料来源：www.THINK58.com]