阳泉水泵厂的固定资产设备管理系统的设计与实现毕业论文.docx

《阳泉水泵厂的固定资产设备管理系统的设计与实现毕业论文.docx》由会员分享，可在线阅读，更多相关《阳泉水泵厂的固定资产设备管理系统的设计与实现毕业论文.docx（28页珍藏版）》请在三一办公上搜索。

1、计算机系本科毕业（设计）论文课题名称阳 泉 水 泵 厂 的 固 定资 产 设 备 管 理 系 统 的 设 计 与 实 现专 业计 算 机 科 学 与 技 术姓 名学 号指导教师二零壹零年六月目录1 引 言11.1 课题来源及意义11.2 本人主要工作11.3 论文组织与结构22 需求分析32.1 用户功能需求32.2 技术可行性分析32.3 数据流图33 概要设计53.1 功能模块图53.2处理流程设计63.3数据库设计83.4 系统开发环境134 详细设计144.1 借入归还管理模块设计144.2 移动管理模块设计144.3 维修管理模块设计144.4 折旧管理模块设计154.5用户管理模块

2、设计155 系统实现165.1公共模块165.2借出归还模块的实现165.3移动模块的实现175.4维修模块的实现185.5折旧模块的实现196系统测试216.1 测试方法216.2 测试内容216.3 测试结果217 结束语22致 谢23参考文献24忻州师院计算机系本科学士学位论文阳泉水泵厂固定资产及设备管理系统的设计与实现摘 要：本课题开发的设备管理系统运用Visual Basic 6.0平台，结合SQL Server 2000数据库。通过整合设备管理知识，用以实现资产设备的借入借出、移动、折旧、维修等一系列功能。阐述了该系统的设计思想和系统的功能需求、数据库设计和系统各功能模块的设计等。

3、对各功能模块中的主要技术的实现进行介绍，如ADO控件技术、主要模块功能实现的算法。关键词： Visual Basic 6.0 SQL Server 2000 资产设备Abstract：Development of equipment management system issues using Visual Basic 6.0 platform, combined with SQL Server 2000 database. Integrated device management expertise to achieve equity borrowing and lending of equ

4、ipment, 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 contro

5、l technology, mainly for realization of algorithms.Key Words: Visual Basic 6.0 SQL Server 2000 equipment management 1 引 言1.1 课题来源及意义固定资产代表着一个企业在市场竞争中的实力。早期管理固定资产的方式都是手工记帐的形式，既费时又费力，这种管理模式已不能适应竞争日趋激烈的国际化竞争环境。本系统是管理企事业单位固定资产和设备的信息化管理软件，使用本系统能够帮助企事业单位解决单位内部的固定资产的各种管理问题，并且更加方便企业领导集团详细了解自己企业内部的固定资产变动情况。1

6、.2 本人主要工作学习Visual Basic6.0软件的应用，为进一步开发系统打好基础。通过分析研究任务书要求，以及实地调研，对系统进行进一步需求分析，设计资产设备管理系统的主要功能，把其分为了七大模块：借入归还管理模块、移动管理模块、维修管理模块、折旧管理模块、用户管理模块、系统管理模块和信息管理模块。其中借入归还管理模块包括借入归还设备的信息查询和登记等；移动管理模块和维修管理模块分别对资产设备的移动和维修情况的信息查询、登记及打印等；折旧管理模块包括对资产设备折旧信息的查询、登记、打印等。用户管理模块包括用户的增加、删除及用户本身密码修改；系统管理模块包括系统的初始化、数据清理、自定义

7、项设置等。在以上工作的基础上，对系统进行详细设计和实现系统的所有功能，最后进入论文撰写阶段，完成系统设计和论文撰写的工作。1.3 论文组织与结构第一章：引言。介绍资产设备管理系统的开发背景和现状，以及本人的研究工作；第二章：需求分析。分别对需求和可行性进行了分析；第三章：概要设计。介绍资产设备管理系统需要实现的功能模块以及开发环境和数据库设计；第四章：详细设计。对系统的功能进行了详细介绍；第五章：系统实现。对系统的各个功能的实现进行说明介绍；第六章：系统测试。对系统的各个功能部分进行了测试。2 需求分析需求分析是介于系统分析和软件设计阶段之间的重要桥梁。一方面，需求分析以系统规格说明和项目规划

8、作为分析活动的基本出发点，并从软件角度对它们进行检查与调整；另一方面，需求规格说明又是软件设计、实现测试直至维护的主要基础。良好的分析活动有助于避免或尽早发现早期的错误，从而提高软件生产率，降低开发成本，改进软件质量。2.1 用户功能需求1、固定资产及设备的借出归还管理：管理固定资产及设备的借出、归还情况的详细信息；2、固定资产及设备的移动管理：企业内部的固定资产及设备可能发生移动的情况，例如，财务科的电脑移到人事科。这种资产设备的变动情况就需要在企业单位的内部管理中做一笔资产变动情况的详细记录，这可以通过固定资产及设备的移动管理模块来实现；3、固定资产及设备的维修管理：对固定资产设备的维修情

9、况做详细的记录；4、固定资产设备的折旧管理：根据各种折旧算法，管理企业内部的固定资产及设备的折旧状况；5、固定资产设备的信息管理：对企业拥有的固定资产设备的详细记录。2.2 技术可行性分析开发一个中小型固定资产及设备管理系统，涉及到的技术问题不会太多，主要用到的技术就是数据库和一门可视化开发的编程语言。在这方面，数据库主要是用来存放数据，就目前主流的数据库来看，可以考虑采用Microsoft SQL Server或Oracle。Oracle是一个安全、可靠的并且支持面向对象设计的数据库系统，同时Oracle又有海量存储的特点。然而，相对于Microsoft SQL Server而言，Oracl

10、e的易用性和可维护性相对差一点，而且Oracle的成本相对较高，不适合于中小企业使用。因此，我们选择了目前比较流行的Microsoft SQL Server2000数据库系统；在前台开发编程方面，本系统采用Microsoft公司的Visual Basic 6.0作为主要的开发工具。2.3 数据流图在设计系统的过程中，用数据流图来刻画数据流和转换信息。它用简单的图形记号分别表示数据流、转换、数据源以及外部实体，数据流图是软件系统中各个处理子功能以及它们之间的数据流动的图形表示。经过对系统的分析初步得到系统的顶级DFD，如图2.1所示。用户名+密码核对信息固定资产设备管理系统管理员核对正确管理员图

11、2.1 顶级数据流图用户名+密码核对信息核对正确系统管理核对管理员管理员 图2.2 第一层数据流图系统的管理选择功能模块借出归还管理操作移动管理操作折旧管理操作维修信息管理操作借入归还表息表移动信息表维修信息表折旧信息表 图2.3 第二层数据流图3 概要设计3.1 功能模块图系统功能模块如图3.1所示。固定资产及设备管理系统资产借出归还管理资产移动管理资产维修管理资产折旧管理用户信息管理资产设备信息管理系统管理辅助功能报表信息管理 图3.1 固定资产及设备管理系统功能模块图通过对水泵厂的需求分析，针对水泵厂目前设备管理的现状和对系统总体的分析，可以粗略地抽象出管理系统的功能模块，如图3.1所示

12、。模块主要功能设计如下：1、借出归还管理模块： 用于录入企业的借入及归还情况，查询固定资产设备设备借入和归还的历史。2、移动管理模块：在移动管理模块中，用于录入企业的固定资产设备的移动情况，查询资产设备移动的历史及部门维护。3、维修管理模块：在维修管理模块中，用于企业的固定资产设备维修情况的登记、浏览、打印及企业资产设备维修情况的历史查询。 4、折旧管理模块：对企业的固定资产设备的折旧信息的历史查询及根据不同的折旧算法进行登记、打印折旧信息。 5、报表管理模块：对借出归还、移动、折旧、维修状况进行报表打印。 6、用户信息管理模块：主要是对操作该系统的使用者进行管理，即用户管理。包括用户的增加和

13、删除、用户本身密码的修改。 7、系统管理模块：包括系统的初始化、数据清理、自定义项设置。8、辅助管理模块：针对模块中的需要进行资产折旧、净值等的计算设计了计算器。9、固定资产设备的信息管理模块：包括录入、删除、修改、打印、查询企业的固定资产设备的信息。3.2处理流程设计3.2.1 系统操作流程 系统操作流程如图3.2所示。移动管理维修管理借出归还管理信息管理折旧管理系统登录界面登 录打 印 移 动 信 息 单打 印 维 修 状 况打 印 折 旧 状 况 表打 印 资 产 信 息 表处理结束YN图3.2系统操作流程3.2.2数据增加流程添加信息时，编号字段由系统自动生成，且不能修改，其他信息由用

14、户输入，之后对数据进行合法判断，合法则写入保存至数据库，不合法则重新输入数据。数据增加流程图如图3.3所示。否是自动生成编号是否合法写入数据库结束开始输入数据图3.3 数据增加流程图3.2.3 数据修改流程在修改信息时，先选中一条待修改的记录，然后直接输入数据，判断合法性，合法则保存至数据库，不合法重新输入。数据修改流程图如图3.4所示。否是选择需要修改记录输入数据是否合法写入数据库结束开始图3.4 数据修改流程图3.2.4 数据删除流程当用户选定一条记录时，单击删除按钮，会提示用户是否确定删除，如果确定删除，然后删除数据库相关内容。数据删除流程图如图3.5所示。是选择需要删除记录是否删除否开

15、始更新数据库结束图3.5 数据删除流程图3.3数据库设计3.3.1数据库SQL Server2000的介绍 系统采用SQL Server 2000数据库，SQL Server是由Microsoft开发和推广的关系数据库管理系统（DBMS）,它最初是由Microsoft、Sybase和Ashton-Tate三家公司共同开发的，并于1988年推出了第一个OS/2版本。 SQL Server近年来不断更新版本,SQL Server 2000是Microsoft公司于2000年推出的最新版本。 SQL Server 特点：1客户机/服务器体系结构。 2图形化用户界面，使系统管理和数据库管理更加直观、简

16、单。 3丰富的编程接口工具，为用户进行程序设计提供了更大的选择余地。 4SQL Server与Windows NT完全集成，利用了NT的许多功能。SQL Server也可以很好地与Microsoft BackOffice产品集成。 5具有很好的伸缩性，可跨越多种平台使用。 6对Web技术的支持，使用户能够很容易地将数据库中的数据发布到Web页面上。 7SQL Server提供数据仓库功能，这个功能只在Oracle和其他更昂贵的DBMS中才有。3.3.2 ADO技术概述ADO Data 数据控件是ActiveX外部控件，它的用途以及外形都和Data控件相似，也具有【向前】和【向后】按钮以及一个易

17、于使用的界面， ADO Data数据控件是通过Microsoft Activiex数据对象（ADO）来快速建立数据源连接的数据绑定控件，应用程序通过 ADO Data控件与数据提供者连接，数据提供者可以是任何符合OLEDB规范的数据源。ADO Data数据控件通过属性实现了对数据源的连接，创建连接表时，可以采用以下连接方式之一：一个字符串，一个OLEDB文件或一个ODBC数据源名称（DSN）。当使用DSN时无需更改控件的任何其他属性。ADO Data控件的功能：连接一个本地数据库或远程数据库；打开一个指定的数据库表或定义一个基于结构化查询语言（SQL）的查询、存储过程或该数据库中表视图的记录集

18、合；将数据字段的数值传递给数据绑定控件，并在这些控件中显示或更改这些数据字段的数值；添加新的记录，或者根据显示在数据绑定控件中的数据的更改来更新一个数据库。3.3.3数据库的概念设计固定资产及设备管理系统E-R图如图3.6所示。 1n11资产设备编号维修日期资产设备名称维修费用配件名称维修状况故障原因数量参照移动信息资产设备编号资产设备名称配置移出部门移入部门移动时间数量型号维护信息 参照折旧信息资产设备名称资产设备编号净残值折旧方法净值预计使用年限折旧额折旧率归还数量借用人人归还日期借出数量借出部门部门部门借入归还资产设备信息1参照参照生产厂家数量1nn用户管理用户名密码备注净值型号单价金额

19、资产设备编号详细配置配置预计使用年限1n 图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）字段名称字段类型字段大小主键是否为空资产设备编号Char10否是资产名称Char30否是型号Char10否是配置Char10否是借出数量Char1

20、0否是借出部门Char50否是借用人Char50否是借出日期Char30否是归还日期Varchar50否是归还数量Char10否是未还数量Char10否是 表3.2 固定资产移动数据表（Table_ZCYD）字段名称字段类型字段大小主键是否为空资产设备编号Char18否是资产设备名称Char10否是型号Char10否是配置Char10否是数量Char8否是移动时间Datatime8否是移出部门Char50否是移入部门Char50否是表3.3 固定资产维修数据表（Table_ZCWX）字段名称字段类型字段大小主键是否为空资产设备编号Char18否是资产设备名称Varchar50否是型号Varch

21、ar50否是配置Varchar50否是数量Float8否是送修日期Datetime8否是故障原因Varchar60否是维修日期Datetime8否是维修状况nchar30否是配件名称Varchar50否是维修费用Float8否是表3.4固定资产折旧信息表（Table_ZCZJ）字段名称字段类型字段大小主键是否为空资产设备编号Decimal9否是资产设备名称Char30否是型号Char10否是数量Char30否是配置Char10否是折旧方法Char20否是资产原值Char10否是折旧年限Char10否是折旧率Char10否是折旧额Char10否是选择Char10否是3.4 系统开发环境硬件环境：

22、处理器 Intel Core Duo T5800，主频2.0G；内存2G；显存256M；硬盘250G；网卡10M/100M自适应以太网卡。软件环境： Windows Vista Home Basic操作系统；SQL Server2000数据库软件；Visual Basic6.0程序设计语言。4 详细设计4.1 借入归还管理模块设计借入归还管理用于管理企业的借入归还情况，主要由三个功能模块构成，其各个模块实现的功能如下：1、借出登记：实现资产设备的借出登记情况。输入相应的资产设备编号即可进行登记。2、归还登记：实现资产设备的归还情况。输入相应的资产设备编号即可进行登记。3、历史查询： 可以让用户

23、按照任何条件查询，如资产设备名称、资产设备编号、型号、归还的数量等。图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=MRVBCall mainDim aa As IntegerIf Combo4.Text = ThenMsg

24、Box 请输入移出部门, , 提示ElseIf Text6.Text = ThenMsgBox 请输入移入部门, , 提示ElseIf Text15.Text = ThenMsgBox 请输入移动数量, , 提示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_ZCY

25、D 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(数量) - Va

26、l(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 IfEnd IfadoCon.CloseEnd Sub借出登记归还登记打印凭证单图4.1 资产设备借入归还管理的开发流程图4.2 移动管理模块设计资产移动打印凭证单固定资产Private Sub C

27、ommand9_Click() 资产移动信息保存 Set adoCon = New ADODB.Connection adoCon.Open Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=Data_MRSOFT;Data Source=MRVBCall mainDim aa As IntegerIf Combo4.Text = ThenMsgBox 请输入移出部门, , 提示ElseIf Text6.Text = ThenMsgBox 请输入移入部门, , 提示ElseIf Text15.T

28、ext = ThenMsgBox 请输入移动数量, , 提示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 & , & DTP

29、icker1 & , & 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 移动数量= + Text

30、15.Text + ,数量= + Str(aa) + where 资产设备编号= + Text2.Text + ) MsgBox 数据保存成功!, , 提示 Adodc1.Refresh Combo4.Text = Text6.Text = End IfEnd IfadoCon.CloseEnd Sub由于移动管理模块与借入归还管理模块类似，所以这里只重点说一下部门维护窗体，具有增加部门和删除部门的功能。图4.2所示的是资产设备借出归还管理的开发流程图。图4.2 资产设备移动管理的开发流程图4.3 维修管理模块设计 维修管理模块用于管理固定资产设备的维修情况，用户可以对固定资产设备的维修情况进

31、行登记、查询，同时也可以打印维修情况报表。使用户能够及时、直观的了解到维修状况。图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=MRVBCall mainDim aa As IntegerIf Combo4.T

32、ext = ThenMsgBox 请输入移出部门, , 提示ElseIf Text6.Text = ThenMsgBox 请输入移入部门, , 提示ElseIf Text15.Text = ThenMsgBox 请输入移动数量, , 提示Else If Val(Trim(Text15.Text) Val(Trim(Text7.Text) Then MsgBox 固定资产的移动数量不能大于实际固定资产的总数,请您重新输入, 32, 通用固定资产设备管理系统 Text15.Text = Text15.SetFocus Else Set adoRs = adoCon.Execute(insert i

33、nto 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.Fi

34、elds(数量) - 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 IfEnd IfadoCon.CloseEnd Sub 图4.3 资产设备维修管理的开发流程图4.4 折旧管理模块设计折旧管理模块用于对水泵厂的固定资产设备进行管理，它包含

35、的功能有查询、登记、打印。用户可以依照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=MRVBCall mainDim aa As IntegerIf Combo4

36、.Text = ThenMsgBox 请输入移出部门, , 提示ElseIf Text6.Text = ThenMsgBox 请输入移入部门, , 提示ElseIf Text15.Text = ThenMsgBox 请输入移动数量, , 提示Else If Val(Trim(Text15.Text) Val(Trim(Text7.Text) Then MsgBox 固定资产的移动数量不能大于实际固定资产的总数,请您重新输入, 32, 通用固定资产设备管理系统 Text15.Text = Text15.SetFocus Else Set adoRs = adoCon.Execute(insert

37、 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.

38、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 IfEnd IfadoCon.CloseEnd Sub图4.4 资产设备折旧管理的开发流程图4.5用户管理模块设计用户管理模块是每个系统都应该具备的，主要是对操作该系统

39、的使用者进行管理，即用户管理。包括用户的增加和删除、用户本身密码的修改。图4.8为用户管理模块的功能图。系统管理模块用 户 增 加用 户 删 除用户密码修改图4.8 用户管理模块功能图5 系统实现5.1公共模块在开发软件时，为了提高程序代码的重用，可以将多个程序窗体共用的代码放在数据模块中。这样不仅可以提高代码的执行效率，也使代码更加简练，更容易维护。在本系统中，将数据连接代码放在数据模块中，所有窗体都可以使用数据模块中的数据连接。该数据模块的代码如下：Public adoCon As New ADODB.ConnectionPublic adoRs As New ADODB.RecordsetPublic