毕业设计（论文）-银行设备管理系统的设计和实现

银行设备管理系统摘要随着银行卡的普及，很多地方安装了大量的存款机、取款机和POS机等银行自助设备。银行设备管理系统可以有效的记录银行设备的安装和使用情况，规范对自助设备的管理，从而为用户提供更加稳定和优质的服务。本文介绍了银行设备管理系统的设计和开发过程，详细阐述了整个应用系统的设计思路，并对各部分设计周期进行了详尽的分析，最终达成了一个完整的设计方案；本系统采用Visual Basic作为开发工具，SQL Server作为后台数据库，这是经典的数据库管理信息系统的。在文章的最后，还根据数据库系统的调试结果，提出了可以进一步改进的部分，以便在投入实际应用后系统可以更加稳定可靠的工作。本文的数据库系统是一个银行设备管理系统，包括设备类型管理、设备品牌管理、支行信息管理、设备维护信息管理、设备移机信息管理、设备巡检信息管理和设备报废信息管理等功能。ABSTRACTAlong with the universality of the bankcard, a lot of places installed a great deal of savings machine and withdraw money the machine and POS machine etc. bank self-help equipments. The bank equipments management system can record the gearing and the usage circumstance of the bank equipments effectively, management of norm to the self-help equipments, thus for the customer provide more stable with superior quality of service.This text introduced the design of the bank equipments management system and development process, elaborating the whole design way of thinking of applied system in detail, and designed period to carry on to each part detailed of analysis, end reach an integrity of design project；This system adoption Visual Basic is to develop tool, the SQL Server is the backstage database. This is the database management information system of classic. The end in article, return to adjust to try a result according to the database system, put forward can improve further of part, in order to at throw in physically applied after the system can stabilize a dependable work more.The textual database system is a bank equipments management system, including the equipments type management, the equipments brand management and paying to go the information management,equipments maintenance information management,equipments to move the machine information management,equipments to cruise the check information management and equipments to discard the information management etc. function.关键词：银行设备管理系统的实现， SQL数据库系统 Keyword:The realization of the bank equipments management system, SQL database system目录第一章绪论41.1计算机在银行中的应用41.2数据库及其应用51.3数据库系统51.4数据库系统简介6第二章系统分析72.1系统需求分析72.2 模块化设计原理72.3系统体系结构设计72.4开发工具的选择102.5开发本系统所需要的使用技术112.6可行性分析112.7开发目标122.8系统分析的基本方法122.9数据库结构设计12第三章设计工程框架163.1工程中的模块163.2添加类模块16第四章系统设计174.1设计登录窗体174.2设计主界面194.3基本信息管理模块设计204.4设备信息管理模块234.5设备维护信息管理模块314.6设备巡检信息管理模块354.7设备移机信息管理模块394.8设备报废信息管理模块42第五章测试485.1测试环境485.2 测试方针485.3 时间特性485.4编程工具485.5测试的技术与策略48第六章 结论50致谢51参考文献52第一章绪论1.1计算机在银行中的应用金融信息化发展水平是衡量一个国家国民经济发展水平的重要标志。正因为如此，许多发达国家把金融信息化建设作为一项关系到国民经济全局的基础性建设，都使用最新科学技术成就来装备自己的金融业。我国银行业计算机系统的引进，从早期的脱机处理系统，到联机处理系统，再到计算机网络支撑下的综合银行处理系统，走过了二十多年的历程，银行计算机的普遍应用，已从根本上改变了传统的工作方式，使银行的经营、管理发生了深刻的变革。 1.2数据库及其应用自20世纪70年代以来，数据库技术得到迅速发展。目前世界上已经有数百万个数据库系统在运行，其应用已经深入到社会生活的各个领域，从企业管理，银行管理，资源管理，经济预测一直到信息检索，档案管理，普查统计等。我国20世纪90年代初在全国范围内装备了12个以数据库为基础的大型计算机系统，这些系统分布在邮电，计委，银行，电力，铁路，气象，民航，情报，公安，军事，航天和财税等行业。现在，数据库技术还在不断发展，并且不断的与其它计算机技术相互渗透。数据库技术与网络通信技术相结合，产生了分布式数据库系统，数据库技术与面象对象技术相结合，产生了面向对象数据库系统等各种数据库系统。在人类迈向21世纪知识经济的时候，信息变为经济发展的战略资源，信息技术已成为社会生产力重要的组成部分。人们充分认识到，数据库是信息化社会中信息资源管理与开发利用的基础。对于一个国家，数据库的建设规模，使用水平已成为衡量该国信息化程度的重要标志。因此，数据库的学习是非常重要的。1.3数据库系统数据库系统本质上是一个用计算机存储记录的系统。数据库本身可被看作为一种电子文件柜：也就是说，它是收集计算机数据文件的仓库或容器。系统用户可以对这些文件执行插入数据、检索数据、更改数据、删除数据等一系列操作。总之，数据库系统是一个计算机存储记录的系统，即，它是一个计算机系统，该系统的目标存储信息并支持用户检索和更新所需要的信息。图1.1是一个数据库系统的简图。图1.1 数据库系统简图1.4数据库系统简介本人设计的是一个关于银行设备管理的数据库系统,通过这个系统管理员可以简捷、方便的对银行设备的记录查阅、增加、删除等功能。该数据库应用程序按照用户权限和实现功能的不同分为两部分：外部用户对数据库的查询访问和内部管理人员对数据记录的管理维护，每一部分中包含各自实现的各项功能，对每一项功能的实现，将按照窗体设计以及运行情况的顺序逐一进行设计。本系统采用SQL技术建立数据库，然后建立数据源的链接，并且生成医院门诊管理的数据库应用程序从而实现数据库的管理功能。SQL语言介绍SQL(Structured Query Language，结构查询语言)是一个功能强大的数据库语言。SQL通常使用于数据库的通讯。ANSI（美国国家标准学会）声称，SQL是关系数据库管理系统的标准语言。SQL语句通常用于完成一些数据库的操作任务，比如在数据库中更新数据，或者从数据库中检索数据。使用SQL的常见关系数据库管理系统有：Oracle、 Sybase、 Microsoft SQL Server、 Access、 Ingres等等。虽然绝大多数的数据库系统使用SQL，但是它们同样有它们自立另外的专有扩展功能用于它们的系统。但是，标准的SQL命令，比如Select、 Insert、 Update、 Delete、 Create和 Drop常常被用于完成绝大多数数据库的操作。MS SQL Server 就是用的Transact- SQL。SQL语言有着非常突出的优点，主要是：非过程化语言2、统一的语言3、是所有关系数据库的公共语言非过程化语言：SQL是一个非过程化的语言，因为它一次处理一个记录，对数据提供自动导航。SQL允许用户在高层的数据结构上工作，而不对单个记录进行操作，可操作记录集，所有SQL 语句接受集合作为输入，返回集合作为输出。SQL的集合特性允许一条SQL语句的结果作为另一条SQL语句的输入。SQL不要求用户指定对数据的存放方法， 这种特性使用户更易集中精力于要得到的结果；所有SQL语句使用查询优化器，它是RDBMS的一部分，由它决定对指定数据存取的最快速度的手段，查询优化器知道存在什么索引，在哪儿使用索引合适，而用户则从不需要知道表是否有索引、有什么类型的索引。统一的语言：SQL可用于所有用户的DB活动模型，包括系统管理员、数据库管理员、 应用程序员、决策支持系统人员及许多其它类型的终端用户。SQL为许多任务提供了命令，其中包括：查询数据2、 在表中插入、修改和删除记录3、 建立、修改和删除数据对象4、 控制对数据和数据对象的存取5、 保证数据库一致性和完整性 以前的数据库管理系统为上述各类操作提供单独的语言，而SQL 将全部任务统一在一种语言中。所有关系数据库的公共语言：由于所有主要的关系数据库管理系统都支持SQL语言，用户可将使用SQL的技能从一个RDBMS(关系数据库管理系统)转到另一个，所有用SQL编写的程序都是可以移植的。 第二章系统分析2.1系统需求分析银行设备管理系统的用户是银行中负责自助设备管理和维护的技术人员，包括设备类型管理、设备品牌管理、支行信息管理、设备维护信息管理、设备移机信息管理、设备巡检信息管理和设备报废信息管理等主要功能，具体功能如下：l 设备类型信息的添加、修改、删除和查询。l 设备品牌信息的添加、修改、删除和查询。l 支行信息的添加、修改、删除和查询。l 设备信息的添加、修改、删除和查询。l 设备维护信息的添加、修改、删除和查询。l 设备巡检信息的添加、修改、删除和查询。l 设备移机信息的添加、修改和查询。l 设备报废信息的添加、修改、删除、查询、提交、审批、同意报销申请等。2.2 模块化设计原理 模块化设计思想即把程序划分为若干个模块，每个模块完成一个子功能，把这些模块集总起来组成一个整体，可以完成指定的功能满足问题的要求。而模块上数据说明，可执行语句等程序对象的集合，它是单独命名的而且可通过名字来访问。采用信息隐藏，局部化，内聚度，耦合度等原理来指导模块设计将给整个系统的设计带来很大益处。2.3系统体系结构设计根据需求分析中总结的用户需求设计系统的体系结构。系统功能模块如图2-1所示。图2-1本系统中，用户管理模块的功能比较简单。在系统初始化时，有两个默认的用户。系统管理员用户为Admin,普通用户为Users。它们的默认密码均为111111。Admin用户可以创建用户、修改用户信息以及删除用户；普通用户则只能修改自己的用户名和密码。用户管理功能模块的关系如图2-2所示。下面进行系统流程分析，所谓系统流程就是用户在使用系统时的工作过程。运行系统后，首先会看到登录窗体，对用户的身份进行认证。身份认证可以分为以下两个过程：l 确认用户是否是有效的系统用户。l 确定用户的类型。第一个过程决定用户能否进入系统，第二个过程根据用户的类型决定用户的操作权限。如果需要对普通用户进行管理，则使用Admin用户登录；否则建议使用Users用户登录。如果还有其他用户使用本系统，可以在用户管理模块中创建和管理其他普通用户。在创建用户时，需要输入用户名和密码。Admin用户还可以修改和删除其他普通用户数据。在本系统中，应该首先增加基本信息，之后增加自助设备信息。基本信息包括设备分类信息、设备品牌信息和支行信息等。基本信息管理模块可以添加、修改、删除和查看等操作。基本信息都比较简单，只包含名称信息。添加基本信息后，就可以添加自助设备信息了。在自助设备信息管理模块中可以对自助设备信息进行添加、修改、删除和查看等操作。自助设备信息包括设备序列号、设备分类、设备品牌、设备型号、布放地点、管理员等信息。自助设备信息是本系统管理的核心数据，它为设备维护信息管理模块、设备巡检信息管理模块、设备移机信息管理模块和设备报废信息管理模块提供设备数据。在添加自助设备信息时，需要选择设备分类、设备品牌和所属支行等信息。在设备维护信息管理模块中，可以对设备维护信息进行添加、修改、删除和查看等操作。设备维护信息包括报修时间、维护人员到达现场时间、故障解决时间、故障原因等信息。在添加设备维护信息时，需要首先选择自助设备信息。在设备巡检信息管理模块中，可以对设备巡检信息进行添加、修改、删除和查询等操作。设备巡检是技术人员对自助设备进行的例行检查，目的在于及时发现和解决自助设备可能存在的问题。设备巡检信息包括设备巡检时间、设备巡检内容、是否发现故障、故障原因等信息。在添加设备巡检信息时，需要首先选择自助设备信息。在设备移机信息管理模块中，可以对设备移机信息进行添加、修改、删除和查询等操作。设备移机信息包括移机时间、移机原因、设备新布放地点、设备新管理员等。在添加设备移机信息时，需要首先选择自助设备信息。在设备报废信息管理模块中，可以对设备报废信息进行添加、修改、删除和查询等操作。设备报废信息包括报废申请人、折算金额、报废原因等。在添加设备报废信息时，需要首先选择自助设备信息。本系统的流程分析如图2-3所示。图2-3在系统流程分析图中可以看到，每个用户有3次机会进行身份认证。如果3次输入的用户名和密码都无法与数据库中的数据匹配，则强制退出系统。2.4开发工具的选择开发数据库管理信息系统需要选择两种工具，既前台开发语言和后台数据库。选择开发工具应该考虑客户需求，系统功能和性能要求以及开发人员的习惯等因素。例如，开发C/S（客户/服务器）结构的应用程序时，前台开发语言通常可以选择Visual Basic、Visual C+、Delphi和Power Builder等；如果开发网络应用程序，则需要选择一个网络数据库系统，例如SQL SERVER、ORACLE和IBM DB2等；如果开发单机应用程序，则只要选择一个小型数据库系统就可以了，例如ACCESS。与其他开发工具相比，Visual Basic具有简单易学、灵活方便和易于扩充等特点，越来越多地被用作客户/服务器应用程序的前端开发工具，与后端的SQL SERVER数据库相结合，能够提供一个高性能的管理信息系统解决方案。因此，本系统采用Visual Basic作为开发工具，SQL SERVER作为后台数据库。2.5开发本系统所需要的使用技术开发数据库管理信息系统需要掌握如下技术：l 所选开发工具的基本编程方法。l 基本的后台数据库管理方法，例如创建数据库、表、视图以及备份和还原数据库等。l 常用SQL语句的使用。l ADO数据库访问技术。2.6可行性分析时间行进到21世纪，以计算机技术为主体的高新技术群体已经将触角深入到国发经济的方方面面。在市场经济的大环境下，越来越多的人士逐渐认识到用计算机技术进行各类管理，交流的便捷。其中最突出的是要算在银行计算机管理了。如何利用先进的管理手段，提高对银行设备的管理水平，是每一家银行所面临的重要课题。要想解决这一难题，就必须有一套科学、高效、严密、实用的银行设备管理系统。采用现代计算机管理系统是实现此目标的主要途径。使用计算机进行的管理、提供的服务是规范的、统一的，它在银行设备管理当中的应用不仅可以简化、规范厂银行的日常操作，而且可以使银行对设备的管理更加简单、方便、快捷、清晰、从而减轻工作人员的劳动强度、减低银行的财政消耗。在此，对本系统的可行性作一分析。2.6.1技术的可行性 硬件：本软件对硬件并无特殊要求，CPU奔腾以上，足够空闲硬盘，32M以上内存，系统为Windows 95及以上就可以运行了，虽然是采用C/S模式的，但就对这次设计而言，程序和数据库都是在一台机子上操作的，所以在现有条件下是足够了。软件：1、操作系统： Windows 9X和Windows NT是Microsoft公司的成熟的产品且也为主流操作系统。2、开发工具：Visual Basic 6.0和SQL Server 2000都是现在用到的编程和数据库方面的主要工具,对工具的安装和使用方面不会有所限制。所以说技术上是可行的。2.6.2 经济的可行性 本系统可使那些银行对设备管理工作更高效、方便，也节省了管理成本。较之以前的传统的手工管理方法有了较大的飞跃。面对国外强势的冲击，在银行业中有大部分的市场。成本上主要是人力，并无设备上的要求，开发工具也现成有的，所以经济上可行。 2.6.3 法律的可行性 此系统是由老师带领及学生自主进行设计及实施完成的，并无侵权和责任问题，法律上不存在任何问题。2.7开发目标 系统的总目标是为管理者提供迅速、高效的服务，减免手工处理的繁琐与误差。2.8系统分析的基本方法 在传统的需求建模方法中有面向数据流，面向对象以及面向数据等三种常用分析方法，（1）.面向数据流的分析方法 该方法以信息对象及其操作为核心进行需求分析，可以按顺序、选择、重复三种结构把复合信息对象分解为成员信息对象。 （2）.面向对象的分析方法 其核心是利用面向对象的概念和方法为软件需求建造模型，它通过提供对象，对象间消息传递等语言机制，让分析人员在解空间中直接模拟问题空间中的对象极其行为，从而削减了语义断层。（3）.面向数据的分析方法 描述问题域中的信息项及其相关行为，然后根据信息项具有的层次结构需求模型。2.9数据库结构设计数据库结构设计是总体设计阶段非常重要的环节，好的数据库结构可以简化开发过程，使系统功能更加清晰明确。因为数据库结构的变化会造成编码的改动，所以必须认真设计数据库结构后再进行编码，从而避免无谓的重复工作。数据库包含7个表，即基本信息表BaseInfo、设备信息表Device、设备维护表Maintenance、设备巡检表Check、设备移机表Movement、设备报废表Discard和用户信息表Users。(1)基本信息表BaseInfo,保存设备分类、设备品牌和支行名称的信息，结构如表2-1所示。表2-1 表BaseInfo的结构编号字段名称数据类型说明1InfoIDInt编号，主键2InfoNameVarchar50名称3TypeIdTinyint分类，1表示设备分类；2表示设备品牌；3表示支行(2)设备信息表Device,保存设备的基本信息，结构如表2-2所示。表2-2 表Device的结构编号字段名称数据类型说明1DevNoVarchar50设备编号，主键2TypeIDInt设备分类编号3EnterpriseIDInt设备品牌编号4ModelVarchar50设备型号5PriceInt购买价格6PlaceVarchar50设备布放地点7BranchIDInt设备所属支行编号8StartDateDatetime设备开通时间9AdministratorVarchar50设备管理员10PosterVarchar50提交人11StatusVarchar50设备状态（正常，报废）(3)设备维护表Maintenance,保存设备的维护信息，结构如图2-3所示。表2-3 表Maintenance编号字段名称数据类型说明1MnIDInt记录编号，主键2DevNoVarchar50设备编号3ReportDateDatetime设备报修时间4ArriveDateDatetime到达现场时间5SolveDateDatetime故障解决时间6ReasonVarchar200故障原因7ChangeAccessoryBit是否更换配件8AccessoryListVarchar200更换配件的列表9EngineerVarchar50维护人姓名10AmountFloat维护费用11CommentVarchar500备注(4)设备巡检表Check,保存设备巡检的信息，结构如表2-4所示。表2-4表Check的结构编号字段名称数据类型说明1CheckIDInt记录编号，主键2DevNoVarchar50设备编号3CheckDateDatetime设备巡检时间4CommentVarchar500设备巡检内容5FindErrorBit是否发现故障6ReasonVarchar200故障原因7ChangeAccessoryBit是否更换配件8AccessoryListVarchar200更换配件的列表9AmountFloat维修费用10CheckPersonVarchar50巡检人员(5)设备移机表Movement,保存设备移机信息，结构如表2-5所示表2-5 表Movement的结构编号字段名称数据类型说明1MoveIDInt记录编号，主键2DevNoVarchar50设备编号3MoveDateDatetime移机时间4ReasonVarchar200移机原因5NewPlaceVarchar50新布放地点6NewAdminVarchar50新管理员(6)设备报废表Discard,保存设备的报废信息，结构如表2-6所示。表2-6 表Discard的结构编号字段名称数据类型说明1DisIDInt记录编号，主键2DevNoVarchar50设备编号3DisSumInt折算金额4ReasonVarchar200报废原因5CreateDateDatetime申请时间6UsernameVarchar40申请人7CheckerVarchar40审批人8CheckDateDatetime审批日期9ResultVarchar200审批意见10StatusVarchar10状态（申请、提交、同意、不同意、报废）(7)用户信息表Users,保存系统用户星系，结构如表2-7所示。表2-7 表Users的结构编号字段名称数据类型说明1UserNameVarchar50用户名，主键2UserPwdVarchar50密码在表的结构表中定义了每个表的主键，为了规定各表之间的关系，还定义一组外键，如表2-8所示。表2-8 外键定义关系名主键表主键字段外键表外键字段FK_Device_BaseInfoBaseInfoInfoIDDeviceTypeIDFK_Device_BaseInfo1BaseInfoInfoIDDeviceEnterpriseIDFK_Device_BaseInfo2BaseInfoInfoIDDeviceBranchIDFK_Maintenance_DeviceDeviceDevNoMaintenanceDevNoFK_DeviceDevNoCheckDevNoFK_DeviceDevNoMovementDevNoFK_DeviceDevNoDiscardDevNo第三章设计工程框架3.1工程中的模块本工程包含如下几个模块：l Const用来管理工程中的常量。l DbFunc用来管理工程中与数据库操作相关的声明、变量和函数。l GeneralFunc用来管理工程中一些通用的自定义函数。l Variable用来管理工程中的全局变量。3.2添加类模块在工程中，需要为每一个创建一个类模块，将对此表的所有数据库操作封装在类中。在通常情况下，类的成员变量与对应的表中的字段名相同。1) BaseInfo类用来管理表BaseInfo的数据库操作，它保存为BaseInfo.cls。2) Devicees类用来管理表Device的数据库操作,它保存为Device.cls。3) Maintenance类用来管理表Maintenance的数据库操作，它保存为Maintenance.cls。4) Check类用来管理表Check的数据库操作，它保存为Check.cls。5) Movement类用来管理表Movement的数据库操作，它保存为Movement.cls。6) Discard类用来管理表Discard的数据库操作，它保存为Discard.cls。7) Users类用来管理表Users的数据库操作，它保存为Users.cls。第四章系统设计当系统运行时，首先打开登录窗体，只有有权限的用户才能进入系统。登录成功后，将显示系统主界面。4.1设计登录窗体登录窗体的名称为FrmLogin,他的界面布局如图4-1所示。图4-1登录窗体的界面布局登录窗体的属性如表4-1所示。表4-1 设置登录窗体的属性窗体属性设置值具体说明名称FrmLogin设置窗体名称BorderStyle1-Fixed Single设置窗体的边框属性Caption身份验证窗体的标题条文本ControlBoxFalse取消控制按钮，防止用户通过控制按钮关闭对话框StartUpPosition2-屏幕中心设置窗体弹出时，位置在屏幕中心登录窗体中控件的属性如表4-2所示。表4-2 登录窗体包含的控件及其属性对象名属性属性值Label1Caption用户名Label2Caption密码TxtUserText空TxtPwdText空PasswordChar*Cmd_OkCaption确定Cmd_CancelCaption取消代码如下：Private Sub Cmd_OK_Click() Dim j As Single数据有效性检查 If txtUser = “” Then MsgBox “请输入用户名” txtUser.SetFocus Exit Sub End If If txtPwd = “” Then MsgBox “请输入密码” txtPwd.SetFocus Exit Sub End If NameKey = MakeStr(txtUser) PasswordKey = MakeStr(txtPwd) 判断用户是否存在 If MyUser.In_DB(NameKey) = False Then MsgBox “用户名不存在” Try_times = Try_times + 1 If Try_times = 3 Then MsgBox “您已经三次尝试进入本系统，均不成功，系统将关闭” Dbapi_Disconnect End Else Exit Sub End If End If判断密码是否正确 MyUser.GetInfo (NameKey) If MyUser.UserPwd PasswordKey Then MsgBox “密码错误” Try_times = Try_times + 1 If Try_times = 3 Then MsgBox “您已经三次尝试进入本系统，均不成功，系统将关闭” Dbapi_Disconnect End Else Exit Sub End If End If 登录成功，将当前用户的信息保存在CurUser中 CurUser.GetInfo (MyUser.UserName)关闭自己 Unload MeEnd Sub4.2设计主界面主窗体是工程的启动对象，可以在系统菜单中选择“工程”/“属性”，打开属性窗口设置启动对象。本系统中主窗体名为FrmMain。菜单设计器如图：4-2所示。图4-2主窗体FrmMain代码如下：Private Sub Form_Load() 登录界面 FrmLogin.Show 1End Sub4.3基本信息管理模块设计基本信息管理模块包括设备类型信息管理、设备品牌信息管理和支行信息管理。4.3.1设备类型信息管理设备类型信息管理窗体的名称为FrmType，布局如图4-3所示。图4-3窗体中包含的控件及其属性如表4-3所示。对象名属性属性值DataList1NameDataList1(用来显示设备分类名称)AdodclVisibleFalse(用来提供数据源)TxtNameNameTxtname（用来编辑分类名称）Cmd_Addcaption添加Cmd_Modicaption修改Cmd_delCaption删除Cmd_exitCaption退出窗体代码如下：（1）Form_Load过程，对应代码：Private Sub Form_Load() 刷新DataList1中的数据 DataRefreshEnd Sub在此过程中将显示所有的设备分类名称。其中过程DataRefresh对应的代码如下：Private Sub DataRefresh() 设置连接字符串 Adodc1.ConnectionString = Conn 设置SQL语句 Adodc1.RecordSource = SELECT * FROM BaseInfo WHERE TypeId= + Trim(TypeID) Adodc1.Refresh 设置数据源 Set DataList1.RowSource = Adodc1 DataList1.ListField = InfoName 设置列表中显示字段 DataList1.BoundColumn = InfoID 设置列表绑定字段 DataList1.RefreshEnd Sub（2）cmd_add_click过程。在文本框中输入新的分类名称，单击“添加”按钮时触发cmd_add_click事件，代码如下：Private Sub Cmd_Add_Click() 添加设备分类名称，先判断域是否为空 If Len(Trim(txtName) = 0 Then MsgBox (请输入分类名称) txtName.SetFocus Exit Sub End If 判断数据库中是否已经存在此分类名称 If MyBase.In_DB(Trim(txtName), 1) = True Then MsgBox (已经存在此分类名称) txtName.SetFocus Exit Sub End If 插入新记录 With MyBase .InfoName = Trim(txtName) .TypeID = TypeID .Insert End With DataRefreshEnd Sub（3）DataList_Click过程。选择数据列表中的记录，在文本框中同时显示此分类名称，对应的代码如下：Private Sub DataList1_Click() 点击列表记录，将编号和名称放入变量和txtName域 If Len(Trim(DataList1.BoundText) = 0 Then MsgBox (请选择记录) Exit Sub End If OriId = Val(DataList1.BoundText) 记录编号 If MyBase.GetInfo(OriId) = True Then 判断是否存在此记录信息 OriInfoName = Trim(MyBase.InfoName) 将分类名称保存到变量中 txtName = Trim(MyBase.InfoName) varchar框中显示分类名称 End IfEnd Sub（4）Cmd_Modi_Click 过程。选择分类名称，在文本框中对其修改后，单击“修改”按钮触发Cmd_Modi_Click事件，对应的程序代码如下：Private Sub Cmd_Modi_Click() 修改分类名称 If Len(Trim(DataList1.BoundText) = 0 Then MsgBox (请选择记录) Exit Sub End If 判断新的名称是否和原来的相同 If Trim(txtName) = OriInfoName Then Exit Sub End If 判断新的名称是否已经存在 If MyBase.In_DB(Trim(txtName), 1) = True Then MsgBox (已经存在此分类名称) txtName.SetFocus Exit Sub End If 更新名称 MyBase.InfoName = Trim(txtName) MyBase.Update (OriId) DataRefresh 刷新分类列表End Sub（5）Cmd_Del_Click过程。选择要删除的分类名称，用户单击“删除”按钮触发Cmd_Del_Click事件，对应的代码如下：Private Sub Cmd_Del_Click() If Len(Trim(DataList1.BoundText) = 0 Then MsgBox (请选择记录) Exit Sub End If 确定删除 If MsgBox(是否确定要删除 , vbYesNo, 请确认) = vbNo Then Exit Sub End If 删除分类 MyBase.Delete (Val(DataList1.BoundText) DataRefresh 刷新DataList1End Sub4.3.2设备品牌信息管理窗体设备品牌信息管理窗体也是Frmtype，只是公共变量Type ID的值为2。4.3.3支行信息管理窗体支行信息管理窗体也是Frmtype，只是公共变量Type ID的值为3。4.3.4在主界面中增加设置代码当选择“基本信息管理”/“设备分类管理”菜单时触发mn_Types_Click事件，代码如下：Private Sub mn_Types_Click() FrmType.TypeID=1 FrmType.Caption=”设备类型管理” FrmType.Show 1End Sub4.4设备信息管理模块设备信息管理模块包含设备信息的添加、修改、删除和查看等功能。4.4.1设备信息编辑窗体设备信息编辑窗体可以用来添加和修改设备的基本信息，窗体名称为FrmDeviceEdit,窗体的布局如图4-4所示。图4-4窗体FrmDeviceEdit包含的主要控件及其属性如表4-4所示。表4-4 窗FrmDeviceEdit中包含的控件及其属性对象名属性属性值txtDevno设备编号Adodcl为设备分类提供数据源Dco_typeid设备分类Adodc2为设备品牌提供数据源Dco_enterprise设备品牌Txtmodel设备型号txtprice购买价格txtplace布放地点Adodc3为所属支行提供数据源Dco_branch所属支行Txtstartdate开通时间Txtadmin管理员Txtposter创建人Cmd_okCaption确定Cmd_cancelCaption取消下面是窗体FrmDeviceEdit中各个过程的代码。（1）Form_Load()过程。当装入窗体FrmDeviceEdit时触发Form_Load事件，对应的代码如下：Private Sub DataRefresh() 设备分类信息 Adodc1.ConnectionString = Conn 设置连接字符串 Adodc1.RecordSource = SELECT * FROM BaseInfo WHERE TypeId=1 选择设备分类 Adodc1.Refresh Set dco_TypeId.RowSource = Adodc1 绑定数据源 dco_TypeId.ListField = InfoName 显示列名 dco_TypeId.BoundColumn = InfoId 绑定列值 设备品牌信息 Adodc2.ConnectionString = Conn 设置连接字符串 Adodc2.RecordSource = SELECT * FROM BaseInfo WHERE TypeId=2 选择设备品牌 Adodc2.Refresh Set dco_Enterprise.RowSource = Adodc2 绑定数据源 dco_Enterprise.ListField = InfoName 显示列名 dco_Enterprise.BoundColumn = InfoId 绑定列值 支行信息 Adodc3.ConnectionString = Conn 设置连接字符串 Adodc3.RecordSource = SELECT * FROM BaseInfo WHERE TypeId=3 选择支行 Adodc3.Refresh Set dco_Branch.Ro