银行设备管理系统.doc

1、银行设备管理系统1摘要随着银行卡的普及，很多地方安装了大量的存款机、取款机和 POS 机等银行自助设备。银行设备管理系统可以有效的记录银行设备的安装和使用情况，规范对自助设备的管理，从而为用户提供更加稳定和优质的服务。本文介绍了银行设备管理系统的设计和开发过程，详细阐述了整个应用系统的设计思路，并对各部分设计周期进行了详尽的分析，最终达成了一个完整的设计方案；本系统采用 Visual Basic 作为开发工具，SQL Server 作为后台数据库，这是经典的数据库管理信息系统的。在文章的最后，还根据数据库系统的调试结果，提出了可以进一步改进的部分，以便在投入实际应用后系统可以更加稳定可靠的工作

2、。本文的数据库系统是一个银行设备管理系统，包括设备类型管理、设备品牌管理、支行信息管理、设备维护信息管理、设备移机信息管理、设备巡检信息管理和设备报废信息管理等功能。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 managem

3、ent 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 dev

4、elopment 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

5、 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 data

6、base system is a bank equipments management system, including the equipments type management, the equipments 银行设备管理系统2brand management and paying to go the information management,equipments maintenance information management,equipments to move the machine information management,equipments to cruise

7、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银行设备管理系统3目录第一章绪论 41.1 计算机在银行中的应用 41.2 数据库及其应用 51.3 数据库系统 51.4 数据库系统简介 6第二章系统分析 72.1 系统需

8、求分析 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第五章测试 48

9、5.1 测试环境 485.2 测试方针 .485.3 时间特性 .485.4 编程工具 485.5 测试的技术与策略 48第六章 结论 50致谢 51参考文献 52银行设备管理系统4第一章绪论1.1 计算机在银行 中的应用金融信息化发展水平是衡量一个国家国民经济发展水平的重要标志。正因为如此，许多发达国家把金融信息化建设作为一项关系到国民经济全局的基础性建设，都使用最新科学技术成就来装备自己的金融业。我国银行业计算机系统的引进，从早期的脱机处理系统，到联机处理系统，再到计算机网络支撑下的综合银行处理系统，走过了二十多年的历程，银行计算机的普遍应用，已从根本上改变了传统的工作方式，使银行的经营、

10、管理发生了深刻的变革。1.2 数据库及其应用自 20 世纪 70 年代以来，数据库技术得到迅速发展。目前世界上已经有数百万个数据库系统在运行，其应用已经深入到社会生活的各个领域，从企业管理，银行管理，资源管理，经济预测一直到信息检索，档案管理，普查统计等。我国 20 世纪 90 年代初在全国范围内装备了 12 个以数据库为基础的大型计算机系统，这些系统分布在邮电，计委，银行，电力，铁路，气象，民航，情报，公安，军事，航天和财税等行业。现在，数据库技术还在不断发展，并且不断的与其它计算机技术相互渗透。数据库技术与网络通信技术相结合，产生了分布式数据库系统，数据库技术与面象对象技术相结合，产生了面

11、向对象数据库系统等各种数据库系统。在人类迈向 21 世纪知识经济的时候，信息变为经济发展的战略资源，信息技术已成为社会生产力重要的组成部分。人们充分认识到，数据库是信息化社会中信息资源管理与开发利用的基础。对于一个国家，数据库的建设规模，使用水平已成为衡量该国信息化程度的重要标志。因此，数据库的学习是非常重要的。1.3 数据库系统数据库系统本质上是一个用计算机存储记录的系统。数据库本身可被看作为一种电子文件柜：也就是说，它是收集计算机数据文件的仓库或容器。系统用户可以对这些文件执行插入数据、检索数据、更改数据、删除数据等一系列操作。总之，数据库系统是一个计算机存储记录的系统，即，它是一个计算机

12、系统，该系统的目标存储信息并支持用户检索和更新所需要的信息。图 1.1 是一个数据库系统的简图。银行设备管理系统5图 1.1 数据库系统简图1.4 数据库系统简介本人设计的是一个关于银行设备管理的数据库系统,通过这个系统管理员可以简捷、方便的对银行设备的记录查阅、增加、删除等功能。该数据库应用程序按照用户权限和实现功能的不同分为两部分：外部用户对数据库的查询访问和内部管理人员对数据记录的管理维护，每一部分中包含各自实现的各项功能，对每一项功能的实现，将按照窗体设计以及运行情况的顺序逐一进行设计。本系统采用 SQL 技术建立数据库，然后建立数据源的链接，并且生成医院门诊管理的数据库应用程序从而实

13、现数据库的管理功能。SQL 语言介绍SQL(Structured Query Language，结构查询语言)是一个功能强大的数据库语言。SQL 通常使用于数据库的通讯。ANSI（美国国家标准学会）声称，SQL是关系数据库管理系统的标准语言。SQL 语句通常用于完成一些数据库的操作任务，比如在数据库中更新数据，或者从数据库中检索数据。使用 SQL 的常见关系数据库管理系统有：Oracle、 Sybase、 Microsoft SQL Server、 Access、 Ingres 等等。虽然绝大多数的数据库系统使用 SQL，但是它们同样有它们自立另外的专有扩展功能用于它们的系统。但是，标准的 S

14、QL 命令，比如“Select“、 “Insert“、 “Update“、 “Delete“、 “Create“和 “Drop“常常被用于完成绝大多数数据库的操作。MS SQL Server 就是用的 Transact- SQL。SQL 语言有着非常突出的优点，主要是：非过程化语言2、统一的语言3、是所有关系数据库的公共语言非过程化语言：SQL 是一个非过程化的语言，因为它一次处理一个记录，对数据提供自动导航。SQL 允许用户在高层的数据结构上工作，而不对单个记录进行操作，可操作记录集，所有 SQL 语句接受集合作为输入，返回集合作为输出。SQL 的集合特性允许一条 SQL 语句的结果作为另一

15、条 SQL 语句的输入。SQL 不要求用户指定对数据的存放方法， 这种特性使用户更易集中精力于要得到的结果；所有 SQL 语句使用查询优化器，它是 RDBMS 的一部分，由它决定对指定数据存取的最快速度的手段，查询优化器知道存在什么索引，在哪儿银行设备管理系统6使用索引合适，而用户则从不需要知道表是否有索引、有什么类型的索引。统一的语言：SQL 可用于所有用户的 DB 活动模型，包括系统管理员、数据库管理员、 应用程序员、决策支持系统人员及许多其它类型的终端用户。SQL 为许多任务提供了命令，其中包括：查询数据2、 在表中插入、修改和删除记录3、 建立、修改和删除数据对象4、 控制对数据和数据

16、对象的存取5、 保证数据库一致性和完整性以前的数据库管理系统为上述各类操作提供单独的语言，而 SQL 将全部任务统一在一种语言中。所有关系数据库的公共语言：由于所有主要的关系数据库管理系统都支持 SQL 语言，用户可将使用 SQL 的技能从一个 RDBMS(关系数据库管理系统)转到另一个，所有用 SQL 编写的程序都是可以移植的。第二章系统分析2.1 系统需求分析银行设备管理系统的用户是银行中负责自助设备管理和维护的技术人员，包括设备类型管理、设备品牌管理、支行信息管理、设备维护信息管理、设备移机信息管理、设备巡检信息管理和设备报废信息管理等主要功能，具体功能如下： 设备类型信息的添加、修改、

17、删除和查询。 设备品牌信息的添加、修改、删除和查询。 支行信息的添加、修改、删除和查询。 设备信息的添加、修改、删除和查询。 设备维护信息的添加、修改、删除和查询。 设备巡检信息的添加、修改、删除和查询。 设备移机信息的添加、修改和查询。 设备报废信息的添加、修改、删除、查询、提交、审批、同意报销申请等。2.2 模块化设计原理模块化设计思想即把程序划分为若干个模块，每个模块完成一个子功能，把这些模块集总起来组成一个整体，可以完成指定的功能满足问题的要求。而模块上数据说明，可执行语句等程序对象的集合，它是单独命名的而且可通过名字来访问。采用信息隐藏，局部化，内聚度，耦合度等原理来指导模块设计将给

18、整个系统的设计带来很大益处。银行设备管理系统72.3 系统体系结构设计根据需求分析中总结的用户需求设计系统的体系结构。系统功能模块如图2-1 所示。本系统中，用户管理模块的功能比较简单。在系统初始化时，有两个默认的用户。系统管理员用户为 Admin,普通用户为 Users。它们的默认密码均为111111。Admin 用户可以创建用户、修改用户信息以及删除用户；普通用户则只能修改自己的用户名和密码。用户管理功能模块的关系如图 2-2 所示。图 2-1银行设备管理系统8下面进行系统流程分析，所谓系统流程就是用户在使用系统时的工作过程。运行系统后，首先会看到登录窗体，对用户的身份进行认证。身份认证可

19、以分为以下两个过程： 确认用户是否是有效的系统用户。 确定用户的类型。第一个过程决定用户能否进入系统，第二个过程根据用户的类型决定用户的操作权限。如果需要对普通用户进行管理，则使用 Admin 用户登录；否则建议使用Users 用户登录。如果还有其他用户使用本系统，可以在用户管理模块中创建和管理其他普通用户。在创建用户时，需要输入用户名和密码。Admin 用户还可以修改和删除其他普通用户数据。在本系统中，应该首先增加基本信息，之后增加自助设备信息。基本信息包括设备分类信息、设备品牌信息和支行信息等。基本信息管理模块可以添加、修改、删除和查看等操作。基本信息都比较简单，只包含名称信息。添加基本信

20、息后，就可以添加自助设备信息了。在自助设备信息管理模块中可以对自助设备信息进行添加、修改、删除和查看等操作。自助设备信息包括设备序列号、设备分类、设备品牌、设备型号、布放地点、管理员等信息。自助设备信息是本系统管理的核心数据，它为设备维护信息管理模块、设备巡检信息管理模块、设备移机信息管理模块和设备报废信息管理模块提供设备数据。在添加自助设备信息时，需要选择设备分类、设备品牌和所属支行等信息。在设备维护信息管理模块中，可以对设备维护信息进行添加、修改、删除和查看等操作。设备维护信息包括报修时间、维护人员到达现场时间、故障解银行设备管理系统9决时间、故障原因等信息。在添加设备维护信息时，需要首先

21、选择自助设备信息。在设备巡检信息管理模块中，可以对设备巡检信息进行添加、修改、删除和查询等操作。设备巡检是技术人员对自助设备进行的例行检查，目的在于及时发现和解决自助设备可能存在的问题。设备巡检信息包括设备巡检时间、设备巡检内容、是否发现故障、故障原因等信息。在添加设备巡检信息时，需要首先选择自助设备信息。在设备移机信息管理模块中，可以对设备移机信息进行添加、修改、删除和查询等操作。设备移机信息包括移机时间、移机原因、设备新布放地点、设备新管理员等。在添加设备移机信息时，需要首先选择自助设备信息。在设备报废信息管理模块中，可以对设备报废信息进行添加、修改、删除和查询等操作。设备报废信息包括报废

22、申请人、折算金额、报废原因等。在添加设备报废信息时，需要首先选择自助设备信息。本系统的流程分析如图 2-3 所示。图 2-3银行设备管理系统10在系统流程分析图中可以看到，每个用户有 3 次机会进行身份认证。如果3 次输入的用户名和密码都无法与数据库中的数据匹配，则强制退出系统。2.4 开发工具的选择开发数据库管理信息系统需要选择两种工具，既前台开发语言和后台数据库。选择开发工具应该考虑客户需求，系统功能和性能要求以及开发人员的习惯等因素。例如，开发 C/S（客户/服务器）结构的应用程序时，前台开发语言通常可以选择 Visual Basic、Visual C+、Delphi 和 Power B

23、uilder 等；如果开发网络应用程序，则需要选择一个网络数据库系统，例如 SQL SERVER、ORACLE 和IBM DB2 等；如果开发单机应用程序，则只要选择一个小型数据库系统就可以了，例如 ACCESS。与其他开发工具相比，Visual Basic 具有简单易学、灵活方便和易于扩充等特点，越来越多地被用作客户/服务器应用程序的前端开发工具，与后端的SQL SERVER 数据库相结合，能够提供一个高性能的管理信息系统解决方案。因此，本系统采用 Visual Basic 作为开发工具，SQL SERVER 作为后台数据库。2.5 开发本系统所需要的使用技术开发数据库管理信息系统需要掌握如

24、下技术： 所选开发工具的基本编程方法。 基本的后台数据库管理方法，例如创建数据库、表、视图以及备份和还原数据库等。 常用 SQL 语句的使用。 ADO 数据库访问技术。2.6 可行性分析时间行进到 21 世纪，以计算机技术为主体的高新技术群体已经将触角深入到国发经济的方方面面。在市场经济的大环境下，越来越多的人士逐渐认识到用计算机技术进行各类管理，交流的便捷。其中最突出的是要算在银行计算机管理了。如何利用先进的管理手段，提高对银行设备的管理水平，是每一家银行所面临的重要课题。要想解决这一难题，就必须有一套科学、高效、严密、实用的银行设备管理系统。采用现代计算机管理系统是实现此目标的主要途径。使

25、用计算机进行的管理、提供的服务是规范的、统一的，它在银行设备管理当中的应用不仅可以简化、规范厂银行的日常操作，而且可以使银行对设备的管理更加简单、方便、快捷、清晰、从而减轻工作人员的劳动强度、减低银行的银行设备管理系统11财政消耗。在此，对本系统的可行性作一分析。2.6.1 技术的可行性硬件：本软件对硬件并无特殊要求，CPU 奔腾以上，足够空闲硬盘，32M以上内存，系统为 Windows 95 及以上就可以运行了，虽然是采用 C/S 模式的，但就对这次设计而言，程序和数据库都是在一台机子上操作的，所以在现有条件下是足够了。软件：1、操作系统： Windows 9X 和 Windows NT 是

26、 Microsoft 公司的成熟的产品且也为主流操作系统。2、开发工具：Visual Basic 6.0 和 SQL Server 2000 都是现在用到的编程和数据库方面的主要工具,对工具的安装和使用方面不会有所限制。所以说技术上是可行的。2.6.2 经济的可行性本系统可使那些银行对设备管理工作更高效、方便，也节省了管理成本。较之以前的传统的手工管理方法有了较大的飞跃。面对国外强势的冲击，在银行业中有大部分的市场。成本上主要是人力，并无设备上的要求，开发工具也现成有的，所以经济上可行。2.6.3 法律的可行性此系统是由老师带领及学生自主进行设计及实施完成的，并无侵权和责任问题，法律上不存在任

27、何问题。2.7 开发目标系统的总目标是为管理者提供迅速、高效的服务，减免手工处理的繁琐与误差。2.8 系统分析的基本方法在传统的需求建模方法中有面向数据流，面向对象以及面向数据等三种常用分析方法，（1）.面向数据流的分析方法银行设备管理系统12该方法以信息对象及其操作为核心进行需求分析，可以按顺序、选择、重复三种结构把复合信息对象分解为成员信息对象。 （2）.面向对象的分析方法其核心是利用面向对象的概念和方法为软件需求建造模型，它通过提供对象，对象间消息传递等语言机制，让分析人员在解空间中直接模拟问题空间中的对象极其行为，从而削减了语义断层。（3）.面向数据的分析方法描述问题域中的信息项及其相

28、关行为，然后根据信息项具有的层次结构需求模型。2.9 数据库结构设计数据库结构设计是总体设计阶段非常重要的环节，好的数据库结构可以简化开发过程，使系统功能更加清晰明确。因为数据库结构的变化会造成编码的改动，所以必须认真设计数据库结构后再进行编码，从而避免无谓的重复工作。数据库包含 7 个表，即基本信息表 BaseInfo、设备信息表 Device、设备维护表 Maintenance、设备巡检表 Check、设备移机表 Movement、设备报废表Discard 和用户信息表 Users。(1)基本信息表 BaseInfo,保存设备分类、设备品牌和支行名称的信息，结构如表 2-1 所示。表 2-

29、1 表 BaseInfo 的结构编号 字段名称 数据类型 说明1 InfoID Int 编号，主键2 InfoName Varchar50 名称3 TypeId Tinyint 分类，1 表示设备分类；2 表示设备品牌；3 表示支行(2)设备信息表 Device,保存设备的基本信息，结构如表 2-2 所示。表 2-2 表 Device 的结构编号 字段名称 数据类型 说明1 DevNo Varchar50 设备编号，主键2 TypeID Int 设备分类编号3 EnterpriseID Int 设备品牌编号4 Model Varchar50 设备型号5 Price Int 购买价格6 Plac

30、e Varchar50 设备布放地点7 BranchID Int 设备所属支行编号8 StartDate Datetime 设备开通时间9 Administrator Varchar50 设备管理员银行设备管理系统1310 Poster Varchar50 提交人11 Status Varchar50 设备状态（正常，报废）(3)设备维护表 Maintenance,保存设备的维护信息，结构如图 2-3 所示。表 2-3 表 Maintenance编号 字段名称 数据类型 说明1 MnID Int 记录编号，主键2 DevNo Varchar50 设备编号3 ReportDate Datetim

31、e 设备报修时间4 ArriveDate Datetime 到达现场时间5 SolveDate Datetime 故障解决时间6 Reason Varchar200 故障原因7 ChangeAccessory Bit 是否更换配件8 AccessoryList Varchar200 更换配件的列表9 Engineer Varchar50 维护人姓名10 Amount Float 维护费用11 Comment Varchar500 备注(4)设备巡检表 Check,保存设备巡检的信息，结构如表 2-4 所示。表 2-4 表 Check 的结构编号 字段名称 数据类型 说明1 CheckID In

32、t 记录编号，主键2 DevNo Varchar50 设备编号3 CheckDate Datetime 设备巡检时间4 Comment Varchar500 设备巡检内容5 FindError Bit 是否发现故障6 Reason Varchar200 故障原因7 ChangeAccessory Bit 是否更换配件8 AccessoryList Varchar200 更换配件的列表9 Amount Float 维修费用10 CheckPerson Varchar50 巡检人员(5)设备移机表 Movement,保存设备移机信息，结构如表 2-5 所示表 2-5 表 Movement 的结构编

33、号 字段名称 数据类型 说明1 MoveID Int 记录编号，主键2 DevNo Varchar50 设备编号3 MoveDate Datetime 移机时间4 Reason Varchar200 移机原因5 NewPlace Varchar50 新布放地点6 NewAdmin Varchar50 新管理员(6)设备报废表 Discard,保存设备的报废信息，结构如表 2-6 所示。表 2-6 表 Discard 的结构编号 字段名称 数据类型 说明1 DisID Int 记录编号，主键2 DevNo Varchar50 设备编号银行设备管理系统143 DisSum Int 折算金额4 Re

34、ason Varchar200 报废原因5 CreateDate Datetime 申请时间6 Username Varchar40 申请人7 Checker Varchar40 审批人8 CheckDate Datetime 审批日期9 Result Varchar200 审批意见10 Status Varchar10 状态（申请、提交、同意、不同意、报废）(7)用户信息表 Users,保存系统用户星系，结构如表 2-7 所示。表 2-7 表 Users 的结构编号 字段名称 数据类型 说明1 UserName Varchar50 用户名，主键2 UserPwd Varchar50 密码在表

35、的结构表中定义了每个表的主键，为了规定各表之间的关系，还定义一组外键，如表 2-8 所示。表 2-8 外键定义关系名 主键表 主键字段 外键表 外键字段FK_Device_BaseInfoBaseInfo InfoID Device TypeIDFK_Device_BaseInfo1BaseInfo InfoID Device EnterpriseIDFK_Device_BaseInfo2BaseInfo InfoID Device BranchIDFK_Maintenance_DeviceDevice DevNo Maintenance DevNoFK_ Device DevNo Check

36、 DevNoFK_ Device DevNo Movement DevNoFK_ Device DevNo Discard DevNo银行设备管理系统15第三章设计工程框架3.1 工程中的模块本工程包含如下几个模块： Const 用来管理工程中的常量。 DbFunc 用来管理工程中与数据库操作相关的声明、变量和函数。 GeneralFunc 用来管理工程中一些通用的自定义函数。 Variable 用来管理工程中的全局变量。3.2 添加类模块在工程中，需要为每一个创建一个类模块，将对此表的所有数据库操作封装在类中。在通常情况下，类的成员变量与对应的表中的字段名相同。1) BaseInfo 类用来

37、管理表 BaseInfo 的数据库操作，它保存为BaseInfo.cls。银行设备管理系统162) Devicees 类用来管理表 Device 的数据库操作,它保存为 Device.cls。3) Maintenance 类用来管理表 Maintenance 的数据库操作，它保存为Maintenance.cls。4) Check 类用来管理表 Check 的数据库操作，它保存为 Check.cls。5) Movement 类用来管理表 Movement 的数据库操作，它保存为Movement.cls。6) Discard 类用来管理表 Discard 的数据库操作，它保存为Discard.cl

38、s。7) Users 类用来管理表 Users 的数据库操作，它保存为 Users.cls。第四章系统设计当系统运行时，首先打开登录窗体，只有有权限的用户才能进入系统。登录成功后，将显示系统主界面。4.1 设计登录窗体登录窗体的名称为 FrmLogin,他的界面布局如图 4-1 所示。银行设备管理系统17图 4-1 登录窗体的界面布局登录窗体的属性如表 4-1 所示。表 4-1 设置登录窗体的属性窗体属性 设置值 具体说明名称 FrmLogin 设置窗体名称BorderStyle 1-Fixed Single设置窗体的边框属性Caption 身份验证 窗体的标题条文本ControlBox Fa

39、lse 取消控制按钮，防止用户通过控制按钮关闭对话框StartUpPosition2-屏幕中心 设置窗体弹出时，位置在屏幕中心登录窗体中控件的属性如表 4-2 所示。表 4-2 登录窗体包含的控件及其属性对象名 属性 属性值Label1 Caption 用户名Label2 Caption 密码TxtUser Text 空Text 空TxtPwdPasswordChar *Cmd_Ok Caption 确定Cmd_Cancel Caption 取消代码如下：Private Sub Cmd_OK_Click()Dim j As Single数据有效性检查If txtUser = “” ThenMs

40、gBox “请输入用户名”txtUser.SetFocusExit SubEnd IfIf txtPwd = “” Then银行设备管理系统18MsgBox “请输入密码”txtPwd.SetFocusExit SubEnd IfNameKey = MakeStr(txtUser)PasswordKey = MakeStr(txtPwd)判断用户是否存在If MyUser.In_DB(NameKey) = False ThenMsgBox “用户名不存在”Try_times = Try_times + 1If Try_times = 3 ThenMsgBox “您已经三次尝试进入本系统，均不成

41、功，系统将关闭 ”Dbapi_DisconnectEndElseExit SubEnd IfEnd If判断密码是否正确MyUser.GetInfo (NameKey)If MyUser.UserPwd = 3 ThenMsgBox “您已经三次尝试进入本系统，均不成功，系统将关闭 ”Dbapi_DisconnectEndElseExit SubEnd IfEnd If登录成功，将当前用户的信息保存在 CurUser 中CurUser.GetInfo (MyUser.UserName)关闭自己Unload MeEnd Sub4.2 设计主界面主窗体是工程的启动对象，可以在系统菜单中选择“工程”

42、/“属性” ，打开银行设备管理系统19属性窗口设置启动对象。本系统中主窗体名为 FrmMain。菜单设计器如图：4-2 所示。图 4-2主窗体 FrmMain 代码如下：Private Sub Form_Load()登录界面FrmLogin.Show 1End Sub银行设备管理系统204.3 基本信息管理模块设计基本信息管理模块包括设备类型信息管理、设备品牌信息管理和支行信息管理。4.3.1 设备类型信息管理设备类型信息管理窗体的名称为 FrmType，布局如图 4-3 所示。图 4-3窗体中包含的控件及其属性如表 4-3 所示。对象名 属性 属性值DataList1 Name DataLi

43、st1(用来显示设备分类名称 )Adodcl Visible False(用来提供数据源 )TxtName Name Txtname（用来编辑分类名称）Cmd_Add caption 添加Cmd_Modi caption 修改Cmd_del Caption 删除Cmd_exit Caption 退出窗体代码如下：（1）Form_Load 过程，对应代码：银行设备管理系统21Private Sub Form_Load()刷新 DataList1 中的数据DataRefreshEnd Sub在此过程中将显示所有的设备分类名称。其中过程 DataRefresh 对应的代码如下：Private Sub

44、 DataRefresh()设置连接字符串Adodc1.ConnectionString = Conn设置 SQL 语句Adodc1.RecordSource = “SELECT * FROM BaseInfo WHERE TypeId=“ + Trim(TypeID)Adodc1.Refresh设置数据源Set DataList1.RowSource = Adodc1DataList1.ListField = “InfoName“ 设置列表中显示字段DataList1.BoundColumn = “InfoID“ 设置列表绑定字段DataList1.RefreshEnd Sub（2）cmd_

45、add_click 过程。在文本框中输入新的分类名称，单击“添加”按钮时触发 cmd_add_click 事件，代码如下：Private Sub Cmd_Add_Click()添加设备分类名称，先判断域是否为空If Len(Trim(txtName) = 0 ThenMsgBox (“请输入分类名称“)txtName.SetFocusExit SubEnd If判断数据库中是否已经存在此分类名称If MyBase.In_DB(Trim(txtName), 1) = True ThenMsgBox (“已经存在此分类名称“)txtName.SetFocusExit SubEnd If插入新记录W

46、ith MyBase.InfoName = Trim(txtName).TypeID = TypeID.InsertEnd WithDataRefreshEnd Sub（3）DataList_Click 过程。选择数据列表中的记录，在文本框中同时显示此分类名称，对应的代码如下：银行设备管理系统22Private Sub DataList1_Click()点击列表记录，将编号和名称放入变量和 txtName 域If Len(Trim(DataList1.BoundText) = 0 ThenMsgBox (“请选择记录“)Exit SubEnd IfOriId = Val(DataList1.B

47、oundText) 记录编号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(DataLi

48、st1.BoundText) = 0 ThenMsgBox (“请选择记录“)Exit SubEnd If判断新的名称是否和原来的相同If Trim(txtName) = OriInfoName ThenExit SubEnd If判断新的名称是否已经存在If MyBase.In_DB(Trim(txtName), 1) = True ThenMsgBox (“已经存在此分类名称“)txtName.SetFocusExit SubEnd If更新名称MyBase.InfoName = Trim(txtName)MyBase.Update (OriId)DataRefresh 刷新分类列表End

49、 Sub（5）Cmd_Del_Click 过程。选择要删除的分类名称，用户单击“删除”按钮触发 Cmd_Del_Click 事件，对应的代码如下：Private Sub Cmd_Del_Click()If Len(Trim(DataList1.BoundText) = 0 ThenMsgBox (“请选择记录“)Exit SubEnd If 确定删除If MsgBox(“是否确定要删除 “, vbYesNo, “请确认“) = vbNo Then银行设备管理系统23Exit SubEnd 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 在主界面中增加设置代码