网吧计费管理系统

1、 课课程程设设计计说说明明书书题目：网吧计费管理系统院 系：信息技术系 专业班级： 08 计算机科学与技术学 号： 学生姓名： 指导教师： 2010 年年 6 月月 20 日日 目 录第一章概述 .41.1 概述 .4第二章.系统分析 .62.1 需求分析 .62.1.1 开发的背景 .62.1.2 功能简介 .62.1.3 实现平台 .72.2 系统分析 .72.2.1 系统分析的概念 .72.2.1.1 系统分析阶段的目标.72.2.1.2 系统分析工作活动以及特点.72.2.2 系统的可行性研究 .72.2.2.1 开发网吧计费管理系统的经济可行性研究.72.2.2.2 开发网吧计费管理

2、系统的技术可行性研究.72.2.2.3 开发网吧计费管理系统的操作可行性研究.82.2.3 网吧计费管理系统逻辑模型的提出 .82.2.3.1 业务流程图.82.2.3.2 数据流图.9第三章系统设计 .103.1 系统设计的含义 .103.2 系统设计的任务 .103.3 系统设计的原则 .103.4 系统设计的目标和功能 .103.4.1 系统功能描述 .113.5 总体设计 .123.5.1 总体设计中的问题 .123.5.2 子系统的划分和确认 .123.6 代码设计 .133.6.1 代码设计的原则 .133.6.2 代码结构的类型 .133.6.3 代码设计的步骤与方法 .143.

3、6.4 本系统中的代码设计 .143.7 二维表 .143.8 数据字典 .153.9 功能实现过程 .15第四章系统实现与转换 .174.1 建立系统主界面 .174.2 建立会员信息查询界面 .184.3 建立管理员信息查询界面 .224.4 建立硬件维护界面 .26第五章结论 .285.1 会员信息查询 .285.2 管理员信息查询28 5.3 维护29网吧计费管理系统网吧计费管理系统第一章概述第一章概述1.1 概述： 随着计算机技术的成熟和计算机的网络的普及,计算机的应用在生活中随处可见, 网吧已成为大众生活的一部分，网吧的出现同时也带来了计时计费的问题。 网吧计费管理系统就是针对此问

4、题而开发的系统，它主要面向网吧、电子阅览室，在计费管理上体现出一定的优越性，可以实现轻松管理，并且实现效益最大，效益可持续化的多重需要。网吧计费管理系统以计算机为工具，通过对上机管理所需的信息管理，把管理人从繁琐的数据计算处理中解脱出来，网吧计费管理系统是一个实时人机系统，它要求要有较高的可靠性、可适应性、扩充能力。系统采用了先进的软、硬件结合的方式。客户端采用硬件模式，通过硬件级的底层网络登录与身份验证相结合, 达到安全性。管理端采用软件模式，主要管理网吧的上机业务，它的主要功能模块包括，系统管理、用户结帐管理、电脑与计算机信息管理、日常管理、新会员办理管理、用户信息的维护管理、管理员信息的

5、维护管理、用户权限管理以及实行跨平台管理等。本系统是一个运行在局域网上的子系统，能够直观、方便、有效、可靠地管理通过局域网联在一起的所有机器，它具有以下优点： 1.不用人守：系统通过提供强大的功能，最大限度降低网吧管理员的工作量，它能够做到自动判断上网者是否已经注册会员、会员卡上金额是否足够、以及通过验证上网者的身份来确定是否允许上网者使用机器，随时判断上网者卡上的当前金额还能上机多久，当卡上剩余金额低于系统规定的限额时，系统会提前 5 分钟提示上网者，请准备下机，5分钟后，系统会自动将上网者所用的机器电源关掉。上网者下机时，系统自动计算并扣除上网者的上机费用；同时自动将该上网者所用的机器电源

6、关掉。2.方便管理：本系统采用友好的界面，能够帮助网吧管理员方便有效地对网吧进行管理。系统详细提供网吧所有机器的使用状况，如登录时间、总金额、消费金额、现剩余金额等信息，使网吧管理人员对每台客户机使用状况一目了然；同时系统提供强大的管理功能，网吧管理员能够方便有效地对网吧内任意机器进行管理，如发消息、禁止使用等。一次可以选中一台机器进行管理操作，也可以同时选中多台机器进行管理操作。系统还提供可追踪的历史记录，如上网者上机的历史记录，还包括上网者在办理会员卡后忘记密码，这时就可根据上网者最初的原始记录，查找出密码。上网者上机的历史记录使得网吧管理人员对上网者使用机器状况有清晰的了解，对机器出现的

7、故障能够追究责任到个人。对上网者消费金额的变动提供了有迹可寻的记录。 3.功能强大：网吧使用安排灵活方便，自由安排机时单价，具有预定座位功能，环境要求低，适应能力强，无须特殊的配置或者专门的服务器。本系统充分考虑了用户环境各种可能出现的情况，提供灵活的应变措施，充分利用网吧的网络资源，对网吧进行有效的管理。即使网吧的网络发生故障，不能正常工作，系统仍然能够在各个单机上独立地对机器资源进行安全控制、计算上机费用、并登记使用情况。4.查询功能：本系统充分考虑到管理的需要，从网吧管理员、上网者上机、两个层面提供了完善的查询功能。从网吧管理员角度，系统提供了有关任意机器在任意范围时间内的使用情况、使用

8、者信息方面的详细信息。从上网者上机角度，系统提供了个人在任意时间范围内的缴费情况、消费情况及剩余金额等信息，高级别的安全管理机制。5.安全机制：系统提供了方便高效的用户授权机制，加强了对用户身份的识别，避免未经授权的用户越权使用系统。vb+access 的使用使得系统的数据不会轻易被外界恶意的攻击破坏，简单易懂，使用方便，身份识别有效者方可上机，同一身份在同一时段不可复用，可有效防止密码盗用，确保用户资金安全。6.跨平台管理：系统能够同时在客户机和服务器机上进行控制和管理，实现跨平台管理。并具有系统的可扩充性.第二章第二章. .系统分析系统分析2.1 需求分析：2.1.1 开发的背景：针对网吧

9、内机子太多，上网人数也比较多，网吧管理人员对于网吧的管理杂乱无章。工作进行的非常不便。有时在进行对机子的开机或者办理会员，以及对机子维护时存在着工作的不便。其主要有以下几点：1.在整个上机过程中，管理人员需随时进行上下机登记、超时检查等工作，特别是在上下机高峰或网吧较大，微机台数较多的情况下，更是忙成一团，往往要安排多人值班才行，造成管理混乱和费用增大的问题。2. 由于上机是收费服务的，所以免不了要进行经济方面的核算。不论是上机使用的钞票还是使用会员卡进行登记，都存在着伪造和人为因素的徇私舞弊行为的极大可能性，无法进行有效、准确、方便的财务核查和统计工作，必然造成经济损失和难于管理。3.因缺乏

10、完备的上机档案记录，网吧无法对网吧的运作进行便捷的统计分析。2.1.2 功能简介：对于以上所提出的问题，越来越多的网吧老板意识到网吧信息化管理的重要性、必要性，并逐步引进稳定性好的、简单易用、方便管理、具有人性化的软件系统。为了网吧在管理上能减少这种杂乱无章的局面，又能让网吧管理的工作更具人性化的一面。为此我们将开发一套针对于管理网吧的软件-网吧计费管理系统。1.查询功能：我们想到能让系统的管理在查询方面有一定的功能。我们将在系统中开发查询这一功能。这一功能将完成两方面的大的工作就是对网吧内的机子状态进行查询还就是对会员进行查询。对会员的记录的查询可以根据用户提供的证件进行查询。管理员还可以对

11、某一个用户进行查询以后对他的记录进行删除、修改、充值等操作。2.硬件管理：除以上所说的功能以外我们还将对计算机的硬件设备进行管理。也就是说我们将要对每一台机子 cpu 网卡 显卡等等的硬件设备进行统计存入数据库中去。进行这方面的统计管理是为了在以后对机子的维护提供一些信息，这样就对今后的计算机的维护提供了方便。2.1.3 实现平台：本系统的功能实现是通过 vb+access 来实现的我们通过在服务器上用 access 来建立后台数据库，然后在应用 vb6.0 来实现系统工作界面的制作。而在客户服务器上也是应用 vb6.0来实现界面的制作只不过对于程序的数据调用是通过调用服务器的后台数据来实现的

12、。2.2 系统分析：2.2.1 系统分析的概念：“分析”通常是指对现有系统的内、外情况进行调查、分析、研究、分解、剖析，以明确问题或机会所在，认识解决这些问题或把握这些机会的必要性，为确定有关活动的目标和可能的方案提供科学依据。系统分析也指应用系统思想和系统科学的原理进行分析工作的方法与技术。2.2.1.1 系统分析阶段的目标：系统分析阶段的目标，就是按系统规则所定的某个开发项目范围内明确系统开发的目标和用户的信息需求，提出系统的逻辑方案。系统分析在整个开发过程中，是要解决：“做什么”的问题，把要解决哪些问题，满足用户哪些具体的信息需求调查分析清楚，从逻辑上，或者说从信息处理的功能需求上提出系

13、统的方案，即逻辑模型，为下一阶段进行物理方案（即计算机和通信系统方案）设计，解决：“怎么做”提供依据。2.2.1.2 系统分析工作活动以及特点：系统分析阶段的主要活动有：系统初步调查、可行性研究、系统详细调查、新系统逻辑方案的提出。系统分析工作的特点：1、工作内容涉及面广，不确定性大。2、系统分析工作主要面向组织管理问题，工作方式主要是和人打交道。3、系统分析的主要成果是文件。4、系统分析工作追求的是有限目标。2.2.2 系统的可行性研究：2.2.2.1 开发网吧计费管理系统的经济可行性研究：网吧是向社会公众开放的营利性上网服务提供场所，上网的人员日渐增多，网吧的管理十分不便，开发此软件可以有

14、效地减少管理劳动力，从而节约很大一部分管理经费，在经济上是可行的。2.2.2.2 开发网吧计费管理系统的技术可行性研究： 网吧计费管理系统是比较简便的软件，我们是计算机专业的学生，有一定的编程经验，可以将其开发出来，在技术上是可行的。2.2.2.3 开发网吧计费管理系统的操作可行性研究：网吧管理系统是个比较简单的软件，拥有一定电脑知识的人都可以使用。网吧管理系统就是一个使用少量的工作人员对网吧进行管理。只要系统开发使用后我们就可以使用较少的管理人员和维护人员来完成网吧里的工作。在操作上是可行的。2.2.3 网吧计费管理系统逻辑模型的提出：系统分析阶段的任务是明确系统功能。通过对现行系统的调查分

15、析，抽象出现行系统的逻辑模型，分析其存在的问题。2.2.3.1 业务流程图：充值网吧有无有用户信息校验用户信息清单查询是否有记录用户信息表删除修改注册上机用户上机管理上机信息表上机信息图 2-1 业务流程图有2.2.3.2 数据流图：用户操作计算机姓名类型身份证号证件性别金额时间上机时间下机时间日期编号cpu 型号显卡型号硬盘型号内存条型号图 2-2e-r 图第三章系统设计第三章系统设计3.1 系统设计的含义：系统设计就是根据新系统的逻辑模型建立物理模型，是一个根据新系统逻辑功能的要求，考虑企业的实际情况，详细地确定新系统的结构和具体实施方案的过程。如果说系统分析解决了“系统干什么”的问题，那

16、么系统设计就是解决“怎么干” 。3.2 系统设计的任务：系统设计的任务就是要依据系统分析阶段产生的文档资料，采用正确的方法确定新系统在计算机内应该由哪些程序模块组成，它们之间用什么方式联结在一起以构成一个最好的系统机内结构，同时还要使用一定的工具将所设计的成果表达出来。另外，考虑到实现系统功能的需要，还要进行数据库的详细设计、编码设计、输入输出设计、人机界面设计、系统的安全设计等。3.3 系统设计的原则：1、简单性2、一致性和完整性3、灵活和适应性4、可靠性5、安全性6、经济性3.4 系统设计的目标和功能：系统设计就是根据新系统的逻辑模型建立物理模型，解决“怎么干”的问题。具体的是什么呢？就是

17、根据系统分析所调查得到的资料，进行进一步的具体化的划分。其实在系统设计里面所要做的东西，与系统分析里面的内容是大同小异的。只是在系统设计里面把那些内容给具体化了。利用分析工具和其他的工具用图形和文字的形式，把系统所要达到的功能展现出来，让用户能够看到的明白。我们可以用下图（2-3）来对系统的功能进行描述。下图是一张在系统分析阶段的功能结构图。它为我们展示了一下系统的大的功能模块的情况。但是我们可以通过这张图，来描述一下系统的功能。关于2-3 总体设计网吧计费管理系统查询信息用户管理维护用户注册用户信息查询用户登录硬件信息查询硬件维护会员注册管理员登录管理员注册会员登录管理员信息会员信息结帐信息

18、查询3.4.1 系统功能描述：通过这张图我们可以看出系统主要，要实现的是什么。系统主要实现是对用户的管理、对信息的处理、对系统的维护管理的功能。在对用户的管理的功能方面，又分为对会员的管理和对管理员的管理这两方面。然而在每一方面又分为登陆管理和注册管理。在对于信息的处理方面呢，就是对信息的查询处理。它主要又分为三个方面的处理：1、对于用户信息的查询处理2、对于上机用户结账信息的查询处理3、对于硬件信息的查询处理这三个功能主要是对信息查询后，便于对用户进行注册操作和对计算机的维护工作。在对于系统维护这一个方面主要是对计算机的硬件的维护。这一功能的实现，首先要通过对计算机信息的查询后在进行操作工作

19、。为什么要进行先查询在操作呢？这是为了能让维护人员知道，需要维护的计算机它所配的硬件是什么型号的，在库存里面还有没有相应的硬件设备。3.5 总体设计：3.5.1 总体设计中的问题：总体结构设计需要从软硬件两方面描述系统的总体结构，需要考虑以下问题:1、如何将系统总体划中划分的子系统更合理的区别和确认2、如何将子系统划分为若干模块3、模块间的数据传送和调用关系4、如何评价模块结构的质量5、采用怎样的网络拓扑结构6、如何进行设备和网络的配置3.5.2 子系统的划分和确认：1系统划分的原则：（1）子系统要具有相对独立性。（2）使数据冗余较小。（3）便于系统分阶段实现。（4）适应组织管理机构的设置。（

20、5）充分利用各种资源。2系统划分的方法：（1）按职能划分（2）按逻辑功能划分（3）按通信划分（4）按业务处理顺序划分（5）按业务处理的时间关系划分关于2-3 总体设计网吧计费管理系统查询信息用户管理维护用户注册用户信息查询用户登录硬件信息查询硬件维护会员注册管理员登录管理员注册会员登录管理员信息会员信息结帐信息查询3.6 代码设计：3.6.1 代码设计的原则：设计好的代码体系，必须符合以下一些要求：1、唯一确定性。保证没一个被表示的实体有而且只有一个确定的代码。2、标准化与通用性。应尽量采用上级部门规定的编码标准，列如行业编码、部委与国家标准编码等。系统内部的代码必须是统一的和规范。3、可扩充

21、性和稳定性。代码的结构和编码规则要考虑一段时期的不变性和日后增加代码对象的适应性。尽量避免代码体系的变动而引致数据存储结构及程序系统的大修改。4、便于识别和记忆。充分运用各种结构的符号组合和编码技巧，使代码不仅具有逻辑含义，而且便于识别和记忆。5、力求短小与格式统一。在不影响使用的前提下，应尽量缩短代码的长度和使同类代码在格式上的统一。这不仅是为了让用户容易掌握和运用，更重要的是要提高计算机存储和处理数据的效率。6、容易修改。在需要时应能方便地对某些代码进行调整或修改。3.6.2 代码结构的类型：1、顺序码2、区间码 1）层次码 2）十进制码3）特征码3、 助记码4、 缩写码3.6.3 代码设

22、计的步骤与方法：1、 确定代码化实体2、 代码结构设计3、 确定编码规则4、 实施编码5、 建立计算机代码体系3.6.4 本系统中的代码设计：1、 本系统是针对网吧管理而开发的。所以在对数据库的代码的设计时，对于上机的会员号，采用的是区间码中的层次码。采用层次码可以很快的知道上机用户的大概身份，这样对于一些突发事件的发生，就可以很快的知道一些信息以便于进行处理。因为在网吧里，每台电脑都有自己的编号。在进行代码设计的时候，就可以将电脑的编号放在前面，再把个人的编号放在后面这样就实现了代码的设计。2、 对于系统采用层次码，还有一个很好的好处。就是便于记忆，用户们不需要把全部的数字记住，只需要记住后

23、面的数字即可。3、 系统的数据库的代码设计，具体请看数据字典。3.7 二维表：管理员表用户名密码姓名性别年龄电话号码备注会员表卡号密码姓名性别证件号类型剩余状态硬件表计算机编号cpu 型号显卡型号内存条型号硬盘备注3.8 数据字典：（1）管理员表名称类型大小可否为空是否为主键用户名char9否可密码int15否否姓名char8否否性别char2否否年龄int2否否电话号码int12否否备注memo50可否（2）会员表名称类型大小可否为空是否为主键卡号int9否是密码int15否否姓名char8否否性别char2否否证件号int18否否类型char10否否剩余dec3.2否否状态char4否否（

24、3） 硬件管理表名称类型大小可否为空是否为主键计算机编号int2否是cpu 型号int7否否显卡型号int7否否内存条型号int7否否硬盘int7否否备注memo50可否3.9 功能实现过程：功能一 信息查询：信息的查询分的是三方面的查询： 一 、是对用户信息的查询 二、 是对计算机状态的查询三、 是对计算机硬件设备的查询对于查询功能来说，都会根据一定的条件来进行查询。所以我们在进行开发的时候，都是采用的在菜单中选择已经设定好的条件来进行查询。无论用户单击哪个，都是使用界面查询的方式来进行信息的查询。功能二 硬件管理：硬件管理功能主要的目的，就是为维护人员在进行维护工作时提供方便。因为硬件管理

25、，所管理的是计算机上所安装的一些硬件设备的信息。这个功能的实现也是采用的界面的形式来完成的。当维护人员把所要维护的计算机的编号输入进行查询后，在使用界面的形式反馈出来。第四章系统实现与转换第四章系统实现与转换建立程序界面、编写程序代码。建立程序界面时，通常要建立主界面窗体，然后利用”菜单编辑器”建立主菜单系统，利用工具条控键建立工具条，最后根据菜单选项的需要分别建立各窗体和对话框。4.1 建立系统主界面：（1）载窗体 frm 开始，设置属性如下：caption 属性设置为“系统主界面“；windowsstate 属性设置为“2-maximized”（2）建立主菜单系统：该程序的主菜单系统个菜单

26、项及其选项的具体设置如表 4-1 所示：表 4-1 程序主菜单选项设置一览表菜单项标题名菜单级别会员注册一级查询标题会员信息查询一级管理员信息查询一级结帐信息查询一级（3）系统主界面如图 4-3 所示：维护一级图 4-3 系统主界面4.2 建立会员信息查询界面：（1）加载窗体和控件，并设置起属性如下图 4-5 所示：图 4-5 会员信息查询界面属性设置：将 form 窗体的 caption 的值设为会员删修界面, 其 windowsstate 属性设为“2-maximized” ；用菜单编辑器编辑两个一级菜单分别是“删除”和“修改” ；在界面上添加一个datagride 控件，在进行字段检索；

27、添加一个 adodc 控件；添加一个 framle 控件设置其caption 属性为“要修改的信息” ；在 framle 控件里放置 8 个标签和 8 个文本框，8 个标签的caption 属性分别设置为“卡号，密码，姓名，性别，证件号，类型，剩余，状态” ；添加一个command1 控件，设置其 caption 属性值为”提交“。添加一个 command2 控件，设置其 caption属性值为”返回系统主界面“。（2）编写代码如下：private sub hyxxcx_click()系统主界面.hidec = inputbox(请输入卡号！)dim db as new adodb.conne

28、ctiondim rs as new adodb.recordsetdim jj as new adodb.recordsetdim sql as stringdb.connectionstring = provider=microsoft.jet.oledb.4.0;data source=i:机放上机管理信息系统会员表.mdb;persist security info=falsedb.opensql = select * from 会员表rs.open sql, db, adopenstatic, adlockreadonlyif c = then &假设变量 c 的值为空则执行

29、下列语句系统主界面.showelsed = 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.tex

30、t = jj.fields(5).value 会员删修界面.text6.text = jj.fields(6).value 会员删修界面.text7.text = jj.fields(7).value 会员删修界面.text8.text = jj.fields(8).value &将查询所得记录的字段值显示在会员删修界面对应的文本框中 会员删修界面.show end ifend subprivate sub xg_click()msgbox 你是否确定要进行修改？frame1.visible = truecommand1.visible = truemsgbox 请杂文本框中填写你要修

31、改的项后单击提交end subprivate sub 提交_click()dim db as new adodb.connection &与数据库建立连接dim rs as new adodb.recordset &声明可用记录集dim sql as stringdim z as stringdb.connectionstring = provider=microsoft.jet.oledb.4.0;data source=i:机放上机管理信息系统会员表.mdb;persist security info=false &连接数据库的路径db.open &打开库s

32、ql = select * from 会员表 &查询会员表里面的所有记录rs.open sql, db, adopenstatic, adlockreadonly &打开记录rs.closez = inputbox(请在确认一下卡号) &在修该信息填写好以后在次输入卡号进行确认a = update 会员表 set 卡号 = & text1.text & ,密码 = & text2.text & ,姓名= & text3.text & ,性别= & text4.text & ,证件号= & text5

33、.text & ,类型= & text6.text & ,剩余= & text7.text & ,状态= & text8.text & where 卡号= & z & &修改卡号等于 inputbox 里面的值的记录，其对应字段的值在文本框里面取rs.open a, db, adopenstatic, adlockreadonly &打开记录集与数据库的连接msgbox 你已经提交成功！adodc1.refresh & adodc 控件更新1.refresh &datagrid 控件更新da

34、tagrid1.visible = true &datagrid 设置为可见frame1.visible = false & frame 设置为不可见end subprivate sub 删除_click()dim j, x as stringx = inputbox(请在确认一下卡号) j = msgbox(你确定要删除这条记录吗？) dim db as new adodb.connection &与数据库建立连接dim rs as new adodb.recordset &声明可用记录集dim sql as stringdb.connectionstring

35、 = 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 控件更新dat

36、agrid1.refresh &datagrid 控件更新datagrid1.visible = true &datagrid 设置为显示end subprivate sub 返回系统主界面_click()会员删修界面.hide系统主界面.showend sub会员信息查询的实现过程，就是当用户在系统主菜单上，用菜单会员信息查询的时候，就会弹出一个 inputbox 叫用户输入要查询相关会员的卡号。这时系统就会根据卡号从数据库中，查询出相关信息。这些信息就会被显示在会员删修界面上的文本框里。当用户想对查询出来的信息进行修改时，可以单击菜单修改，然后根据提示进行操作。如果用户还想

37、对某个会员的信息进行删除的话，可以用菜单删除，只须要输入会员的卡号即可。4.3 建立管理员信息查询界面：（1）加载窗体和控件，并设置起属性如下图 4-6 所示：图 4-6 管理员信息查询界面属性设置：将 form 窗体的 caption 的值设为管理员删修界面, 其 windowsstate 属性设为“2-maximized” ；用菜单编辑器编辑两个一级菜单分别是“删除”和“修改” ；在界面上添加一个datagride 控件，在进行字段检索；添加一个 adodc 控件；添加一个 framle 控件设置其caption 属性为“要修改的信息” ；在 framle 控件里放置 8 个标签和 8 个

38、文本框，8 个标签的caption 属性分别设置为“卡号，密码，姓名，性别，年龄，电话号码，备注，编号” ；添加一个 command 控件，设置其 caption 属性值为”提交“。添加一个 command2 控件，设置其caption 属性值为”返回系统主界面“。（2）编写代码如下：private sub glyxxcx_click()系统主界面.hidez = inputbox(请输入管理员使用的用户名) 管理员删修界面.text1.text = 管理员删修界面.text2.text = 管理员删修界面.text3.text = 管理员删修界面.text4.text = 管理员删修界面.t

39、ext5.text = 管理员删修界面.text6.text = 管理员删修界面.text7.text = 管理员删修界面.text8.text = &将管理员删修界面的 8 个文本框进行清空dim db as new adodb.connection &与数据库建立连接dim rs as new adodb.recordset &建立可用记录集dim sql as stringdim x as stringdim kk as new adodb.recordset &建立可用记录集db.connectionstring = provider=microsoft

40、.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.movenextwendif z = then系统主界面.showelsex

41、 = 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.fie

42、lds(5).value 管理员删修界面.text6.text = kk.fields(6).value 管理员删修界面.text7.text = kk.fields(7).value 管理员删修界面.text8.text = kk.fields(0).value &将查询所获得的记录的字段值输入到管理员删修界面相应的文本框里 管理员删修界面.showend ifend subprivate sub form_load()command1.visible = falseend subprivate sub 提交_click()dim db as new adodb.connection

43、 &与数据库建立连接dim rs as new adodb.recordset &建立返回的可用记录集dim sql as stringdim a as stringdim z as stringdb.connectionstring = provider=microsoft.jet.oledb.4.0;data source=i:机放上机管理信息系统会员表.mdb;persist security info=false &建立与数据库建立连接的路径db.open &打开库sql = select * from 管理员表 &查询管理员表里面的所有记录rs

44、.open sql, db, adopenstatic, adlockreadonlyrs.closez = inputbox(请在确认一下用户名)a = update 管理员表 set 用户名 = & text1.text & ,密码 = & text2.text & ,姓名= & text3.text & ,性别= & text4.text & ,年龄= & text5.text & ,电话号码= & text6.text & ,备注= & text7.text & where

45、用户名= & z & &修改用户名为变量 z 的记录，其修改的值在管理员删修界面里面的文本框里取rs.open a, db, adopenstatic, adlockreadonlymsgbox 你已经提交成功！adodc1.refresh & adodc 控件更新datagrid1.refresh & datagrid 控件更新datagrid1.visible = true & datagrid 设置为可见frame1.visible = false & frame 设置为不可用end subprivate sub 删除_click(

46、)dim j, x as stringx = inputbox(请在确认一下姓名) j = msgbox(你确定要删除这条记录吗？) dim db as new adodb.connection &与数据库建立连接dim rs as new adodb.recordset &建立可用的记录集dim sql as stringdb.connectionstring = provider=microsoft.jet.oledb.4.0;data source=i:机放上机管理信息系统会员表.mdb;persist security info=false &建立与数据库进行连

47、接的路径db.open &打开库sql = delete * from 管理员表 where 用户名 = & x & &删除用户名为变量 z 的记录rs.open sql, db, adopenstatic, adlockreadonlymsgbox 你已经成功删除记录adodc1.refresh & adodc 控件更新datagrid1.refresh & datagrid 控件更新datagrid1.visible = true & datagrid 设置为可见end subprivate sub 返回系统主界面_click()系统

48、主界面.showend sub管理员信息查询的实现过程，与会员信息查询的实现过程大同小异。当用户在想对管理员的信息进行查询的时候，就可以通过系统主界面上的管理员信息查询菜单来实现。当用户单击管理员信息查询菜单的时候，就会出现一个 inputbox，这时候用户只需要输入用户就可对管理员的信息进行查询。系统会将查询到的信息，显示到管理员删修界面的文本框里面。如果用户想对查询到信息进行修改，则可以通过单击修改菜单然后根据提示进行修改。如用户想对某个管理员的信息进行删除的话，则可以通过删除菜单来实现。当用户进行一系列的操作之后。可以单击返回系统主界面安钮返回系统主界面。4.4 建立硬件维护界面：（1）

49、加载窗体和控件，并设置起属性如下图 4-7 所示：图 4-7 硬件维护界面属性设置：将 form 的 caption 属性设置为“维护界面“，其 windowsstate 属性设为“2-maximized” ；在添加 6 个标签控件和 6 个文本框，6 个标签控件的 caption 属性分别设置为“计算机编号，cpu 型号，显卡型号，内存条型号，硬盘型号，备注“；添加一个 command 控件设置其 caption 属性为”关闭“。（2）编写代码如下：private sub wh_click()dim a as stringa = inputbox(请输入你要进行维护的计算机的编号，以便于了解

50、其所安装的硬件情况。)dim db as new adodb.connection &与数据库建立连接dim rs as new adodb.recordset &建立返回可用记录集dim sql as stringdim kk as new adodb.recordset &建立返回可用记录集dim b as stringdb.connectionstring = provider=microsoft.jet.oledb.4.0;data source=i:机放上机管理信息系统会员表.mdb;persist security info=false &建立与数据库进行连接的路径db.open &打开库if a = then 系统主界面.showelse