固定资产管理系统课程设计说明书

发布时间：2024-11-17

┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ 装 ┊ ┊ ┊ ┊ ┊ 订 ┊ ┊ ┊ ┊ ┊ 线 ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊

一、前言……………………………………………………………..2 二、系统概述………………………………………………………..2 1．系统开发背景……………………………………………………………..2 2．系统功能…………………………………………………………………..2 三、系统设计………………………………………………………..3 1．系统设计思想……………………………………………………………..3 2．系统功能模块划分………………………………………………………..3 3．系统结构设计……………………………………………………………..3 四、数据库设计……………………………………………………..4 1．数据库需求分析…………………………………………………………..4 2．数据库概念结构设计……………………………………………………..4 3．数据库逻辑结构设计……………………………………………………..5 五、参考资料……………………………………………………......5 六、总结极心得……………………………………………………..5 七、窗口及源代码..............................................................................5

┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ 装 ┊ ┊ ┊ ┊ ┊ 订 ┊ ┊ ┊ ┊ ┊ 线 ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊

一、前言

固定资产指生产过程中用来改变或者影响劳动对象的劳动资料。固定资产在生产过程中可以长期发挥作用及保持原有的实物形态，但其价值则随着企业生产经营活动而逐渐地转移到产品成本中去，并构成产品价值的一个组成部分。固定资产一般是单位价值较高的物质资料，在中国的会计制度中，固定资产通常是指使用期限超过一年的房屋、建筑物、机器、机械、运输工具以及其他与生产经营有关的设备、器具和工具等。固定资产管理是企业经营管理的一部分，是企业经营管理的基础，对固定资产进行规范化、制度化、科学化管理，可以减少浪费，提高资产的利用率和完好率，直接降低企业运行成本，使其发挥更大的效益。然而，固定资产管理是日常管理工作中最容易被忽视的一项工作。也是不容易做好的义项工作。精点固定资产管理系统是一款通用性极强的固定资产管理软件，适用于各类企业、机关、学校、医院等单位。本系统围绕固定资产的注册和注销进行科学管理。完成企业对固定资产日常业务的浏览和管理，全面反映固定资产的增加、减少及相关变动情况，帮助企业更有效、更全面地管理固定资产。

二、系统概述

本节将对固定资产管理系统从系统的应用背景和系统功能两方面进行概要性的介绍

1. 系统开发背景

传统人工的方式固定资产管理，这种管理方式存在着许多缺点,如:效率低、保密性差,另外时间一长,将给固定资产的更新和维护都带来了不少的困难，而且容易丢失。因此,开发一个代替手工操作的新型的计算机管理的固定资产管理系统是刻不容缓的。随着计算机技术的飞速发展，计算机在公司企业管理中应用的普及，利用计算机实现公司员工信息的管理势在必行。对于大中型企业来说，利用计算机支持企业高效率完成固定资产信息管理，是适应现代企业制度要求、推动固定资产管理走向科学化、规范化的必要条件；计算机进行管理工作，不仅能够保证准确无误、快速输出，而且还可以利用计算机对有关固定资产的各种信息进行统计，同时计算机具有手工管理所无法比拟的优点.例如:检索迅速、查找方便、可靠性高、存储量大、保密性好、寿命长、成本低等。这些优点能够极大地提高固定资产管理的效率,也是企业的科学化、正规化管理,与世界接轨的重要条件。

2. 系统功能

这是一个固定资产管理系统，使用本系统可以使各企业能方便快捷地对固定资产进行管理，包括以下八个方面的功能：

1、新资产注册资产注册即在固定资产表中再增加一条或多条记录。

┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ 装 ┊ ┊ ┊ ┊ ┊ 订 ┊ ┊ ┊ ┊ ┊ 线 ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊

2、旧资产注销资产注销是按要求对固定资产中的记录进行删除操作 3、编辑现有资产编辑是实现记录的修改。

4、资产查询数据查询主要实现各种基本信息的查询。 5、资产浏览数据浏览是查看数据的操作。 6、系统退出退出系统是结束程序的运行。

三、系统设计

本节将要开始进入系统的设计阶段，从分析需求出发，将系统分成一个个独立的功能模块，但又能互相联系。

1. 系统设计思想

固定资产管理系统主要完成对固定资产的管理。包括：新资产注册、旧资产注销、编辑现有资产，资产浏览，资产查询。

2. 系统功能模块划分

根据功能分析，固定资产管理系统可以划分为四个模块：资产管理、资产浏览、资产查询、退出系统。如图2-2所示。

3. 系统结构设计

了解了固定资产管理系统的功能模块，我们就可以得出系统结构图，如图2-3所示。

┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ 装 ┊ ┊ ┊ ┊ ┊ 订 ┊ ┊ ┊ ┊ ┊ 线 ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊

四、数据库设计

1．数据库需求分析、

本固定资产管理系统是利用计算机支持企业高效率完成固定资产管理的事务，由计算机来代替人工执行一系列诸如注册新资产、注销就资产、编辑现有资产等操作。这样使办公人员可以轻松快捷地完成固定资产管理的任务，使企业的员工管理工作系统化、规范化、自动化，从而达到提高固定资产管理效率的目的。本系统是为更好的管理企业固定资产而设计的，程序要求能录入一些基本信息，需要完成对固定资产的新建、删除等基本操作，并对这些信息和操作进行查询。

2. 数据库概念结构设计

在得到数据项和数据结构的基础上，需要进一步明确固定资产的实体E-R图，经分析，实体图如图3-2所示。

图4-2

┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ 装 ┊ ┊ ┊ ┊ ┊ 订 ┊ ┊ ┊ ┊ ┊ 线 ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊

3.数据库结构逻辑设计

五、参考资料

《Visual Basic 数据库开发实例精粹》

非常感谢在课程设计过程中老师的细心指导和同学们的帮助，让我对Visual Basic有了一定的了解，使我更进一步的掌握了软件开发过程的细节步骤和其重要性。谢谢老师！也谢谢同学们！因为有你们的帮助我才可以顺利完成任务，谢谢你们我才对另外一门课程产生了兴趣，谢谢！

六、总结及心得

我们的设计题目是固定资产管理系统的开发，我们大家是分工合作的，我分配到的是界面的设计，这是完成一个项目最基本的部分，我在查阅了有关资料和询问同学的方式下，设计了本次项目的界面。虽然不是完美，但是总体来说大家也都还是满意的，这让我很欣慰，毕竟自己所做的得到了认同。

七、窗口及源代码

登录页面及程序：

Private Sub Command1_Click()

┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ 装 ┊ ┊ ┊ ┊ ┊ 订 ┊ ┊ ┊ ┊ ┊ 线 ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊

MDIFrmMain.Show

Unload Me End Sub

Private Sub Image1_Click()

End Sub

资产查询

Private Sub Command1_Click() Dim str As String

If Option1.Value = True Then str = Option1.Caption

┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ 装 ┊ ┊ ┊ ┊ ┊ 订 ┊ ┊ ┊ ┊ ┊ 线 ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊

Else: str = Option2.Caption End If

Adodc1.ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=固定资产管理系统;Data Source=KS31" http://mandType = adCmdText

Adodc1.RecordSource = "select * from tblass资产表" Adodc1.Refresh

Set DataGrid1.DataSource = Adodc1 Adodc1.Refresh DataGrid1.ReBind

End Sub

注销旧资产

Private Sub CmdDel_Click() Dim str As String

str = DataGrid1.Columns("资产编号").CellText(DataGrid1.Bookmark) Dim con As New ADODB.Connection Set con = New ADODB.Connection

┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ 装 ┊ ┊ ┊ ┊ ┊ 订 ┊ ┊ ┊ ┊ ┊ 线 ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊

con.ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=固定资产管理系统;Data Source=KS31" con.Open

Dim cmd As New http://mand Set cmd = New Command cmd.ActiveConnection = con

http://mandText = "delete from tblass资产表 where 资产编号='" & str & "' " cmd.Execute Adodc1.Refresh

End Sub

资产报表