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

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

2、144.2 移动管理模块设计.144.3 维修管理模块设计.144.4 折旧管理模块设计.154.5 用户管理模块设计 .155 5 系统实现系统实现.165.1 公共模块 .165.2 借出归还模块的实现 .165.3 移动模块的实现 .175.4 维修模块的实现 .185.5 折旧模块的实现 .196 系统测试系统测试.216.1 测试方法.216.2 测试内容.216.3 测试结果.217 7 结束语结束语.22致致 谢谢.23参考文献参考文献.24阳泉水泵厂固定资产及设备管理系统的设计与实现摘 要：本课题开发的设备管理系统运用 Visual Basic 6.0 平台，结合 SQL Se

3、rver 2000数据库。通过整合设备管理知识，用以实现资产设备的借入借出、移动、折旧、维修等一系列功能。阐述了该系统的设计思想和系统的功能需求、数据库设计和系统各功能模块的设计等。对各功能模块中的主要技术的实现进行介绍，如 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 da

4、tabase. 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 mod

5、ule. 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 2000 equipment management 1 1 引引 言言1.11.1 课题来源及意义课题来源及意义固定资产代表着一个企业在市场竞争中的实力。早期管理固定资产的方式都是手工记帐的形式，既费时又费力，这种管理模式已不能适应竞

6、争日趋剧烈的国际化竞争环境。本系统是管理企事业单位固定资产和设备的信息化管理软件，使用本系统能够帮助企事业单位解决单位内部的固定资产的各种管理问题，并且更加方便企业领导集团详细了解自己企业内部的固定资产变动情况。1.21.2 本人主要工作本人主要工作学习 Visual Basic6.0 软件的应用，为进一步开发系统打好根底。通过分析研究任务书要求，以及实地调研，对系统进行进一步需求分析，设计资产设备管理系统的主要功能，把其分为了七大模块：借入归还管理模块、移动管理模块、维修管理模块、折旧管理模块、用户管理模块、系统管理模块和信息管理模块。其中借入归还管理模块包括借入归还设备的信息查询和登记等；

7、移动管理模块和维修管理模块分别对资产设备的移动和维修情况的信息查询、登记及打印等；折旧管理模块包括对资产设备折旧信息的查询、登记、打印等。用户管理模块包括用户的增加、删除及用户本身密码修改；系统管理模块包括系统的初始化、数据清理、自定义项设置等。在以上工作的根底上，对系统进行详细设计和实现系统的所有功能，最后进入论文撰写阶段，完成系统设计和论文撰写的工作。1.31.3 论文组织与结构论文组织与结构第一章：引言。介绍资产设备管理系统的开发背景和现状，以及本人的研究工作；第二章：需求分析。分别对需求和可行性进行了分析；第三章：概要设计。介绍资产设备管理系统需要实现的功能模块以及开发环境和数据库设计

8、；第四章：详细设计。对系统的功能进行了详细介绍；第五章：系统实现。对系统的各个功能的实现进行说明介绍；第六章：系统测试。对系统的各个功能局部进行了测试。2 2 需求分析需求分析需求分析是介于系统分析和软件设计阶段之间的重要桥梁。一方面，需求分析以系统规格说明和工程规划作为分析活动的根本出发点，并从软件角度对它们进行检查与调整；另一方面，需求规格说明又是软件设计、实现测试直至维护的主要根底。良好的分析活动有助于防止或尽早发现早期的错误，从而提高软件生产率，降低开发本钱，改良软件质量。2.12.1 用户功能需求用户功能需求1、固定资产及设备的借出归还管理：管理固定资产及设备的借出、归还情况的详细信

9、息；2、固定资产及设备的移动管理：企业内部的固定资产及设备可能发生移动的情况，例如，财务科的电脑移到人事科。这种资产设备的变动情况就需要在企业单位的内部管理中做一笔资产变动情况的详细记录，这可以通过固定资产及设备的移动管理模块来实现；3、固定资产及设备的维修管理：对固定资产设备的维修情况做详细的记录；4、固定资产设备的折旧管理：根据各种折旧算法，管理企业内部的固定资产及设备的折旧状况；5、固定资产设备的信息管理：对企业拥有的固定资产设备的详细记录。2.22.2 技术可行性分析技术可行性分析开发一个中小型固定资产及设备管理系统，涉及到的技术问题不会太多，主要用到的技术就是数据库和一门可视化开发的

10、编程语言。在这方面，数据库主要是用来存放数据，就目前主流的数据库来看，可以考虑采用 Microsoft SQL Server 或 Oracle。Oracle 是一个平安、可靠的并且支持面向对象设计的数据库系统，同时 Oracle 又有海量存储的特点。然而，相对于 Microsoft SQL Server而言，Oracle 的易用性和可维护性相对差一点，而且 Oracle 的本钱相对较高，不适合于中小企业使用。因此，我们选择了目前比拟流行的 Microsoft SQL Server2000 数据库系统；在前台开发编程方面，本系统采用 Microsoft 公司的Visual Basic 6.0 作

11、为主要的开发工具。2.32.3 数据流图数据流图在设计系统的过程中，用数据流图来刻画数据流和转换信息。它用简单的图形记号分别表示数据流、转换、数据源以及外部实体，数据流图是软件系统中各个处理子功能以及它们之间的数据流动的图形表示。经过对系统的分析初步得到系统的顶级 DFD，如图 2.1 所示。图 2.1 顶级数据流图 图 2.2 第一层数据流图 图 2.3 第二层数据流图用户名+密码核对信息核对正确系统管理核对管理员管理员系统的管理选择功能模块借出归还管理操作移动管理操作折旧管理操作维修信息管理操作借入归还表息表移动信息表维修信息表折旧信息表用户名+密码核对信息固定资产设备管理系统管理员核对正

12、确管理员3 3 概要设计概要设计3.13.1 功能模块图功能模块图系统功能模块如图 3.1 所示。 固定资产及设备管理系统资产借出归还管理资产移动管理资产维修管理资产折旧管理用户信息管理资产设备信息管理系统管理辅助功能报表信息管理图 3.1 固定资产及设备管理系统功能模块图通过对水泵厂的需求分析，针对水泵厂目前设备管理的现状和对系统总体的分析，可以粗略地抽象出管理系统的功能模块，如图 3.1 所示。模块主要功能设计如下：1、借出归还管理模块： 用于录入企业的借入及归还情况，查询固定资产设备设备借入和归还的历史。2、移动管理模块：在移动管理模块中，用于录入企业的固定资产设备的移动情况，查询资产设

13、备移动的历史及部门维护。3、维修管理模块：在维修管理模块中，用于企业的固定资产设备维修情况的登记、浏览、打印及企业资产设备维修情况的历史查询。 4、折旧管理模块：对企业的固定资产设备的折旧信息的历史查询及根据不同的折旧算法进行登记、打印折旧信息。 5、报表管理模块：对借出归还、移动、折旧、维修状况进行报表打印。 6、用户信息管理模块：主要是对操作该系统的使用者进行管理，即用户管理。包括用户的增加和删除、用户本身密码的修改。 7、系统管理模块：包括系统的初始化、数据清理、自定义项设置。8、辅助管理模块：针对模块中的需要进行资产折旧、净值等的计算设计了计算器。9、固定资产设备的信息管理模块：包括录

14、入、删除、修改、打印、查询企业的固定资产设备的信息。3.23.2 处理流程设计处理流程设计 系统操作流程 系统操作流程如图 3.2 所示。移动管理维修管理借出归还管理信息管理折旧管理系统登录界面登 录打 印 移 动 信 息 单打 印 维 修 状 况打 印 折 旧 状 况 表打 印 资 产 信 息 表处理结束YN图 3.2 系统操作流程数据增加流程添加信息时，编号字段由系统自动生成，且不能修改，其他信息由用户输入，之后对数据进行合法判断，合法那么写入保存至数据库，不合法那么重新输入数据。数据增加流程图如图 3.3 所示。否是自动生成编号是否合法写入数据库结束开始输入数据图 3.3 数据增加流程图

15、 数据修改流程在修改信息时，先选中一条待修改的记录，然后直接输入数据，判断合法性，合法那么保存至数据库，不合法重新输入。数据修改流程图如图 3.4 所示。否是选择需要修改记录输入数据是否合法写入数据库结束开始图 3.4 数据修改流程图 数据删除流程当用户选定一条记录时，单击删除按钮，会提示用户是否确定删除，如果确定删除，然后删除数据库相关内容。数据删除流程图如图 3.5 所示。图 3.5 数据删除流程图3.33.3 数据库设计数据库设计数据库 SQL Server2000 的介绍 系统采用 SQL Server 2000 数据库，SQL Server 是由 Microsoft 开发和推广的关系

16、数据库管理系统DBMS,它最初是由 Microsoft、Sybase 和 Ashton-Tate三家公司共同开发的，并于 1988 年推出了第一个 OS/2 版本。 SQL Server 近年来不断更新版本,SQL Server 2000 是 Microsoft 公司于 2000 年推出的最新版本。 SQL Server 特点：1客户机/效劳器体系结构。 2图形化用户界面，使系统管理和数据库管理更加直观、简单。 3丰富的编程接口工具，为用户进行程序设计提供了更大的选择余地。 4SQL Server 与 Windows NT 完全集成，利用了 NT 的许多功能。SQL Server 也可以很好地

17、与 Microsoft BackOffice 产品集成。 5具有很好的伸缩性，可跨越多种平台使用。 6对 Web 技术的支持，使用户能够很容易地将数据库中的数据发布到 Web是选择需要删除记录是否删除否开始更新数据库结束页面上。 7SQL Server 提供数据仓库功能，这个功能只在 Oracle 和其他更昂贵的DBMS 中才有。3.3.2 ADO 技术概述ADO Data 数据控件是 ActiveX 外部控件，它的用途以及外形都和 Data 控件相似，也具有【向前】和【向后】按钮以及一个易于使用的界面， ADO Data数据控件是通过 Microsoft Activiex 数据对象ADO来快

18、速建立数据源连接的数据绑定控件，应用程序通过 ADO Data 控件与数据提供者连接，数据提供者可以是任何符合 OLEDB 标准的数据源。ADO Data 数据控件通过属性实现了对数据源的连接，创立连接表时，可以采用以下连接方式之一：一个字符串，一个 OLEDB 文件或一个 ODBC 数据源名称DSN 。当使用 DSN 时无需更改控件的任何其他属性。ADO Data 控件的功能：连接一个本地数据库或远程数据库；翻开一个指定的数据库表或定义一个基于结构化查询语言SQL的查询、存储过程或该数据库中表视图的记录集合；将数据字段的数值传递给数据绑定控件，并在这些控件中显示或更改这些数据字段的数值；添加

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

20、 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 表 3.2 固定资产移动数据表Table_ZCYD字段名称字段名称字段类型字段类型字段大小字段大小主键主键是否为空是否为空资产设备编号Char18否是资产设备名称Char10否是型号Char10否是配

21、置Char10否是数量Char8否是移动时间Datatime8否是移出部门Char50否是移入部门Char50否是字段名称字段名称字段类型字段类型字段大小字段大小主键主键是否为空是否为空资产设备编号Char10否是资产名称Char30否是型号Char10否是配置Char10否是借出数量Char10否是借出部门Char50否是借用人Char50否是借出日期Char30否是归还日期Varchar50否是归还数量Char10否是未还数量Char10否是表 3.3 固定资产维修数据表Table_ZCWX表 3.4 固定资产折旧信息表Table_ZCZJ字段名称字段名称字段类型字段类型字段大小字段大小主

22、键主键是否为空是否为空资产设备编号Decimal9否是资产设备名称Char30否是型号Char10否是数量Char30否是配置Char10否是折旧方法Char20否是资产原值Char10否是折旧年限Char10否是折旧率Char10否是折旧额Char10否是选择Char10否是字段名称字段名称字段类型字段类型字段大小字段大小主键主键是否为空是否为空资产设备编号Char18否是资产设备名称Varchar50否是型号Varchar50否是配置Varchar50否是数量Float8否是送修日期Datetime8否是故障原因Varchar60否是维修日期Datetime8否是维修状况nchar30否是

23、配件名称Varchar50否是维修费用Float8否是3.3.4 4 系统开发系统开发环境环境硬件环境：处理器 Intel Core Duo T5800，主频 2.0G；内存 2G；显存256M；硬盘 250G；网卡 10M/100M 自适应以太网卡。软件环境： Windows Vista Home Basic操作系统；SQL Server2000数据库软件；Visual Basic6.0程序设计语言。4 4 详细设计详细设计4.14.1 借入归还管理模块设计借入归还管理模块设计借入归还管理用于管理企业的借入归还情况，主要由三个功能模块构成，其各个模块实现的功能如下：1、借出登记：实现资产设备

24、的借出登记情况。输入相应的资产设备编号即可进行登记。2、归还登记：实现资产设备的归还情况。输入相应的资产设备编号即可进行登记。3、历史查询： 可以让用户按照任何条件查询，如资产设备名称、资产设备编号、型号、归还的数量等。图 4.1 所示的是资产设备借出归还管理的开发流程图。图 4.1 资产设备借入归还管理的开发流程图4.24.2 移动管理模块设计移动管理模块设计由于移动管理模块与借入归还管理模块类似，所以这里只重点说一下部门维护窗体，具有增加部门和删除部门的功能。图 4.2 所示的是资产设备借出归还管理的开发流程图。图 4.2 资产设备移动管理的开发流程图4.34.3 维修管理模块设计维修管理

25、模块设计 维修管理模块用于管理固定资产设备的维修情况，用户可以对固定资产设备的维修情况进行登记、查询，同时也可以打印维修情况报表。使用户能够及时、直观的了解到维修状况。图 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_MR

26、SOFT;Data Source=MRVBCall mainDim aa As IntegerIf Combo4.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

27、= 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 a

28、doRs = 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.Ref

29、resh Combo4.Text = Text6.Text = End IfEnd IfadoCon.CloseEnd Sub借出登记归还登记打印凭证单资产移动打印凭证单固定资产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 Integ

30、erIf Combo4.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.Exe

31、cute(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 数

32、量= + 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 IfEnd Ifa

33、doCon.CloseEnd Sub资产维修打印凭证单固定资产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 = ThenMsgBox 请输入移出部门, , 提示ElseIf Text6.Te

34、xt = 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_ZCYD values( & Text2 & , &a

35、mp; 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(

36、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 IfEnd IfadoCon.CloseEnd Sub4.44.4 折旧管理模块设计折旧管理模块设计折旧管理模块用于对水泵厂的固定资产

37、设备进行管理，它包含的功能有查询、登记、打印。用户可以依照 3 种不同的折旧方法，计算固定资产设备的折旧额。图 4.4 所示的是资产设备维修管理的开发流程图。图 4.4 资产设备折旧管理的开发流程图4.54.5 用户管理模块设计用户管理模块设计用户管理模块是每个系统都应该具备的，主要是对操作该系统的使用者进行管理，即用户管理。包括用户的增加和删除、用户本身密码的修改。图 4.8为用户管理模块的功能图。图 4.8 用户管理模块功能图打印凭证单资产维修固定资产Private Sub Command9_Click() 资产移动信息保存 Set adoCon = New ADODB.Connectio

38、n 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.Text = ThenMsgBox 请输入移动数量, , 提示Else If Val(Trim(Text15.Tex

39、t) 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 &

40、, & 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 移动数量=

41、 + Text15.Text + ,数量= + Str(aa) + where 资产设备编号= + Text2.Text + ) MsgBox 数据保存成功!, , 提示 Adodc1.Refresh Combo4.Text = Text6.Text = End IfEnd IfadoCon.CloseEnd Sub系统管理模块用 户 增 加用 户 删 除用户密码修改5 5 系统系统实现实现5.15.1 公共模块公共模块在开发软件时，为了提高程序代码的重用，可以将多个程序窗体共用的代码放在数据模块中。这样不仅可以提高代码的执行效率，也使代码更加简练，更容易维护。在本系统中，将数据连接代码放在数

42、据模块中，所有窗体都可以使用数据模块中的数据连接。该数据模块的代码如下：Public adoCon As New ADODB.ConnectionPublic adoRs As New ADODB.RecordsetPublic Sub main()Set adoCon = New ADODB.ConnectionadoCon.Open Provider=MSDASQL.1;Persist Security Info=False;User ID=sa;Data Source=MRSOFTEnd Sub5.25.2 借出归还模块的实现借出归还模块的实现 借出归还模块可以登记资产设备借出信息和归还

43、信息，并且能够查询和打印已存在的资产设备的借出和归还信息。借入归还的窗体如图 5.1 所示：图 5.1 借入归还窗体数据保存的代码如下：Private Sub Cmd_save_Click(Index As Integer)Call mainCatalog=Data_MRSOFT;Data Source=MRVBDim aa As IntegerIf Frame1.Visible = True ThenIf Text5.Text = ThenMsgBox 请输入借出部门的名称, , 提示ElseIf Text6.Text = ThenMsgBox 请输入借用人的姓名, , 提示ElseIf T

44、ext27.Text = ThenMsgBox 请输入借出数量, , 提示Else Set adoRs = adoCon.Execute(insert into Table_INOUT values( & Text1 & , & Text2 & , & Text3 & , & Text4 & , & Text27 & , & Text5 & , & Text6 & , & DTPicker1 & , & Text24 & , & Text29

45、& , & Text30 & ) MsgBox 数据保存成功!, , 提示aa = Val(Adodc2.Recordset.Fields(数量) - Val(Text27.Text) Set adoRs = adoCon.Execute(UPDATE Table_ZCXX SET 借出数量= + Text27.Text + ,数量= + Str(aa) + where 资产设备编号= + Text1.Text + )Adodc1.RefreshEnd IfEnd If adoCon.CloseEnd Sub5.35.3 移动模块的实现移动模块的实现固定资产设备移动是企

46、事业单位的日常处理业务。例如，在某一企业内部中，财务部需要 10 套桌椅，然而人事部恰好有多余的桌椅，这就需要对资产的移动进行管理。资产移动的操作步骤比拟简单，没有什么复杂的算法，这里就不做更多的介绍了。移动窗体如图 5.2 所示： 图 5.2 移动窗体5.45.4 维修模块的实现维修模块的实现为使企业正常使用资产设备，需要经常对资产设备进行维修和维护。本模块可以对资产设备进行维修管理，并可打印出“资产设备维修单。关键代码如下：Private Sub Command9_Click() 维修信息保存Catalog=Data_MRSOFT;Data Source=MRVBCall mainIf T

47、ext7.Text = Then MsgBox 请输入维修状况, , 提示ElseIf Text8.Text = Then MsgBox 请输入配件名称, , 提示ElseIf Text9.Text = Then MsgBox 请输入维修费用, , 提示ElseIf Text6.Text = Then MsgBox 请输入故障原因, , 提示ElseIf Text20.Text = Then MsgBox 请输入维修数量, , 提示ElseSet adoRs = adoCon.Execute(insert into Table_ZCWX values( & Text2 & ,

48、& Text3 & , & Text4 & , &Text5 & , & Text20 & , & DTPicker1 & , & Text6 & , & DTPicker2 & , & Text7 & , & Text8 & , & Text9 & ) MsgBox 数据保存成功!, , 提示Adodc1.Refresh Text7.Text = Text8.Text = End If adoCon.Close End Sub维修窗体

49、如图 5.3 所示：图 5.3 维修窗体5.55.5 折旧模块的实现折旧模块的实现设计资产折旧管理窗体的最主要问题是折旧方法的选择。本程序中主要介绍了 3 种资产折旧的方法，即产量比例法、重置本钱法和特别折旧率法。这三种折旧方法的计算公式分别如下: 产量比例法 折旧额=资产原值剩余金额预计使用年限 重置本钱法 折旧额=资产原值剩余金额折旧率+净残值 特别折旧率法 折旧额=资产原值*折旧率在上面所提到的三种方法中折旧率等于所要折旧固定资产的使用年限的值的倒数。折旧窗体的主要代码如下：If Trim(Combo3.Text) = 产量比例法 ThenText9.Text = (Val(Text6.

50、Text) - Val(Text7.Text) / Val(Text15.Text)Set adoRs = adoCon.Execute(insert into Table_ZCZJ values( & Text2 & , & Text3 & , & Text4 & , & Text5 & , & Combo3 & , & Text6 & , & Text7 & , & Text8 & , & Text21 & , & Text9 &

51、, & Check1 & )Adodc1.RefreshElseIf Trim(Combo3.Text) = 重置本钱法 ThenText9.Text = (Val(Text6.Text) - Val(Text7.Text) / Val(Text21.Text) + Val(Text7.Text)Set adoRs = adoCon.Execute(insert into Table_ZCZJ values( & Text2 & , & Text3 & , & Text4 & , & Text5 & , &

52、 Combo3 & , & Text6 & , & Text7 & , & Text8 & , & Text21 & , & Text9 & , & Check1 & ) Adodc1.RefreshElseIf Trim(Combo3.Text) = 特别折旧率法 ThenText9.Text = Val(Text6.Text) * Val(Text21.Text)Set adoRs = adoCon.Execute(insert into Table_ZCZJ values( & Text2 & , & Text3 & , & Text4 & , & Text5 & , & Combo3 & , & Text6 & , & Text7 & , & Text8 &