公司资产管理系统

TOC\o"1-5"\h\z前言 5\o"CurrentDocument"DELPHI7概述 6DELPHI7的发展过程 6DELPHI7的新特点 6DELPHI7编程环境的组成 7\o"CurrentDocument"数据库SQLSERVER2000概述 8SQLSERVER的简介 8QLSERVER的发展过程 8SQLSERVER2000主要功能和特性 82.3.1Internet集成 82.3.2可伸缩性 82.3.3企业级数据库功能 93.4易于安装、部署和使用 92.4SQLSERVER2000的安全性 94.1SQLServer的身份验证模式 94.2权限验证 10\o"CurrentDocument"3需求分析 11开发背景 11用户要求 11数据字典 11系统结构 12可行性分析 125.1技术可行性 125.2经济可行性 125.3社会可行性 12\o"CurrentDocument"4固定资产管理系统概述 13系统介绍 13主要功能 13资产计算公式 14\o"CurrentDocument"5概要设计 15设计目标 15输;设计［...1 15输出设计 15系统安全和可靠性设计 15\o"CurrentDocument"6数据库设计 16数据库概念结构设计 16数据库物理结构设计 17\o"CurrentDocument"7系统登录和主窗体设计 19功能介绍 19登录窗体设计 19主窗体设计 21\o"CurrentDocument"8基础信息管理 22功能介绍 22资产类别管理设计 22资产增加方式管理设计 23资产减少方式管理设计 24资产使用状况管理设计 24\o"CurrentDocument"9固定资产管理 25功能介绍 25增加固定资产设计 25查询和修改固定资产设计 29删除固定资产设计 32计提折旧与反计提管理设计 32\o"CurrentDocument"10系统维护 34功能介绍 34数据备份设计 34系统初始化设计 35数据还原的实现 36\o"CurrentDocument"结论与展望 37\o"CurrentDocument"参考文献 38\o"CurrentDocument"致谢 39公司资产管理系统摘要：公司资产管理系统是典型的信息管理系统(MIS),其开发主要包括后台数据库的建立和维护以及前端应用程序的开发两个方面。对于前者要求建立起数据一致性和完整性强，数据安全性好的库。而对于后者则要求应用程序功能完备，易使用等特点。经过分析并根据用户和环境的要求，我决定以Delphi作为应用程序开发工具，以SQLServer2000作为后台数据库。DELPHI是一个功能强大的可视化软件开发工具，特别是它对数据库应用有着很好的支持，非常适合于来信息管理系统的开发。作者开发完成的系统实现了三项主要功能：资产信息管理，包括资产信息的录入、修改、删除和资产的异动、折旧、统计管理；资产附加信息管理，即资产类别定义、资产变更方式和资产使用状况的管理；系统维护，具备数据库的备份和还原等功能。关键词：管理信息系统： Delphi?；SQLServer2000：AManagementInformationSystemofCompany'sAssetAbstract：CompanyInformationManagementSystemisatypicalassetmanagementinformationsystem(MIS),includingitsmaindevelopmentbackgroundtotheestablishmentandmaintenanceofthedatabaseandfront-endapplicationdevelopment.Fortheformer,designeresshouldestablishadatabasewhichhasdataconsistency,integrityandsecurity.Forthelatter,programshouldimplementallnecessaryfactions,andtheoperrationproceduredeliveredtouseresshouldbeaseasyaspossible.Afteranalyzingofthecas,accordingtotherequirementsofusersandtheinvolvedenvironment,IedecidedtouseDelphiasanapplicationdevelopmenttoolandSQLServer2000asabackgrounddatabase.Delphiisapowerfulvisualizationsoftwaredevelopmenttools,particularlyitsstrongdatabasesupportcapacityenableitselftofittothedevelopmentofinformationmanagementsystemstochooseverywell..Thefinalversionsystemhascomplishedthefollowingfunctions:AssetInformationManagemcnt,Rccording,modifyingandcancellingofassetinformationandChanging,depreciationandstatisticofassetinformation;ExtraAssetInformationManagementJncludingmanagementofassertdefining,cheangingmodelandatatus;SystemmaintenanceImplementofdatabasebackupandrecovery.Keyword:ManagementInformationSystem;Delphi?;SQLServer20(X);**—1—刖5随着社会经济的不断发展，企业规模越来越大，企业资产维护变的越来越困难，尤其是在手工管理方式下，财会人员对资产进行折旧时，需要查阅上一个月的资产信息，根据上一个月的资产信息核算、折旧资产。如果企业资产很多，可以想象财会人员的工作强度，既要按时对资产进行折旧，即每月对资产进行折旧，又要保证数据的准确性，因为一旦某个月的折旧有误，就会影响以后的资产核算。信息化的发展帮助企业解决了上述的难题，计算机的使用使财会人员从繁重的劳动中解脱出来，以往需要对资产信息一项一项的核算、折旧，现在只需要单击一下按钮，计算机便会自动完成企业所有的资产折旧，并且准确无误。本系统共有基础信息管理、资产管理、系统维护3大模块。第一章和第二章主要介绍了DELPHI7和SQLServer2000的发展过程和主要特点。第三章为系统需求分析第四章和第五章主耍概述了资产信息管理系统的整体设计思路。第六章介绍资产信息管理系统数据库在SQLServer下的设计和开发。第七章介绍登陆界面和主窗体的设计和开发第八章、第九章、第十章分别介绍3大功能模块的开发思路、运行窗体和程序开发。DELPHI7概述DELPHI7的简介Delphi是由Borland公司推出的可视化编程环境，它使用了windows图形用户界面的先进技术，将面向对象的语言功能与方便的可视化开发环境紧密的结合在一起，以其快速的程序开发，强大的数据库处理功能和完善的面向对象表达能力被许多的程序员所钟爱⑶。DELPHI7的发展过程Delphi最初是作为Pascal产品线的修订版出现的，由于在测试期间就表现出许多优秀的特性，Borland公司决定将其作为单独的工具进行开发，并最终于1995年3月发布了Delphi的第一个版本，即delphil.Oodelphil.O具有许多非常有用的功能，例如，对数据库和面向对象的强大支持。在delphil.O推出以后，相继又推出了delphi2.0、delphi3.0和delphi4。等，每一个版本的推出都在上一个版本的基础上增加了许多功能，例如，delphi2.0提供了对OLE自动化服务器的支持，delphi3.0提供了代码识别技术等，delphi4.0提供了对COM技术的支持。值得一提的是，delphi4.0并不是一个很成功的版本，其中的BUG比较多，系统不稳定，许多程序员宁可放弃delphi4.0提供的新特性而使用备受好评的delphil3.O。delphi5.0的出现，弥补了delphi4.0中的缺陷，并对集成开发环境(IDE)进行了重大改进。Delphi6.0提供了跨平台组件库，使在WINDOWS环境下开发的应用程序可以编译、运行在LINUX操作系统上。delphi7中添加了新技术的支持，例如，IntraWeb的应用、对Windows.NET的支持等。DELPHI7的新特点与以往的版本相比，Delphi7突出了对.NET、WebServices＞跨平台开发的准备和支持，Delphi7提供了开发电子商务(E-business)应用程序的众多新特征，可概括为：(I)提供了一些工具，对NET架构进行准备。(2)使用模板驱动架构(ModelDrivenArchitecture,MDA)。(3)通过引入AtoZed公nj的IntraWeb技术。(4)通过BorlandKylix3forDelphi版本，重新编译并分发为Linux平台应用，这不仅仅体现了Delphi7的跨平台的兼容性。(5)通过Delphi7,可以使用户的商业开发与WebServices进行整合。(6)使用Delphi7,通过浏览可用的UDDI目录，采用网络指纹技术。(7)在Delphi7的BizSnap技术，扩展了使用商业XML的Windows操作系统与WebServices兼容能力。这项技术也使程序更容易交换、转移和操作XML文档。因此，可以在Delphi7中开发与商业伙伴所使用WebServices的平台进行无缝结合的应用程序，包括支持Microsoft的.NET、BizTalk,以及SUNSystem的ONE等。(8)在Delphi7中，通过由MIDAS发展而来的DataSnap技术。（9）在Delphi7中，引入RaveReports技术，使程序员可以快速开发跨平台的报表。（10）在Delphi7中，提供了支持WindowsXP主题风格的VCL组件。DELPHI7编程环境的组成Delphi7的编程环境主要由以下几个部分组成：菜单栏和工具栏（菜单栏中提供了delphi7集成开发环境的所有功能，常用功能放在工具栏上），Delphi7的组件面板、窗体（窗体是开展大部分设计的工作区域），对■象浏览器（它显示了窗体上的所有部件的名称和类型，也包含窗体本身），对象检查器（对象检查器是联系界面和代码的纽带），代码编辑器（代码编辑器是编写代码的地方），代码浏览器（代码浏览器以树状图的方式显示代码编辑器中的单元文件信息）⑶。2数据库SQLServer2000概述SQLServer的筒介SQLServer是•个关系数据库管理系统。它最初是由MicrosoftSybase和Ashton-Tate三家公司共同开发的于1988年推出了第一个OS/2版本在WindowsNT,推出后Microsoft与Sybase在SQLServer的开发上就分道扬键了，Microsoft将SQLServer移植至WindowsNT。系统上专注于开发推广SQLServer的WindowsNT版本Sybase则较专注于SQLServer在UNIX操作系统上的应用在本书中介绍的是MicrosoftSQLServer以后简称为SQLServer或MSSQLServer»|51SQLServer的发展过程SQLServer是Microsoft公司的一个关系数据库管理系统，但说起它的历史，却得从Sybase开始的。SQLServer从20世纪80年代后期开始开发，最Y-起源于1987年的SybaseSQLServer«SQLServer最初是由Microsoft、Sybase和Ashton-Tate三家公司共同开发的，1988年，Microsoft公司、Sybase公司和Aston-Tate公司把该产品移植到OS/2上。后来Aston-Tate公司退出了该产品的开发，而Microsoft公司、Sybase公司则签署了一项共同开发协议,这两家公司的共同开发结果是发布了用于WindowsNT操作系统的SQLServer,1992年，将SQLServer移植到了WindowsNT平台上。在SQLServer4版本发行以后，Microsoft公司和Sybase公司在SQLServer的开发方面分道扬镶，取消了合同，各自开发自己的SQLServeroMicrosoft公司专注于WindowsNT平台上的SQLServer开发，而Sybase公司则致力于UNIX平台上的SQLServer的开发。本文中介绍的是MicrosoftSQLServer以后简称为SQLServer或MSSQLServeroSQLServer6.0版是第一个完全由Microsoft公司开发的版本。1996年，Microsoft公司推出了SQLServer6.5版本，接着在1998年又推出了具有巨大变化的7.0版，这一版本在数据存储和数据库引擎方面发生了根本性的变化。又经过两年的努力开发,Microsoft公司于2000年9月布了SQLServer2000,其中包括企业版、标准版、开发版、个人版四个版本。从SQLServer7.0至ljSQLServer2000的变化是渐进的，没有从6.5到7.0变化那么大，只是在SQLServer7.0的基础上进行了增强也SQLServer2000主要功能和特性Internet集成SQLServer2000数据库引擎提供完整的XML支持。它还具有构成最大的Web站点的数据存储组件所需的可伸缩性、可用性和安全功能。SQLServer2000程序设计模型与WindowsDNA构架集成，用以开发Web应用程序，并且SQLServer2000支持EnglishQuery和Microsoft搜索服务等功能，在Web应用程序中包含了用户友好的查询和强大的搜索功能。可伸缩性同一个数据库引擎可以在不同的平台上使用，从运行MicrosoftWindows®98的便携式电脑，到运行MicrosoftWindows2000数据中心版的大型多处理器服务器。SQLServer2(X)0企业版支持联合服务番、索引视图和大型内存支持等功能，使其得以升级到最大Web站点所需的性能级别。企业级数据库功能SQLServer2000关系数据库引擎支持当今苛刻的数据处理环境所需的功能。数据库引擎充分保护数据完整性，同时将管理上千个并发修改数据库的用户的开销减到最小。SQLServer2000分布式查询使您得以引用来自不同数据源的数据，就好象这些数据是SQLServer2000数据库的一部分，同时分布式事务支持充分保护任何分布式数据更新的完整性。复制同样使您得以维护多个数据复本，同时确保单独的数据复本保持同步。可将一组数据复制到多个移动的脱接用户，使这些用户自主地工作,然后将他们所做的修改合并回发布服务器网。234易于安装、部署和使用SQLServer2000中包括一系列管理和开发工具，这些工具可改进在多个站点上安装、部署、管理和使用SQLServer的过程。SQLServer2000还支持基于标准的、与WindowsDNA集成的程序设计模型，使SQLServer数据库和数据仓库的使用成为生成强大的可伸缩系统的无缝部分。这些功能使您得以快速交付SQLServer应用程序，使客户只需最少的安装和管理开销即可实现这些应用程序。SQLServer2000的安全性数据的安全性是指保护数据以防止因使用不当而造成数据的泄密和破坏。为了是实现数据的安全性，SQLServer2000提供了内置的安全性和数据保护。SQLServer用检查口令等手段来检查用户身份，合法的用户才能进入数据库系统；用检查用户权限的手段来检查用户是否有权访问服务器上的数据，这种管理容易而有效。SQLServer的身份验证模式为了实现安全性。每个网络用户在访问SQLServer数据库之前，都必须经过两个阶验的检验。身份验证阶段(Authentication)：用户在SQLServer上获得对任何数据库的访问权限之前，必须登录至USQLServer上，并且被认为是合法的，SQLServer或者操作系统对用户进行验证。权限验证阶段(PermissionValidation)：用户验证过后，登录到SQLServer上，系统检查用户是否具有访问服务器上数据的权限。在身份验证阶段，系统对用户登录进行验证。SQLServer和Windows是结合在一起的，因此产生了两种验证模式：Windows验证模式和混合验证模式。Windows验证模式在该验证模式下，SQLServer检测当前使用的Windows用户帐号，并在Syslogins表中查找该帐号，以确定该帐号是否有权登录。在这种方式下，用户不必提供密码或者登录名让SQLServer验证。Windows验证模式主要有以下优点：数据库管理员的工作集中在管理数据库方面，而不是管理用户帐户。对用户帐户的管理可以交给WindowsNT/2000去完成。WindowsNT/2000有着更强的用户帐户管理工具。可以设置帐户锁定、密码期限等。如果不是通过定制来扩张SQLServer,SQLServer是不具备这些功能的。WindowsNT/2000的组策略支持多个用户同时被授权访问SQLServer。但是，应该注意的是，要在客户和服务器间建立连接，使用该验证模式时，必须满足以下两个条件中的一个：客户端的用户必须有合法的服务器上的WindowsNT/2000帐户，服务器能够在自己的域中或者信任域中验证该用户。服务器启动了Guest帐户。但该方法会带来安全大会的隐患，因而不是一个好办法。混合验证模式混合验证模式允许以SQLServer验证模式或者Windows验证模式来进行验证。使用哪种验证模式取决于在最初通信时使用的网络库。如果一个用户使用的是TCP/IP的Socket进行登录验证，则将使用的SQLServer验证模式：如果用户使用命名管道，则登录时使用Windows验证模式。但是对于Windows9X系列操作系统，只能使用SQLServer验证模式。SQLServer验证模式下，处理登录的过程为：用户输入登录名和密码后，SQLServer在系统注册表中检测输入的登录名和密码。如果输入的登录名存在，而且密码也正确，就可以登录到SQLServer上。混合验证具有以下优点：创建了WindowsNT/2000之上的另外一个安全层次。支持更大范围的用户，如非WindowsNT客户，Novell网用户等。一个应用程序可以使用单个的SQLServer登录帐号和口令。由此可以看出：验证模式的选择通常与网络验证懂得模型和客户与服务器间的通信协议有关。如果网络主要是WindowsNT/2000网，贝U用户登录到WindowsNT/2000时一经得到了确认，因此，使用Windows验证模式将减轻系统的工作负担。但是，如果网络主要是Novell网或者对等网，则使用SPX协议和SQL验证模式将是很方便的。因为这种情况下，只需创建SQLServer登录账户，而不用创建WindowsNT/2000账户。权限验证用户必须使用特定的登录账户才能连接到SQLServer。建立连接以后，用户必须使用特定的用户账户才能对数据库进行访问，而且只能查看经授权可以查看的表和视图，只能执行经授权可以执行的存储过程和管理功能。当验证了用户的身份并允许其登录SQLServer以后，在用户访问的每个数据库中都要求设置单独的用户账户。这样做的目的是防止一个用户在连接到SQLServer以后，对服务器上的所有数据库进行访问。例如，在一个服务器上含有PERSON和STUDENT数据库，如果一个用户只在STUDENT数据库中建立了用户账户，这个用户只能访问STUDENT数据库，而不能访问PERSON数据库。每个数据库中的用户账户都用于为该数据库的对象设置安全权限;无论是WindowsNT用户账户、用户所属的WindowsNT组，还是SQLServer登录账户，都可以在数据库中映射为不同的数据库用户账户。如果不存在直接映射的账户，就可以允许用户以Guest账户在数据库中工作，前提是该账户已经存在。用户账户的数据库访问权限决定了用户在数据库中可以进行哪些操作。用户获得对数据库的访问权限以后，SQLServer就可以接受并执行命令。用户在数据库中所进行的所有活动都是通过T-SQL语句传到SQLServer中的。当SQLServer接收到这些语句时，将确定用户是否具有在数据库中执行该语句的权限。如果用户没有执行该语句的权限或者没有访问该语句所使用对象的权限，则SQLServer向用户返回一个权限错误。3需求分析开发背景随着社会经济的不断发展，企业规模越来越大，企业资产维护变的越来越困难，尤其是在手工管理方式下，财会人员对资产进行折旧时，需要查阅上一个月的资产信息，根据上一个月的资产信息核算、折I口资产。如果企业资产很多，可以想象财会人员的工作强度，既要按时对资产进行折旧，即每月对资产进行折1口，又要保证数据的准确性，因为一旦某个月的折旧有误，就会影响以后的资产核算。随着信息时代的快速发展,管理者意识到只有采用信息化管理,才能取得市场领域的主导地位。公司资产信息的管理是一个企业正常运作的基本条件，如果公司资产得到有效合理的利用，公司将节约更多的成本，提高企业的经济效益和竞争力。《公司资产信息管理系统》应将有关资产的信息纳入电脑系统统一管理，以便及时获取有关信息，提高管理效率。基于上面的原因，开发和设计公司资产信息管理系统四用户要求根据调行得知，该系统基本能满足用户的要求，即：1在添加和修改资产信息时能够对一些信息进行选择，并且在程序中能够设置这些选项。2实现信息的添加、修改、删除、计提、反计提管理3在程序中对数据库进行备份和恢复数据字典重要数据及其简要描述如表1、表2所示：表1固定资产信息表字段名称描 述说 明固定资产编号标识企业的一个固定资产入账原值资产在入账时的价值累计折旧资产在入账前的折旧额增减标识资产是否在减少0表示增加，1表示减少

表2固定资产减少表字段名称描述说明固定资产编号标识企业的一个固定资产减少方式资产是如何减少清理原因记录为何要清理资产可行性分析技术可行性技术上需要具备的Delphi7.0的基本界面制作能力，掌握了主要的程序代码，并且对SQLServer2000数据库的原理和应用基本把握。经济可行性因为系统的设计时间方面比较充裕，设计环境较为良好，综合考虑，经济方面没有问题。社会可行性本系统用于各种企业的资产管理，大大的节省了人力、物力，对企业的管理工作十分有帮助。4固定资产管理系统概述系统介绍固定资产是一个企业内部相而稳定的财产，它是各种实物的集合，像电脑，宿舍，各种生产设备等等。这些资产是一个企业的基本硬件设施，如果对这些设施不采取有效的管理措施，整个企业将不能正常运转。在信息时代来临之前，我们都是采用人工方法来管理固定资产，效果不好，效率也很低。这篇文章介绍了如何利用计算机实现固定资产管理的自动化。固定资产在一个企业是流动的，虽然它们的流动频率不高，但是我们要随时获得整个企业所有固定资产的情况，了解它们当前的状态，位置等等信息，如果这些信息都靠纸张来记录，不但不方便而且保存，更新都很不方便。用计算机系统去管理这些资产，上述问题都将得到解决，更为重要的是我们还可以及时得到各种关于资产的统计信息，以便企业管理人员做出正确的决策，这样不但可以提高资产的利用率，还可以节约成本。本软件的前台采用目前流行和方便操作的可视化的面向对象的编程语言Delphi7开发，后台采用SQLServer2000数据库。软件的界面美观大方，软件运行稳定。该软件有以下特点：1实用高效。通过建立规范的教学计划管理模式，使管理人员从繁忙的手工统计报表工作中解脱出来,提高工作效率，减少人为差错。2用户界面操作简洁。系统的每个功能都经过精心设计,充分考虑到使用人员喜欢操作方便灵活的特点，全部使用管理人员最熟悉的管理流程和操作方式,即使不懂计算机的人也能熟练使用本软件，完成系统管理。3系统性能稳定。严格按照规范的软件工程管理，充分利用可视化和面向对象技术，以SQLServer2000数据库为平台，利用WindowsXP系统的内存管理和多任务特性，从技术上保证了系统的稳定性、可靠性和先进性［7］。主要功能1资产附加信息管理。实现资产类别、资产增加方式、资产减少方式、资产使用状况的管理。2资产信息管理实现资产信息录入、修改、删除、实现资产的减少、计提、反计提管理。3系统维护实现数据库的备份和还原。4系统初始化实现对系统的初始化。资产计算公式下面介绍平均年限法的资产核算公式：月折旧率：月折旧率=（1—净残值）/使用年限月折旧额：月折I口额=入账原值*月折旧率净值：净值=入账原值一累计折旧预计净残值：预计净残值=入账原值*净残值率5概要设计设计目标面对社会经济的不断发展，企业规模扩大带来的资产信息维护难度增大，该系统在实施后，应能够达到以下目标：(1)建立规范的资产管理模式，使财会人员从繁忙的折旧计提、统计报表工作中解脱出来，提高工作效率，减少人为差错。(2)提供快速、准确的处理企业资产增加、删除、修改、计提、反计提等模式。(3)实现多点操作的信息共享，相互之间的信息传递要准确、快捷和顺畅。(4)系统界面友好美观，操作简单易行，查询灵活方便，数据存储安全可靠。(5)系统维护方便可靠“有较高的安全性，满足实用性、先进性的要求。开发及运行环境开发出的软件要适用于各种WINDOWS平台和SQLSERVER数据库下，支持局域网和INTERNET下的资源共享以及EXCEL的表格输出等，最低配置要求PII1800,128M内存以及8M显存显卡。开发环境：WindowsXPServer,开发工具：Delphi7.0o数据库管理系统：MicrosoftSQLServer2000=181输入设计本系统输入接口应满足如下要求：键盘:标准键盘，具有Windows98功能键。鼠标=两健或三键鼠标小口或USB鼠标。汉字输入法:五笔输入法、拼音输入法等。录入软件界面:本系统所有输入均支持鼠标和键盘两种输入方式。输出设计本系统输出方式采用屏幕显示和打印机输出两种方式。系统安全和可靠性设计为保证软件与数据库系统的安全运行,防止不合法的运行或计算机系统的不稳定对系统造成损害，应对系统的软件和硬件进行合理的安全设置和可靠性设计。安全措施应在系统中层层设置,包括用户标识和口令，数据库文件的加密等。数据库信息保护分为数据库保护、软件保护、管理操作保护等。系统安全设计主要应考虑如下几点：应保证计算机系统的稳定性，对相应计算机应配备回进行断电保护;当本地局域网与本地企业网或Internet连接的时候,网络安全应当是网络建设的首要解决的问题,主要设计容错方案、安装防毒软件、安装防火墙等;在不影响系统功能的情况下要尽可能考虑系统的安全性;进入系统时必须通过操作员密码控制,方可进入系统，用户输入错误密码，将退系统

6数据库设计6.1数据库概念结构设计.公司资产管理系统的业务流程图如图2所示图2固定资产管理系统业务流程图.公司资产管理系统的E-R图如图3所示图3公司资产管理系统的E-R图6.2数据库物理结构设计本系统数据库名为固定资产管理系统。数据库“固定资产管理系统”中共包含7个表。分别是：固定资产类别表、固定资产增加方式表、固定资产减少方式表、固定资产使用状况表、固定资产信息表、计提折旧表、固定资产减少表。下面介绍使用较多的数据表结构。表3固定资产减少表字段名称字段类型长度主键外键是否可为空默认值固定资产编号varchar30否固定资产名称varchar30是减少方式varchar30是清理收入money8是清理费用money8是清理原因varchar50是日期DateTime8是GetDate()

表4固定资产信息表字段名称字段类型长度主键外键是否可为空默认值固定资产编号varchar30否固定资产名称varchar30是固定资产类别varchar30是规格型号varchar30是增加方式varchar30是使用状况varchar30是入账原值varchar30是累计折旧money8是GetDate()净值money8是预计净残值率money8是预计净残值real是折旧方法money8足预计使用月份varchar4是已计提月份int4是月折旧率int4是月折旧额float4是期初原值money8是本年原值调增money8是本年原值调减money8是年初原值money8是期初累计折旧money8是本年累计折旧调增money8本年累计折旧调减money8是年初累计折旧money8是增减int4否0入账日期datetime8是GetDate()部门信息varchar30是7系统登录和主窗体设计功能介绍本章介绍程序框架的生成，系统登陆程序设计等内容，包括主窗体程序和系统登录程序两部分。登录窗体设计登录窗体主要通过输入用户名和密码而获得进入系统的权利。效果图如图4：系统登录 X请输入用户名和密码:用户名：111密码：产确定I取一I图4登录窗体登录窗体的设计思路是，创建用户名和密码两个Tedit组件，用作用户名和密码的输入，当用户名的输入值的字符是3位的话，那么输入焦点会自动跳到密码输入框中，如果用户名和输入密码都正确的情况下，则点击登录进入系统，代码如下小procedureTforml.FormCreate(Sender:TObject);begineditl.Text:=";edit2.Text:=";bitbtnl.Enabled:=false;end;procedureTformI.EditIChange(Sender:TObject);beginiflength(edit1.Text)=3thenform1.focuscontrol(edit2);end;procedureTform1.Edit2Change(Sender:TObject);beginif(edit2.text=l1l,)and(editl.text=,l1T)thenbeginbitbtnl.Enabled:=true;form1.FocusControl(bitbtn1);end;end;而.【登录】事件的工作原理是先确定是否与数据库取得连接，再确定所输入的用户名和密码是否存在与数据库表中，如果存在，则打开数据库的表，系统会发出命令“您通过了身份认证！"，“否则系统会提示“请与系统管理人员联系如果用户名或密码错误的话，系统会提示“请确认密码或用户名是否正确！按钮【登录】的单击事件代码如下叫procedureTform1.BitBtn1Click(Sender:TObject);begintryDataModule4.ADOConnection1.connected:=true;DataModule4.ADOTablel.filter:=rid=m+edit1.text+,m;DataModule4.ADOTablel.filtered:=true;DataModule4.ADOTablel.open;exceptshowmessageC请与系统管理人员联系.)；application.Terminate;end;if(editl.text=111')and(edit2.text='lir)thenbeginshowmessage。您通过了身份认证!)；form2.show;endelsebeginshowmessagef请确认密码或用户名是否正确！’)；endend;procedureTform1.Edit1KeyPress(Sender:TObject;varKey:Char);beginifnot(keyin[,0,.J9,,#8])thenbeginkey:=#O;messagebeep(1);end;end;end.主窗体设计主窗体是连接系统所有模块和功能的界面，当用户进入了界面后，可以根据需要选择主窗体上的菜单或工具栏来选择需要的操作。主窗体界面如图5所示：4周产3" 国同随基础信息哲理G)固定费产告理(X)系统维护⑤)费产类朗・加方式送少方式使用状况|■加货产・词和修N■除费产片少置产计提・理！反计提数得，份退出，。画定资产管理系统提示： 一作员： 登景日期：i2006-06T9 遭录时间： 0251:53图5固定资产信息管理系统主窗体(1)窗体中放置TMainMenu、TTreeView、TSplitter、Tlmagelist、TListView、TCoolBarTSpeedButton、TStatusBar等组件(2)各主要组件属性如表5表5组件属性设置对象名对象类型属性值FormlTFormFont.colorclBlueFont.Size10TreeViewLTTreeViewImagesImageListlShowLinesTrueListViewlTListViewLargelmagesImageList28基础信息管理功能介绍包括资产类别管理、资产增加方式管理、资产减少方式管理、资产使用状况管理4个子模块。资产类别管理设计.概述由于企业的性质、管理方式不同，企业资产分类方法也不相同。资产类别管理实现企业根据自身特点和管理要求确定合理的资产分类方法。.资产类别管理运行如图6图6资产类别管理.程序相关a.窗体显示时，将资产类别信息显示在界面上。procedureTForm2.FormShow(Sender:TObject);beginEdit1.Clear;withDaz.ADOQueryldobeginClose;SQL.Clear;SQL.Add(，select*from固定资产类别表)；Openend;DataSource1.DataSet:=Daz.ADOQuery1;end;b.下面是“添加”按钮的单击事件代码，程序会将输入的资产类别名称添加到数据表中，同时刷新数据集。1,31procedureTForm2.BitBtnlClick(Sender:TObject);beginifTrim(Editl.Text)oHthenbeginTrywithDaz.ADOQuery2dobeginClose;SQL.Clear;SQL.AddCInsert固定资产类别表values(:a));Parameters.ParamByName(,a,).Value:=Trim(Editl.Text);ExecSQL;end;Self.OnShow(Sender);Application.MessageBox(,添力口成功。：提示,64);Editl.SetFocus;ExceptApplication.MessageBoxC操作失败。：提示：64);Close;end;end;end;资产增加方式管理设计1.资产增加方式运行如图7费产增加方式国叵因固定资产增加方式［埴加方式购置接受捐献融费租入投资人投入自行建造图7资产增加方式8.4资产减少方式管理设计1.资产减少方式运行如图8®资产减少方式 匚］叵I区I固定资产减少方式I废报卖损亏转变毁盘较固定资产减少方式I废报卖损亏转变毁盘较图8资产减少方式8.5资产使用状况管理设计1.资产使用状况管理运行如图9图9资产使用状况管理9固定资产管理功能介绍包括增加固定资产、修改固定资产、删除固定资产、计提管理、反计提管理5个子模块。增加固定资产设计.概述添加固定资产是将固定资产信息保存到数据库中。在添加过程中，固定资产编号由程序自动生成,净值、预计净残值、月折旧率、月折旧额等信息会根据公式有程序计算得出。当操作员录入完固定资产信息后，单击''保存"按钮会将用户信息保存起来。单击''取消"按钮清除用户录入信息。.增加固定资产运行如图10图10固定资产增加.程序相关a.防止在入账原值中输入非法字符。ProcedureTForm6.Edit3KeyPress(Sender:TObject;varKey:Char);Warm:Booleanbeginm:=(Key<#8)or(Key>#8)and(Key<#46)or(Key>#46)and(Key<#48)or(Key>#57);ifmthenkey:=#0;end;b.自定义过程Clear用于进行界面初始化工作。程序利用“循环遍历”选项卡中所有控件,如果为编辑框，清空其文本；如果为组合框，将组合框当前文本设置为空。procedureTForm6.Clear;i:Integer;beginLabel3.Caption:=”；DateTimePicker1.Date:=Now();Fori:=0toTabSheet1.ControlCount-1dobeginifTabSheet1.Controls[i]isTEditThenTEdit(TabSheetl.Controlsli]).ClearelseifTabSheet1.Controls[i]isTComboBoxThenTComboBox(TabSheetl.Controls[i]).Text:=n;end;Fori:=0toTabSheet2.ControlCount-1doifTabSheet2.Controls[i]isTEditThenTEdit(TabSheet2.Controls[i]).Clear;end;c.Edit4的OnChange事件，当Edil4中的内容改变时会计算相应的数据。Edit3的OnChange时间也调用了该方法。当用户改变“入账原值”和“累计折旧”是，根据用户选择的折旧方法计算折旧额、净值、预计净残值率。d“保存”按钮的单击事件。程序首先检查数据是否为空，数据是否有误(是否出现负数),如果出现上述情况将退出保存操作，否则向固定资产信息表插入数据。procedureTForm6.BilBtn2Click(Sender:TObject);beginifIsNull=FalsethenbeginifIsWf=FalsethenbeginTrywithDaz.ADOQueryldobeginClose;SQL.Clear;SQL.AddCInsert固定资产信息表values(:a,:b,:c,:d,:e,:f,:g,:h,:i,:j,:k,:l,:m,:n,:o,:p,:q,:r,:s,:t,:u,:v,:w,:x,Default,:y)f);Parameters.ParamByName(,a').Value:=Trim(Label3.Caption);Parameters.ParamByName(,b,).Value:=Trim(Editl.Text);Parameters.ParamByNameCc').Value:=Trim(ComboBox1.Text);Parameters.ParamByNameCd^.Value:=Trim(Edit2.Text);Parameters.ParamByName(*e').Value:=Trim(ComboBox2.Text);Parameters.ParamByName(T).Value:=Trim(ComboBox3.Text);Parameters.ParamByName(,g,).Value:=StrToFloat(Edit3.Text);Parameters.ParamByName('h').Value:=StrToFloat(Edit4.Text);Parameters.ParamByNameC'i').Value:=StrToFloat(Edit5.Text);Parameters.ParamByName(,j,).Value:=StrToFloat(Edit6.Text);Parameters.ParamByNameC^').Value:=StrToFloat(Edit7.Text);Parameters.ParamByNameCl').Value:=Trim(ComboBox4.Text);Parameters.ParamByNameC'm').Value:=StrToInt(Edit8.Text);Parameters.ParamByName(,n,).Value:=StrtoInt(Edit9.Text);Parameters.ParamByName(*0*).Vaiue:=StrlbFloat(Edi110.Text);parameters.ParamByName('p').Vaiue:=StrToFloat(Edit11.Text);ifTrim(Editl2.Text)<>HthenParameters.ParamByName(*q').Vaiue:=StrToFloat(Edit12.Text)elseParameters.ParamByName('q').Value:=Null;ifTrim(Editl3.Text)<>HthenParameters.ParamByNameCr1).Value:=StrToFloat(Edit13.Text)elseParameters.ParamByNameCY).Value:=Null;ifTrim(Editl4.Text)oHthenParameters.ParamByName(,s,).Value:=StrToFloat(Edit14.Text)elseParameters.ParamByName(,s,).Value:=Null;ifTrim(Edit15.Text)onthenParameters.ParamByName('t1).Value:=StrToFloat(Edit15.Text)elseParameters.ParamByNameCT).Value:=Null;ifTrim(Editl6.Text)onthenParameters.ParamByNameC'u^.Value:=StrToFloat(Edit16.Text)elseParameters.ParamByNameC'u').Value:=Null;ifTrim(Edit17.Text)<>uthenParameters.ParamByName(,v,).Value:=StrToFloat(Edit17.Text)elseParameters.ParamByName('v').Value:=Null;ifTrim(Editl8.Text)<>,'thenParameters.ParamByName(*w').Vaiue:=StrToFloat(Edit18.Text)elseParameters.ParamByName(,w,).Value:=Null;ifTrim(Editl9.Text)o"thenParameters.ParamByNameC'x1).Value:=StrToFloat(Edit19.Text)elseParameters.ParamByNameC'x').Value:=Null;Parameters.ParamByName('y,).Value:=DateTimepickerl.Date;ExecSQL;end;Application.MessageBox。操作成功。？提示,,64);BitBtn3.OnClick(Sender);ExceptApplicalion.MessageBoxC操作失败。？提示164);Close;end;endelseApplication.MessageBoxfl^目列表数据不能小于零。；提示,,64);endelseApplication.MessageBoxC基础信息有空项。；提示',64);end;end.9.3查询和修改固定资产设计.概述查询和修改固定资产是对已经保存到数据表中的固定资产信息进行查询和部分修改。操作员在添加固定资产时，由于原始数据不准确或操作人员的录入错误，导致保存到数据表中的信息不准确。此时，操作员需要通过“修改固定资产”窗口修改固定资产信息。.固定资产修改窗口图11固定资产修改.程序相关a.F面是“查询”按钮的单击事件代码。程序判断用户是否设置了查询条件，如果没有设置则退出查询，否则根据条件查询固定资产信息，如果有数据返回，显示数据，并将“修改按钮设为可用；没有数据返回，将“修改”按钮设为不可用。procedureTForm7.SpeedButton1Click(Sender:TObject);beginifTrim(ComboBox1.Text)<>"thenbeginwithDaz.ADOQuery2dobeginClose;SQL.Clear;SQL.AddCselect*from固定资产信息表where固定资产名称=:af);Parameters.ParamByName(,a').Vaiue:=Trim(ComboBox1.Text);Open;end;ifDaz.ADOQuery2.RecordCount>0thenbeginDataSource1.DataSet:=Daz.ADOQuery2;Label8.Caption:=Daz.ADOQuery2.FieldByNameC固定资产编号').Value;Label9.Caption:=Daz.ADOQuery2.FieldByName('固定资产名称［Value;endelsebeginDataSource1.DataSet:=Nil;Label8.Caption:=n;Label9.Caption:=M;end;end;end;b.字定义过程EditValue将数据集当前记录数据显示在界面上。C.“修改”按钮的单击事件。程序首先提示是否修改数据，如果选择“是"，则进一步检查数据是否有误，如果有误，进行提示，并退出修改，反之修改数据。procedureTForm9.BitBtnlClick(Sender:TObject);beginifApplication.MessageBoxC确实要修改原始数据吗？？提示',MB_YesNo)=ID_YesthenbeginifIsNull=FalsethenbeginifIsWf=FalsethenbeginTryWithDaz.AD0Query2dobeginEdit;(包括所有修改信息，向数据库添加数据)Post;end;BitBtn2.OnClick(Sender);BitBtnl.Enabled:=False;Application.MessageBoxf修改成功。提示',64);ExceptApplication.MessageBoxC修改失败。；提示：64);Close;end;endelseApplicalion.MessageBox('基础数据不能小于零。？提示',64);endelseApplication.MessageBoxC基础数据不能为空。？提示',64);end;end;d.函数IsNull判断数据是否为空，如果为空，函数返回值为True,否则为False.functionTForm9.IsNull:Boolean;beginIsNull:=False;if(Trim(labell9.Caption)=")or(Trim(Label20.Caption)=,,)or(Trim(ComboBox2.Text)=,')or(Trim(ComboBox3.Text)=1,)or(Trim(Edit3.Text)=')or(Trim(Edit4.Text)=,,)or(Trim(Edit5.Text)=,,)or(Trim(ComboBox4.Text)=,')or(Trim(Edit6.Text)=,')or(Trim(Edit7.Text)=M)or(Trim(Edit8.Text)=,,)or(Trim(Edit9.Text)=',)or(Trim(ComboBox5.Text)=")or(Trim(EditlO.Text)=")or(Trim(Editll.Text)=n)thenIsNull:=True;end;9.4删除固定资产设计.概述随着企业的发展，由于各种原因无效的资产(比如报废、卖出)越来越多，所以需要设计删除资产模块来删除无效资产。.删除固定资产运行窗口如图12图12删除固定资产.5计提折旧与反计提管理设计.概述实现自动计提本期固定资产折旧。本系统的计提折旧对本会计期添加的的固定资产不计提折旧，下期计提折旧；对本期减少的固定资产本期继续计提，下期停止计提折旧“叫2.计提与反计提管理运行窗口如图13、14审计提管理图13计提管理・反审计提管理图13计提管理・反计提口叵区I可反计口叵区I当戒目期：「注意・'"本系统反计提折旧只允许对当前会计期已计提折旧

的固定资产进行反计提，如果当前会计期没有计提折旧

固定资产，则不允许反计提。图14反计提管理3程序相关程序首先检查折旧时间是否合法，然后确定本期是否进行了折旧，如果进行了折旧，将不允许再折旧，最后进行折旧操作。在折旧时，首先查询本期增加的固定资产信息和已减少的固定资产信息之外的信息，因为本期增加的资产本期不进行折旧，下期折旧。利用循环遍历每条记录，检查预计使用月份是否小于已计提月份，如果小于，表明资产已经过期，不折旧该资产，否则进行折旧，修改已计提月份（加1）,根据资产折旧方法计算修改累计折旧、月折旧额、本期减少的资产，本期继续计提折旧，所以还需要查询本期减少的资产，然后进行折旧，方法同上。

10系统维护10.1功能介绍包括数据还原、数据备份、系统初始化3个字模块。数据备份设计.概述数据备份是对程序中所使用的数据进行备份。在计算机中，山于病毒的入侵或者磁盘的损坏，经常会导致数据的丢失。如果在程序中能对数据库进行备份，当系统遭到破坏时，便可以使用备份文件进行恢复“汽.数据备份窗口如图15漱据备份为防止系统在崩溃或遭到破坏时，数据丢失，经常需要对数据库进行备份.单击【开始备份】按钮开始备份.・开始备份负退出图15数据备份窗口.相关代码以下是“开始备份”按钮的单击事件代码，程序利用SQL语句进行备份。procedureTFormF.BitBtn1Click(Sender:TObject);beginTrywithDaz.ADOQueryldobeginClose;SQL.Clear;SQL.Add('Backupdatabase固定资产管理系统toDisk="C:\gdzcback.bak"');