计算机机房自动计费系统毕业论文

计算机机房自动计费系统

某某邓小龙班号院系 远程与继续教育学院 同组某某无 指导教诲 郭胜

1 / 41

word 目 录

摘要………………………………………………………………………………………………4 引言………………………………………………………………………………………………5 1 系统概述………………………………………………………………………………………6 1.1 系统特点…………………………………………………………………………………6 1.2 系统实用性………………………………………………………………………………7 1.3 相关技术简介……………………………………………………………………………7

1.3.1 数据库根底知识……………………………………………………………………7 1.3.2 MS SQL Server简述…………………………………………………………………7 2 需求分析………………………………………………………………………………………9 2.1 可行性研究………………………………………………………………………………9 2.1.1 经济可行性…………………………………………………………………………9 2.1.2 技术可行性…………………………………………………………………………9 2.1.3 操作可行性…………………………………………………………………………9 2.1.4 社会效益可行性……………………………………………………………………9 2.2 系统的数据流图(DFD)…………………………………………………………………9 2.3 数据字典…………………………………………………………………………………11 2.4 系统业务流程图…………………………………………………………………………12 3 系统数据库设计………………………………………………………………………………14 3.1 概念设计…………………………………………………………………………………14 3.1.1 设计局部ER模式…………………………………………………………………14 3.1.2 设计全局ER模式…………………………………………………………………16 3.2 关系数据库的物理设计…………………………………………………………………17 4系统结构设计…………………………………………………………………………………22 4.1 客户/服务器系统的结构………………………………………………………………22 4.2 系统的网络结构………………………………………………………………………22 4.3 功能模型………………………………………………………………………………22 5 应用软件的开发与设计……………………………………………………………………24 5.1 VB应用程序开发步骤………………………………………………………………24

2 / 41

word 5.2 主要窗体的实现………………………………………………………………………24 5.2.1 服务器端主要窗体的实现………………………………………………………24 5.2.2 客户端主要窗体的实现…………………………………………………………36 6 系统使用说明书……………………………………………………………………………38 6.1 系统运行环境………………………………………………………………………38 6.1.1 硬件配置………………………………………………………………………38 6.1.2 软件配置………………………………………………………………………38 6.1.3 系统的安装和运行………………………………………………………………38 6.2 系统操作说明书……………………………………………………………………38 结论……………………………………………………………………………………………39 致谢……………………………………………………………………………………………40 参考文献………………………………………………………………………………………41

3 / 41

word 摘 要

计算机机房管理系统作为现行计算机机房管理必不可少的组成局部，将机房的机器资源合理分配、统一管理，提高设备利用率，使机房的管理质量得到有力保证。现代化、信息化、自动化的计算机机房的目标是：实现计算机机房开放式管理与无人〔少人〕值守，最大限度地减轻管理员的压力；通过会员注册、合理安排学生上下机、自动计费等根本解决计算机机房使用顶峰期学生拥堵现象，为学生上机提供方便。

本系统为管理员管理计算机机房的日常经营提供方便的管理平台.通过本系统的管理可以便捷的操作上机,换机,远程控制,会员管理,结帐，购置商品，查询营业状况等一系列计算机机房日常经营事项。其开发内容主要包括后台数据库的建立和维护以与前端应用程序的开发两个方面。利用Microsoft SQL Server2000数据库软件，建立完整性强、安全性好的数据库，利用Visual Basic 6.0开发出功能完备，易使用的应用程序。该程序界面友好、方便易用。尤其是系统的“远程控制模块〞的功能极大的减轻工作人员的工作量，提高了计算机机房管理工作的效率。

关键词：

计算机机房管理； Visual Basic6.0； Microsoft SQL Server 2000； C/S结构

4 / 41

word 引 言

随着科学技术的不断提高，计算机科学日渐成熟,其强大的功能已为人们深刻认识，它已进入人类社会的各个领域并发挥着越来越重要的作用。作为计算机应用的一局部，使用计算机对学校的各项事务进展科学化的管理有着无法比拟的优点。例如:查找方便、迅速、可靠性高、存储量大、某某性好、寿命长、本钱低等。这些优点能够极大地提高学校、单位等的工作效率，也是未来开展的管理科学化、正规化的重要条件。

学校计算机机房几乎担任了学校全部的计算机公共课程的上机实践、考试和等级考试等工作，因此，机房管理是否完善直接涉与到学生多门课程的学习，在一定程度上反映了学校给学生提供的信息环境状况和学校的信息化程度，其重要性是不可无视的。目前，高校的建设日趋信息化，机房管理是高校管理工作中的一个非常重要环节。

随着学生数量不断的增加和计算机机房开放式管理的要求，传统的机房管理手段已经不能再适应现在的计算机机房管理模式。因此，对它进展系统而科学的管理已成为计算机机房管理员的当务之急。

计算机机房自动计费系统就是针对校园信息化开展的需要而开发的一套简单实用、功能强大的管理系统。此计费系统是用软件系统来管理计算机机房日常经营的一种应用技术。本文在分析机房计费需求、常用计费方式的根底上，提出了一种通用的计算机机房计费系统解决方案，并且较为详细地描述了实现该系统的主要技术和功能。

5 / 41

word 1 系统概述

随着经济与科技的不断开展，人们的生活越来越离不开计算机和Internet互联网，它以方便快捷与智能化体系推动着人们的现代生活。但是要想实现网络的良好管理，必须有一个强大的计算机系统的支持，通过对机房计费的考察分析 ,总结设计了一个计算机机房自动计费系统。

本系统是本着实用的原如此开发的，它根据机房管理人员在实际工作中遇到的情况把机房信息加以科学化、标准化的输入到计算机中，利用计算机的快速处理能力，对机房进展标准化管理。通过对实际情况的考察分析，实现了机房信息的处理、统计、帐单打印、系统维护等功能，较好地解决了机房信息的安全性，提高了机房管理人员的工作效率与机房的利用率。

1.1 系统特点

(1)C/S结构，功能齐全：本系统采用C/S结构设计，服务器程序完成系统的所有功能，客户端程序负责显示上机人员的详细上机信息。

(2)操作简便、界面友好：本系统的界面采用Windows的操作使用习惯进展设计，美观大方，管理员只需经过简单的培训即可使用。为方便管理员查看并根据业务需要设计了丰富多彩的界面，如：利用饼图统计机房的分类收入，利用不同颜色的图标表示计算机的不同状态等。

(3)权限控制、安全可靠：给不同类别的管理员分配不同的权限，超级用户可对其权限进展修改形成每个操作员的权限，操作员登录系统输入密码后，系统自动根据权限赋予功能，防止越权操作，安全可靠，杜绝分工不明确、职责不清的情况发生。

(4)数据查询、快捷方便：根据需要本系统对根底信息、日常处理提供了强大的查询功能，可以实现单项查询、模糊查询，用户还可以对帐单进展打印。

6 / 41

word (5)报表合理、轻松自如：根据系统的需求，本系统设计了四个统计检索报表〔充值收入检索、开户检索、上机收入检索、商品收入检索与总收入统计〕，满足了机房管理人员的统计需求。

1.2 系统实用性

本系统是根据学校计算机机房的业务规如此开发的大型计算机机房自动计费管理系

统。是为提高机房的管理效率而开发的计算机机房自动计费管理系统。1.3 相关技术简

介

在数据库应用系统开发之前，对开发数据库的根本概念应当了解，对数据库的结构、开发数据库应用程序的步骤、开发体系与方法都应当有相当清晰的了解和认识。

数据库应用系统开发的目标是建立一个满足用户长期需求的产品。开发的主要过程为：理解用户的需求，然后，把它们转变为有效的数据库设计。把设计转变为实际的数据库，并且这些数据库带有功能完备、高效能的应用。

数据库技术在计算机软件邻域研究中一直是非常重要的主题，产生于60年代，50多年来数据库技术得到了迅速开展，并已形成较为完整的理论体系和一大批实用系统。并且，近年来，随着World Wide Web()的猛增与Internet技术的迅速开展，使得数据库技术之时成为最热门技术之一。 1.3.2 MS SQL Server简述

SQL Server 是一个后台数据库管理系统,它功能强大操作简便,日益为广阔数据库用户所喜爱。越来越多的开发工具提供了与SQL Server的接口。SQL Server是一个关系数据库管理系统，它最初是由Microsoft、Sybase和Ashton-Tate三家公司共同开发的。于1988 年推出了第一个OS/2 版本，在Windows NT 推出后，Microsoft与Sybase 在SQL Server 的开发上就分道扬镳了，Microsoft将SQL Server移植到Windows NT系统上，专注于开发推广SQL Server的Windows NT版本。

SQL Server 2008是Microsoft公司推出的SQL Server数据库管理系统的版本之一，具有使用方便、可伸缩性好与相关软件集成程度高等优点。可在Windows的大型多处理器的服务器等多种平台使用。MS SQL Server不但可以应用于大中型数据库管理中，建立分

7 / 41

word 布式关系数据库，并且也可以开发桌面数据库。事实上，SQL Server数据库处理的根本结构，采取关系型数据库模式，尽管如此，相信大家都可以轻易的发现，在SQL Server的数据库处理方式，如此是使用面向对象的操作方式与精神，也就是说，SQL Server的所有功能，都可以基于系统已经建立好的一些对象来达成，是相当OO〔面向对象〕的一个系统结构。

SQL Server企业管理器是SQL Server的主要管理工具，它提供了一个遵从 MMC标准的用户界面，使用户得以：定义SQL Server实例组，将个别服务器注册到组中，为每个已注册的服务器配置所有SQL Server选项。在每个已注册的服务器中创建并管理所有SQL Server数据库、对象、登录、用户和权限。在每个已注册的服务器上定义并执行所有SQL Server管理任务。通过唤醒调用SQL查询分析器，交互地设计并测试SQL语句、批处理和脚本。唤醒调用为SQL Server定义的各种向导。

8 / 41

word 2 需求分析

2.1 可行性研究

可行性研究的目的，就是用最小的代价在尽可能短的时间内确定问题是否能够解决。要达到这个目的，当然不能靠主观猜测而只能靠客观分析。必须分析几种主要的可能解法的利弊，从而判断原定的系统规模和目标是否实现，系统完成后所能带来的效益是否大到值得投资开发这个系统的程度。事实上，许多问题不可能在预定的系统规模或时间期限之内解决。如果问题没有可行性的解，那么花费在这项工程上的任何时间、人力、软硬件资源和经费，都是无谓的浪费。因此，可行性研究实质上是要进展一次大大压缩简化了的系统分析和设计过程，也就是在较高层次上以较抽象的方式进展的系统分析和设计的过程。

技术可行性是对现有技术进展评价，分析系统是否可以用现有技术来实施以与技术开展对系统建设有什么影响。

本系统采用了Visual Basic 6.0开发工具和Microsoft SQL Server 2008数据库进展开发，而Visual Basic 6.0和Microsoft SQL Server 2008根本上是学校里比拟普通的开发过程，并且对他们的使用比拟熟悉，所以技术上是可行的。

此系统是在学校原有机房的根底上开发的一套应用软件。只需要相应的开发工具即可没有额外的一些支出，而且后期维护阶段也不需要太多的花费，总体投入比拟小，所以经济上是可行的。

此系统可稳定的运行于Windows平台的系统上，并且界面的设计均采用Windows的设计习惯，用户与管理员只需经过简短的培训即可熟练的操作使用，所以操作上是可行的。

此系统设计的目的就是为了提高机房的利用率，减轻管理员的工作负担。所以此系统一经采用必将会给学校的机房增添许多额外的收入，也可减少管理员的数量，降低了开销，所以社会效益上也是可行的。

2.2 系统数据流图(DFD)：

此系统共划分2个数据流图：会员数据流图，如图1所示，管理员数据流图，如图2所示。

9 / 41

word 充值金额 充值金额 充值 会员某某 充值收入表 会员信息表 会员信息 会员 注册会员 会员信息 会员某某与密码 机器名与押金 会员信息 机器号与IP 普通用户 消费金额 上机计费 指定机器 客户端信息表 上机收入表 消费金额 消费金额 上机时间 下机结帐

图1 会员数据流图

10 / 41

word 结帐单 用户 购置信息 客户端信息表 购置商品 结帐 商品名称 商品信息表 商品信息 机器名与IP

商品收入表 上机时间 商品信息 管理商品 管理员 机器名与IP 管理员某某 设置客户端 调整权限 管理员信息 管理员信息表

图2 管理员数据流图

2.3 数据字典：

本文给出了系统的局部数据字典。

数据项名：编号 别名：会员编号 描述：唯一标识每个会员 定义：编号=8{字符}8 取值X围：00000000-99999999 取值含义：顺序编号 图3 数据项卡片

数据结构名：会员 列名：会员根本信息 11 / 41

word 描述：这是会员管理模块的主要结构，定义了一个会员的根本信息。 组成：编号，某某，性别，证件类型 ，证件 ，联系，密码，上机时间，卡内余额，消费金额，消费次数，最后上机时间，操作员代号 图4 数据结构卡片

数据存储名：上机费用清单 别名：上机费用表 描述：会员上机费用 数据流来源：会员 客户端主机 数据流去向：上机费用表 组成：编号，机器名，开始上机时间，上机时间，上机费率，上机消费金额，商品消费金额，某某，性别，证件类型，证件，操作员代号 图5 数据存储卡片

数据流名：会员登记表 别名：会员信息表 描述：记录会员的根本情况 定义：会员登记表=编号+某某+性别+证件类型+证件+联系+…… 存取方式：随机存取 图6 数据流卡片

：

此系统的业务流程如图7所示。

12 / 41

word 用户 否 是否为会员 是 是 注册会员 会员开户 找到空闲机 前台登记上机 否 申请上机 是 开始计费 查看某某信息与余额 购置商品 调换计算机 续加时间 续时或充值 否 是否结帐 是 时间余额不足 结帐 打印帐单

图7 系统的业务流程图

13 / 41

word 3 系统数据库设计

3.1 概念设计

在概念设计阶段中，设计人员从用户的角度看待数据与处理要求和约束，产生一个反映用户观点的概念模式。然后再把概念模式转换成逻辑模式。将概念设计从设计过程中开来，使各阶段的任务相对单一化，设计复杂程度大大降低，不受特定DBMS的。

利用E-R方法进展数据库的概念设计，可分成三步进展：首先设计局部E-R模式，然后把各局部E-R模式综合成一个全局模式，最后对全局E-R模式进展优化，得到最终的模式，即概念模式。

E-R模型的“联系〞用于刻画实体之间的关联。一种完整的方式是对局部结构中任意两个实体类型，依据需求分析的结果，考察局部结构中任意两个实体类型之间是否存在联系。假如有联系，进一步确定是1:N，M:N，还是1:1等。还要考察一个实体类型内部是否存在联系，两个实体类型之间是否存在联系，多个实体类型之间是否存在联系，等等。

普通用户上机费率 会员上机费率 最低消费金额 系统设置表 剩余时间提醒 机房名称 机房地址 机房

图8 系统设置表E-R图

管理员编号 证件类型 管理员某某 操作员信息表 证件 管理员性别 密码 图9 操作员信息表E-R图

14 / 41

联系

word

充值信息表 充值编号 充值金额 充值时间 图10 系统设置表E-R图

客户端主机设置表 管理员编用户编号 客户端主机编号 客户端主机IP 图11 客户端主机设置表E-R图

客户端主机名称

管理员编号 用户性别 用户某某 商品消费 上机消费 证件类型 客户消费信息表 证件 客户端主机名称 编号 开始时间 上机费率 上机时间

图12 客户消费信息表E-R图

商品编号 商品名称 商品资料信息表 卖出价格 商品数量 买进价格

15 / 41

word 图13 商品资料信息表E-R图

上机次数 用户总消费 用户某某 某某余额 会员资料信息表 开户时间 用户性别 管理员编号 用户编号 用户类型 用户密码 联系 最后上机时间 类型

图14 系统设置表E-R图

管理员编号 总计价格 卖出商品时间 选购商品信息表 卖出商品编号 商品名称 商品价格 图15 选购商品表E-R图

商品数量

所有局部E-R模式都设计好了后，接下来就是把它们综合成单一的全局概念结构。全局概念结构不仅要支持所有局部E-R模式，而且必须合理地表示一个完整、一致的数据库概念结构。

(1)确定公共实体类型

为了给多个局部ER模式的合并提供开始合并的根底，首先要确定各局部结构中的公共实体类型。在这一步中我们仅根据实体类型名和键来认定公共实体类型。一般把同名实体类型作为公共实体类型的一类候选，把具有一样键的实体类型作为公共实体类型的另一

16 / 41

word 类候选。

(2)局部ER模式的合并

合并的原如此是：首先进展两两合并；先和合并那些现实世界中有联系的局部结构；合并从公共实体类型开始，最后再参加的局部结构。

(3)消除冲突

冲突分为三类：属性冲突、结构冲突、命名冲突。

设计全局E-R模式的目的不在于把假如干局部ER模式形式上合并为一个E-R模式，而在于消除冲突，使之成为能够被所有用户共同理解和承受的同一的概念模型。

(4)全局ER模式的优化

在得到全局E-R模式后，为了提高数据库系统的效率，还应进一步依据处理需求对E-R模式进展优化。一个好的全局E-R模式，除能准确、全面地反映用户功能需求外，还应满足如下条件：实体类型的个数要尽可能的少；实体类型所含属性个数尽可能少；实体类型间联系无冗余。

综上所述，“计算机机房自动计费系统〞的全局E-R模式如图16所示。

商品 商品数量 n 购置 客户端 n m 1 上机 系统设置表 m 会员 n 开始时间 充值 充值日期 1 管理员 充值金额 上机花费 上机时间

图16 系统的全局E-R图

3.2 关系数据库的物理设计

17 / 41

word 此系统一共建立了8个表，各个表的物理结构如下所示：

表1 系统设置表(System)

列名 normal member least bellTime name address tel money money money varchar varchar varchar varchar 类型 8 8 8 2 50 50 50 长度 说明 普通用户上机费率 会员上机费率 最低消费金额 剩余时间提醒 机房名称 机房地址 机房

表2 操作员信息表(Admin)

列名 Admin_id password Admin_name Admin_sex varchar varchar varchar varchar 类型 10 15 10 2 长度 说明 管理员编号 管理员密码 管理员某某 管理员性别 续表

列名 Admin_zheng Admin_zhengnum Admin_tel Level0 Level1 Level2 Level3 Level4 varchar varchar varchar varchar varchar varchar varchar varchar 类型 6 18 15 1 1 1 1 1 长度 说明 证件类型 证件 联系 客户端设置权限 管理员设置权限 系统设置权限 上机计费权限 商品管理权限 18 / 41

word Level5 Level6 varchar varchar 1 1 会员与充值管理权限 收入统计权限

表3 充值信息表(Chong)

列名 Chong_id Guest_id Chong_money Admin_id Chong_time 类型 bigint bigint money varchar datetime 长度 8 8 8 10 8 说明 充值编号 用户编号 充值金额 管理员编号 充值时间

表4 客户端主机设置表(Client)

列名 Client_id Client_name Client_ip 类型 int varchar varchar 长度 4 16 15 说明 客户端主机编号 客户端主机名称 客户端主机IP

表5 客户消费信息表(Cost)

列名 Cost_id Client_name Cost_begin Cost_time Cost_rout Cost_cost Cost_goods name sex 类型 bigint varchar varchar varchar varchar money money varchar varchar 长度 8 16 21 8 4 8 8 10 2 说明 编号 客户端主机名称 开始时间 上机时间 上机费率 上机消费 商品消费 用户某某 用户性别 19 / 41

word zheng Zheng_num Admin_id varchar varchar varchar 6 18 10

表6 商品资料信息表(Goods)

证件类型 证件 管理员编号 列名 Good_id Good_name Good_buy Good_sell Good_num 类型 int varchar money money int 长度 4 20 8 8 4 说明 商品编号 商品名称 买进价格 卖出价格 商品数量

表7 会员资料信息表(Guest)

列名 Guest_id Guest_name Guest_sex Guest_type Guest_typenum Guest_tel Guest_pwd Guest_time Guest_money Guest_cost Guest_costcount Guest_lasttime Admin_id 类型 bigint varchar varchar varchar varchar varchar varchar datetime money money int varchar varchar 长度 8 10 2 10 20 15 10 8 8 8 4 20 10 说明 用户编号 用户某某 用户性别 用户类型 类型 联系 用户密码 开户时间 某某余额 用户总消费 上机次数 最后上机时间 管理员编号

表8 选购商品信息表(Sell)

20 / 41

word 列名 Sell_id Sell_date Good_name Good_sell Sell_num Sell_money Admin_id 类型 bigint datetime varchar money int money varchar 长度 8 8 20 8 4 8 10 说明 卖出商品编号 卖出商品时间 商品名称 商品价格 商品数量 总计价格 管理员编号

21 / 41

word 4 系统结构设计

4.1 客户/服务器系统的结构

在Client/Server中，位于另一个计算机上层的计算机称为服务器，而在下层的计算机称为客户机。客户机和服务器之间的通信模型如图18所示，即首先客户机向服务器提交信息，服务器收到信息后进展处理，然后将处理后的结果返回给客户机。

服务器 向服务器递交信息 向客户机递交信息 客户机

图18 服务器与客户机通信模型

4.2 系统的网络结构

本系统是一个网络化的远程操作系统，其形式为一对多，采用一台服务器来负责管理多台客户机，网络结构如图19所示。

服务器端

客户端1

客户端2

客户端3

… 客户端N

图19 系统的网络结构

4.3 功能模型：

此系统的功能模型如图20所示。

22 / 41

word 计算机机房自动计费系统 系统 计费 管理 客管系户理统会商端员设员品设设置 与资置 置 充料值管管理 理 开添结选调客始加帐 购换户计时商计端费 间 品 算控机 制 图20 系统的功能模型

23 / 41

收入统计检索 开上商充户机品值收收收收入入入入检检检检索 索 索 索

word

5 软件的开发与设计

5.1 系统开发的步骤

启动Visual Basic 6.0后，新建两个标准的.EXE工程，然后将该工程保存，选择保存路径，并命名为计算机机房自动计费系统服务器端和客户端。

接着给两个工程分别添加一个模块，选择菜单[工程]中的[添加模块]命令，或者在工程资源管理器中用鼠标右键单击工程，在弹出的快捷菜单中选择[添加]中的[添加模块]命令，并在此模块中定义服务器端和客户端需要用到的公共变量和公共类型。随后按照总体设计思想创建各个窗体，实现所有功能。

5.2 主要窗体的实现

5.2.1服务器端主要窗体的实现：

(1)系统模块的设计：系统模块中主要定义了系统中常用到的变量，此模块中主要定义了数据库变量和数据库连接字符串，客户机通过字符串连接数据库即可访问服务器端的数据库。具体实现代码为：

Public Const constr = \"Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=puter;\"

(2)登录模块的设计：此模块的功能是检查管理员是否有进入系统的权限。用到的主要控件为一个bo、一个TextBox、和两个Button按钮。窗体界面如图21所示。

图21 登录窗体的界面

管理员可以选择相应的管理员某某进展登录，减去了忘记某某或某某名输入不方便的烦恼。单击下拉列表可选择相应的管理员，具体实现代码为： Private Sub Form_Load()

24 / 41

word

conn.Open constr

rslogin.CursorLocation = adUseClient strsql = \"select * from Admin\"

rslogin.Open strsql, conn, adOpenDynamic, adLockPessimistic

bo1.AddItem rslogin.Fields(0)

Next i End Sub

(3)主页面模块的设计：此模块是系统服务器端的主要控制界面，通过菜单的选择，可以控制系统的所有功能，主页面的ListView控件可以显示当前机房所有用户的上机情况，它的四种显示模式也可以方便管理员快速的找到机房的空闲机器，方便管理。状态栏中可以显示系统的当前时间和机房的空闲机器与总机器数目。此外，主页面也是系统监听客户端操作的主要界面，窗体界面如图22所示。

图22 系统主窗体的界面

25 / 41

word

系统通过Timer控件在状态栏中显示系统的当前时间，Timer控件的时间间隔是1000，也就是1秒钟，这样状态栏中的时间每秒钟都会变化，达到显示系统时钟的目的，具体实现代码为：

Private Sub Timer1_Timer()

StatusBar1.Panels(3).Text = Format(Now, \"yyyy年mm月dd日 hh:nn:ss \") End Sub

(4)客户端主机管理模块的设计：此模块的主要功能是管理连接到服务器的客户端，通过设置客户端主机名称和IP地址，增加和减少客户端的机器数目，窗体界面如图23所示。

图23 客户端主机管理窗体的界面

此模块中比拟有特色的地方是自动编号功能，它能根据已有的数据库中的编号自动为新插入的数据进展顺序编号，如碰到非顺序数据如此插入最小值，如编号为1、3、4如此新插入的编号为2。具体实现代码为： Dim flag As Boolean, id As Integer id = 0 Do

flag = False id = id + 1

26 / 41

word

rs.MoveFirst

For i = 0 To rs.RecordCount - 1 If rs.Fields(0) = id Then flag = True

Next i

If flag = False Then Exit Do Loop

(5)系统设置模块的设计：此模块的主要功能是设置系统中的一些根本信息。如设置普通用户和会员的上网费率、最低消费金额、剩余时间提示和机房的相关信息等。窗体界面如图24所示。

图24 系统设置窗体的界面

由于此模块中的信息都是要求管理员强制输入的，因此判定管理员输入信息的正确性就成了一个至关重要的问题。具体实现代码为： If Not IsNumeric(Text(3).Text) Then

MsgBox \"请设置提醒时间！\" Text(3).SetFocus Exit Sub End If

(6)管理员设置模块的设计：此模块的主要功能是设置管理员的操作权限，通过权限的设置来确定用户的身份。权限可根据用户的需要自行设置，提高了操作的灵活性和管理的方便性。窗体界面如图25所示。

27 / 41

word

图25 管理员设置窗体的界面

此模块中管理员权限的选择是一个比拟突出的功能，它区别于传统的只能根据系统已设置好的管理员类型进展选择权限，而是可以自己手工设置每个管理员的权限，这样就提高了系统的灵活性，使系统可以适合每一个使用的人群，具体实现代码为： If rs.EOF Then

For i = 0 To 6

If Check(i).Value = vbChecked Then rs.Fields(i + 7) = 1 Else

rs.Fields(i + 7) = 0 End If Next i

End If

(7)上机计费模块的设计：此模块的主要功能是对非会员的用户提供上机计费，用户需要预交一定的金额和设置上机时间就可以上机使用，用户的信息会显示在系统的主页面中，方便管理员与时的了解用户的上机状况和机器的使用情况，窗体界面如图26所示：

28 / 41

word

图26 上机计费窗体的界面

将普通用户的上机信息情况显示到主窗体的ListView控件上是此模块中的一个重点问题，通过选择的机器将用户的上机情况信息插入到此行中，具体实现代码为： Form6.ListView1.ListItems(Form6.ListView1.SelectedItem.Index).SubItems(1) = Now

Form6.ListView1.ListItems(Form6.ListView1.SelectedItem.Index).SmallIcon = 3

(8)用户结帐模块的设计：此模块的主要功能是通过RichTextBox控件显示下机结帐用户的上机消费情况，并可对消费的清单进展打印，使用户的消费更加清晰，也降低了人工操作的弊端，窗体界面如图27所示。

图27 用户窗体的界面

此模块中当管理员单击结帐按钮后，系统应自动去除主页面中用户上机的情况，并能对结帐的计算机进展桌面的锁定，防止他人非法进入，具体实现代码为：

29 / 41

word

For i = 1 To 10

Form6.ListView1.SelectedItem.SubItems(i) = \"\" Next i

For j = 1 To maxs

If rs(\"Client_ip\") = Form6.Winsock1(j).RemoteHostIP Then Form6.Winsock1(j).SendData \"锁定\" End If Next j

(9)选购商品模块的设计：此系统的主要功能是为上机的用户提供一些学校中根本商品的选购，选购的商品费用可从普通用户的押金或会员的某某金额中扣除，用户所购置的商品库存也会相应的减少，窗体界面如图28所示。

图28 选购商品窗体的界面

此模块中的重点是如何判定用户的金额是否充足。通过调用用户当前的上机金额和商品花费金额和用户已有的金额进展比照，如果用户购置的商品金额大于他本身的某某金额，那么系统应拒绝此用户的要求，并在客户端上提示用户购置失败，具体实现代码为： sell = ListView2.ListItems(ListView2.ListItems.Count).SubItems(4) cost = Format(Val(sell) + Val(Form6.ListView1.SelectedItem.SubItems(6)), \"##0.0\") If

c>Val(Form6.ListView1.SelectedItem.SubItems(8))-Val(Form6.ListView1.SelectedItem.SubItems(7)) Then

30 / 41

word

MsgBox \"您的金额不足！\" Exit Sub Else

‘进展购物处理 End if

(10)调换计算机模块的设计：此模块的主要功能是可对已上机的用户调整其使用的计算机，启动要调换的机器，并锁定被调换的计算机，窗体界面如图29所示：

图29 调换计算机窗体的界面

因为要调换到的计算机只能是当前机房中没有被用户所使用的机器，所以，如何找到当前没有被使用的计算机也是此模块的一个重点。系统在主页面中找到没有显示用户上机情况的机器，并将此机器的名称显示到可调换的机器行列中，具体实现代码为：

If Form6.ListView1.ListItems(i).SubItems(1) = \"\" Then List1.AddItem Form6.ListView1.ListItems(i).Text End If Next i

(11)客户端控制模块的设计：此模块的主要功能是对远程的计算机进展操作，可关闭、注销、重新启动远程的机器，也可对远程的机器进展锁定和解锁操作，窗体界面如图30所示：

31 / 41

word

图30 客户端控制窗体的界面

如何知道要控制的客户端的地址是此模块的重点。系统通过远程客户端的IP地址和数据库中客户端的IP地址进展比照，从而找到需要控制的客户端，再利用Winsock控件的SendData方法将需要进展的操作传递给客户端，具体实现代码为： For i = 1 To maxs

If rs(\"Client_ip\") = Form6.Winsock1(i).RemoteHostIP Then

Case \"注销计算机\"

Form6.Winsock1(i).SendData \"注销\" Case \"锁定计算机\"

Form6.Winsock1(i).SendData \"锁定\" Case \"解除锁定\"

Form6.Winsock1(i).SendData \"解锁\" End Select Exit Sub End If Next i

(12)批量添加会员模块的设计：因为学校中班级人数众多，班级可能集体在机房中进展开户，手工输入每个学生的信息为学生开户显然是不现实的，所以此模块的主要功能是对用户比拟多的集体可进展批量开户，管理员只需要输入会员的数量和开户金额，就可以

32 / 41

word

生成会员，然后会员在登陆系统后就可以修改会员的根本信息与某某密码，方便了管理员的管理，也为用户带来了许多便利，窗体界面如图31所示：

图31 批量添加会员窗体的界面

此模块中根据用户在文本框中输入的数量，系统使用循环语句进展操作，循环的次数也就是会员的数量，然后在每次的循环中都进展添加会员的操作，具体实现代码为：

For i = 1 To Trim(Text(0).Text) rs.CursorLocation = adUseClient strsql = \"select * from Guest\"

rs.Open strsql, conn, adOpenDynamic, adLockPessimistic

Next i

(13)会员充值模块的设计：此模块的主要功能是对机房中的会员进展充值，保证会员可以正常的上机。管理员只需要输入会员的某某和充值金额即可，窗体界面如图32所示：

图32 会员充值窗体的界面

此模块中系统根据文本框输入的会员某某进展充值，找到数据库中指定会员某某操作的具体代码为：

33 / 41

word

rs.CursorLocation = adUseClient

strsql = \"select * from Guest where Guest_id=\" & Trim(Text1.Text) rs.Open strsql, conn, adOpenDynamic, adLockPessimistic

rs.Fields(8) = Val(Trim(Text2.Text)) + Val(Trim(rs.Fields(8))) rs.Update

(14)商品管理模块的设计：此模块的主要功能是对机房中的商品进展添加、删除与库存量的管理，窗体界面如图33所示：

图33 商品信息管理窗体的界面

此模块中管理员只需要从Datagrid控件中选择需要修改的商品，点击修改按钮，选择的商品信息就会自动显示在窗体上，其实现的具体代码为： Text(0).Text = DataGrid1.Columns(0).CellText(rs.Bookmark) Text(1).Text = DataGrid1.Columns(1).CellText(rs.Bookmark) Text(2).Text = DataGrid1.Columns(2).CellText(rs.Bookmark) Text(3).Text = DataGrid1.Columns(3).CellText(rs.Bookmark) Text(4).Text = DataGrid1.Columns(4).CellText(rs.Bookmark)

(15)收入检索模块的设计：此模块中管理员可以根据需要选择需要查看的收入类型，有上机收入检索、会员开户收入检索、商品收入检索与充值收入检索，管理员只需要输入要检索的日期，在检索日期X围内的所有收入统计就会显示出来，窗体界面如图34所示：

34 / 41

word

图34 充值收入检索窗体的界面

如何将指定时间内的所有数据都显示在Datagrid控件中是此模块的重点，其实现的具体代码为：

rs.CursorLocation = adUseClient

strsql = \"select Chong_time as 充值日期,Guest_id as 充值某某,Chong_money as 充值金额,Admin_id as 操作员 from Chong where Chong_time between '\" & DTPicker1.Value & \"' and '\" & DTPicker2.Value & \"'\" rs.Open strsql, conn, adOpenDynamic, adLockPessimistic Set DataGrid1.DataSource = rs

(16)总收入统计模块的设计：此模块的主要功能是显示到目前为止机房各项收入情况的比例与具体的金额，是机房总体收支情况的综合表现，可以在收入饼图和具体金额间进展切换查看。窗体界面如图35所示：

35 / 41

word

图35 总收入统计窗体的界面

此模块的主要特点是利用饼图显示各项收入的比例，将各项收入的金额保存到数组中，利用MSChart控件的ChartData方法将数组的值显示到图形中。实现的具体代码为： Dim a(4) For i = 0 To 3

MSChart1.ChartData = a Next i

MSChart1.ColumnCount = 4 MSChart1.Column = 1

MSChart1.ColumnLabel = \"上机收入\" MSChart1.Column = 2

MSChart1.ColumnLabel = \"商品收入\" MSChart1.Column = 3

MSChart1.ColumnLabel = \"充值收入\" MSChart1.Column = 4

MSChart1.ColumnLabel = \"开户收入\"

(1)系统模块的设计：此模块的设计与服务器端类似，主要是定义数据库的连接变量与连接字符串，将连接字符串中的Data Source设置为服务器端的机器名。实现的具体代码为：

36 / 41

word

Public Const constr = \"Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=puter;Data Source=111\"

(2)桌面锁定模块的设计：此模块的主要功能是会员上机登录与用户桌面的锁定，并根据服务器端发送的数据请求进展操作。窗体界面如图36所示：

图36 客户端主窗体的界面

此模块中通过Winsock控件将客户端的IP地址、用户名与密码传递给服务器端。实现的具体代码为：

(3)修改会员信息模块的设计：此模块的主要功能是方便会员与时修改自己的根本信息，并查看消费情况与某某余额。窗体界面如图37所示：

图37 会员信息修改窗体的界面

37 / 41

word 6 系统使用说明书

6.1 系统运行环境

(1)PIII 700以上的处理器 (2)128M以上的内存 (3)20G以上的硬盘

(1)Windows 7/98/XP 操作系统

(2)Visual Basic 6.0 和SQL2008数据库

在Windows下，双击“Setup〞，进入安装画面，选择安装路径，单击“下一步〞，Windows就会将计算机机房自动计费系统〔服务器端/客户端〕装入指定的目录下。

因为本程序是客户端/服务器〔Client/Server〕形式的网络化数据库应用系统，所以服务器端和客户端要同步运行。并且要将客户端的可执行文件放入到系统的启动项中，这样客户端在每次启动时就会自动锁定用户桌面。 6.2 系统操作说明

服务器端：当启动服务器端之后，管理员可通过默认某某和密码进入到系统中，并根据需要设置管理员的权限。

客户端：当客户端启动后，其桌面将会被自动锁定，输入正确的用户某某和密码方可正常上机。点击进入系统，开始正常的会员计费。

结 论

38 / 41

word 该系统详尽描述了开发计算机机房自动计费系统的全过程，是严格按软件工程的思想进展设计的。系统可以帮助学生方便的进展上、下机操作，减轻了管理员手工操作的麻烦，权限管理功能提高了机房管理的安全性与某某性，可以根据不同的用户身份使用系统。统计检索功能更是方便了机房财务人员的财务管理，可极大的防止了财务上的漏洞，商品购置功能如此方便了学生快捷购置到一些根本的商品，调换计算机功能如此方便了学生自由的选择使用机器，提高了上机操作的灵活性，远程控制功能方便了管理员操作机房的机器，减轻了管理员的管理负担。本系统经过了详细的实验与测试，完全达到了设计的要求与目的。

但由于个人能力有限，在开发过程中有许多不足，当用户想要购置商品时只能在服务器端进展购置，没有设置出客户端购置商品的界面，给有购置商品的用户带来了不便。

在检索统计中，检索出的是指定时间内所有上机的情况，在机房上机的人数很多时，查找不是很方便、快捷，需要仔细的一项一项核对，工作量较大，不方便管理。不能显示统计功能的日结算与月结算。

以上这些弊端还需要进一步的研究和改良，使系统更加完美实用，给学生上机带来更多方便。

致 谢

39 / 41

word 我首先要感谢我的指导教师郭胜教师，在整个毕业设计期间给予我大力的支持和帮助，给我提供详细的资料和最新的信息，他本着认真负责的工作态度、兢兢业业、勤勤恳恳，使我深受感动。在设计的期间，与同学们的相互探讨也使我受益匪浅。半年时间，我根本学会了开发数据库系统的方法，更主要的是学到了奋发向上的精神和工作上的经验，为我以后走上更好的工作岗位奠定了坚实的根底。所以我要再次感谢所有帮助过我的教师和同学们。

40 / 41

word 参考文献

[1]苗专生 基于winsock的机房计费管理系统的设计与实现[J] 某某职业技术学院学报，2005,(3)：27-30

[2] 郭嘉喜，李令臣，腾连爽 ID卡机房智能管理系统设计与实现[J] 微型电脑应用，2006，〔11〕：5+38-40

[3] X海藩 软件工程导论[M]〔第四版〕 ：清华大学，2003

[4] 古维，X伟 Visual Basic 6.0数据库实用编程100例[M] ：中国铁道

[5] 黄玲玲，在VB中使用winsock控件实现局域网通信 信息技术，2005，〔06〕：28-30+88

41 / 41