资源描述
计算机系本科毕业（设计）论文
课题名称
阳 泉 水 泵 厂 固 定资 产 设 备 管 理 系 统 设 计 和 实 现
专 业
计 算 机 科 学 和 技 术
姓 名
学 号
指导老师
二零壹零年六月
目 录
1 引 言 1
1.1 课题起源及意义 1
1.2 本人关键工作 1
1.3 论文组织和结构 2
2 需求分析 3
2.1 用户功效需求 3
2.2 技术可行性分析 3
2.3 数据流图 3
3 概要设计 5
3.1 功效模块图 5
3.2处理步骤设计 6
3.3数据库设计 8
3.4 系统开发环境 13
4 具体设计 14
4.1 借入归还管理模块设计 14
4.2 移动管理模块设计 14
4.3 维修管理模块设计 14
4.4 折旧管理模块设计 15
4.5用户管理模块设计 15
5 系统实现 16
5.1公共模块 16
5.2借出归还模块实现 16
5.3移动模块实现 17
5.4维修模块实现 18
5.5折旧模块实现 19
6系统测试 21
6.1 测试方法 21
6.2 测试内容 21
6.3 测试结果 21
7 结束语 22
致 谢 23
参考文件 24
阳泉水泵厂固定资产及设备管理系统设计和实现
摘 要：本课题开发设备管理系统利用Visual Basic 6.0平台，结合SQL Server 数据库。经过整合设备管理知识，用以实现资产设备借入借出、移动、折旧、维修等一系列功效。叙述了该系统设计思想和系统功效需求、数据库设计和系统各功效模块设计等。对各功效模块中关键技术实现进行介绍，如ADO控件技术、关键模块功效实现算法。
关键词： Visual Basic 6.0 SQL Server 资产设备
Abstract：Development of equipment management system issues using Visual Basic 6.0 platform, combined with SQL Server database. Integrated device management expertise to achieve equity borrowing and lending of equipment, mobile, depreciation, maintenance and a series of functions. Elaborate design of the system and the main functions of the system requirements, database design and system design of each functional module. Of each function module introduces the main technical implementation, such as ADO control technology, mainly for realization of algorithms.
Key Words: Visual Basic 6.0 SQL Server equipment management
1 引 言
1.1 课题起源及意义
固定资产代表着一个企业在市场竞争中实力。早期管理固定资产方法全部是手工记帐形式，既费时又费力，这种管理模式已不能适应竞争日趋猛烈国际化竞争环境。本系统是管理企机关固定资产和设备信息化管理软件，使用本系统能够帮助企机关处理单位内部固定资产多种管理问题，而且愈加方便企业领导集团具体了解自己企业内部固定资产变动情况。
1.2 本人关键工作
学习Visual Basic6.0软件应用，为深入开发系统打好基础。经过分析研究任务书要求，和实地调研，对系统进行深入需求分析，设计资产设备管理系统关键功效，把其分为了七大模块：借入归还管理模块、移动管理模块、维修管理模块、折旧管理模块、用户管理模块、系统管理模块和信息管理模块。其中借入归还管理模块包含借入归还设备信息查询和登记等；移动管理模块和维修管理模块分别对资产设备移动和维修情况信息查询、登记及打印等；折旧管理模块包含对资产设备折旧信息查询、登记、打印等。用户管理模块包含用户增加、删除及用户本身密码修改；系统管理模块包含系统初始化、数据清理、自定义项设置等。在以上工作基础上，对系统进行具体设计和实现系统全部功效，最终进入论文撰写阶段，完成系统设计和论文撰写工作。
1.3 论文组织和结构
第一章：引言。介绍资产设备管理系统开发背景和现实状况，和本人研究工作；
第二章：需求分析。分别对需求和可行性进行了分析；
第三章：概要设计。介绍资产设备管理系统需要实现功效模块和开发环境和数据库设计；
第四章：具体设计。对系统功效进行了具体介绍；
第五章：系统实现。对系统各个功效实现进行说明介绍；
第六章：系统测试。对系统各个功效部分进行了测试。
2 需求分析
需求分析是介于系统分析和软件设计阶段之间关键桥梁。首先，需求分析以系统规格说明和项目计划作为分析活动基础出发点，并从软件角度对它们进行检验和调整；其次，需求规格说明又是软件设计、实现测试直至维护关键基础。良好分析活动有利于避免或尽早发觉早期错误，从而提升软件生产率，降低开发成本，改善软件质量。
2.1 用户功效需求
1、固定资产及设备借出归还管理：管理固定资产及设备借出、归还情况具体信息；
2、固定资产及设备移动管理：企业内部固定资产及设备可能发生移动情况，比如，财务科电脑移到人事科。这种资产设备变动情况就需要在企业单位内部管理中做一笔资产变动情况具体统计，这能够经过固定资产及设备移动管理模块来实现；
3、固定资产及设备维修管理：对固定资产设备维修情况做具体统计；
4、固定资产设备折旧管理：依据多种折旧算法，管理企业内部固定资产及设备折旧情况；
5、固定资产设备信息管理：对企业拥有固定资产设备具体统计。
2.2 技术可行性分析
开发一个中小型固定资产及设备管理系统，包含到技术问题不会太多，关键用到技术就是数据库和一门可视化开发编程语言。在这方面，数据库关键是用来存放数据，就现在主流数据库来看，能够考虑采取Microsoft SQL Server或Oracle。Oracle是一个安全、可靠而且支持面向对象设计数据库系统，同时Oracle又有海量存放特点。然而，相对于Microsoft SQL Server而言，Oracle易用性和可维护性相对差一点，而且Oracle成本相对较高，不适合于中小企业使用。所以，我们选择了现在比较流行Microsoft SQL Server数据库系统；在前台开发编程方面，本系统采取Microsoft企业Visual Basic 6.0作为关键开发工具。
2.3 数据流图
在设计系统过程中，用数据流图来刻画数据流和转换信息。它用简单图形记号分别表示数据流、转换、数据源和外部实体，数据流图是软件系统中各个处理子功效和它们之间数据流动图形表示。经过对系统分析初步得到系统顶级DFD，图2.1所表示。
用户名+密码
查对信息
固定资产设备管理系统
管理员
查对正确
管理员
图2.1 顶级数据流图
用户名+密码
查对信息
查对正确
系统管理
核
对
管理员
管理员
图2.2 第一层数据流图
系统管理
选择功效模块
借出归还管理操作
移动管理操作
折旧管理操作
维修信息管理操作
借入归还表息表
移动信息表
维修信息表
折旧信息表
图2.3 第二层数据流图
3 概要设计
3.1 功效模块图
系统功效模块图3.1所表示。
固定资产及设备管理系统
资产借出归还管理
资产移动管理
资产维修管理
资产折旧管理
用户信息管理
资产设备信息管理
系统管理
辅助功效
报
表信息管理
图3.1 固定资产及设备管理系统功效模块图
经过对水泵厂需求分析，针对水泵厂现在设备管理现实状况和对系统总体分析，能够粗略地抽象出管理系统功效模块，图3.1所表示。模块关键功效设计以下：
1、借出归还管理模块： 用于录入企业借入及归还情况，查询固定资产设备设备借入和归还历史。
2、移动管理模块：在移动管理模块中，用于录入企业固定资产设备移动情况，查询资产设备移动历史及部门维护。
3、维修管理模块：在维修管理模块中，用于企业固定资产设备维修情况登记、浏览、打印及企业资产设备维修情况历史查询。
4、折旧管理模块：对企业固定资产设备折旧信息历史查询及依据不一样折旧算法进行登记、打印折旧信息。
5、报表管理模块：对借出归还、移动、折旧、维修情况进行报表打印。
6、用户信息管理模块：关键是对操作该系统使用者进行管理，即用户管理。包含用户增加和删除、用户本身密码修改。
7、系统管理模块：包含系统初始化、数据清理、自定义项设置。
8、辅助管理模块：针对模块中需要进行资产折旧、净值等计算设计了计算器。
9、固定资产设备信息管理模块：包含录入、删除、修改、打印、查询企业固定资产设备信息。
3.2处理步骤设计
3.2.1 系统操作步骤
系统操作步骤图3.2所表示。
移动管理
维修管理
借出归还管理
信息管理
折旧管理
系统登录界面
登 录
打 印 移 动 信 息 单
打 印 维 修 状 况
打 印 折 旧 状 况 表
打 印 资 产 信 息 表
处理
结束
Y
N
图3.2系统操作步骤
3.2.2数据增加步骤
添加信息时，编号字段由系统自动生成，且不能修改，其它信息由用户输入，以后对数据进行正当判定，正当则写入保留至数据库，不正当则重新输入数据。数据增加步骤图图3.3所表示。
否
是
自动生成编号
是否正当
写入数据库
结束
开始
输入数据
图3.3 数据增加步骤图
3.2.3 数据修改步骤
在修改信息时，先选中一条待修改统计，然后直接输入数据，判定正当性，正当则保留至数据库，不正当重新输入。数据修改步骤图图3.4所表示。
否
是
选择需要修改统计
输入数据
是否正当
写入数据库
结束
开始
图3.4 数据修改步骤图
3.2.4 数据删除步骤
当用户选定一条统计时，单击删除按钮，会提醒用户是否确定删除，假如确定删除，然后删除数据库相关内容。数据删除步骤图图3.5所表示。
是
选择需要删除统计
是否删除
否
开始
更新数据库
结束
图3.5 数据删除步骤图
3.3数据库设计
3.3.1数据库SQL Server介绍
系统采取SQL Server 数据库，SQL Server是由Microsoft开发和推广关系数据库管理系统（DBMS）,它最初是由Microsoft、Sybase和Ashton-Tate三家企业共同开发，并于1988年推出了第一个OS/2版本。 SQL Server多年来不停更新版本,SQL Server 是Microsoft企业于推出最新版本。 SQL Server 特点：
1．用户机/服务器体系结构。
2．图形化用户界面，使系统管理和数据库管理愈加直观、简单。
3．丰富编程接口工具，为用户进行程序设计提供了更大选择余地。
4．SQL Server和Windows NT完全集成，利用了NT很多功效。SQL Server也能够很好地和Microsoft BackOffice产品集成。
5．含有很好伸缩性，可跨越多个平台使用。
6．对Web技术支持，使用户能够很轻易地将数据库中数据公布到Web页面上。
7．SQL Server提供数据仓库功效，这个功效只在Oracle和其它更昂贵DBMS中才有。
3.3.2 ADO技术概述
ADO Data 数据控件是ActiveX外部控件，它用途和外形全部和Data控件相同，也含有【向前】和【向后】按钮和一个易于使用界面， ADO Data数据控件是经过Microsoft Activiex数据对象（ADO）来快速建立数据源连接数据绑定控件，应用程序经过 ADO Data控件和数据提供者连接，数据提供者能够是任何符合OLEDB规范数据源。
ADO Data数据控件经过属性实现了对数据源连接，创建连接表时，能够采取以下连接方法之一：一个字符串，一个OLEDB文件或一个ODBC数据源名称（DSN）。当使用DSN时无需更改控件任何其它属性。
ADO Data控件功效：
连接一个当地数据库或远程数据库；打开一个指定数据库表或定义一个基于结构化查询语言（SQL）查询、存放过程或该数据库中表视图统计集合；将数据字段数值传输给数据绑定控件，并在这些控件中显示或更改这些数据字段数值；添加新统计，或依据显示在数据绑定控件中数据更改来更新一个数据库。
3.3.3数据库概念设计
固定资产及设备管理系统E-R图图3.6所表示。
1
n
1
1
资产设备编号
维修
日期
资产设备名称
维修
费用
配件
名称
维修情况
故障原因
数量
参考
移动信息
资产设
备编号
资产设
备名称
配置
移出
部门
移入
部门
移动
时间
数量
型号
维护信息
参考
折旧信息
资产设备名称
资产设备编号
净残值
折旧
方法
净值
估计使用年限
折旧额
折旧率
归还
数量
借用人人
归还
日期
借出
数量
借出
部门
部门
部门
借入归还
资产设备信息
1
参考
参考
生产
厂家
数量
1
n
n
用户
管理
用户名
密码
备注
净值
型号
单价
金额
资产设
备编号
具体
配置
配置
估计使用年限
1
n
图3.6 固定资产及设备管理系统E-R图
3.3.4数据库逻辑设计
本系统数据库关键有4张数据表组成，分别是固定资产借出归还数据表Table_INOUT、 固定资产移动数据表Table_ZCYD、固定资产维修数据表Table_ZCWX和固定资产折旧信息表Table_ZCZJ。下面分别介绍一下这几张数据表逻辑结构设计。如表3.1、3.2、3.3、3.4所表示。
表3.1借出归还数据表（Table_INOUT）
字段名称
字段类型
字段大小
主键
是否为空
资产设备编号
Char
10
否
是
资产名称
Char
30
否
是
型号
Char
10
否
是
配置
Char
10
否
是
借出数量
Char
10
否
是
借出部门
Char
50
否
是
借用人
Char
50
否
是
借出日期
Char
30
否
是
归还日期
Varchar
50
否
是
归还数量
Char
10
否
是
未还数量
Char
10
否
是
表3.2 固定资产移动数据表（Table_ZCYD）
字段名称
字段类型
字段大小
主键
是否为空
资产设备编号
Char
18
否
是
资产设备名称
Char
10
否
是
型号
Char
10
否
是
配置
Char
10
否
是
数量
Char
8
否
是
移动时间
Datatime
8
否
是
移出部门
Char
50
否
是
移入部门
Char
50
否
是
表3.3 固定资产维修数据表（Table_ZCWX）
字段名称
字段类型
字段大小
主键
是否为空
资产设备编号
Char
18
否
是
资产设备名称
Varchar
50
否
是
型号
Varchar
50
否
是
配置
Varchar
50
否
是
数量
Float
8
否
是
送修日期
Datetime
8
否
是
故障原因
Varchar
60
否
是
维修日期
Datetime
8
否
是
维修情况
nchar
30
否
是
配件名称
Varchar
50
否
是
维修费用
Float
8
否
是
表3.4固定资产折旧信息表（Table_ZCZJ）
字段名称
字段类型
字段大小
主键
是否为空
资产设备编号
Decimal
9
否
是
资产设备名称
Char
30
否
是
型号
Char
10
否
是
数量
Char
30
否
是
配置
Char
10
否
是
折旧方法
Char
20
否
是
资产原值
Char
10
否
是
折旧年限
Char
10
否
是
折旧率
Char
10
否
是
折旧额
Char
10
否
是
选择
Char
10
否
是
3.4 系统开发环境
硬件环境：处理器 Intel Core Duo T5800，主频2.0G；内存2G；显存256M；硬盘250G；网卡10M/100M自适应以太网卡。
软件环境： Windows Vista Home Basic操作系统；SQL Server数据库软件；Visual Basic6.0程序设计语言。
4 具体设计
4.1 借入归还管理模块设计
借入归还管理用于管理企业借入归还情况，关键由三个功效模块组成，其各个模块实现功效以下：
1、借出登记：实现资产设备借出登记情况。输入对应资产设备编号即可进行登记。
2、归还登记：实现资产设备归还情况。输入对应资产设备编号即可进行登记。
3、历史查询： 能够让用户根据任何条件查询，如资产设备名称、资产设备编号、型号、归还数量等。图4.1所表示是资产设备借出归还管理开发步骤图。
固定资产Private Sub Command9_Click() '资产移动信息保留
' Set adoCon = New ADODB.Connection
' adoCon.Open "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=Data_MRSOFT;Data Source=MRVB"
Call main
Dim aa As Integer
If Combo4.Text = "" Then
MsgBox "请输入移出部门", , "提醒"
ElseIf Text6.Text = "" Then
MsgBox "请输入移入部门", , "提醒"
ElseIf Text15.Text = "" Then
MsgBox "请输入移动数量", , "提醒"
Else
If Val(Trim(Text15.Text)) > Val(Trim(Text7.Text)) Then
MsgBox "固定资产移动数量不能大于实际固定资产总数,请您重新输入", 32, "通用固定资产设备管理系统"
Text15.Text = ""
Text15.SetFocus
Else
Set adoRs = adoCon.Execute("insert into Table_ZCYD values(" & Text2 & ",'" & Text3 & "','" & Text4 & "','" & Text5 & "','" & Text15 & "','" & DTPicker1 & "','" & Text6 & "','" & Combo4 & "')")
Text7.Text = Val(Text7.Text) - Val(Text15.Text)
Set adoRs = adoCon.Execute("UPDATE Table_ZCXX SET 数量= '" + Text7.Text + "' where 资产设备编号='" + Text2.Text + "'")
aa = Val(Adodc2.Recordset.Fields("数量")) - Val(Text15.Text)
Set adoRs = adoCon.Execute("UPDATE Table_ZCXX SET 移动数量='" + Text15.Text + "',数量= '" + Str(aa) + "' where 资产设备编号='" + Text2.Text + "'")
MsgBox "数据保留成功!!", , "提醒"
Adodc1.Refresh
Combo4.Text = ""
Text6.Text = ""
End If
End If
adoCon.Close
End Sub
借出登记
归还登记
打印凭证单
图4.1 资产设备借入归还管理开发步骤图
4.2 移动管理模块设计
资产移动
打印凭证单
固定资产Private Sub Command9_Click() '资产移动信息保留
' Set adoCon = New ADODB.Connection
' adoCon.Open "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=Data_MRSOFT;Data Source=MRVB"
Call main
Dim aa As Integer
If Combo4.Text = "" Then
MsgBox "请输入移出部门", , "提醒"
ElseIf Text6.Text = "" Then
MsgBox "请输入移入部门", , "提醒"
ElseIf Text15.Text = "" Then
MsgBox "请输入移动数量", , "提醒"
Else
If Val(Trim(Text15.Text)) > Val(Trim(Text7.Text)) Then
MsgBox "固定资产移动数量不能大于实际固定资产总数,请您重新输入", 32, "通用固定资产设备管理系统"
Text15.Text = ""
Text15.SetFocus
Else
Set adoRs = adoCon.Execute("insert into Table_ZCYD values(" & Text2 & ",'" & Text3 & "','" & Text4 & "','" & Text5 & "','" & Text15 & "','" & DTPicker1 & "','" & Text6 & "','" & Combo4 & "')")
Text7.Text = Val(Text7.Text) - Val(Text15.Text)
Set adoRs = adoCon.Execute("UPDATE Table_ZCXX SET 数量= '" + Text7.Text + "' where 资产设备编号='" + Text2.Text + "'")
aa = Val(Adodc2.Recordset.Fields("数量")) - Val(Text15.Text)
Set adoRs = adoCon.Execute("UPDATE Table_ZCXX SET 移动数量='" + Text15.Text + "',数量= '" + Str(aa) + "' where 资产设备编号='" + Text2.Text + "'")
MsgBox "数据保留成功!!", , "提醒"
Adodc1.Refresh
Combo4.Text = ""
Text6.Text = ""
End If
End If
adoCon.Close
End Sub
因为移动管理模块和借入归还管理模块类似，所以这里只关键说一下部门维护窗体，含有增加部门和删除部门功效。图4.2所表示是资产设备借出归还管理开发步骤图。
图4.2 资产设备移动管理开发步骤图
4.3 维修管理模块设计
维修管理模块用于管理固定资产设备维修情况，用户能够对固定资产设备维修情况进行登记、查询，同时也能够打印维修情况报表。使用户能够立即、直观了解到维修情况。图4.3所表示是资产设备维修管理开发步骤图。
资产维修
打印凭证单
固定资产Private Sub Command9_Click() '资产移动信息保留
' Set adoCon = New ADODB.Connection
' adoCon.Open "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=Data_MRSOFT;Data Source=MRVB"
Call main
Dim aa As Integer
If Combo4.Text = "" Then
MsgBox "请输入移出部门", , "提醒"
ElseIf Text6.Text = "" Then
MsgBox "请输入移入部门", , "提醒"
ElseIf Text15.Text = "" Then
MsgBox "请输入移动数量", , "提醒"
Else
If Val(Trim(Text15.Text)) > Val(Trim(Text7.Text)) Then
MsgBox "固定资产移动数量不能大于实际固定资产总数,请您重新输入", 32, "通用固定资产设备管理系统"
Text15.Text = ""
Text15.SetFocus
Else
Set adoRs = adoCon.Execute("insert into Table_ZCYD values(" & Text2 & ",'" & Text3 & "','" & Text4 & "','" & Text5 & "','" & Text15 & "','" & DTPicker1 & "','" & Text6 & "','" & Combo4 & "')")
Text7.Text = Val(Text7.Text) - Val(Text15.Text)
Set adoRs = adoCon.Execute("UPDATE Table_ZCXX SET 数量= '" + Text7.Text + "' where 资产设备编号='" + Text2.Text + "'")
aa = Val(Adodc2.Recordset.Fields("数量")) - Val(Text15.Text)
Set adoRs = adoCon.Execute("UPDATE Table_ZCXX SET 移动数量='" + Text15.Text + "',数量= '" + Str(aa) + "' where 资产设备编号='" + Text2.Text + "'")
MsgBox "数据保留成功!!", , "提醒"
Adodc1.Refresh
Combo4.Text = ""
Text6.Text = ""
End If
End If
adoCon.Close
End Sub
图4.3 资产设备维修管理开发步骤图
4.4 折旧管理模块设计
折旧管理模块用于对水泵厂固定资产设备进行管理，它包含功效有查询、登记、打印。用户能够依据3种不一样折旧方法，计算固定资产设备折旧额。
图4.4所表示是资产设备维修管理开发步骤图。
打印凭证单
资产维修
固定资产Private Sub Command9_Click() '资产移动信息保留
' Set adoCon = New ADODB.Connection
' adoCon.Open "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=Data_MRSOFT;Data Source=MRVB"
Call main
Dim aa As Integer
If Combo4.Text = "" Then
MsgBox "请输入移出部门", , "提醒"
ElseIf Text6.Text = "" Then
MsgBox "请输入移入部门", , "提醒"
ElseIf Text15.Text = "" Then
MsgBox "请输入移动数量", , "提醒"
Else
If Val(Trim(Text15.Text)) > Val(Trim(Text7.Text)) Then
MsgBox "固定资产移动数量不能大于实际固定资产总数,请您重新输入", 32, "通用固定资产设备管理系统"
Text15.Text = ""
Text15.SetFocus
Else
Set adoRs = adoCon.Execute("insert into Table_ZCYD values(" & Text2 & ",'" & Text3 & "','" & Text4 & "','" & Text5 & "','" & Text15 & "','" & DTPicker1 & "','" & Text6 & "','" & Combo4 & "')")
Text7.Text = Val(Text7.Text) - Val(Text15.Text)
Set adoRs = adoCon.Execute("UPDATE Table_ZCXX SET 数量= '" + Text7.Text + "' where 资产设备编号='" + Text2.Text + "'")
aa = Val(Adodc2.Recordset.Fields("数量")) - Val(Text15.Text)
Set adoRs = adoCon.Execute("UPDATE Table_ZCXX SET 移动数量='" + Text15.Text + "',数量= '" + Str(aa) + "' where 资产设备编号='" + Text2.Text + "'")
MsgBox "数据保留成功!!", , "提醒"
Adodc1.Refresh
Combo4.Text = ""
Text6.Text = ""
End If
End If
adoCon.Close
End Sub
图4.4 资产设备折旧管理开发步骤图
4.5用户管理模块设计
用户管理模块是每个系统全部应该含有，关键是对操作该系统使用者进行管理，即用户管理。包含用户增加和删除、用户本身密码修改。图4.8为用户管理模块功效图。
系统管理模块
用 户 增 加
用 户 删 除
用户密码修改
图4.8 用户管理模块功效图
5 系统实现
5.1公共模块
在开发软件时，为了提升程序代码重用，能够将多个程序窗体共用代码放在数据模块中。这么不仅能够提升代码实施效率，也使代码愈加简练，更轻易维护。在本系统中，将数据连接代码放在数据模块中，全部窗体全部能够使用数据模块中数据连接。该数据模块代码以下：
Public adoCon As New ADODB.Connection
Public adoRs As New ADODB.Recordset
Public Sub main()
Set adoCon = New ADODB.Connection
adoCon.Open "Provider=MSDASQL.1;
Persist Security Info=False;User ID=sa;
Data Source=MRSOFT"
End Sub
5.2借出归还模块实现
借出归还模块能够登记资产设备借出信息和归还信息，而且能够查询和打印已存在资产设备借出和归还信息。借入归还窗体图5.1所表示：
展开阅读全文
浙ICP备2021020529号-1 | 浙B2-20240490 
