目   录
内容摘要 1
第一章．概述 2
1.1概述 2
第二章.系统分析 5
2.1需求分析 5
2.1.1开发的背景 5
2.1.2功能简介 5
2.1.3实现平台 7
2.2系统分析 7
2.2.1系统分析的概念 7
2.2.1.1系统分析阶段的目标 7
2.2.1.2系统分析工作活动以及特点 7
2.2.2系统的可行性研究 7
2.2.2.1开发机房上机管理信息系统的经济可行性研究 7
2.2.2.2开发机房上机管理信息系统的技术可行性研究 7
2.2.2.3开发机房上机管理信息系统的组织管理可行性分析 8
2.2.3上机管理信息系统逻辑模型的提出 8
2.2.3.1业务流程图 8
2.2.3.2数据流图 9
第三章．系统设计 10
3.1系统设计的含义 10
3.2系统设计的任务 10
3.3系统设计的原则 10
3.4系统设计的目标和功能 10
3.4.1系统功能描述 11
3.5总体设计 12
3.5.1总体设计中的问题 12
3.5.2子系统的划分和确认 12
3.6代码设计 13
3.6.1代码设计的原则 13
3.6.2代码结构的类型 13
3.6.3代码设计的步骤与方法 14
3.6.4本系统中的代码设计 14
3.7二维表 14
3.8数据字典 15
3.9功能实现过程 15
第四章．系统实现与转换 18
4.1建立系统会员登录的界面 18
4.2建立虚拟会员操作界面 21
4.3建立系统主界面 24
4.4建立会员注册界面 25
4.5建立会员信息查询界面 27
4.6建立管理员信息查询界面 31
4.7建立硬件维护界面 35
4.8无卡通的实现 37
4.9结帐信息查询 38
第五章．结论与展望 39
5.1登录功能 39
5.2会员注册功能 39
5.3会员信息查询 39
5.4管理员信息查询 40
5.5结账信息查询 40
5.6无卡通与维护 40
参考文献 42
致谢 42

内容摘要
本系统说明书，主要说介绍了机房管理信息系统的需求分析的经过。系统分析的具体情况和流程。介绍了在系统中，采用层次码来对系统数据库的设计，界面的制作，代码的设计情况。通过这些方面的介绍，可以将本系统的大致情况进行了解。另外本系统说明书还将系统完成的功能进行了详细的描述，例如登录功能、会员注册功能、会员信息查询功能等。对每一项功能的操作步骤也进行了详细的讲解。
第一章．概述
1.1概述
 随着社会的发展，经过本院全体师生的共同努力，学校的规模不断的扩大，校园网的普及，学校机房的硬件设施越来越好，如何充分发挥校园计算机机房的效能，开放机房，最大限度的为机房管理服务，既要提高机房的科学管理水平，又要减轻机房管理员工作，使机房管理更加规范、有序。使用计算机可以高速，快捷地完成以上工作。在计算机联网后，数据在网上传递，可以实现数据共享，避免重复劳动，从而提高了管理效率和水平。机房管理信息系统以计算机为工具，通过对上机管理所需的信息管理，把管理人员从繁琐的数据计算处理中解脱出来，使其有更多的精力从事其它管理政策的研究实施，机房上机计划的制定执行监督检查，从而全面提高管理质量。机房上机管理系统是一个实时人机系统，它要求要有较高的可靠性、可适应性、扩充能力。
 建立先进的机房管理系统是实现教育现代化的必由之路，是推进信息化管理的重要举措之一。本系统主要为教职员工上课和学生日常业余上机提供了方便。系统采用了先进的软、硬件结合的方式。
 客户端采用硬件模式，通过硬件级的底层网络登录与身份验证相结合, 达到安全性。管理端采用软件模式，主要管理学校计算机机房的上机业务，它的主要功能模块包括，系统管理、用户结帐管理、电脑与计算机信息管理、无卡通管理、日常管理、新会员办理管理、用户信息的维护管理、管理员信息的维护管理、机房预约与排课管理、上机考勤管理、学生付费管理、用户权限管理以及实行跨平台管理等。本系统是一个运行在局域网上的子系统，能够直观、方便、有效、可靠地管理通过局域网联在一起的所有机器，它具有以下优点：
 1.实现无人职守
 系统通过提供强大的功能，最大限度降低机房管理员的工作量，它能够做到自动判断学生是否已经注册会员、会员卡上金额是否足够、以及通过验证学生的身份来确定是否允许学生使用机器，随时判断学生卡上的当前金额还能上机多久，当卡上剩余金额低于系统规定的限额时，系统会提前1分钟提示学生，"请准备下机"，1分钟后，系统会自动将学生所用的机器电源关掉。学生下机时，系统自动计算并扣除学生的上机费用；同时自动将该学生所用的机器电源关掉。
 2.方便管理
 本系统采用友好的界面，能够帮助机房管理员方便有效地对机房进行管理。系统详细提供机房所有机器的使用状况，如使用者名称、登录时间、总金额、消费金额、现剩余金额等信息，使机房管理人员对每台客户机使用状况一目了然；同时系统提供强大的管理功能，机房管理员能够方便有效地对机房内任意机器进行管理，如发消息、禁止使用等。一次可以选中一台机器进行管理操作，也可以同时选中多台机器进行管理操作。系统还提供可追踪的历史记录，如学生上机的历史记录，还包括学生在办理会员卡后忘记密码，这时就可根据学生最初的原始记录，查找出密码。学生上机的历史记录使得学校、机房管理人员对学生使用机器状况有清晰的了解，对机器出现的故障能够追究责任到个人。对学生消费金额的变动提供了有迹可寻的记录。
 3.功能强大，设置灵活
 机房使用安排灵活方便，自由安排机时单价，具有预定座位功能，设置免费上机功能，环境要求低，适应能力强，无须特殊的配置或者专门的服务器。
 本系统充分考虑了用户环境各种可能出现的情况，提供灵活的应变措施，充分利用学校的网络资源，对学校的机房进行有效的管理。即使机房的网络发生故障，不能正常工作，系统仍然能够在各个单机上独立的对机器资源进行安全控制、计算上机费用、并登记使用情况。
 4.全面完善的查询功能
 本系统充分考虑到管理的需要，从机房管理员、教师授课、学生个人业余上机、三个层面提供了完善的查询功能。
 从机房管理员角度，系统提供了有关任意机房、任意机器在任意范围时间内的使用情况、使用者信息方面的详细信息。
 从教师授课角度，系统提供了教师在任意时间范围内对机器设备的使用，提供教师在自身的权限内对系统的使用及维护。
 从学生个人业余上机角度，系统提供了个人在任意时间范围内的缴费情况、消费情况及剩余金额等信息，高级别的安全管理机制。
5.安全机制
系统提供了方便高效的用户授权机制，加强了对用户身份的识别，避免未经授权的用户越权使用系统。VB+ACCESS的使用使得系统的数据不会轻易被外界恶意的攻击破坏，简单易懂，使用方便，身份识别有效者方可上机，同一身份在同一时段不可复用，可有效防止密码盗用，确保用户资金安全。
 6.跨平台管理
 系统能够同时在客户机和服务器机上进行控制和管理，实现跨平台管理。
并具有系统的可扩充性.

 第二章.系统分析
2.1需求分析
2.1.1开发的背景
 针对机房内机子太多，上网人数也比较多，机房管理人员对于机房的管理杂乱无章。工作进行的非常不便。有时在进行对机子的开机或者办理会员，以及对机子维护时存在着工作的不便。其主要有以下几点：
 1.机房在满足正规教学实习上机任务时，手工安排上机实习表，因管理人
 员无法及时出现的变更进行调整。
 2. 因无法有效的对上机实习进行管理限制，列如学生上网、聊天、玩游戏，难于监控。
 3.在整个上机过程中，管理人员需随时进行上下机登记、人数核查、超时检查等工作，特别是在上下机高峰或机房较大，微机台数较多的情况下，更是忙成一团，往往要安排多人值班才行，造成管理混乱和费用增大的问题。
 4. 由于部分自由上机往往是适量收费服务的，所以免不了要进行经济方面的核算。不论是上机使用的票还是使用刷卡进行登记，都存在着伪造和人为因素的徇私舞弊行为的极大可能性，无法进行有效、准确、方便的财务核查和统计工作，必然造成经济损失和难于管理。
 5.因缺乏完备的上课以及上机档案记录，学校无法对机房的运作进行便捷的统计分析，对学生的上课、上机情况进行随意查询。
 2.1.2功能简介
 对于以上所提出的问题，愈来愈多的机房管理人员意识到机房信息化管理的重要性、必要性，并逐步引进稳定性好的、简单易用、方便管理、具有人性化的软件系统。
 为了机房在管理上能减少这种杂乱无章的局面，又能让机房管理的工作更具人性化的一面。为此我们将开发一套针对于管理机房的软件-------机房上机管理信息系统。
 1.计算机登陆管理
 在这一套机房管理信息系统中将对计算机登陆进行一种人性化的管理设计。我们的这套系统是利用客户器服务/服务器服务（c/s）,所谓C/S就是两个应用程序的逻辑系统及其各逻辑组件之间复杂的关系的协同。在这个系统中我们将要对客户机（机房内的机子）进行应用程序的开发与安装，又要在服务器中进行应用程序的编写。两个应用程序逻辑系统通过调用服务器的后台数据库中的数据来共同实现计算机界面登陆的管理。这一功能的实现是系统中具有人性化的一个功能之一。
 2.会员结帐管理对于这个功能实施的必要性是因为会员在登陆使用计算机一段时间后想立即退出,会员卡的形式来是不想在上机了这是会员就可以使用结帐菜单来实现结帐功能.这个功能为什么能给管理者带来方便呢?这就在于机房管理采用的是会员卡的形式来管理的所以呢,我们设计开发的这个功能就能很好的解决对于在遇到上机人员很多的时候管理员管理混乱的局面.
 3.会员注册
 在这套系统中我们还将对会员的注册这一功能在系统中进行开发.其主要的内容是当某一个人他以前已经注册过会员了但是却把卡号和密码给忘记了这是此人可以到管理员那里去说出自己的名字然后管理员查询有无此人,如果没有记录则帮助此人注册.注册的工作和以前一样.
 4.无卡通
 我们还将要实现一项功能就是对学校的整个班级来到机房上机的情况进行某一功能的管理，即是进行无卡开通管理进行无卡开通这一功能的开发是因为在学校对于一个个的班级一起来上机的话那么人数是比较会员上机来说是比较多的。这样我们在对这中情况进行管理是时候是不能像因为会员那样来实施管理的。因为会员是单个的个体比叫班级来说是很好管理的。所以为了能让班级来机房上机的时候同时进行计算机的开关我们就进行了开通这项功能的开发。
 5.查询功能
 我们想到能让系统的管理在查询方面有一定的功能。我们将在系统中开发查询这一功能。这一功能将完成两方面的大的工作就是对机房内的机子状态进行查询还就是对会员进行查询。对会员的记录的查询可以根根据用户提供的证件进行查询。比如说如一个人要办理会员业务的他不知道自己是不是已经办理过了这是我们的管理员就可以用查询功能进行查询。管理员还可以对某一个用户进行查询以后对他的记录进行删除、修改、充值等操作。
 6.硬件管理
 除以上所说的功能以外我们还将对计算机的硬件设备进行管理。这是怎么样的一回事情呢。也就是说我们将要对每一台机子CPU 网卡 显卡等等的硬件设备进行统计存入数据库中去。进行这方面的统计管理是为了在以后对机子的维护提供一些信息，这样就对今后的计算机的维护提供了方便。
 2.1.3实现平台
 本系统的功能实现是通过VB+ACCESS来实现的我们通过在服务器上用ACCESS来建立后台数据库，然后在应用VB6.0来实现系统工作界面的制作。而在客户服务器上也是应用VB6.0来实现界面的制作只不过对于程序的数据调用是通过调用服务器的后台数据来实现的。
 2.2系统分析
 2.2.1系统分析的概念
 “分析”通常是指对现有系统的内、外情况进行调查、分析、研究、分解、剖析，以明确问题或机会所在，认识解决这些问题或把握这些机会的必要性，为确定有关活动的目标和可能的方案提供科学依据。系统分析也指应用系统思想和系统科学的原理进行分析工作的方法与技术。
 2.2.1.1系统分析阶段的目标
 系统分析阶段的目标，就是按系统规则所定的某个开发项目范围内明确系统开发的目标和用户的信息需求，提出系统的逻辑方案。系统分析在整个开发过程中，是要解决：“做什么”的问题，把要解决哪些问题，满足用户哪些具体的信息需求调查分析清楚，从逻辑上，或者说从信息处理的功能需求上提出系统的方案，即逻辑模型，为下一阶段进行物理方案（即计算机和通信系统方案）设计，解决：“怎么做”提供依据。
 2.2.1.2系统分析工作活动以及特点
 系统分析阶段的主要活动有：系统初步调查、可行性研究、系统详细调查、新系统逻辑方案的提出。
 系统分析工作的特点： 
 A工作内容涉及面广，不确定性大。
B系统分析工作主要面向组织管理问题，工作方式主要是和人打交道。
C系统分析的主要成果是文件。
D系统分析工作追求的是有限目标。
 2.2.2系统的可行性研究
 2.2.2.1开发机房上机管理信息系统的经济可行性研究
 由于我校是本市的重点学校，在本市具有很强的发展的势头。而且在发展上也是处于稳定的阶段。我校为什么能有这样的发展势头呢？为什么我校是重点学校呢？就是因为我校的师资力量雄厚设施完善，这样才给我们的学校带来了这样的繁荣。为了能让我校继续更好的发展我们就需要完善我校的设施。我们开发上机管理系统就是出于这样的想法而开始进行研究的。而我们的系统开发需要资金。见于我校现在的状况来说对于系统开发所需要给出的费用是值得的，我校也是有能力拿出这部分资金的。
 2.2.2.2开发机房上机管理信息系统的技术可行性研究
 我校现在的师资力量雄厚，各个方面技术的人才都有。对于上机管理系统开发的人才队伍也不弱。我校的计算机组的教师就有二十来人，这二十多个人所及的计算机方面的知识很广。有计算机网络、计算机原理机、计算机程序设计等等。所以对于这样一个学校机房管理系统的开发，我们是有能力完成的。
 2.2.2.3开发机房上机管理信息系统的组织管理可行性分析
 我校现在机房管理这方面上动用的人比较多，这样就会造成资源的浪费。为了减少资源的浪费我们就有必要开发一个系统来提高机房的工作效率，减少资源的浪费。机房管理信息系统就是一个使用少量的工作人员对机房进行管理。只要系统开发使用后我们就可以使用较少的管理人员和维护人员来完成机房里的工作。
 2.2.3上机管理信息系统逻辑模型的提出
 系统分析阶段的任务是明确系统功能。通过对现行系统的调查分析，抽象出现行系统的逻辑模型，分析其存在的问题。
 2.2.3.1业务流程图
 

 2.2.3.2数据流图
 

 第三章．系统设计
3.1系统设计的含义
 系统设计就是根据新系统的逻辑模型建立物理模型，是一个根据新系统逻辑功能的要求，考虑企业的实际情况，详细地确定新系统的结构和具体实施方案的过程。如果说系统分析解决了“系统干什么”的问题，那么系统设计就是解决“怎么干”。
3.2系统设计的任务
 系统设计的任务就是要依据系统分析阶段产生的论文资料，采用正确的方法确定新系统在计算机内应该由哪些程序模块组成，它们之间用什么方式联结在一起以构成一个最好的系统机内结构，同时还要使用一定的工具将所设计的成果表达出来。另外，考虑到实现系统功能的需要，还要进行数据库的详细设计、编码设计、输入输出设计、人机界面设计、系统的安全设计等。
3.3系统设计的原则
 1简单性
 2一致性和完整性
 3灵活和适应性
 4可靠性
5安全性
6经济性
3.4系统设计的目标和功能
 系统设计就是根据新系统的逻辑模型建立物理模型，解决“怎么干”的问题。具体的是什么呢？就是根据系统分析所调查得到的资料，进行进一步的具体化的划分。其实在系统设计里面所要做的东西，与系统分析里面的内容是大同小异的。只是在系统设计里面把那些内容给具体化了。利用分析工具和其他的工具用图形和文字的形式，把系统所要达到的功能展现出来，让用户能够看到的明白。
 我们可以用下图（2-3）来对系统的功能进行描述。下图是一张在系统分析阶段的功能结构图。它为我们展示了一下系统的大的功能模块的情况。但是我们可以通过这张图，来描述一下系统的功能。
 
 
3.4.1系统功能描述
 通过这张图我们可以看出系统主要，要实现的是什么。系统主要实现是对用户的管理、对信息的处理、对系统的维护管理的功能。
 在对用户的管理的功能方面，又分为对会员的管理和对管理员的管理这两方面。然而在每一方面又分为登陆管理和注册管理。
 在对于信息的处理方面呢，就是对信息的查询处理。它主要又分为三个方面的处理：
 1对于用户信息的查询处理
 2对于上机用户结账信息的查询处理
 3对于硬件信息的查询处理
 这三个功能主要是对信息查询后，便于对用户进行注册操作和对计算机的维护工作。
 在对于系统维护这一个方面主要是对计算机的硬件的维护。这一功能的实现，首先要通过对计算机信息的查询后在进行操作工作。为什么要进行先查询在操作呢？这是为了能让维护人员知道，需要维护的计算机它所配的硬件是什么型号的，在库存里面还有没有相应的硬件设备。
 3.5总体设计
 3.5.1总体设计中的问题
 总体结构设计需要从软硬件两方面描述系统的总体结构，需要考虑以下问题:
 1、如何将系统总体划中划分的子系统更合理的甄别和确认
 2、如何将子系统划分为若干模块
 3、模块间的数据传送和调用关系
 4、如何评价模块结构的质量
 5、采用怎样的网络拓扑结构
6、如何进行设备和网络的配置
 3.5.2子系统的划分和确认
 1．系统划分的原则
 （1）子系统要具有相对独立性。
 （2）使数据冗余较小。
（3）便于系统分阶段实现。
（4）适应组织管理机构的设置。
 （5）充分利用各种资源。
 2．系统划分的方法
（1）按职能划分
（2）按逻辑功能划分
（3）按通信划分
 （4）按业务处理顺序划分
 （5）按业务处理的时间关系划分
 
 3.6代码设计
 3.6.1代码设计的原则
 设计好的代码体系，必须符合以下一些要求。
 A 唯一确定性。保证没一个被表示的实体有而且只有一个确定的代码。
 B 标准化与通用性。应尽量采用上级部门规定的编码标准，列如行业编码、部委与国家标准编码等。系统内部的代码必须是统一的和规范。
 C 可扩充性和稳定性。代码的结构和编码规则要考虑一段时期的不变性和日后增加代码对象的适应性。尽量避免代码体系的变动而引致数据存储结构及程序系统的大修改。
 D 便于识别和记忆。充分运用各种结构的符号组合和编码技巧，使代码不仅具有逻辑含义，而且便于识别和记忆。
 E 力求短小与格式统一。在不影响使用的前提下，应尽量缩短代码的长度和使同类代码在格式上的统一。这不仅是为了让用户容易掌握和运用，更重要的是要提高计算机存储和处理数据的效率。
 F 容易修改。在需要时应能方便地对某些代码进行调整或修改。
 3.6.2代码结构的类型
 A 顺序吗
 B 区间码
  1）层次码
  2）十进制码
 3）特征码
 C 助记码
 D 缩写码
 3.6.3代码设计的步骤与方法
 A 确定代码化实体
 B 代码结构设计
 C 确定编码规则
 D 实施编码
 E 建立计算机代码体系
 3.6.4本系统中的代码设计
 A 本系统是针对学校机房管理而开发的。所以在对数据库的代码的设计时，对于上机的会员号，采用的是区间码中的层次码。采用层次码可以很快的知道上机用户的大概身份，这样对于一些突发事件的发生，就可以很快的知道一些信息以便于进行处理。因为在学校里，每个班级都有自己的编号。在进行代码设计的时候，就可以将班级的编号放在前面，在把个人的编号放在后面这样就实现了代码的设计。
 B 对于系统采用层次码，还有一个很好的好处。就是便于记忆，用户们不需要把全部的数字记住，只需要记住后面的数字即可。
 C 系统的数据库的代码设计，具体请看数据字典。
3.7二维表
管理员表
用户名 密码 姓名 性别 年龄 电话号码 备注
      
 会员表
卡号 密码 姓名 性别 证件号 类型 剩余 状态
       
 硬件表
计算机编号 CPU型号 显卡型号 内存条型号 硬盘 备注
     
3.8数据字典
（1）管理员表
名称 类型 大小 可否为空 是否为主键
用户名 CHAR 9 否 可
密码 INT 15 否 否
姓名 CHAR 8 否 否
性别 CHAR 2 否 否
年龄 INT 2 否 否
电话号码 INT 12 否 否
备注 MEMO 50 可 否
（2）会员表
名称 类型 大小 可否为空 是否为主键
卡号 INT 9 否 是
密码 INT 15 否 否
姓名 CHAR 8 否 否
性别 CHAR 2 否 否
证件号 INT 18 否 否
类型 CHAR 10 否 否
剩余 DEC 3.2 否 否
状态 CHAR 4 否 否

（3） 硬件管理表
名称 类型 大小 可否为空 是否为主键
计算机编号 INT 2 否 是
CPU型号 INT 7 否 否
显卡型号 INT 7 否 否
内存条型号 INT 7 否 否
硬盘 INT 7 否 否
备注 MEMO 50 可 否
 
3.9功能实现过程
 功能一 用户登录
 对于本系统的开发是采用的C/S模式的开发方式，所以对于这一功能的实现，就必须采取对用户端进行程序开发安装。我们通过在服务端进行数据库的建立，把已经注册可以进行计算机登录的用户的信息存入库中。在用户登录时，把用户登时所输入的用户名和密码，与服务器中的数据进行比较，得出是否允许其登录。
 功能二 会员结账
 会员结账功能是在客户端使用的一项功能，其实现是的方式是在用户端有个下拉列表框，在列表框中有一栏是结账下机，此时用户可以用鼠标单击就可以实现结账下机。此功能的实现是在用户单击的时候，在客户端就会给服务端一个标记的信息，此时服务端就会停止对用户上机的记费，从而来实现结账这一功能的。
 功能三 会员注册
 会员的注册是指来上机的人员在管理员那里进行登记注册的过程。在这里有两中情况：一是已经注册过的会员，已经很久没有来上过机了，不知道自己注册的会员号是否还存。在这时管理员就可对其所提供的信息进行查询，如果在就不用在进行注册，如果没有了这时候在对其进行注册登记。二是上机的是个没有进行过注册的人，此时就要用户提供相应的证件进行注册登记。
 此功能的实现就是在管理界面上，输入相关字段的信息，在输入完毕后向后台数据库提交即可。
 功能四 无卡通
 对于无卡通这一个功能来说，是一个管理界面上来实现的功能。所谓的无卡通，也就是在正班级来机房上机的时候，管理员对多台计算机同时开通的管理。对于这一功能的实现，就是在管理员在管理界面上，通过对一个子菜单的单击。这时就会出现一个界面，在界面上输入所需要开通的计算机的数量在点确定，这样就可以实现无卡开通这个功能了。
 功能五 信息查询
 信息的查询分的是三方面的查询：
 一 是对用户信息的查询 
 二 是对计算机状态的查询
 三 是对计算机硬件设备的查询
 对于查询功能来说，都会根据一定的条件来进行查询。所以我们在进行开发的时候，都是采用的在菜单中选择已经设定好的条件来进行查询。无论用户单击哪个，都是使用界面查询的方式来进行信息的查询。
 功能六 硬件管理
 硬件管理功能主要的目的，就是为维护人员在进行维护工作时提供方便。因为硬件管理，所管理的是计算机上所安装的一些硬件设备的信息。这个功能的实现也是采用的界面的形式来完成的。当维护人员把所要维护的计算机的编号输入进行查询后，在使用界面的形式反馈出来。
 3.10系统打包为EXE文件
 具体过程
 1）先在VB里面的菜单栏上单击外接程序
 2）在下拉列表框里选外接程序管理器
 3）在弹出的对话框里的可用外接程序里双击打包和展开向导，然后选确定
 4）又在VB里面的菜单栏上单击外接程序，然后选击打包和展开向导
 5）在弹出的对话框里选择打包然后确定
 6）又在弹出的对话框里选择编译
 7）在进行编译的过程中在弹出的对话框里选择包类型时要选标准包文件
 8）在选择了包文件类型后，又要选择打包的文件夹
 9）
 
 第四章．系统实现与转换
建立程序界面、编写程序代码
建立程序界面时，通常要建立主界面窗体，然后利用”菜单编辑器”建立主菜单系统，利用工具条控键建立工具条，最后根据菜单选项的需要分别建立各窗体和对话框。
4.1建立系统会员登录的界面
（1）加载窗体和控件，并设置起属性如下图4-1：
 
 图4-1会员登录界面
属性设置：窗体FORM登录caption属性设为”用户登录界面”；WINDOWSSTATE属性设为“2-Maximized”；Frame的caption属性设为“会员登录”；Lable1和Lable2的caption属性分别设为“卡号”和“密码”；Comand1和Commad2的caption属性分别设为“确定”和“管理员”，“确定”用于表示在会员登录时在输完卡号和密码后单击确定就可进行登录，而“管理员”则是用于用户需要使用管理员身份进行登录时使用。使用的方法就是单击管理员按钮就可进入管理员登录界面，然后进行登录。在工程部件里添加ADODC控件，其主要用于数据库的连接。
（2）编写代码如下：
Private Sub Command1_Click()
Dim db As New ADODB.Connection      &与数据库建立连接
Dim rs As New ADODB.Recordset      &从数据库中返回的可用记录集
Dim sql As String
Dim a As String
Dim oo As New ADODB.Recordset      &同上
Dim sql1 As String
Dim ww As New ADODB.Recordset      &同上
Dim sql2 As String
Dim ww1 As New ADODB.Recordset&同上
db.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" I:\机放上机管理信息系统\会员表.mdb;Persist Security Info=False"      &连接数据库的路径
db.Open&打开表
sql = "select * from 会员表"       &查询会员表里所有的记录
rs.Open sql, db, adOpenStatic, adLockReadOnly
sql1 = "select * from 会员表 where 卡号='0102030'"      &查询会员表里卡号为“0102030”的记录
ww.Open sql1, db, adOpenStatic, adLockReadOnly
a = ww.Fields(7).Value
rs.MoveFirst
 Select Case a      &建立的CASE语句
Case Is = 0      &建立的CASE语句的值等于0是执行下列代码
If Text1.Text = "" Then
MsgBox "请输入你的卡号"
Text1.SetFocus
Else
sql2 = "select * from 会员表 where 卡号='" & Text1.Text & "'"
ww1.Open sql2, db, adOpenStatic, adLockReadOnly
If ww1.Fields(1).Value <> Text1.Text Or ww1.Fields(2).Value <> Text2.Text Then
MsgBox ("你的输入有误请重新输入!")
 Text1.Text = ""
 Text2.Text = ""
 Text1.SetFocus
ElseIf rs.EOF = False Then
a = "update 会员表 set 状态='在线' where 卡号='" & Text1.Text & "'"
oo.Open a, db, adOpenStatic, adLockReadOnly
 MsgBox "会员模式登陆成功!"
 虚拟操作界面.Show
 Text2.Text = ""
End If
End If
Case Is <> 0      &建立的CASE语句的值不等于0是执行下列代码
MsgBox "无卡通模式登陆成功！"
虚拟操作界面.Show
End Select
End Sub
Private Sub Command2_Click()
Text1.Text = ""
Text2.Text = ""
Text1.SetFocus
会员.Hide
管理员登陆.Show
End Sub
Private Sub Form_Load()
Text1.Text = ""
Text2.Text = ""       &在窗体初始化的时候使文本框的值为空值
End Sub
在以上的代码中使用了一条selecte case语句用于判断用户是否是进行的一般会员登录模式，还是进行的无卡开通模式。会员登录的实现是采用，先与数据库建立连接，在文本框内的值与数据库内的值进行比较是否相同。从而判断是否让用户进行登录。
4.2建立虚拟会员操作界面
（1）加载窗体和控件，并设置起属性如下图4-2
 
 图4-2虚拟操作界面
属性设置：窗体FORM登录caption属性设为”虚拟操作界面”；WINDOWSSTATE属性设为“2-Maximized”；command1和command2的caption属性分别设置为返回管理员登陆和关闭并返回会员登录。
（2）编写代码如下：
Dim tim As Integer      &声明一个记数变量
Private Sub Command1_Click()
虚拟操作界面.Hide
会员.Show       &会员登录界面显示
会员.Text2.Text = ""       &将会员登录界面里的第二个文本框清空
会员.Text1.SetFocus       &将会员登录界面里的第一个文本框设置焦点
Dim db As New ADODB.Connection       &声明与数据库建立连接的变量
Dim rs As New ADODB.Recordset       &声明一个可用记录集
Dim sql As String
Dim g, t As String
Dim oo As New ADODB.Recordset       &声明一个可用记录集
db.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=I:\机放上机管理信息系统\会员表.mdb;Persist Security Info=False"       &建立连接的数据库的连接
db.Open
sql = "select * from 会员表"       &查询会员表里的所有记录
rs.Open sql, db, adOpenStatic, adLockReadOnly       &打开查询结果的记录集
g = tim       &将tim的值赋给变量g
t = g / 60 * 0.05       &计算剩余金额的公式
a = "update 会员表 set 状态='离线',剩余='" & t & "' where 卡号='" & 会员.Text1.Text & "'"根据卡号修改与卡号相对应的字段的值
oo.Open a, db, adOpenStatic, adLockReadOnly       &打开查询结果的记录集
End Sub
Private Sub Command2_Click()
虚拟操作界面.Hide
管理员登陆.Show
End Sub
Private Sub Form_Load()
Dim db As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim hh As New ADODB.Recordset
Dim sql, a, q As String
Dim u As String
db.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=I:\机放上机管理信息系统\会员表.mdb;Persist Security Info=False"
db.Open
u = 会员.Text1.Text       &将会员登录界面的第一个文本框的值赋予变量u
Select Case u
Case Is <> ""       &条件是变量u的值不为空
sql = "select * from 会员表 where 卡号='" & 会员.Text1.Text & "'"       &查询卡号为“会员.Text1.Text”的记录
rs.Open sql, db, adOpenStatic, adLockReadOnly
a = rs.Fields(7).Value       &将rs的第7个字段的值赋予变量a
tim = a / 0.05 * 60       &计算时间的公式
Case Else
sql1 = "select * from 会员表 where 卡号='0102030'"       &查询卡号为“0102030”的记录
hh.Open sql1, db, adOpenStatic, adLockReadOnly
q = hh.Fields(7).Value       &将rs的第7个字段的值赋予变量q
tim=q/0.05*60       &计算时间的公式
End Select
End Sub
Private Sub Timer1_Timer()
tim=tim-1
If tim = 2 Then       &当时间变量的值为2是就执行下面的语句
MsgBox （"你的金额已不足请及时充值！"）
ElseIf tim = 0 Then       &否则就执行当时间变量的值为0时的语句
Dim db As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim sql As String
Dim g, t As String
Dim oo As New ADODB.Recordset
db.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=I:\机放上机管理信息系统\会员表.mdb;Persist Security Info=False"
db.Open
sql = "update 会员表 set 状态='离线',剩余='0' where 卡号='" & 会员.Text1.Text & "'"
rs.Open sql, db, adOpenStatic, adLockReadOnlyrs.Close
Timer1.Interval = 0       &设置timer1的interval属性的值为0
虚拟操作界面.Hide
会员.Show
End If
End Sub
虚拟操作界面的代码就是在用户登录以后进行状态的修改，以及进行计时。还有代码还有判断用户是否是进行的无卡通来进行登录的。当用户关闭界面时，统又会对用户的状态进行修改，还有剩余的金额进行跟改。
4.3建立系统主界面
（1）载窗体frm开始，设置属性如下
Caption属性设置为“系统主界面“；windowsstate属性设置为“2-Maximized”
（2）建立主菜单系统
该程序的主菜单系统个菜单项及其选项的具体设置如表4-1所示
表4-1  程序主菜单选项设置一览表
菜单项标题名 菜单级别
会员注册 一级
查询 标题
会员信息查询 一级
管理员信息查询 一级
结帐信息查询 一级
无卡通 一级
维护 一级
（3）系统主界面如图4-3所示

图4-3  系统主界面
4.4建立会员注册界面
（1）加载窗体和控件，并设置起属性如下图4-4所示

图4-4  会员注册界面
属性设置：此会员注册界面，是在系统主界面的基础上，加载一个framle控件。其WINDOWSSTATE属性设为“2-Maximized”；设置framle控件的caption属性为“会员信息填写“，在设置framle控件的visible属性的值为”false“。在framle里面放7个lable，控件并分别设置他们的caption属性的值依次为“卡号，密码，姓名，性别，证件号，类型，剩余”。然后又在framle里面放6个文本框。在放置一个como设置他的list属性的值为“男，女”。在framle里面放置两个commad按钮，分别设置他们的caption属性的值为“提交”和“取消”。在系统主界面上放置一个ADODC控件。
（2）编写代码如下：
Private Sub hyzc_Click()
Frame1.Visible = True      &将framle设置为可见
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Combo1.Text = ""
Text5.Text = ""
Text6.Text = ""
Text7.Text = ""
Text1.SetFocus      &将6个文本框置为空值，在将como的值也置为空值，在设置文本框一的叫焦点
End Sub
Private Sub Command1_Click()
 Dim db As New ADODB.Connection      &与数据库建立连接
Dim rs As New ADODB.Recordset      &声明一个记录集
Dim sql As String
db.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=I:\机放上机管理信息系统\会员表.mdb;Persist Security Info=False"      &建立与数据库进行连接的路径
db.Open      &打开库
sql = "select * from 会员表"      &查询会员表里的所有记录
rs.Open sql, db, adOpenStatic, adLockReadOnly      &打开记录集
rs.Close
If Text1.Text = "" And Text2.Text = "" And Text3.Text = "" And Combo1.Text = "" And Text5.Text = "" And Text6.Text = "" And Text7.Text = "" Then
MsgBox ("你没有输入信息不能注册！")
Else
a = "insert into 会员表 (卡号,密码,姓名,性别,证件号,类型,剩余) values ('" & Text1.Text & "','" & Text2.Text & "','" & Text3.Text & "','" & Combo1.Text & "','" & Text5.Text & "','" & Text6.Text & "','" & Text7.Text & "')"      &插入记录，记录的信息在framle里面获得
rs.Open a, db, adOpenDynamic, adLockReadOnly
MsgBox "你已经提交成功！"
Adodc2.Refresh      &对adodc控件进行刷新
DataGrid1.Refresh      &对DataGrid进行刷新
Frame1.Visible = False      &设置framle为不可见
End If
End Sub
Private Sub 取消12_Click()
Frame1.Visible = False
End Sub
在对会员信息进行注册的时候，是在系统主界面上单击会员注册。然后framle显示可见，在进行信息的填写。在信息填写完以后，在单击提交。单击取消则是framle控件不可见。
4.5建立会员信息查询界面
（1）加载窗体和控件，并设置起属性如下图4-5所示

图4-5  会员信息查询界面
属性设置：将form窗体的caption的值设为会员删修界面, 其WINDOWSSTATE属性设为“2-Maximized”；；用菜单编辑器编辑两个一级菜单分别是“删除”和“修改”；在界面上添加一个datagride控件，在进行字段检索；添加一个ADODC控件；添加一个framle控件设置其caption属性为“要修改的信息”；在framle控件里放置8个标签和8个文本框，8个标签的caption属性分别设置为“卡号，密码，姓名，性别，证件号，类型，剩余，状态”；添加一个command1控件，设置其caption属性值为”提交“。添加一个command2控件，设置其caption属性值为”返回系统主界面“。
（2）编写代码如下：
Private Sub hyxxcx_Click()
系统主界面.Hide
c = InputBox("请输入卡号！")
Dim db As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim jj As New ADODB.Recordset
Dim sql As String
db.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=I:\机放上机管理信息系统\会员表.mdb;Persist Security Info=False"
db.Open
sql = "select * from 会员表"
rs.Open sql, db, adOpenStatic, adLockReadOnly
If c = "" Then      &假设变量c的值为空则执行下列语句
系统主界面.Show
Else
d = "select * from 会员表  where  卡号 = '" & c & "'"      &变量的值不为空则执行下列语句
jj.Open d, db, adOpenStatic, adLockReadOnly
 会员删修界面.Text1.Text = jj.Fields(1).Value
 会员删修界面.Text2.Text = jj.Fields(2).Value
 会员删修界面.Text3.Text = jj.Fields(3).Value
 会员删修界面.Text4.Text = jj.Fields(4).Value
 会员删修界面.Text5.Text = jj.Fields(5).Value
 会员删修界面.Text6.Text = jj.Fields(6).Value
 会员删修界面.Text7.Text = jj.Fields(7).Value
 会员删修界面.Text8.Text = jj.Fields(8).Value      &将查询所得记录的字段值显示在会员删修界面对应的文本框中
 会员删修界面.Show
 End If
End Sub
Private Sub xg_Click()
MsgBox "你是否确定要进行修改？"
Frame1.Visible = True
Command1.Visible = True
MsgBox "请杂文本框中填写你要修改的项后单击提交"
End Sub
Private Sub 提交_Click()
Dim db As New ADODB.Connection      &与数据库建立连接
Dim rs As New ADODB.Recordset      &声明可用记录集
Dim sql As String
Dim z As String
db.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=I:\机放上机管理信息系统\会员表.mdb;Persist Security Info=False"      &连接数据库的路径
db.Open      &打开库
sql = "select * from 会员表"      &查询会员表里面的所有记录
rs.Open sql, db, adOpenStatic, adLockReadOnly      &打开记录
rs.Close
z = InputBox("请在确认一下卡号")      &在修该信息填写好以后在次输入卡号进行确认
a = "update 会员表 set 卡号 = '" & Text1.Text & "',密码 = '" & Text2.Text & "',姓名= '" & Text3.Text & "',性别= '" & Text4.Text & "',证件号= '" & Text5.Text & "',类型= '" & Text6.Text & "',剩余= '" & Text7.Text & "',状态= '" & Text8.Text & "'where 卡号='" & z & "'"      &修改卡号等于InputBox里面的值的记录，其对应字段的值在文本框里面取
rs.Open a, db, adOpenStatic, adLockReadOnly      &打开记录集与数据库的连接
MsgBox "你已经提交成功！"
Adodc1.Refresh      & Adodc控件更新
1.Refresh      &DataGrid控件更新
DataGrid1.Visible = True      &DataGrid设置为可见
Frame1.Visible = False      & Frame设置为不可见
End Sub
Private Sub 删除_Click()
Dim j, x As String
x = InputBox("请在确认一下卡号")
 j = MsgBox("你确定要删除这条记录吗？")
 Dim db As New ADODB.Connection      &与数据库建立连接
Dim rs As New ADODB.Recordset      &声明可用记录集
Dim sql As String
db.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=I:\机放上机管理信息系统\会员表.mdb;Persist Security Info=False"      &连接数据库的路径
db.Open      &打开库
sql = "delete * from 会员表 where 卡号 ='" & x & "'"删除卡号等于InputBox值的记录
rs.Open sql, db, adOpenStatic, adLockReadOnly      &打开记录集
MsgBox "你已经成功删除记录"
Adodc1.Refresh      & Adodc控件更新
DataGrid1.Refresh      &DataGrid控件更新
DataGrid1.Visible = True      &DataGrid设置为显示
End Sub
Private Sub 返回系统主界面_Click()
会员删修界面.Hide
系统主界面.Show
End Sub
会员信息查询的实现过程，就是当用户在系统主菜单上，用菜单会员信息查询的时候，就会弹出一个inputbox叫用户输入要查询相关会员的卡号。这时系统就会根据卡号从数据库中，查询出相关信息。这些信息就会被显示在会员删修界面上的文本框里。当用户想对查询出来的信息进行修改时，可以单击菜单修改，然后根据提示进行操作。如果用户还想对某个会员的信息进行删除的话，可以用菜单删除，只须要输入会员的卡号即可。
4.6建立管理员信息查询界面
（1）加载窗体和控件，并设置起属性如下图4-6所示

图4-6  管理员信息查询界面
属性设置：将form窗体的caption的值设为管理员删修界面, 其WINDOWSSTATE属性设为“2-Maximized”；；用菜单编辑器编辑两个一级菜单分别是“删除”和“修改”；在界面上添加一个datagride控件，在进行字段检索；添加一个ADODC控件；添加一个framle控件设置其caption属性为“要修改的信息”；在framle控件里放置8个标签和8个文本框，8个标签的caption属性分别设置为“卡号，密码，姓名，性别，年龄，电话号码，备注，编号”；添加一个command控件，设置其caption属性值为”提交“。添加一个command2控件，设置其caption属性值为”返回系统主界面“。
（2）编写代码如下：
Private Sub glyxxcx_Click()
系统主界面.Hide
z = InputBox("请输入管理员使用的用户名")
 管理员删修界面.Text1.Text = ""
 管理员删修界面.Text2.Text = ""
 管理员删修界面.Text3.Text = ""
 管理员删修界面.Text4.Text = ""
 管理员删修界面.Text5.Text = ""
 管理员删修界面.Text6.Text = ""
 管理员删修界面.Text7.Text = ""
 管理员删修界面.Text8.Text = ""      &将管理员删修界面的8个文本框进行清空
Dim db As New ADODB.Connection      &与数据库建立连接
Dim rs As New ADODB.Recordset      &建立可用记录集
Dim sql As String
Dim x As String
Dim kk As New ADODB.Recordset      &建立可用记录集
db.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=I:\机放上机管理信息系统\会员表.mdb;Persist Security Info=False"      &建立连接数据库的路径
db.Open      &打开数据库
sql = "select * from 管理员表"      &查询管理员表里面的所有记录
rs.Open sql, db, adOpenStatic, adLockReadOnly      &打开所有查询所得的记录返回到记录集rs中
While rs.EOF = True      &给定循环语句里的条件
rs.MoveNext
Wend
If z = "" Then
系统主界面.Show
Else
x = "select * from 管理员表  where  用户名 = '" & z & "'"      &查询关于用户名为变量z的记录
kk.Open x, db, adOpenStatic, adLockReadOnly
 管理员删修界面.Text1.Text = kk.Fields(1).Value
 管理员删修界面.Text2.Text = kk.Fields(2).Value
 管理员删修界面.Text3.Text = kk.Fields(3).Value
 管理员删修界面.Text4.Text = kk.Fields(4).Value
 管理员删修界面.Text5.Text = kk.Fields(5).Value
 管理员删修界面.Text6.Text = kk.Fields(6).Value
 管理员删修界面.Text7.Text = kk.Fields(7).Value
 管理员删修界面.Text8.Text = kk.Fields(0).Value      &将查询所获得的记录的字段值输入到管理员删修界面相应的文本框里
 管理员删修界面.Show
End If
End Sub
Private Sub Form_Load()
Command1.Visible = False
End Sub
Private Sub 提交_Click()
Dim db As New ADODB.Connection      &与数据库建立连接
Dim rs As New ADODB.Recordset      &建立返回的可用记录集
Dim sql As String
Dim a As String
Dim z As String
db.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=I:\机放上机管理信息系统\会员表.mdb;Persist Security Info=False"      &建立与数据库建立连接的路径
db.Open      &打开库
sql = "select * from 管理员表"      &查询管理员表里面的所有记录
rs.Open sql, db, adOpenStatic, adLockReadOnly
rs.Close
z = InputBox("请在确认一下用户名")
a = "update 管理员表 set 用户名 = '" & Text1.Text & "',密码 = '" & Text2.Text & "',姓名= '" & Text3.Text & "',性别= '" & Text4.Text & "',年龄= '" & Text5.Text & "',电话号码= '" & Text6.Text & "',备注= '" & Text7.Text & "' where 用户名='" & z & "'"      &修改用户名为变量z的记录，其修改的值在管理员删修界面里面的文本框里取
rs.Open a, db, adOpenStatic, adLockReadOnly
MsgBox "你已经提交成功！"
Adodc1.Refresh      & Adodc控件更新
DataGrid1.Refresh      & DataGrid控件更新
DataGrid1.Visible = True      & DataGrid设置为可见
Frame1.Visible = False      & Frame设置为不可用
End Sub
Private Sub 删除_Click()
Dim j, x As String
x = InputBox("请在确认一下姓名")
 j = MsgBox("你确定要删除这条记录吗？")
 Dim db As New ADODB.Connection      &与数据库建立连接
Dim rs As New ADODB.Recordset      &建立可用的记录集
Dim sql As String
db.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=I:\机放上机管理信息系统\会员表.mdb;Persist Security Info=False"      &建立与数据库进行连接的路径
db.Open      &打开库
sql = "delete * from 管理员表 where 用户名 ='" & x & "'"      &删除用户名为变量z的记录
rs.Open sql, db, adOpenStatic, adLockReadOnly

MsgBox " 你已经成功删除记录"
Adodc1.Refresh      & Adodc控件更新
DataGrid1.Refresh      & DataGrid控件更新
DataGrid1.Visible = True      & DataGrid设置为可见
End Sub
Private Sub 返回系统主界面_Click()
系统主界面.Show
End Sub
管理员信息查询的实现过程，与会员信息查询的实现过程大同小异。当用户在想对管理员的信息进行查询的时候，就可以通过系统主界面上的管理员信息查询菜单来实现。当用户单击管理员信息查询菜单的时候，就会出现一个inputbox，这时候用户只需要输入用户就可对管理员的信息进行查询。系统会将查询到的信息，显示到管理员删修界面的文本框里面。如果用户想对查询到信息进行修改，则可以通过单击修改菜单然后根据提示进行修改。
如用户想对某个管理员的信息进行删除的话，则可以通过删除菜单来实现。
当用户进行一系列的操作之后。可以单击返回系统主界面安钮返回系统主界面。
4.7建立硬件维护界面
（1）加载窗体和控件，并设置起属性如下图4-7所示

图4-7  硬件维护界面
属性设置：将form的caption 属性设置为“维护界面“，其WINDOWSSTATE属性设为“2-Maximized”；在添加6个标签控件和6个文本框，6个标签控件的caption属性分别设置为“计算机编号，cpu型号，显卡型号，内存条型号，硬盘型号，备注“；添加一个command控件设置其caption属性为”关闭“。
（2）编写代码如下：

Private Sub wh_Click()
Dim a As String
a = InputBox("请输入你要进行维护的计算机的编号，以便于了解其所安装的硬件情况。")
Dim db As New ADODB.Connection      &与数据库建立连接
Dim rs As New ADODB.Recordset      &建立返回可用记录集
Dim sql As String
Dim kk As New ADODB.Recordset      &建立返回可用记录集
Dim b As String
db.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=I:\机放上机管理信息系统\会员表.mdb;Persist Security Info=False"      &建立与数据库进行连接的路径
db.Open      &打开库
If a = "" Then
 系统主界面.Show
Else
sql = "select * from 硬件表"      &查询硬件表里面的所有记录
rs.Open sql, db, adOpenStatic, adLockReadOnly
b = "select * from 硬件表 where 计算机编号 = '" & a & "'"      &查询计算机编号为变量z的记录
kk.Open b, db, adOpenStatic, adLockReadOnly
If 维护界面.Text2.Text = "text2" And 维护界面.Text3.Text = "text3" And 维护界面.Text4.Text = "text4" And 维护界面.Text5.Text = "text5" And 维护界面.Text6.Text = "text6" Then
MsgBox "没有此条记录！"
Else
维护界面.Text1.Text = kk.Fields(0).Value
维护界面.Text2.Text = kk.Fields(1).Value
维护界面.Text3.Text = kk.Fields(2).Value
维护界面.Text4.Text = kk.Fields(3).Value
维护界面.Text5.Text = kk.Fields(4).Value
维护界面.Text6.Text = kk.Fields(5).Value      &将查询的值显示在维护界面的文本框里面
维护界面.Show
End If
End If
End Sub
Private Sub Command1_Click()
维护界面.Hide
系统主界面.Show
End Sub
维护界面主要，要实现的就是查询各个计算机，.配备的硬件设备的情况。其实现过程就是用户在用鼠标单击系统主界面的维护的时候，就会提示用户输入计算机的编号。然后系统就会根据计算机的编号查询信息。将查询到的信息显示在维护界面的文本框内。
当用户浏览了信息以后，可以单击关闭然后返回到系统主界面。
4.8无卡通的实现
无卡通就是在管理端管理员对某一个帐号充值，然后在客户端用户只需要按确定就可登陆录的一种管理方式。其实现的代码如下：
Private Sub wkt_Click()
Dim t As String
t = InputBox("请输入金额进行开通")
Dim db As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim sql, a As String
db.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=I:\机放上机管理信息系统\会员表.mdb;Persist Security Info=False"
db.Open
sql = "update 会员表 set 剩余= '" & t & "'where 卡号='0102030'"
rs.Open sql, db, adOpenStatic, adLockReadOnly
End Sub

4.9结帐信息查询
所谓的结帐信息查询就是，用户输入会员的卡号后，系统就会根据卡号把与卡号对应的金额以msgbox的形式显示出来。其实现的代码如下：
Private Sub jz_Click()
Dim t As String
t = InputBox("请输入卡号")
Dim db As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim sql, a As String
If t = "" Then
MsgBox "对不请你没有输入卡号请重新查询！"
Else
db.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=I:\机放上机管理信息系统\会员表.mdb;Persist Security Info=False"
db.Open
sql = "select * from 会员表 where 卡号='" & t & "'"
rs.Open sql, db, adOpenStatic, adLockReadOnly
a = "所剩金额为" + rs.Fields(7).Value + "元"
MsgBox (a)
End If
End Sub
第五章．结论与展望
 对于系统功能的总结
 5.1登录功能
 1）在本系统中，在登录功能这一方面有两个块：一个就是会员登录；二就是管理员登录。在用户进行登录的时候，只要用户输入的是正确的卡号或用户名，在输入正确的密码系统就能够进行正确的登录。假如用户在输入卡号或者用户名后，没有输入密码就进行登录，那么系统会自动提示“输入有误请重新输入”。如果只输入密码就进行登录那么系统也会提示“输入有误请重新输入”的字样。假如输入有误那么系统也会给予相应的提示。在登录功能中还有一点是重要的。就是在会员登录的时候，假如管理员实行的是无卡通的话用户可以单击确定即可登录。
 2）但是此功能的不足之处在于，当用户输入密码时就登录时，系统给予的提示与只输入卡号或用户名就登录的提示是一样的。
 5.2会员注册功能
 1）本系统的会员注册功能，是针对会员用户而言的。就是当有人员需要上机时，管理员对用户信息的登记记录。其操作步骤如下：
单击系统主界面的会员注册菜单；
在单击过后出现的framle里面填写信息；
单击提交按钮进行提交；
在系统主界面的datagrid中浏览刚才添加的记录是否已经添加；
注：在进行单击后，这时主界面上就会出现framle。当信息填写好了点提交以后framle就会自动隐藏。在会员注册功能中当用户单击了会员注册菜单，但是却不填写信息就进行提交，那么系统就不会给予注册且会进行提示“没有输入信息不能进行注册”。
2）此功能的不足之处在于，当填写信息的时候，在文本框里面输入的是错误的数据类型时系统不能给予提示，这是会员注册功能的最大弊端。希望在将来这个问题可以得到很好的解决。
5.3会员信息查询
1）会员信息查询，就是对于会员信息的查询浏览，以便于进行进一步的操作的一项查询功能。其操作的步骤如下：
 1）在主系统界面上单击会员信息查询菜单；
 2）在弹出的inputbox里面输入要查询的会员的卡号，然后单击确定
 3）单击确定与卡号相对应的会员信息，就会显示在会员删修界面的文本框内。
 4）在会员删修界面上，可以通过修改菜单根据提示，对查询的信息进行修改；也可以通过菜单对每一个会员信息进行删除。
2）会员信息查询功能的不足，在于后台代码的不完善。因为在进行对会员信息查询的时候，当用户在inputbox输入的卡号是数据库里面不存在或者是不输入那么系统就不会执行后面的操作。
 会员信息查询功能的不足，还体现在修改信息的填写。与会员注册一样，如果在文本框内，输入的是与数据库内不匹配的数据，系统也不能进行提示，而且也不能进行区分。
 以上的这两点，就是会员信息查询功能最大的缺点，希望在以后的研究中这些缺点能被很好的解决。
5.4管理员信息查询
管理员信息查询功能，在实质上是与会员信息查询功能一样的，只是在某些操作的饿细节上有所不同，具体的操作步骤如下：
 1）在主系统界面上单击管理员信息查询菜单；
 2）在弹出的inputbox里面输入要查询的管理员的用户名，然后单击确定
 3）单击确定这时与用户名相对应的管理员信息，就会显示在管理员删修界面的文本框内。
 4）同样的在管理员删修界面上，可以通过修改菜单根据提示，对查询的信息进行修改；也可以通过菜单对每一个管理员信息进行删除。
2）管理员信息查询功能存在着与会员信息查询功能一样的缺点。
5.5结账信息查询
结账信息查询，实质是对会员的所剩的金额进行的查询。其操作步骤为：
 1）在系统主界面上单击结账信息查询
 2）在弹出的inputbox里面输入卡号
 3）在弹出的msgbox上浏览所剩金额
 5.6无卡通与维护
 1）无卡通就是管理员，对数据库里面的一个专门的用户进行充值。而此时会员在登录的时候，只需要单击确定就可以进行登录了。当管理员再次对那个用户的所剩金额，进行修改为“0”那么此时会员登录的虚拟操作界面，就会自动关闭。
 2）维护实质上是对机房内的计算机，所配的硬件信息进行查询。简单的说就是一个查询
 维护功能的操作步骤如下：
单击维护就会弹出一个inputbox，此时输入计算机的编号，然后单击确定；
与卡号相对应的信息就会显示在维护界面上
在今后的研究中，希望能够把现在系统中存在的问题，都一一解决让系统更加完善。

参考文献
A 《visual basic 6.0中文版》
B 《管理信息系统与现代技术》
 C
 致谢
 本次设计历经数月，设计中的许多思想和观点来源于互联网、专家和老师的研究结果。非常感谢对我思想产生深远影响的老师和朋友们。这里我要特别感谢赵宏老师和陈阳老师，给予的精心指导。
 老师的务实的态度和严谨的求学精神深深的影响到我们每个成员。老师的鼓励、建设性的反馈和有价值的评论是本论文增色不少。
 也感谢所有教过和指导过我的老师，因为他们的理念和精神对我们的设计大有益处。

相关论文