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

1、计算机机房自动计费系统姓名 班号 院系 远程与继续教育学院 同组姓名 无 指导教导 郭胜 目 录摘要4引言51 系统概述6 1.1 系统特点6 1.2 系统实用性7 1.3 相关技术简介71.3.1 数据库基础知识71.3.2 MS SQL Server简述72 需求分析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 系统业务流程图123 系统数据库设计14 3.1 概念设计14 3.1.1 设计局部ER模式14 3.1.2 设计全局ER模式1

2、63.2 关系数据库的物理设计174系统结构设计224.1 客户/服务器系统的结构22 4.2 系统的网络结构224.3 功能模型225 应用软件的开发与设计245.1 VB应用程序开发步骤245.2 主要窗体的实现245.2.1 服务器端主要窗体的实现24 5.2.2 客户端主要窗体的实现366 系统使用说明书386.1 系统运行环境386.1.1 硬件配置38 6.1.2 软件配置38 6.1.3 系统的安装和运行386.2 系统操作说明书38结论39致谢40参考文献41摘 要计算机机房管理系统作为现行计算机机房管理必不可少的组成部分，将机房的机器资源合理分配、统一管理，提高设备利用率，使

3、机房的管理质量得到有力保证。现代化、信息化、自动化的计算机机房的目标是：实现计算机机房开放式管理及无人（少人）值守，最大限度地减轻管理员的压力；通过会员注册、合理安排学生上下机、自动计费等基本解决计算机机房使用高峰期学生拥堵现象，为学生上机提供方便。本系统为管理员管理计算机机房的日常经营提供方便的管理平台.通过本系统的管理可以便捷的操作上机,换机,远程控制,会员管理,结帐，购买商品，查询营业状况等一系列计算机机房日常经营事项。其开发内容主要包括后台数据库的建立和维护以及前端应用程序的开发两个方面。利用Microsoft SQL Server2000数据库软件，建立完整性强、安全性好的数据库，利

4、用Visual Basic 6.0开发出功能完备，易使用的应用程序。该程序界面友好、方便易用。尤其是系统的“远程控制模块”的功能极大的减轻工作人员的工作量，提高了计算机机房管理工作的效率。关键词：计算机机房管理； Visual Basic6.0； Microsoft SQL Server 2000； C/S结构引 言随着科学技术的不断提高，计算机科学日渐成熟,其强大的功能已为人们深刻认识，它已进入人类社会的各个领域并发挥着越来越重要的作用。作为计算机应用的一部分，使用计算机对学校的各项事务进行科学化的管理有着无法比拟的优点。例如:查找方便、迅速、可靠性高、存储量大、保密性好、寿命长、成本低等。

5、这些优点能够极大地提高学校、单位等的工作效率，也是未来发展的管理科学化、正规化的重要条件。学校计算机机房几乎担任了学校全部的计算机公共课程的上机实践、考试和等级考试等工作，因此，机房管理是否完善直接涉及到学生多门课程的学习，在一定程度上反映了学校给学生提供的信息环境状况和学校的信息化程度，其重要性是不可忽视的。目前，高校的建设日趋信息化，机房管理是高校管理工作中的一个非常重要环节。随着学生数量不断的增加和计算机机房开放式管理的要求，传统的机房管理手段已经不能再适应现在的计算机机房管理模式。因此，对它进行系统而科学的管理已成为计算机机房管理员的当务之急。计算机机房自动计费系统就是针对校园信息化发

6、展的需要而开发的一套简单实用、功能强大的管理系统。此计费系统是用软件系统来管理计算机机房日常经营的一种应用技术。本文在分析机房计费需求、常用计费方式的基础上，提出了一种通用的计算机机房计费系统解决方案，并且较为详细地描述了实现该系统的主要技术和功能。1 系统概述 随着经济与科技的不断发展，人们的生活越来越离不开计算机和Internet互联网，它以方便快捷及智能化体系推动着人们的现代生活。但是要想实现网络的良好管理，必须有一个强大的计算机系统的支持，通过对机房计费的考察分析 ,总结设计了一个计算机机房自动计费系统。本系统是本着实用的原则开发的，它根据机房管理人员在实际工作中遇到的情况把机房信息加

7、以科学化、标准化的输入到计算机中，利用计算机的快速处理能力，对机房进行标准化管理。通过对实际情况的考察分析，实现了机房信息的处理、统计、帐单打印、系统维护等功能，较好地解决了机房信息的安全性，提高了机房管理人员的工作效率及机房的利用率。1.1 系统特点(1)C/S结构，功能齐全：本系统采用C/S结构设计，服务器程序完成系统的所有功能，客户端程序负责显示上机人员的详细上机信息。(2)操作简便、界面友好：本系统的界面采用Windows的操作使用习惯进行设计，美观大方，管理员只需经过简单的培训即可使用。为方便管理员查看并根据业务需要设计了丰富多彩的界面，如：利用饼图统计机房的分类收入，利用不同颜色的

8、图标表示计算机的不同状态等。(3)权限控制、安全可靠：给不同类别的管理员分配不同的权限，超级用户可对其权限进行修改形成每个操作员的权限，操作员登录系统输入密码后，系统自动根据权限赋予功能，防止越权操作，安全可靠，杜绝分工不明确、职责不清的情况发生。(4)数据查询、快捷方便：根据需要本系统对基础信息、日常处理提供了强大的查询功能，可以实现单项查询、模糊查询，用户还可以对帐单进行打印。(5)报表合理、轻松自如：根据系统的需求，本系统设计了四个统计检索报表（充值收入检索、开户检索、上机收入检索、商品收入检索及总收入统计），满足了机房管理人员的统计需求。1.2 系统实用性 本系统是根据学校计算机机房的

9、业务规则开发的大型计算机机房自动计费管理系统。是为提高机房的管理效率而开发的计算机机房自动计费管理系统。1.3 相关技术简介1.3.1数据库基础知识在数据库应用系统开发之前，对开发数据库的基本概念应当了解，对数据库的结构、开发数据库应用程序的步骤、开发体系及方法都应当有相当清晰的了解和认识。数据库应用系统开发的目标是建立一个满足用户长期需求的产品。开发的主要过程为：理解用户的需求，然后，把它们转变为有效的数据库设计。把设计转变为实际的数据库，并且这些数据库带有功能完备、高效能的应用。数据库技术在计算机软件邻域研究中一直是非常重要的主题，产生于60年代，50多年来数据库技术得到了迅速发展，并已形

10、成较为完整的理论体系和一大批实用系统。并且，近年来，随着World Wide Web(WWW)的猛增及Internet技术的迅速发展，使得数据库技术之时成为最热门技术之一。1.3.2 MS SQL Server简述SQL Server 是一个后台数据库管理系统,它功能强大操作简便,日益为广大数据库用户所喜爱。越来越多的开发工具提供了与SQL Server的接口。SQL Server是一个关系数据库管理系统，它最初是由Microsoft、Sybase和Ashton-Tate三家公司共同开发的。于1988 年推出了第一个OS/2 版本，在Windows NT 推出后，Microsoft与Sybas

11、e 在SQL Server 的开发上就分道扬镳了，Microsoft将SQL Server移植到Windows NT系统上，专注于开发推广SQL Server的Windows NT版本。SQL Server 2008是Microsoft公司推出的SQL Server数据库管理系统的版本之一，具有使用方便、可伸缩性好与相关软件集成程度高等优点。可在Windows的大型多处理器的服务器等多种平台使用。MS SQL Server不但可以应用于大中型数据库管理中，建立分布式关系数据库，并且也可以开发桌面数据库。事实上，SQL Server数据库处理的基本结构，采取关系型数据库模式，尽管如此，相信大家都

12、可以轻易的发现，在SQL Server的数据库处理方式，则是使用面向对象的操作方式与精神，也就是说，SQL Server的所有功能，都可以基于系统已经建立好的一些对象来达成，是相当OO（面向对象）的一个系统结构。SQL Server企业管理器是SQL Server的主要管理工具，它提供了一个遵从 MMC标准的用户界面，使用户得以：定义SQL Server实例组，将个别服务器注册到组中，为每个已注册的服务器配置所有SQL Server选项。在每个已注册的服务器中创建并管理所有SQL Server数据库、对象、登录、用户和权限。在每个已注册的服务器上定义并执行所有SQL Server管理任务。通过

13、唤醒调用SQL查询分析器，交互地设计并测试SQL语句、批处理和脚本。唤醒调用为SQL Server定义的各种向导。2 需求分析2.1 可行性研究可行性研究的目的，就是用最小的代价在尽可能短的时间内确定问题是否能够解决。要达到这个目的，当然不能靠主观猜想而只能靠客观分析。必须分析几种主要的可能解法的利弊，从而判断原定的系统规模和目标是否实现，系统完成后所能带来的效益是否大到值得投资开发这个系统的程度。事实上，许多问题不可能在预定的系统规模或时间期限之内解决。如果问题没有可行性的解，那么花费在这项工程上的任何时间、人力、软硬件资源和经费，都是无谓的浪费。因此，可行性研究实质上是要进行一次大大压缩简

14、化了的系统分析和设计过程，也就是在较高层次上以较抽象的方式进行的系统分析和设计的过程。2.1.1技术可行性技术可行性是对现有技术进行评价，分析系统是否可以用现有技术来实施以及技术发展对系统建设有什么影响。本系统采用了Visual Basic 6.0开发工具和Microsoft SQL Server 2008数据库进行开发，而Visual Basic 6.0和Microsoft SQL Server 2008基本上是学校里比较普通的开发过程，并且对他们的使用比较熟悉，所以技术上是可行的。2.1.2经济可行性此系统是在学校原有机房的基础上开发的一套应用软件。只需要相应的开发工具即可没有额外的一些支

15、出，而且后期维护阶段也不需要太多的花费，总体投入比较小，所以经济上是可行的。2.1.3操作可行性此系统可稳定的运行于Windows平台的系统上，并且界面的设计均采用Windows的设计习惯，用户及管理员只需经过简短的培训即可熟练的操作使用，所以操作上是可行的。2.1.4社会效益可行性此系统设计的目的就是为了提高机房的利用率，减轻管理员的工作负担。所以此系统一经采用必将会给学校的机房增添许多额外的收入，也可减少管理员的数量，降低了开销，所以社会效益上也是可行的。2.2 系统数据流图(DFD)： 此系统共划分2个数据流图：会员数据流图，如图1所示，管理员数据流图，如图2所示。会员注册会员充值普通用

16、户上机计费下机结帐会员信息表充值收入表指定机器客户端信息表上机收入表机器号及IP消费金额充值金额会员帐号会员信息会员信息会员帐号及密码会员信息机器名及押金充值金额上机时间消费金额消费金额图1 会员数据流图购买商品商品信息表商品收入表管理员管理员信息表调整权限管理商品设置客户端客户端信息表用户结帐商品信息商品信息上机时间购买信息商品名称机器名及IP机器名及IP结帐单管理员帐号管理员信息图2 管理员数据流图2.3 数据字典： 本文给出了系统的部分数据字典。数据项名：编号别名：会员编号描述：唯一标识每个会员定义：编号=8字符8取值范围：00000000-99999999取值含义：顺序编号图3 数据项

17、卡片数据结构名：会员列名：会员基本信息描述：这是会员管理模块的主要结构，定义了一个会员的基本信息。组成：编号，姓名，性别，证件类型 ，证件号码 ，联系电话，密码，上机时间，卡内余额，消费金额，消费次数，最后上机时间，操作员代号图4 数据结构卡片数据存储名：上机费用清单别名：上机费用表描述：会员上机费用数据流来源：会员 客户端主机数据流去向：上机费用表组成：编号，机器名，开始上机时间，上机时间，上机费率，上机消费金额，商品消费金额，姓名，性别，证件类型，证件号码，操作员代号图5 数据存储卡片数据流名：会员登记表别名：会员信息表描述：记录会员的基本情况定义：会员登记表=编号+姓名+性别+证件类型+

18、证件号码+联系电话+存取方式：随机存取图6 数据流卡片2.4系统业务流程图： 此系统的业务流程如图7所示。用户是否为会员找到空闲机是注册会员否会员开户是申请上机开始计费否前台登记上机查看帐户信息及余额购买商品调换计算机续加时间结帐是否结帐续时或充值打印帐单否是是时间余额不足图7 系统的业务流程图3 系统数据库设计3.1 概念设计在概念设计阶段中，设计人员从用户的角度看待数据及处理要求和约束，产生一个反映用户观点的概念模式。然后再把概念模式转换成逻辑模式。将概念设计从设计过程中独立开来，使各阶段的任务相对单一化，设计复杂程度大大降低，不受特定DBMS的限制。利用E-R方法进行数据库的概念设计，可

19、分成三步进行：首先设计局部E-R模式，然后把各局部E-R模式综合成一个全局模式，最后对全局E-R模式进行优化，得到最终的模式，即概念模式。3.1.1设计局部E-R模式E-R模型的“联系”用于刻画实体之间的关联。一种完整的方式是对局部结构中任意两个实体类型，依据需求分析的结果，考察局部结构中任意两个实体类型之间是否存在联系。若有联系，进一步确定是1:N，M:N，还是1:1等。还要考察一个实体类型内部是否存在联系，两个实体类型之间是否存在联系，多个实体类型之间是否存在联系，等等。系统设置表普通用户上机费率会员上机费率最低消费金额剩余时间提醒机房名称机房电话机房地址图8 系统设置表E-R图操作员信息

20、表管理员编号证件类型管理员姓名证件号码管理员性别联系电话密码图9 操作员信息表E-R图充值信息表充值编号用户编号充值金额管理员编号充值时间图10 系统设置表E-R图客户端主机设置表客户端主机编号客户端主机名称客户端主机IP图11 客户端主机设置表E-R图客户消费信息表用户性别上机费率证件号码上机时间客户端主机名称开始时间编号上机消费用户姓名商品消费证件类型管理员编号图12 客户消费信息表E-R图商品资料信息表商品编号商品名称卖出价格买进价格号商品数量图13 商品资料信息表E-R图会员资料信息表用户总消费用户性别开户时间用户类型用户密码类型号码联系电话用户姓名上机次数用户编号帐户余额管理员编号最

21、后上机时间图14 系统设置表E-R图选购商品信息表管理员编号总计价格卖出商品时间卖出商品编号商品名称商品数量商品价格图15 选购商品表E-R图3.1.2设计全局E-R模式所有局部E-R模式都设计好了后，接下来就是把它们综合成单一的全局概念结构。全局概念结构不仅要支持所有局部E-R模式，而且必须合理地表示一个完整、一致的数据库概念结构。(1)确定公共实体类型为了给多个局部ER模式的合并提供开始合并的基础，首先要确定各局部结构中的公共实体类型。在这一步中我们仅根据实体类型名和键来认定公共实体类型。一般把同名实体类型作为公共实体类型的一类候选，把具有相同键的实体类型作为公共实体类型的另一类候选。(2

22、)局部ER模式的合并合并的原则是：首先进行两两合并；先和合并那些现实世界中有联系的局部结构；合并从公共实体类型开始，最后再加入独立的局部结构。(3)消除冲突冲突分为三类：属性冲突、结构冲突、命名冲突。设计全局E-R模式的目的不在于把若干局部ER模式形式上合并为一个E-R模式，而在于消除冲突，使之成为能够被所有用户共同理解和接受的同一的概念模型。(4)全局ER模式的优化在得到全局E-R模式后，为了提高数据库系统的效率，还应进一步依据处理需求对E-R模式进行优化。一个好的全局E-R模式，除能准确、全面地反映用户功能需求外，还应满足下列条件：实体类型的个数要尽可能的少；实体类型所含属性个数尽可能少；

23、实体类型间联系无冗余。综上所述，“计算机机房自动计费系统”的全局E-R模式如图16所示。会员购买管理员商品系统设置表客户端充值n11nnmm上机充值金额充值日期商品数量开始时间上机时间上机花费图16 系统的全局E-R图3.2 关系数据库的物理设计此系统一共建立了8个表，各个表的物理结构如下所示：表1 系统设置表(System)列名类型长度说明normalmoney8普通用户上机费率membermoney8会员上机费率leastmoney8最低消费金额bellTimevarchar2剩余时间提醒namevarchar50机房名称addressvarchar50机房地址telvarchar50机房

24、电话表2 操作员信息表(Admin)列名类型长度说明Admin_idvarchar10管理员编号passwordvarchar15管理员密码Admin_namevarchar10管理员姓名Admin_sexvarchar2管理员性别续表列名类型长度说明Admin_zhengvarchar6证件类型Admin_zhengnumvarchar18证件号码Admin_telvarchar15联系电话Level0varchar1客户端设置权限Level1varchar1管理员设置权限Level2varchar1系统设置权限Level3varchar1上机计费权限Level4varchar1商品管理权限

25、Level5varchar1会员及充值管理权限Level6varchar1收入统计权限表3 充值信息表(Chong)列名类型长度说明Chong_idbigint8充值编号Guest_idbigint8用户编号Chong_moneymoney8充值金额Admin_idvarchar10管理员编号Chong_timedatetime8充值时间表4 客户端主机设置表(Client)列名类型长度说明Client_idint4客户端主机编号Client_namevarchar16客户端主机名称Client_ipvarchar15客户端主机IP表5 客户消费信息表(Cost)列名类型长度说明Cost_id

26、bigint8编号Client_namevarchar16客户端主机名称Cost_beginvarchar21开始时间Cost_timevarchar8上机时间Cost_routvarchar4上机费率Cost_costmoney8上机消费Cost_goodsmoney8商品消费namevarchar10用户姓名sexvarchar2用户性别zhengvarchar6证件类型Zheng_numvarchar18证件号码Admin_idvarchar10管理员编号表6 商品资料信息表(Goods)列名类型长度说明Good_idint4商品编号Good_namevarchar20商品名称Good_

27、buymoney8买进价格Good_sellmoney8卖出价格Good_numint4商品数量表7 会员资料信息表(Guest)列名类型长度说明Guest_idbigint8用户编号Guest_namevarchar10用户姓名Guest_sexvarchar2用户性别Guest_typevarchar10用户类型Guest_typenumvarchar20类型号码Guest_telvarchar15联系电话Guest_pwdvarchar10用户密码Guest_timedatetime8开户时间Guest_moneymoney8帐户余额Guest_costmoney8用户总消费Guest_

28、costcountint4上机次数Guest_lasttimevarchar20最后上机时间Admin_idvarchar10管理员编号表8 选购商品信息表(Sell)列名类型长度说明Sell_idbigint8卖出商品编号Sell_datedatetime8卖出商品时间Good_namevarchar20商品名称Good_sellmoney8商品价格Sell_numint4商品数量Sell_moneymoney8总计价格Admin_idvarchar10管理员编号4 系统结构设计4.1 客户/服务器系统的结构 在Client/Server中，位于另一个计算机上层的计算机称为服务器，而在下层的

29、计算机称为客户机。客户机和服务器之间的通信模型如图18所示，即首先客户机向服务器提交信息，服务器收到信息后进行处理，然后将处理后的结果返回给客户机。 服务器客户机向服务器递交信息向客户机递交信息图18 服务器与客户机通信模型4.2 系统的网络结构本系统是一个网络化的远程操作系统，其形式为一对多，采用一台服务器来负责管理多台客户机，网络结构如图19所示。客户端1端1客户端2客户端3客户端N服务器端图19 系统的网络结构4.3 功能模型： 此系统的功能模型如图20所示。计算机机房自动计费系统系统计费收入统计检索管理客户端设置管理员设置系统设置会员及充值管理商品资料管理开户收入检索上机收入检索商品收

30、入检索充值收入检索开始计费添加时间结帐选购商品调换计算机客户端控制图20 系统的功能模型5 软件的开发与设计5.1 系统开发的步骤启动Visual Basic 6.0后，新建两个标准的.EXE工程，然后将该工程保存，选择保存路径，并命名为计算机机房自动计费系统服务器端和客户端。接着给两个工程分别添加一个模块，选择菜单工程中的添加模块命令，或者在工程资源管理器中用鼠标右键单击工程，在弹出的快捷菜单中选择添加中的添加模块命令，并在此模块中定义服务器端和客户端需要用到的公共变量和公共类型。随后按照总体设计思想创建各个窗体，实现所有功能。5.2 主要窗体的实现 5.2.1服务器端主要窗体的实现：(1)

31、系统模块的设计：系统模块中主要定义了系统中常用到的变量，此模块中主要定义了数据库变量和数据库连接字符串，客户机通过字符串连接数据库即可访问服务器端的数据库。具体实现代码为：Public conn As New ADODB.ConnectionPublic Const constr = Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=Computer;(2)登录模块的设计：此模块的功能是检查管理员是否有进入系统的权限。用到的主要控件为一个Combo、一个TextBox

32、、和两个Button按钮。窗体界面如图21所示。图21 登录窗体的界面管理员可以选择相应的管理员帐号进行登录，减去了忘记帐号或帐号名输入不方便的烦恼。单击下拉列表可选择相应的管理员，具体实现代码为：Private Sub Form_Load()conn.Open constrDim rslogin As New ADODB.Recordset rslogin.CursorLocation = adUseClient strsql = select * from Admin rslogin.Open strsql, conn, adOpenDynamic, adLockPessimistic F

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

34、态栏中显示系统的当前时间，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 客户端主机管理窗体的界面 此模块中比较有特色的地方是自动编号功能，它能根据已有的数据库中的编

35、号自动为新插入的数据进行顺序编号，如碰到非顺序数据则插入最小值，如编号为1、3、4则新插入的编号为2。具体实现代码为：Dim flag As Boolean, id As Integer id = 0Doflag = False id = id + 1 rs.MoveFirst For i = 0 To rs.RecordCount - 1 If rs.Fields(0) = id Then flag = True rs.MoveNext Next i If flag = False Then Exit DoLoop(5)系统设置模块的设计：此模块的主要功能是设置系统中的一些基本信息。如设置普

36、通用户和会员的上网费率、最低消费金额、剩余时间提示和机房的相关信息等。窗体界面如图24所示。图24 系统设置窗体的界面由于此模块中的信息都是要求管理员强制输入的，因此判定管理员输入信息的正确性就成了一个至关重要的问题。具体实现代码为：If Not IsNumeric(Text(3).Text) ThenMsgBox 请设置提醒时间！ Text(3).SetFocus Exit SubEnd If(6)管理员设置模块的设计：此模块的主要功能是设置管理员的操作权限，通过权限的设置来确定用户的身份。权限可根据用户的需要自行设置，提高了操作的灵活性和管理的方便性。窗体界面如图25所示。图25 管理员设

37、置窗体的界面 此模块中管理员权限的选择是一个比较突出的功能，它区别于传统的只能根据系统已设置好的管理员类型进行选择权限，而是可以自己手工设置每个管理员的权限，这样就提高了系统的灵活性，使系统可以适合每一个使用的人群，具体实现代码为：If rs.EOF Thenrs.AddNew 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 irs.UpdateEnd If(7)上机计费模块的设计：此模块的主要功能是对非会员的用户提供上机计费

38、，用户需要预交一定的金额和设置上机时间就可以上机使用，用户的信息会显示在系统的主页面中，方便管理员及时的了解用户的上机状况和机器的使用情况，窗体界面如图26所示：图26 上机计费窗体的界面将普通用户的上机信息情况显示到主窗体的ListView控件上是此模块中的一个重点问题，通过选择的机器将用户的上机情况信息插入到此行中，具体实现代码为：Form6.ListView1.ListItems(Form6.ListView1.SelectedItem.Index).SubItems(1) = Now Form6.ListView1.ListItems(Form6.ListView1.SelectedI

39、tem.Index).SmallIcon = 3(8)用户结帐模块的设计：此模块的主要功能是通过RichTextBox控件显示下机结帐用户的上机消费情况，并可对消费的清单进行打印，使用户的消费更加清晰，也降低了人工操作的弊端，窗体界面如图27所示。图27 用户窗体的界面此模块中当管理员单击结帐按钮后，系统应自动清除主页面中用户上机的情况，并能对结帐的计算机进行桌面的锁定，防止他人非法进入，具体实现代码为：For i = 1 To 10Form6.ListView1.SelectedItem.SubItems(i) = Next iFor j = 1 To maxsIf rs(Client_ip

40、) = Form6.Winsock1(j).RemoteHostIP Then Form6.Winsock1(j).SendData 锁定End IfNext j(9)选购商品模块的设计：此系统的主要功能是为上机的用户提供一些学校中基本商品的选购，选购的商品费用可从普通用户的押金或会员的帐户金额中扣除，用户所购买的商品库存也会相应的减少，窗体界面如图28所示。图28 选购商品窗体的界面此模块中的重点是如何判定用户的金额是否充足。通过调用用户当前的上机金额和商品花费金额和用户已有的金额进行对比，如果用户购买的商品金额大于他本身的帐户金额，那么系统应拒绝此用户的要求，并在客户端上提示用户购买失败，

41、具体实现代码为：sell = ListView2.ListItems(ListView2.ListItems.Count).SubItems(4)cost = Format(Val(sell) + Val(Form6.ListView1.SelectedItem.SubItems(6), #0.0)If cVal(Form6.ListView1.SelectedItem.SubItems(8)-Val(Form6.ListView1.SelectedItem.SubItems(7) Then MsgBox 您的金额不足！ Exit SubElse进行购物处理End if(10)调换计算机模块的

42、设计：此模块的主要功能是可对已上机的用户调整其使用的计算机，启动要调换的机器，并锁定被调换的计算机，窗体界面如图29所示：图29 调换计算机窗体的界面因为要调换到的计算机只能是当前机房中没有被用户所使用的机器，所以，如何找到当前没有被使用的计算机也是此模块的一个重点。系统在主页面中找到没有显示用户上机情况的机器，并将此机器的名称显示到可调换的机器行列中，具体实现代码为：For i = 1 To Form6.ListView1.ListItems.Count If Form6.ListView1.ListItems(i).SubItems(1) = Then List1.AddItem Form

43、6.ListView1.ListItems(i).Text End IfNext i(11)客户端控制模块的设计：此模块的主要功能是对远程的计算机进行操作，可关闭、注销、重新启动远程的机器，也可对远程的机器进行锁定和解锁操作，窗体界面如图30所示：图30 客户端控制窗体的界面如何知道要控制的客户端的地址是此模块的重点。系统通过远程客户端的IP地址和数据库中客户端的IP地址进行对比，从而找到需要控制的客户端，再利用Winsock控件的SendData方法将需要进行的操作传递给客户端，具体实现代码为：For i = 1 To maxsIf rs(Client_ip) = Form6.Winsock

44、1(i).RemoteHostIP Then Select Case List1.Text Case 注销计算机 Form6.Winsock1(i).SendData 注销 Case 锁定计算机 Form6.Winsock1(i).SendData 锁定 Case 解除锁定 Form6.Winsock1(i).SendData 解锁 End Select Exit Sub End IfNext i(12)批量添加会员模块的设计：因为学校中班级人数众多，班级可能集体在机房中进行开户，手工输入每个学生的信息为学生开户显然是不现实的，所以此模块的主要功能是对用户比较多的集体可进行批量开户，管理员只需

45、要输入会员的数量和开户金额，就可以生成会员，然后会员在登陆系统后就可以修改会员的基本信息及帐号密码，方便了管理员的管理，也为用户带来了许多便利，窗体界面如图31所示：图31 批量添加会员窗体的界面此模块中根据用户在文本框中输入的数量，系统使用循环语句进行操作，循环的次数也就是会员的数量，然后在每次的循环中都进行添加会员的操作，具体实现代码为：Dim rs As New ADODB.RecordsetFor i = 1 To Trim(Text(0).Text) rs.CursorLocation = adUseClient strsql = select * from Guest rs.Ope

46、n strsql, conn, adOpenDynamic, adLockPessimistic rs.AddNewrs.updateNext i(13)会员充值模块的设计：此模块的主要功能是对机房中的会员进行充值，保证会员可以正常的上机。管理员只需要输入会员的帐号和充值金额即可，窗体界面如图32所示：图32 会员充值窗体的界面此模块中系统根据文本框输入的会员帐号进行充值，找到数据库中指定会员帐号操作的具体代码为：Dim rs As New ADODB.Recordsetrs.CursorLocation = adUseClientstrsql = select * from Guest wh

47、ere Guest_id= & Trim(Text1.Text) rs.Open strsql, conn, adOpenDynamic, adLockPessimisticrs.Fields(8) = Val(Trim(Text2.Text) + Val(Trim(rs.Fields(8)rs.Update (14)商品管理模块的设计：此模块的主要功能是对机房中的商品进行添加、删除及库存量的管理，窗体界面如图33所示：图33 商品信息管理窗体的界面此模块中管理员只需要从Datagrid控件中选择需要修改的商品，点击修改按钮，选择的商品信息就会自动显示在窗体上，其实现的具体代码为：Text(0

48、).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)收入检索模块的设计：此模块中管理员可以根据需要选择需要查看的收入类型，有上机收入检索、会员开户收入检索、商品收入检索及充值收入检索，管理员只需要输入要检索的日期，在检索日期范围内的所有收入统计就会显示出来，窗体界面如图34所示：图34 充值收入检索窗体的界面如何将指定时间内的所有数据都显示在Datagrid控件中是此模块的重点，其实现的具体代码为：Dim rs As New ADODB.Recordsetrs.CursorLocation = adUseClientstrsql = select Chong_time as 充值日期,Guest_i