管理信息系统程序设计

1、DATETAKESCENES1PRODUCTIONCREATED WITH固定资产管理设计固定资产管理设计/Microsoft PowerPoint55国贸：国贸：小组成员小组成员：杨婧100510233（PPT制作） 崔瑞雪100510234（PPT制作） 封宗莹100510229（程序设计者演讲员) 周宁100510232（整理） 亚南100510230(解答问题）固定资产管理系统的组织结构图1、开发背景主流媒体报道332篇 更多媒体无法统计固定资产是企业的重要资源，它包括生产与非生产性的资产。固定资产占用了企业的大量资金，对固定资产的管理是企业的一项重要基础工作。固定资产是企业的主要劳动

2、手段，它的数量、质量、技术结构标志着企业的生产能力，也标志着国家生产力的发展水平。 固定资产管理及核算是企业财务管理核算的重要组成部分，在企业里实物管理和价值核算是分开的，目前由设备部门和财务部门分别负责，所以企业固定资产的核算和管理，是一项具体而又复杂的工作。截止2010/12/1传统的固定资产管理方式为人工管理，这种管理方式存在着许多缺点,如:效率低、保密性差,另外时间一长,将给固定资产的更新和维护都带来了不少的困难，而且容易丢失。运用现代化信息技术手段加强固定资产的核算管理，可以大大地降低核算工作量，加快收集信息的速度，通过加强管理，保护固定资产完整无缺，充分挖掘潜力，不断改进固定资产利

3、用情况，提高固定资产的使用经济效益，不仅有利于企业增大产品产量，增加产品品种，提高产品质量，降低产品成本，而且还可以节约企业基本建设投入资金，以有限的建设资金不断扩大企业资产规模，实现国有资产的保值增值，从而实现对固定资产进行规范化、制度化、科学化的管理。（一）业务需求（二）用户需求（三）功能性需求（四）非功能性需求奋斗的年青人我奋斗我表现11度青春电影行动科鲁兹当代年青人用车2、需求分析、需求分析(一)业务需求对于一个企业的资产管理，主要是资产的录入，录入时涉及资产库存的变化和资产类型的变化；对于闲置的资产可以借出，资产借出需要进行资产借出信息的登记；对于使用中的资产要进行资产的折旧，资产折

4、旧要按所使用的折旧方法来进行对资产剩余价值的计算。综上，该系统的管理对象可以分为主要的3类：资产信息、资产的借出信息、用户的信息。图2-1用户信息管理流程图图2-2资产信息管理流程图系统主要是对企业的固定资产进行管理，因此系统的用户主要是企业的员工，当然企业也要有管理员对这些用户进行管理，用户管理员的主要工作就是对用户信息进行操作。由上总结的系统共有以下2种类型的用户： 普通用户、管理员。以下是各个模块的用户需求：1.管理员：用系统对用户信息进行修改、删除、查询，也可以新 增 一个用户。管理员的需求用例如下：图2-3管理员用例图普通用户：是普通用户：是即企业对资产进行管理的员工。他即企业对资产

5、进行管理的员工。他们是固定资产的管理者，所以他们们是固定资产的管理者，所以他们可以有以下操作功能。可以有以下操作功能。2、（三）功能性需求全面性高效性严密性实时性规范性开放性和可扩充性（四）功能性需求 性能 该固定资产管理系统使用Access数据库实现。该系统处理查询操作的响应时间不超过10秒。 可扩展性 当前使用该系统的主要是企业人数在100人以下的小企业，这些企业增长速度比较快，人员规模每年保持30%的增速。因此该固定资产管理系统要能够在三年内支持这样的增长速度。 可用性 系统要保证24小时可用，但是允许每月系统停机一小时，进行系统服务。 安全性 针对本系统中存储敏感的数据信息，我们采用用

6、户密码进行加密，以保证各级用户对系统访问的安全性。利用RDBMS的服务器稳定的运行来实现各种数据信息的存储、控制及调节备份、恢复等日常的服务管理工作。针对系统运行出现的异常，跟踪调查出现异常的情况，了解操作意图，有针对的解决问题。 易用性 该系统要简单、易用，具有清晰的导航功能，使操作者快速找到自己想要执行的操作页面。该系统要保证一个非计算机专业的用户，通过自己阅读用户手册，可以使用此系统。 （一）构架的目的和约束 1.开发目标。通过一个简单易用的固定资产管理系统，能够实现传统的固定资产管理的所有功能，使固定资产管理工作系统化、科学化、规范化、专业化、自动化，从而达到提高固定资产管理效率和效益

7、的目的。 2.应用目标。让企事业单位能够有效的掌握，有效的共享文件资源，保护好文件，及促进档案管理的信息化、规范化和集成化，实现计算机的智能化管理，以提高工作效率和经济效益。 3.约束条件如下：技术约束：本工程产品的技术约束条件是数据库、各种控键的使用和消息的调用。 环境约束：运行本软件需要奔腾133以上 PC，内存需要在16兆以上，对使用设备的速度、规模要求不高。标准约束:开发该系统软件完全按照国家软件开发标准开发，包括硬件、软件和文档规模。人力、时间的约束:由于开发该系统的时间短，任务重，系统不免有不尽完美之处。技术发展规律的约束:计算机技术和产品的发展日新月异，将会给信息处理带来更多的手

8、段，同时也会带来更加丰富的信息表达形式。例如图像和语音技术的进步，多媒体技术的发展，这些都要求系统在设计时考虑技术变化的可能性，为可能的变化预留一定的系统处理能力。1图图31固定资产管理系统模块图固定资产管理系统模块图图图3-2资产信息查询模块图资产信息查询模块图图图3-3打印报表模块图打印报表模块图这个固定资产管理系统可以使各企业能方便快捷地对固定资产进行管理，包括以下九个方面的功能：1.登录模块。即管理员或用户通过此界面进行登录，从而达到操作固定资产的目的。2.资产管理模块。即通过此界面对固定资产进行管理。3.资产信息浏览模块。通过此界面可以浏览到所有的资产信息。4.借出信息查询模块。通过

9、此界面完成对资产的各个借出信息的查询。5.资产信息查询模块。通过此界面可以实现对相关资产信息的查询操作。6.借出模块。通过该界面完成资产借出的相关登记操作。7.报废模块。可以通过此界面查看报废的资产信息。8.打印报表模块。通过该界面可以实现打印相关报表的操作。9.退出系统模块。该模块可以退出固定资产管理系统。数据库设计 这一阶段是在需求分析的基础上，设计出能够满足用户需求的各种实体以及它们之间的关系，为逻辑模型设计打下基础。 在这一阶段的设计模型是用户与现实数据库的接口，所得的数据并不直接用于最终的数据库设计，一次不考虑采用的数据库管理系统、操作系统类型和机器类型等问题。概念设计是数据库数据内

10、容和结构方式的完整表示，是用户和数据库设计人员交流的工具。这个模型是直接从现实世界中抽象出实体类型与实体间联系，然后用实体联系图表示数据类型。经过前面的需求分析阶段对数据流的存储、处理等分析确定该系统的全局E-R图。如图所示图4-1固定资产管理系统E-R图 数据库的逻辑设计如下： 用户：用户ID、用户名、密码； 资产信息：资产编号、资产类型、资产名称、型号、配置、购买日期、使用期限、购买价格、存放位置、资产状况、可行操作； 借出信息：资产编号、借用人、出借人、批复人、出借日期、借用理由、拟还日期； 数据库物理设计是根据设计好的数据库逻辑模型，选取一个最适合应用环境的物理数据存储结构的过程，也就

11、是对数据在物理设备上的存储结构和存取方法的过程，本系统选用的事ACCESSS实现的。数据库的物理设计各个表如下：图4-2用户信息表列名数据类型长度允许空 主键用户ID文本50是否用户名 文本50是否密码文本50是否列名数据类型长度允许空主键资产编号文本50否是借用人文本50否是出借人文本50否是批复人文本50否是出借日期日期/时间-是否借用理由文本50是否拟还日期日期/时间-是否图4-4借出信息表设计视图各个表的具体表现如下：图图4-7借出信息表借出信息表下面列出固定资产管理系统的用例图、协作图：多种形态视频助推23预告视频 引起关注花絮视频 捕捉热点图图4-8固定资产管理系统类图固定资产管理

12、系统类图图图4-9固定资产管理系统协作图固定资产管理系统协作图所谓程序设计就是根据上述的各个图将每个模块的具体功能用程序语句来实现。1.登录模块的实现主要是实现管理员和用户的登录操作。关键代码如下：Option Compare DatabasePrivate Sub login_cancel_Click()On Error GoTo Err_login_Cancel_ClickDoCmd.Closeexit_login_Cancel_Click:Exit SubErr_login_Cancel_Click: MsgBox Err.Description Resume exit_login_Ca

13、ncel_ClickEnd SubPrivate Sub login_ok_Click()Dim userID As Integer If IsNull(com用户) = False Then If DLookup(密码, 系统用户表, 用户名= & com用户 & ) = Txt密码 Then userID = DLookup(用户ID, 系统用户表, 用户名= & com用户 & ) DoCmd.Close DoCmd.OpenForm 主窗体 Form_主窗口.User = userID Else Txt密码 = Txt密码.SetFocus MsgBox

14、 密码错误!, vbCritical End If End IfEnd Sub1.添加成功后系统界面如下2.主窗体的实现 该界面是所有操作的主要界面。 添加成功后系统界面如下：3.资产数据浏览的实现 该界面是浏览固定资产信息的界面。 该功能界面如下：4.借出信息查询的实现其界面如下图所示：5.资产信息查询的实现该界面主要实现的是借出信息的相关查询操作。关键代码如下：Option Compare DatabasePrivate Sub Command19_Click()首先定义变量.其中r1是一个querydef类型的变量,用来实现sql查询操作;sql和s(5)用来存放临时字符串.Dim r1

15、 As QueryDefDim sql As StringDim s(5) As StringDim i, j As IntegerEnd IfIf IsNull(Commodel) = False Then s(3) = 资产信息表.型号= + Commodel + End IfIf IsNull(Compos) = False Then s(4) = 资产信息表.存放位置= + Compos + End If设置sql查询语句为select * from * where * + * +. + * 的形式.For i = 0 To 4 If s(i) Then For j = i + 1 T

16、o 4 If s(j) Then s(j) = and + s(j) End If设置sql的初始值为select * from 资产信息表 where,从资产信息表表中进行查询.资产信息表.资产名称,资产信息表.使用期限sql = select * from 资产信息表 where新建查询资产信息查询.在数据管理器中选择查询标签,然后单击新建按钮,利用资产信息表表的所有字段创建查询.现在就可以将当前的数据查询实例定义为资产信息查询.Set r1 = CurrentDb.QueryDefs(资产类型查询)根据文本框的内容来实现sql查询语句.If IsNull(Comid) = False T

17、hen s(0) = 资产信息表.资产编号= + Comid + End IfIf IsNull(comtype) = False Then s(1) = 资产信息表.资产类型= + comtype + End IfIf IsNull(comname) = False Then s(2) = 资产信息表.资产名称= + comname + Next j Exit For End IfNext iFor i = 0 To 4sql = sql + s(i)Next ir1.sql = sql打开固定资产信息一览表并且重新设置查询r1的数据集.DoCmd.OpenForm 资产信息一览表Form_

18、资产信息一览表.Form.Recordset.CloseSet Form_资产信息一览表.Form.Recordset = r1.OpenRecordsetEnd SubPrivate Sub Command21_Click()DoCmd.OpenQuery 资产类型查询End SubPrivate Sub Command22_Click()DoCmd.OpenQuery 过期信息查询End Sub添加成功后系统界面如下： 其中过期信息查询代码如下： SELECT 借出信息表.借用人, 借出信息表.出借人, 借出信息表.批复人, 借出信息表.出借日期, 借出信息表.拟还日期, 借出信息表.借用

19、理由 FROM 借出信息表 WHERE (借出信息表.拟还日期)Date(); 添加成功后系统界面如下：6.出借资产的实现该界面主要完成资产借出的登记操作。关键代码如下：Option Compare DatabasePrivate Sub Command51_Click() 定义查询变量和临时字符串变量。 Dim r1, r2 As QueryDef Dim sql As String 如果“确定”按钮的标题是“借出”，那么应该完成借出一项资产的功能，方法是执行一条sql插入语句。 If Command51.Caption = 借出 Then sql = insert into 借出信息表(资

20、产编号,借用人,出借人,批复人,出借日期,拟还日期,借用理由.) + _values( + txtid + _ + , + txtuseman + _ + , + txtoutman + _ + , + txtconfirm + _ + , + Str(txtoutdate) + _ + , + Str(txtindate) + _ + , + txtres + _ + ) 现在需要新建一个“出借查询，方法是直接根据借出信息表新建一个查询。当“出借查询”建立好之后，就可以通过这个查询执行sql语句了。 Set r1 = CurrentDb.QueryDefs(出借查询) r1.sql = sq

21、l r1.Execute 通过执行sql更新语句更新资产状态。Set r2 = CurrentDb.QueryDefs(出借资产状态更新) r2.sql = update 资产信息 set 资产状态=已借出,可行操作=还入 where 资产标号= + + txtid + r2.Execute Else 如果“确定”按钮的标题不是“借出”，那么应该完成归还一项资产的功能，方法是执行一条sql删除语句。这里首先还需要创建“到期查询”，方法是直接根据“借出信息”表新建一个查询。当“到期查询”建立好之后，就可以通过这个查询执行sql语句了。 sql = delete from 借出信息 where 资产编号= + + txtid + Set r1 = CurrentDb.QueryDefs(到期查询) r1.sql = sql r1.Execute 通过执行sql更新语句更新资产状态。 Se