资源描述
目录
1 设计背景简介·········································1
2 可行性分析(技术可行性)······························5
3 系统分析·············································5
3.1 系统功能分析·····································5
3.2 系统设计目标分析·································6
3.3 系统总体用途分析·································7
3.4 系统业务流程操作活动图···························8
3.5 系统类图分析····································11
4 系统设计············································14
4.1 系统功能设计·····································14
4.2 数据库结构设计···································14
4.3 代码设计·输入输出设计等·························16
4.4信息系统的物理配置设计··························19
4.5软件开法工具的选择······························20
5系统实施
5.1典型界面和程序设计说明··························23
设备管理信息系统分析与设计
一 背景简介
进入21世纪以来,企业的竞争日趋激烈,在新时代的企业竞争中,企业的效率对于企业的竞争力显得尤其重要。技术的提升和管理的升级对于一个企业的竞争力的提升的重要性是不言而喻的,而如何在市场的竞争中占据有利的位置又让一个个的管理者伤透脑筋。
而对于一个企业的生产效率有重大影响的便是对设备的管理和维修,试想,如果一个企业在设备管理中总是漏洞百出,设备的购买和维护,维修和更新也总是迟了半拍,那对于一个企业的生产效率有多大的影响?由于设备信息的不及时回馈而对于设备维修护理人员的影响有多大?但是,这种种的无效率的活动在一些企业依然大量存在,这引起的企业管理者的高度重视。
一个企业一般包含有很多部门,其中,本系统所要涉及的部门有以下几个:设备管理部门,财务部门,设备使用部门,备品备件采购和管理部门以及相关的验收部门等。其中的设备管理部门是本系统的主要服务对象,当然,信息系统也向其他的部门提供了相关的试图部分和相关的操作,以便于企业的各个部门协调起来完成企业的设备管理工作。
对于企业,它的设备管理工作肯定是非常复杂的,如果没有一个使用的信息系统来给与支持,那对于企业的设备管理人员将会是一场极其严峻的考验,可能结果也是“惨不忍睹”的!有些企业为了让设备管理有效率,不惜动用大量的人力,这对于企业的资源简直就是一种浪费,也有些企业干脆就置之不理!这对于企业的未来和发展都将是致命的。
设备管理工作是企业的重要内部活动,是企业信息系统的重要组成部分,其主要的作用是帮助企业有关的管理人员能够根据设备台帐和设备折旧信息及时对设备进行各式各样的维修,保养及修理工作的调整,以保证设备在整个企业经营活动中能够发挥其应有的作用。拥有一个良好的设备管理活动是非常有必要的,而一个好的设备管理系统的优点有下:
1 整合企业资源;好的设备管理系统能将本属于设备管理与财务和人力资源管理的资源进行共享,这样,对于企业管理的准确性是一个大大的提高,它能将企业设备的各种信息分列成不同的表格,对于财务和设备维修是一个极大的帮助,也减少了备品备件的管理工作,为设备管理者的决策提供很大的帮助。
2 丰富系统功能,提高工作效率;设备管理系统不仅能够对设备的一般管理提供相当大的帮助,而且,还可以简化财务人员的工作,加快维修人员的速度,让备品备件管理变的更加容易,是材料采购人员采购工作更加清晰。
3 规范业务流程,减少劳动费用;设备管理系统使得设备管理工作变得更加规范,工作更加明确,减少了不必要的工作流程,正事由于效率的提高,使得对于人力的需求并没有那么高的要求,从而减少了企业在设备管理中所耗费的财力,这对于企业来说,提高来经济的利用效率。
二 技术可行性分析
所谓技术可行性分析是分析在特定条件下,技术资源的可用性和这些技术资源用于解决信息系统问题的可能性和现实性术。本软件以企业设备管理的实际情况为背景,针对企业设备管理效率问题提出解决方案,对企业的设备的采购,管理,维护和设备零件的采购,使用,管理提出了行之有效的管理流程,并能及时的反馈当前的设备情况,为管理者决策提供依据。
本软件采用了Microsoft Visio作为软件各类图形的设计工具,将Access作为后台管理库,VB6.0进行软件的开法工具,这些软件在实践中都已经被大量的应用,技术上比较成熟。因此,在技术上是可行的
三 系统分析阶段
设备管理系统是一个以人为主导,利用计算机硬件、软件、网络通信设备以及其他办公设备,进行信息的收集、传播、加工、存储、更新和维护、以企业战略竞优,提高效率和效益为目的,支持企业高层决策、中层控制、基层运作的集成化的人机系统。
该企业设备管理系统要解决的问题是:如何实现企业设备管理的科学,设备维护工作的高效。其具体的工作是:设备基本信息的管理,设备定期维护的设置,设备折旧的设置,备品备件的库存管理,设备的使用情况。目标系统是一个数据库应用软件,其最终目的是通过此软件来实现设备管理工作的高效。
3.1 系统功能设计
为了解决一系列的问题,针对设备管理的特点,以提高设备管理的效率和减少设备管理的花费为目的,最大限度的减少在设备管理中所浪费的资源,我们所设计的信息系统包括一下功能:
1)基本信息的维护;
* 信息的建立与维护
* 基本信息的管理
* 管理员信息的录入与保存
* 设备商信息的保存
2)设备信息的保存管理;
* 设备号,设备名称,设备数量信息的保存和输出以及删除添加
* 设备使用情况和维修护理信息的录入和输出
* 设备折旧信息的录入
3)备品备件信息的管理
* 备品备件库存信息管理
* 备件输出信息的录入
4)紧急抢修信息的录入与输出
3.2 系统设计目标
相信通过本系统可以达到以下目标:
1) 高效率的取出供应商信息,方便购置新设备;
2) 为财务部门提供设备购进与折旧的信息,使得与财务有关的设备信息及时的传达到财务部门;
3) 为维修人员提供设备维护的基本信息,方便设备的快速维护和及时修理;
4) 为备品备件的购买,发出和存储提供信息支持,使备件管理变得高效和精准;
5) 设备调入调出信息的录入。
设备管理系统将企业与设备管理有关的事项信息化,大大的提高企业的生产工作效率。
3.3 系统总体用途分析
用例图从外部看到了系统内部在做什么,强调的是系统的工作情况,从实际事项上来解释系统。
设备管理系统中涉及的人员有:记账人员,设备管理人员,财务人员,备品备件管理人员,维修人员。而起所涉及的工作也就是录入输出与设备有关的信息,例如设备的折旧信息,维修护理信息等。
根据以上分析有简易用例图如下:
3.4 系统业务流程操作活动图
活动图是一种描述工作流的方式,用来表示采取何种动作,做什么,何时发生以及在何处发生。
这里先给出总的活动图如下:
根据总的系统活动图,可以依次得出采购活动图,设备维护管理活动图以及备品备件管理活动图。
其中,采购子系统中,包括了采购部门,设备管理部门和财务部门的相关活动,客户将管理人员所订设备送至企业,然后经由设备管理人员的检验,然后数据录入,并报给财务管理部门。其所形成的活动图如下:
维护子系统中,包括了设备管理人员,设备维修人员和备品备件管理人员的相关活动,管理人员根据设备信息制定维护计划,录入,维护人员安排维护工作,领取备件,然后,由备品备件管理人员发放备品备件。所形成的活动图如下:
备品备件管理包含了设备管理人员,备品备件管理人员以及供应商,根据设备管理人员制定的设备维护计划,备品备件管理人员进行采购,然后由供货商供货,进行校对入库。其形成的活动图如下:
3.5 系统类图分析
类是包括信息和行为的项目,是面向对象的重要特点,一般使用类名称、属性、操作分隔的长方形来表示。通过类图,设计和开发人员可以确定需要开发的类,类之间的关系和每个类操作和责任。同时,系统的用户也可以经由类图看到系统的活动对象和活动产生的有关的表单以及类所包含的属性和有关的操作。
下图便是系统的总类图。
该系统中包括12个表,分别为购买申请表,设备卡片,设备台账,设备订单,备件订单,设备使用计划,,备品备件库存,设备维修计划,备件维修领用单,备件使用计划,备件抢修领用单,备件入库单;其中设备台账中包含的数据项有:设备编号,使用年限,设备原值,折旧率,日期,设备变动,负责人;备件维修领用单中包含的数据项有:编号,品名,用途,日期,规格,数量,单价;备件入库单中包含的数据项有:备品名称,备品数量,货单号,价格,型号,管理员,供应商等。
系统中包含了四种人员,分别为记帐员,设备管理人员,维修人员和备品备件管理人员。记帐员的操作是登记设备的购进信息,设备卡片和台帐,设备的折旧和维修信息,设备的使用计划;管理人员的任务则是设立设备的订购计划以及设备的检查,维修人员的责任则是从系统中获取设备信息然后安排设备维修日程,从备品备件仓库中获取物资,进行设备的维修,登记设备的维修信息;备品备件管理人员的任务是为维修人员提供备件,负责备品备件的采购和检查,备品备件的仓储管理等。
综上所述,该系统的建模过程已经基本完成,它包含的基本功能在进行模型设计的时候已经基本考虑周全。通过对该系统模型的设计可以更加深刻的了解该系统的功能,为将来在具体实现系统功能做好了铺垫。不管是用例图、类图还是活动图,都能够更清楚地解释给用户系统的运作原理和使用方法,更重要的是该系统的功能满足了特定用户的需求,使得用户能够在使用该系统时能够一目了然。此外,上述所有模型的建立也在一定程度上降低了系统实际开发的难度,给程序开发人员的工作带来了很多的方便。
四 系统设计
4.1 系统功能设计
设备管理系统总共分成了几个模块,他们分别是用户管理模块,设备进货管理模块,设备信息管理模块,设备维修管理模块,备品备件管理模块。
4.2 数据库设计
4.21 数据库需求分析
1)针对设备管理系统,分别对采购部门,设备管理部门,设备维修部门,备品备件管理部门,财务部门进行详细的调研和分析,可得出如下的需求要求:
* 尽快获得设备供应商和订单的详情
* 对设备使用情况的掌握,合理的进行设备的更新换代
* 对设备购进的快速查验和核对
* 对设备使用和维护信息的快速获取
* 备品库存的信息的获取
* 设备的维护信息的获取
* 设备折旧信息的准确获得
2)经过上述系统总结和功能分析,系统分为了五个基本功能成分,它们分别是:
* 用户信息管理
* 设备进货的管理
* 设备基本信息的管理
* 设备维修信息的管理
* 备品备件信息的管理
4.22 数据库结构设计
由以上的数据项分析,可以得出对于数据库设计相当重要的E-R图。
由此有总的E-R图如下:
由采购关系而引起的关系可以得到如下E-R图:
根据图形可以得出众多的实体所拥有的属性,而由订单和购买计划形成的采购关系所设计的表单则是订单和购买计划单据。
由设备的维修和护理所形成的备品备件的使用信息可以形成如下的E-R图形:
伴随着设备的投入使用,与设备相关的基本信息也会生成大量的单据,即形成了众多数据库中的实体,由此而得出的E-R图为:
同样,根据备品备件的使用情况,由备品备件的购入而引起的使用,以及根据设备的维护计划而建立的备件的使用计划,这则是建立在备品备件的采购的基础之上的,由次形成的E-R图是:
由上述的分析与设计,则可以得出对数据库设计有重大帮助的众多的信息以及表格单据,根据这些数据进行数据库的设计则可以大大减少数据库的设计难度,为开发人员的开法提供强有理的支持。
4.3 代码设计·输入输出设计等
4.31)代码设计
本系统设计的编码主要有设备订单号,送货号,设备编号,备件货单号,备件领用单号,备件订单号等,代码多采用的是顺序码
4.32)输入设计
输入设计是从输入角度,通过对输入设备、输入方式、输入内容、输入形式、输入编码、输入安全控制等方面的分析研究,确定出可行的输入设计方案。
本系统的输入方式是采用联机输入方式。
由于设备管理工作的活动特点,以及设备本身的不适合移动的特征,所以,我们在进行设备信息的管理时只能是在设备的使用地点将设备的信息都记录下来,而后再使用输入工具将信息输入系统,在进行设备检验时,变可以使用扫描仪进行信息的及时,快速而且准确无误的传送至系统内部,供有关部门人员进行于此信息相关活动的参考。在进行设备卡片,台帐等信息的录入时也只能是由管理人员制定相关的规则后再由记帐员进行手动登入。
4.33)输出设计
输出设计时从信息输出角度,通过对输出设备、输出内容、输出界面、输出控制等方面的研究,确定出可行的输出设计方案。
系统计算机化的目的就是要方便数据的查询及分析。有些查询是很简单的,没有打印出来存档的必要。通常我们会把它设计在屏幕上显示,例如:当需要查询某些机器设备的编号时则是这种情况;而有些时候确实需要打印出来的,如购买订单和维修计划等;所有的表格都最好能使用预先的定义格式,如设备的定购订单的表格,以及数据的来源和一些数据的格式。
输出信息分为两种,分别是内部信息和外部信息。
内部信息:
内部信息是为系统内部使用人员使用的,如系统操作员在进行基本信息维护后所产生的结果,例如修改员工信息后,系统直接将结果产生在屏幕上,这种输出方式简单、直观。
外部信息:
外部信息是由系统向外部人员提供的信息,分为为客户提供的信息和为企业设备管理人员留底以供使用的管理信息。当为供货人员提供信息时,使用的是打印出的设备需求表单,而为企业内部提供的分析报表可用系统中的报表生成接口生成报表,这里的输出设备是打印机。
4.34)制定完整的系统规则
指定系统规格,首先就是列出文件规格。列出文件规格的方法,就是先由日常一些设备信息的需求表单开始的。由需求单位提出的数据来看,显然设备维修计划单与备品备件的需求计划是其中的两大需求表单。所以设备维修计划单的文件与备品备件需求计划的文件是必不可少的。
以设备维修计划单为例,一个设备维修单应该有很多设备的维修计划,以此来方便设备维修人员的安排维修工作,那么我们可以用设备编号与其他的表进行关联,方便查找和显示数据。而在看备品备件的需求计划,则是跟设备维修计划紧密相关的,根据设备的维修计划可以安排备品备件的使用计划,而其中要添加的则是设备在进行紧急抢修时所需要的备品备件,这些都与设备管理人员,设备维修人员和备品备件的管理人员。而进行查询则可以知道与设备有关的所有信息的输出。
4.4 信息系统的物理配置设计
软件需求
需要安装 Windows2000/NT/Sever/XP 操作系统,同时需要安装 Access。
硬件需求
CPU :Intel PentiumⅡ以上或其兼容机;
主板:Intel 430 TX PCI(128KB Cache)以上;
内存:建议使用 32MB 以上;
硬盘:建议使用 1G 以上;
并配有一台打印机。
4.5软件开发工具选择
4.51 采用 Access数据库
所有的企业都与数据息息相关,如果需要得到设备维修的信息,就必须通过数据库来查询设备的编号和有关的维修信息。而每个企业都要有完整的设备信息的管理,以此来分析备品备件的需求信息,这需要有一个最新最准确的设备维护安排,如果目前的备品备件的库存偏少,则备品备件是处于短缺状态,需要进行备品备件的采购活动。每一台设备的维修情况以及每一次维修的总体状况都要有一个全面的掌握,这些信息组合起来便形成了数据库中的数据,所有的访问都要通过数据库管理信息系统来完成。
Microsoft Access是一种关系式数据库,关系式数据库由一系列表组成,表又由一系列行和列组成,每一行是一个记录,每一列是一个字段,每个字段有一个字段名,字段名在一个表中不能重复。Access数据库以文件形式保存,文件的扩展名是MDB
Access 数据库由七种对象组成,它们是表、查询、窗体、报表、宏、页和模块。
表(Table) ——表是数据库的基本对象,是创建其他5种对象的基础。表由记录组成,记录由字段组成,表用来存贮数据库的数据,故又称数据表。
查询(Query)——查询可以按索引快速查找到需要的记录,按要求筛选记录并
能连接若干个表的字段组成新表。
窗体(Form)——窗体提供了一种方便的浏览、输入及更改数据的窗口。还可以创建子窗体显示相关联的表的内容。窗体也称表单。
报表(Report)——报表的功能是将数据库中的数据分类汇总,然后打印出来,以便分析。
宏——宏相当于DOS中的批处理,用来自动执行一系列操作。Access列出了一些常用的操作供用户选择,使用起来十分方便。
模块(Module)——模块的功能与宏类似,但它定义的操作比宏更精细和复杂,用户可以根据自己的需要编写程序。模块使用VB编程。
页——是一种特殊的直接连接到数据库中数据的一种WEB页。通过数据访问页将数据发布到Internet 或Intranet上,并可以适用浏览器进行数据的维护和操作
而在数据库的设计中我们主要使用了表,查询,窗体,报表和模块。
Microsoft Access在使用中也有一定的缺点
安全性不够,加了用户级密码容易破解,如果做为服务器的话,对服务器要求很高,否则容易造成 MDB 损坏。
并发数255,但是对高强度操作适应性差,如果服务器不够好,网络不够好,编程的方法不够好,多人同时访问就能导致 MDB 损坏.不能将 VBA 代码开发的软件系统直接编译成 EXE 可执行文件,不能脱离 ACCESS 或者 ACCESS RUNTIME 环境,该环境相对其他软件体积较大(50M左右)。
每个数据库文件最大限制只有2G,对于大型网站显然不能够胜任。
对于这些方方面面的欠缺,有些是可以不久的,我们可以提出相应的解决方案,如对于中小型的数据库只需要使用Microsoft Access就基本够用,密级要求也并没有很高。在数据库文件大小的缺陷方面,也可以用勤更新,勤清理的方法来弥补。
4.52 采用 VB 6.0作为前端开发工具
VB 6.0 是目前 PC 机上最优秀的 windows 应用程序开发工具之一。使用 VB 创建的前端应用程序的能力范围更大,性能更好,可靠性更高。VB6.0 操作简单,代码效率高,开发时间大大缩短。在编程的灵活、高效、强大的扩展能力与在使用上的简单、方便、一致、之间找到了最佳结合点。Visual Basic 提供了多种常用的数据库应用程序,丰富的数据访问对象,通过少量代码的编写,就能够实现数据库的访问,同时可以创建数据库的可视化界面显示、编辑、更新各类数据库中的信息。除了其本身所提供的各种基本控件,再加上扩充控件,可以很方便和快捷的制作出各种界面,为本系统的创建增加了更多的便利条件,使系统开
发更容易,更安全。所以本系统采用 VB 6.0 做为开发工具。
4.53 采用 ADO 编程模型
ADO是ActiveX Data Objects 的缩写ADO 是对 OLE DB 技术的封装.OLE DB 是微软公司针对桌面和客户/服务器数据库的基于 COM 的数据访问技术,是一种统一的数据访问接口,它能够访问各种 DBMS 数据源和非 DBMS 数据源。通过 OLE DB 的Automation 封装体 ADO 来实现它的所有功能,ADO 编程模型也因此成为数据访问的一个重要模型.使用这一编程模型的主要优点是简化了用户的观点,易于使用,并且速度快,内存支出小,磁盘遗迹小。此系统连接前端和后端正是采用了 ADO 数据访问对象。
本程序访问数据库时采用 ODBC 模式进行的。好处是移植性高,可以适应更多的系统。
5系统实施
5.1典型界面和程序设计说明
5.11登录界面的设计
系统启动后,将出现如图13所示的用户登录窗体,用户输入用户名,然后输入密码,如果是管理员登陆,那么拥有最大的权限,比如可以修改和打印数据。如果是普通用户登录,那么只可以对一般数据进行查询。当用户输入完用户名和密码,单击 [确定]按钮将对用户信息进行判断。如果没有输入用户名和密码,将出现消息框提示。如果输入的用户名在用户表格中没有找到,将提示重新输入用户名。用户名称文本框将重新获得输入焦点。如果用户输入密码不正确,密码文本框将重新获得输入焦点。用户登录成功,全局变量 OK 将被赋值为 ture,公用块中的 Main过程将根据Ok的值决定是否退出系统。界面如图所示:
5.12设备基本信息界面
通过这个窗体,设备信息需求人员可以很直接的了解到设备卡片和设备台帐,从设备卡片中可以看到设备生产商,设备编号,设备名称,购置日期,价值,规格指标和生产日期等信息。
设备卡片图片:
如果在登录时出现了管理人员忘记的情况时,可能会影响到管理人员的登录,则会出现如下的界面:
在设备维修人员进行设备维修计划的安排以及备品备件管理人员进行备品备件的订货和发货时做出及时的安排,由此,可以得到的界面:
在普通用户进行设备信息的查询和备品备件库存的查询时,同样需要进行登录操作,由此需要的登陆界面如下:
5.2测试方案及切换方式设计
5.2.1测试方案设计
到了这个阶段,整个系统大致上已经开发完成了。这时,就可以把系统交给使用单位进行初步的测试。
测试是为了发现程序中的错误而执行程序的过程。
软件测试分为:黑盒测试和白盒测试。黑盒测试又称为功能测试,其完全不考虑程序的内部结构和处理过程,即在程序的接口进行的测试,它只检查程序功能是否能按照规格说明书的规定正常使用,程序是否能适当的接受输入数据,产生正确的输出信息,并且保持外部信息的完整性。白盒测试又称为结构测试,其前提是把程序看成装在一个透明的白盒里,也就是完全了解程序的结构和处理过程。本系统的模块开发过程中以及最后的验收过程中都进行了较为严格的测试。
由于时间和条件的限制,在系统设计完成后只对系统的功能进行相关的测试,所谓系统的功能测试是指验证测试软件功能能否正常按照系统的设计工作,看运行软件时的期望行为是否符合原设计,同时还要对系统的用户界面进行测试:分析软件用户界面的设计是否合乎用户期望或要求,常常包括菜单、按钮、文字以及出错提示等方面的测试。
*登录界面的测试
对于登录界面的测试主要是针对输入的用户名和密码的不同显示不同的提示信息并判断在该情况下的提示信息是否正确,是否可以真正实现合法用户的正常登录和阻止非法用户登录系统。
*基本信息添加、删除、修改测试
对于基本信息的添加、删除、修改等测试,主要是针对以下几种情况进行的测试。一是,添加时输入重复信息,系统是否能正确判断并显示信息已存在,报告添加错误,并阻止添加活动进行,提示进行修改,并测试在系统显示添加成功后,数据库中是否真正添加了相应数据。二是,删除信息时,系统是否探出删除确认提示,确认删除并显示删除成功后,系统是否将数据库中相应的数据删除。在删除相关信息时,如删除设备类别信息时,若设备基本信息中还存有该类别的设备信息时,则提示删除工作不能正常进行,并提示相应原因。还有,在修改信息时,是否可以根据现有数据库判断修改是否合法。
5.2.2切换方式设计
在系统设计实现完成后,先对本来存在的数据按照新系统对数据要求的格式和内容进行整理,统一进行数据的是收集、分类和编码。整理完成后,我们会将整理好的数据输入信息系统,对系统进行初始化。
在切换方式上,为了降低风险选择采用并行式的方法进行切换,新系统初始化完成后试运行一段时间,在此过程中调试系统不应该出现的错误,经过一段时间的考验后,对结果比较满意后,便可以进行设计工作的最后收尾阶段。
6 系统评价
本系统选用VB 6.0作为开发工具,以 Microsoft Access作为数据库设计工具,开发出了一个功能完善,界面友好,操作简单的数据库管理系统。采用设备管理系统对设备的出入情况和维修使用情况进行管理,可以很方便地完成各类数据的统计和打印功能,它包含设备的基本数据管理,设备维护人员的工作程序安排以及备品备件的管理等几个功能模块;具体的操作项目分为基本数据、设备购进操作、设备报废操作、备件库存操作、和财务有关的设备信息操作以及系统操作的六个操作项目,每个项目下分数据维护和表单查询这两个部分。
由于设计时间较短,该系统只实现了部分功能,对于用户权限的设置,及相应的操作权限的规定并未能通过设计完成。对于查询界面的修改,还有待于加强,为了方便用户的使用,计划改进成为可供用户选择的万能查询模式,并且已得到部分技术支持,但由于时间关系,还未能调试并成功接入系统,有待日后改进。
7总结
在为期两周的信息系统分析与设计课程设计过程中,我们综合利用自己在课堂上学到的知识,在老师所讲知识的帮助下成功的完成了这次课程设计的任务。
在本次信息系统分析与设计的课程设计过程中我们也遇到了一些问题。例如在进行系统类图的设计时由于没有搞清楚各个类之间的关系,以及各个类具体的定义、作用和意义,所以在这个过程中我们在开始的时候,不能很好的进行这方面的分析和设计,以至最后设计的类图也似乎并不完善,为此,我特地查阅了相关方面的书籍,询问了老师以及同学,也由此学到了原来在书本上没有学到的东西,更加深刻地理解了类的定义和作用,也扩展了利用UML统一建模语言进行建模的知识和操作能力。这次课程设计使我们更加明白了理论与实践相结合的重要性以及团队合作的重要性,只有多多加强实际操作和交流才能进一步加深对所学知识的理解和运用;在系统实施过程中,与数据库的连接是系统开发中最关键的一步,这一步不能正常实现,接下来的开发工作都毫无意义,因为对这一方面知识的不了解,所以在设计初出现了很大的麻烦,也询问了了解这方面知识的同学和老师,最后终于在团队的努力下将它解决掉了。
通过这次课程设计我们学到了很多的东西,对于在课堂上学到的理论知识在这次实践中得到了很好的应用,使我们的动手能力得到了很大的提高。总之,这次实验给我们整个团队带来了很大的收益。
团队成员的贡献图如下参考:
在此,附上本程序的相关代码以及其解释:
登录界面的代码如下:
Private Sub Command1_Click()
forget.Show
End Sub
Private Sub Command2_Click()
Dim c As String, d As String
c = Text1.Text
d = Text2.Text
If Option1.Value = True Then
If c = "admin" Then
If d = "123456" Then
first.Show
Unload loading
Else
MsgBox ("密码错误,请确认输入正确")
End If
Else
MsgBox ("用户名不存在")
End If
Else
If Option2.Value = True Then
If c = "user" Then
If d = "123456" Then
second.Show
Unload loading
Else
MsgBox ("密码错误,请确认输入正确")
End If
Else
MsgBox ("用户名不存在")
End If
End If
End If
End Sub
Private Sub Command3_Click()
Unload loading
End Sub
Private Sub Form_Load()
Text2.PasswordChar = "*"
End Sub
Private Sub Option1_Click()
Option1.Value = True
End Sub
Private Sub Option2_Click()
Option2.Value = True
End Sub
管理员登录界面的相关代码:
Private Sub aboutsystem_Click()
aboutsystem1.Show
End Sub
Private Sub aboutus_Click()
aboutus1.Show
End Sub
Private Sub bs_Click()
frm购买计划.Show
End Sub
Private Sub cancel_Click()
Unload Me
loading.Show
End Sub
Private Sub Form_Load()
Show
Print "欢迎使用本系统,您现在进入的是管理员窗口,请选择您的操作"
End Sub
Private Sub minput_Click()
sinput.Show
End Sub
Private Sub moutput_Click()
outputcard.Show
End Sub
Private Sub mz_Click()
mcountselect.Show
End Sub
Private Sub quit_Click()
End
End Sub
Private Sub rs_Click()
frm维修计划.Show
End Sub
Private Sub us_Click()
frm使用计划.Show
End Sub
检查设备是否为新设备以及建立设备卡片和设备台账的升序如下:
Private Sub Command1_Click()
Dim a As String
a = Text1.Text
Data1.Recordset.FindFirst "名称='" & a & "'"
If Data1.Recordset.NoMatch Then
MsgBox "这是个新设备"
Else
MsgBox "此设备不是新设备"
End If
End Sub
Private Sub Command2_Click()
frmmaterialcard.Show
End Sub
Private Sub Command3_Click()
frmmcount.Show
End Sub
Private Sub Command4_Click()
inputcard.Show
End Sub
Private Sub Form_Load()
Show
End Sub
设备使用计划的生成代码如下:
Private Sub cmdAdd_Click()
Data1.Recordset.AddNew
End Sub
Private Sub cmdDelete_Click()
'如果删除记录集的最后一条记录
'记录或记录集中唯一的记录
Data1.Recordset.Delete
Data1.Recordset.MoveNext
End Sub
Private Sub cmdRefresh_Click()
'这仅对多用户应用程序才是需要的
Data1.Refresh
End Sub
Private Sub cmdUpdate_Click()
Data1.UpdateRecord
Data1.Recordset.Bookmark = Data1.Recordset.LastModified
End Sub
Private Sub cmdClose_Click()
Unload Me
End Sub
Private Sub Data1_Error(DataErr As Integer, Response As Integer)
'这就是放置错误处理代码的地方
'如果想忽略错误,注释掉下一行代码
'如果想捕捉错误,在这里添加错误处理代码
MsgBox "数据错误事件命中错误:" & Error$(DataErr)
Response = 0 '忽略错误
End Sub
Private Sub Data1_Reposition()
Screen.MousePointer = vbDefault
On Error Resume Next
'这将显示当前记录位置
'为动态集和快照
Data1.Caption = "记录:" & (Data1.Recordset.AbsolutePosition + 1)
'对于 Table 对象,当记录集创建后并使用下面的行时,
'必须设置 Index 属性
'Data1.Caption = "记录:" & (Data1.Recordset.RecordCount * (Data1.Recordset.PercentPosition * 0.01)) + 1
End Sub
Private Sub Data1_Validate(Action As Integer, Save As Integer)
'这是放置验证代码的地方
'当下面的动作发生时,调用这个事件
Select Case Action
Case vbDataActionMoveFirst
Case vbDataActionMovePrevious
Case vbDataActionMoveNext
Case vbDataActionMoveLast
Case vbDataActionAddNew
Case vbDataActionUpdate
Case vbDataActionDelete
Case vbDataActionFind
Case vbDataActionBookmark
Case vbDataActionClose
End Select
Screen.MousePointer = vbHourglass
End Sub
Private Sub lblLabels_Click(Index As Integer)
End Sub
设备购买计划表单的生成和添加代码如下:
Private Su
展开阅读全文