网吧计费系统—毕业设计论文

1、网吧计费系统目 录摘 要I第一章 绪论11.1 选题的背景和意义11.2 研究内容11.2.1 效劳端11.2.2 客户端11.3 系统开发技术221.3.2 Access 2003数据库2第二章 系统设计32.1 系统需求分析32.1.1 系统需求分析32.1.2 传统网吧管理32.1.3 系统优点32.1.4 功能需求32.2 系统的设计原那么32.3 系统设计的思想42.4 系统功能描述42.4.1 操作员管理功能模块52.4.2 用户管理功能模块62.4.3 计算机管理功能模块72.5 系统设计的类结构8第三章 数据库设计103.1 数据库的需求分析10第四章 通信过程与中的通信类14

2、4.1 通信过程144.2 VB.NET 中的通信类154.2.1 TcpListener类164.2.2 TcpClient类164.2.3 NetworkStream类174.2.4 StreamReader类174.2.5 StreamWriter类18第五章 系统的实现195.1 公共模块195.2 效劳器端的实现195.2.1 效劳器端登录195.2.2 添加操作员215.2.3 编辑操作员235.2.4 删除操作员245.2.5 修改密码255.2.6 设置上机费率265.2.7 锁定屏幕275.2.8 用户充值285.2.9 查询费用295.2.10 添加用户信息305.2.11

3、 修改用户信息、删除用户信息315.2.12 添加计算机信息335.2.13 修改/删除计算机信息335.3 客户端登录355.3.1 登录355.3.2 下机365.3.3 设置375.3.4 退出37第六章：总结386.1 网吧计费系统的开发技术特点386.2 系统的缺乏与前景38参考文献39致 谢40机 房 计 费 系 统 软 件摘 要本课题研究的网吧计费系统是一款基于C/S结构，采用Access 2003 数据库，利用Visual B设计开发的网吧计费系统。文中主要介绍了系统的根本功能和系统结构组成情况，内容包括系统需求分析、系统设计原那么、系统设计思想、系统功能模块描述、数据库设计、

4、系统通信过程、通信协议等，同时还对开发环境Visual B、Access 2003数据库、Visual B技术的使用进行简单介绍，并列出了一些程序代码以说明该系统应用程序设计的实现过程。关键字 C/S 结构 Access 2003 Visual B 通信协议 ACCOUNTING SYSTEM SOFTWARE ON COMPUTER LABAbstract This thesis focus the study on computer lab accounting system which is based on C/S structure, designed and developed b

5、y Access 2003 databases and Visual B. In the article, author mainly analyzes some basic functions and composition of this system, which including system demanding analysis, system design principle, system design idea, description of functional module, Database design, processes of system communicati

6、on and agreements of communication. In addition, this thesis introduces briefly on use of Visual B, Access 2003 database, and , meanwhile, lists some programming codes to explain the realization process of this system applying the programs.Key words C/S structure, Access 2003, communication agreemen

7、t第一章 绪论1.1 选题的背景和意义随着计算机技术的日月更新，越来越多的人们注重加强对计算机知识的学习，为了满足学校学生或者社会学员的需求，许多网吧都纷纷对外开放，实行计时收费。但随着上机人数的增多，网吧的管理成了一个非常困难的问题。首先，人工计时收费是非常繁琐的一项工作，消耗人力物力，而且极容易出错；最后的统计工作更是一项费时费力的苦差事，甚至不能统计。其次，上机过程中，每个网吧都需要值班人员值班，消耗了管理人员的很多时间。随着计算机各种外围设备技术的开展，以上工作通过计算机就可以很方便地实现。为了适应当前网吧管理无人化的需求，本人试图利用自己大学所学专业知识并结合教学管理中的实际情况和其

8、它类似计费软件的优点，开发了一套网吧收费系统软件。本系统可以解决网吧管理中存在的几个实际问题：(1). 减少值班人员、维护人员，降低管理人员费用，甚至可以做到网吧无需人员值 守管理。(2). 增加网吧的开放时间，提高设备的利用率。(3). 解决目前网吧管理中的人情免费上机、脱逃费问题。1.2 研究内容利用VB.NET、Access2003 等开发工具开发一套基于c/s框架结构的网吧计费系统软件, 该系统要求由效劳端、客户端2个模块组成。各模块主要实现以下功能： 效劳端(1). 操作员管理主要包括：操作用户管理、操作员登录、修改密码、设置上机费用 。这其中大局部是标准数据的维护，包括新增、修改、

9、删除、查询等；(2). 用户信息管理主要包括：用户充值、查询用户费用、删除用户信息、添加用户信息、修改用户信息。这里区分不同的用户类型，按照不同用户类型设置上机费用等；(3). 计算机信息管理主要包括团体添加计算机信息、修改计算机信息、删除计算机信息3个模块。这里要记录计算机本身的配置信息以及使用情况。(4). 上机计费主要负责接收客户端程序发送来的上、下机信息，进行上、下机的处理，在处理上机登录时要进行用户的合法性检测。检测通过后产生一条用户上机记录，记录下计算机代码、卡号、登录开始时间等信息。处理下机信息时，要记录下此用户下机的详细时间。计费时要将当前使用费用记录在上机记录中，并在用户的档

10、案记录的余额字段中扣减，还要判断用户的余额情况，如果余额缺乏，要及时发送一个网络消息给用户。 客户端首先要求将客户端的桌面、任务管理器、系统状态栏等系统功能锁定，桌面上只有客户登录程序界面，要求用户输入用户代码和密码进行登录。登录信息要求以网络数据包的形式发送到“效劳器端，由“效劳器端来判断其合法性，并反应一个信息给客户端，如果一切合法的话，再将桌面、任务管理器等功能解锁，让用户正常使用。客户端程序要求正常停靠在系统托盘中，用户下机时要求点击此图标进行下机，客户端将下机信息发送到“效劳器端，然后重新弹出登录界面，等待下一个用户登录。1.3 系统开发技术 VB.net是微软最新平台技术，是.ne

11、t   framework   SDK的一种语言。编译以后生成的可执行文件被称为Assembly，即程序集。  VB.net的版本号是Visual  Basic  7.0，它的运行是建立在CLR(Common   Language   Runtime)和MSIL(Microsoft   Intermediate   Language)虚拟器上的。其实，它的机制和Java差不多。   VB.net的语言特点有下：(1). 代码托

12、管。被托管的代码享受.net   framework提供的平安保障和垃圾回收机制，但是这也同时说明，程序被框在Framework里面了。API变得不太方便。(2). 强大的面向对象特性。现在VB7已经是一个完全的面向对象程序。它已经支持类的各种特性：继承，函数的覆盖，重载，虚拟，隐藏 (3). 功能强大，程序界面更标准。(4). 程序代码结构化更强，开发环境舒适体贴。1.3.2 Access 2003数据库Access是Microsoft 公司推出的一款优秀的数据库管理软件，最适合用来作为中、小规模数据量应用软件的底层数据库。因为其功能强大、可靠、高效的管理方式，

13、支持网络和多媒体技术，简单易学，便于开发等主要特点，目前已经获得相当广泛的应用。Access本身就是一个采用面向对象技术开发的数据库系统软件，它能很好地支持面向对象技术。Access的数据库对象都具有属性和方法等面向对象技术的根本特征。在Access 2003版本中，Access使用了表格来实现数据的采集、维护、分析和传播等功能，此外，它还提供了关系型数据库所要求的相当丰富的数据运算和数据汇总能力。其主要特点如下：(1). 完善地管理各种数据库对象，具有强大的数据组织、用户管理、平安检查等功能。 (2). 强大的数据处理功能，在一个工作组级别的网络环境中，使用Access开发的多用户数据库管理

14、系统具有传统的XBASEDBASE、FoxBASE的统称数据库系统所无法实现的客户效劳器 (Client/Server) 结构和相应的数据库平安机制，Access具备了许多先进的大型数据库管理系统所具备的特征，如事务处理/出错回滚能力等。 (3). 可以方便地生成各种数据对象，利用存储的数据建立窗体和报表，可视性好。 (4). 作为Office套件的一局部，可以与Office集成，实现无缝连接。 (5). 能够利用Web检索和发布数据，实现与Internet的连接。 Access主要适用于中小型应用系统，或作为客户机/效劳器系统中的客户端数据库。第二章 系统设计2.1 系统需求分析 系统需求分

15、析(1). 需求分析的定义：需求分析是对用户需求的真正明确，是对要解决的问题的彻底理解，是一个软件开发的最重要阶段，需要了解和澄清用户的需求 ，严格的制定被开发的软件系统的需求规格说明书。(2). 需求分析的任务：开发软件系统最为困难的局部是准确说明开发什么，最为困难的概念性工作便是编写出详细的技术需求，这包括所有面向用户，面向机器和其他软件系统的接口，同时这也是一旦出错，将最终会给系统带来极大损害的局部，并且以后再对它修改也极为困难的。这些定义强调的是：产品是怎样的，而并非产品是怎样设计构造的。之说所说到需求分析是最重要，就因为它具有决策性、方向性、策略性的作用。因而对于任何一款软件来说，做

16、好它的根本在于它的需求分析。 传统网吧管理网吧是随人们生活中对计算机越来越需要而建立的，这类网吧大多存在于学校，公司，图书馆等大型公共场所，在网吧建立之初，没有网吧计费系统的情况下，网吧的管理完全人工化。逃费，人情上机，计费错误等情况不可防止地出现。也可以说是网吧现象中的一局部，这类情况给管理人员带来很大的麻烦，逃费和计费错误会给网吧管人员在财力带来损失或误会，人情上时机给管理人员带来生活中为难的烦恼。这类情况一再发生，就会在管理人员精神上带来越来越大的压力。上机用户有时也会因管理人员的失误带来不必要的麻烦。渐渐大家对网吧就会有一种厌反感和恐惧感。同时,在人工长期使用,会形成大量的数据,这些数

17、也会使得数据管理上的混乱。 系统优点 综上所述，人工管理网吧实在存在很大的问题，而且浪费太多的人力，物力。计算机一点一丁的入侵人类的生活，计算机管理代替人工管理是不可防止的，像网吧管理这类不要求在管理上创新，机械般管理更加完美的前提下，我选择设计开发网吧计费系统，希望能改善网吧管理上的混乱情况，也防止了管理人员的工作麻烦。使用网吧计费系统优于人工管理在于：(1).管理人员的工作量。(2).计费准确无误。(3).防止人情上机的为难。(4).工作迅速快捷。 功能需求 网吧计费系统的主要功能有：(1). 效劳端包括操作员管理，用户信息管理，计算机信息管理(2). 客户端用户使用计算机的所有情况(3)

18、. 系统数据的初始化，查询，修改，删除。2.2 系统的设计原那么根据系统的需求分析，计费系统属于网络，计算机使用费用，作息管理及数据库于一体的综合性系统，因而，网吧计费系统在总体设计时应遵循以下原那么上：(1). 系统的功能设计完善性，满足多方的使用需求。(2). 系统应具有良好的稳定性，实用性，平安性。设计理念应是客户容易使用。(3). 数据库结构设计合理，各类属性符合要求。2.3 系统设计的思想(1). 系统设计结构 基于网吧计费系统的综合性，而且为了满足多方使用的需求，本系统以c/s的框架结构为根本结构模式：如图2.1所示 图2.1 系统结构图(2). 系统实现技术系统实现所需开发环境，

19、它是下一代的Visual Basic。而并不是简单的在Visual Basic 6.0上在添加一些新特性而已，微软重新设计了产品以便使开发者能够更加容易的开发分布式应用，例如基于WEB的程序以及多层系统。Visual Basic.NET中有两种窗体包，Windows窗体以及Web窗体；一个新版的ADO用于接受离线数据源；新的语言，移走了原来的关键字，提高Type数据的平安性以及提供低级别结构以满足高级别开发者的需求。这些新的特性为Visual Basic开发者提供了新的开发窗口：通过Web窗体以及ADO.NET，你可以快速开发可扩展的Web站点

20、；通过继承，该语言实现了真正的支持面向对象编程object-oriented programming；Windows窗体本身支持可视继承；现在展开程序就像拷贝可执行文件和控件到另一个目录那样简单。 Visual Basic.NET现在完全集成在其它的Microsoft Visual Studio .NET语言中，不仅可以通过不同的语言开发组件，而且通过交叉语言继承，可以从用一种语言编写的类中派生用另一种语言编写的类。 (3). 系统的平安性 为了使系统能够在使用的过程中，用户利益得到保障。在系统中应设计管理模块，根据不同的客户设定不同

21、的权限，表达了追求系统人工智能化，保证了只有管理员才能对整个系统的完全控制。2.4 系统功能描述 图2.2 系统功能模块图 本系统要求对用户使用网吧计算机资源的整个过程进行有效的管理。客户端保证用户在登录系统前无法使用计算机。效劳器端实现系统的各种功能，包括系统管理、用户、计算机信息的管理功能。效劳器端的功能需求具体表述有： 操作员管理功能模块该模块主要提供操作员登录、操作员管理、修改密码和设置上机费用的功能。操作员管理具体包括添加、编辑和删除操作员，能够按模块的方式设置操作员不同的权限。如图2.3所示 图2.3 操作员管理模块图 用户管理功能模块该模块主要提供用户充值、添加、查询、修改和删除

22、用户信息的功能。这里要区分不同的用户类型，按不同的用户类型设置上机费用。如图2.4所示 图2.4 用户信息管理模块图 计算机管理功能模块该模块主要提供添加、修改和删除计算机信息功能。这里不仅需要记录计算机本身的配置信息，还需要记录计算机的连接和使用情况。如图2.5所示图2.5 计算机信息管理模块图2.5 系统设计的类结构本系统代码结构分为前端界面和底层的类代码。 图2.6 系统代码结构设计图第三章 数据库设计数据库设计是信息管理系统中的一个根底工作，在整个开发工作中占有相发重要的份量。数据库的设计目的在于提供高的数据库存储效率，保证数据库的完整性和一致性。设计数据库系统时应先了解用户的各方面需

23、求，包括现有系统的需求及将有可能增加的需求。3.1 数据库的需求分析 用户的需求具体表达在各种信息的提供、保存、更新、和查询，这就要求数据库存结构能充分满足各种信息的输入和输出。收集根本数据、数据结构以及数据处理的流程，组成一份详尽的数据字典，是系统设计的根本。 基于计费系统的需求，通过业务流程和数据流程的分析，需设计以下数据表和数据字段。1. 操作员信息表字段名意义字段类型字段大小关键字UserName操作员账号文本6是Password密码文本10RealName操作员真实姓名文本10ModUser用户模块文本3ModComputer计算机模块文本3Memo备注备注表3.1 操作员信息表设计

24、完成后,保存信息为“tbSuperUser，为了在程序中检验数据库存的合理性以及测试程序的效果，应在数据库中输入一些数据。如图3.1所示：图3.1 操作员信息表图2. 用户信息表：字段名意义字段类型字段大小关键字UserName用户名文本6是Password密码文本10RealName用户真实姓名文本10Group用户类型文本3Fee账号余额数字单精度BirthDate出生日期日期Phone联系 文本20ValidDate有效日期日期CreateCarDate创立日期日期CertificateType证件类型文本10CertificateNo证件号码文本20Address住址文本50PostC

25、ode 文本6Memo备注备注表3.2 用户信息表设计完成后,保存信息为“tbUser 图3.2 用户信息表图3. 计算机信息表：字段名意义字段类型字段大小关键字ComputerName计算机名称文本17是UserName用户名文本10Connected是否连接文本1IPAddressIP地址文本15RoomNo网吧编号文本2PositionNo机位编号文本3Config配置文本50Memo备注备注表3.3 计算机信息表设计完成后,保存信息为“tbCompter图3.3 计算机信息表图4. 用户费用信息表：字段名意义字段类型字段大小关键字UserName用户名文本10LoginTime登录时间

26、日期10LogoffTime下机时间日期日期TotalHour本次上机时间数字单精度Fee本次上机费用数字单精度Computer计算机的房间编号+机位编号文本10表3.4 用户费用信息表5. 费率信息表：字段名意义字段类型字段大小关键字Group用户类型文本10是Amount费率数字单精度表3.5 用户费率信息表图3.4 用户费率信息表图第四章 通信过程与4.1 通信过程网吧计费系统有异于其它信息管理系统，它的工作原理如图4.1所示，因此效劳器端与客户端机器通信就必然会采用异步通信的方式，在主程序启动后，程序在后台同时启动别一个线程，通过Socket对象开始侦听客户端。当客户端传入一个连接请求

27、时，后台程序将接受该请求，同时实例化一个Socket对象负责与该客户端的Socket对象进行通信。如果程序没有退出，进入下一个侦听循环，那么后台程序就实现了一点对多点的通信模式。 效劳器端与客户端的具体通信过程如图4.2所示。具体工作流程先是客户端发出连接请求，正常情况，效劳器端必定接受请求。客户端再发送一个连接信息，该信息包含客户端机器的一些信息,效劳器端将接受该信息，并对其进行相应处理，再回发一个确认信息给客户端。这样就表现效劳端与客户端已成功连接。此时，客户端发送登录信息，或在登录成功后，间期性发送连接信息，或在下机时发送注销信息，同时效劳器端对这些信息进行相应处理，并反应客户端。这就是

28、一个完整的客户端与效劳器端的通信过程。4.2 VB.NET 中的通信类TCP协议是TCP/IP协议簇中的传输层中的一个协议，也是TCP/IP协议簇最为重要的协议之一。TCP协议是一种面向连接的，并提供可靠的、完整的、平安的数据传送的网络协议。它提供可靠字节效劳的协议。在网络中通过TCP协议传送数据之前，发送方和接收方之间必须建立连接，这种连接就是所谓的"握手"。网络中TCP应用，如同日常生活中的打 ，在通话之前，首先要拨号、震铃犹如发送方向接收方提出TCP连接申请，并等待TCP连接申请通过。直到对方拿起 时发送方和接收方的TCP连接已经建立，就可以通话了传送数据。本系统是基

29、于TCP/IP协议网络数据传送的。在.Net FrameWork SDK中提供了很多用以实现TCP协议或与之相关协议的类库，现介绍在系统设计中用到的5个类，即：TcpListener类、TcpClient类、NetworkStream类、StreamReader类和StreamWriter类。TcpListener主要用以侦听端口号，并接收远程主机的TCP连接申请；TcpClient主要用以提出TCP连接申请； NetworkStream类是实现TCP数据传输的根底数据流；StreamReader类的作用是通过操作NetworkStream，实现从网络接收数据；StreamWriter类的作用

30、是通过操作NetworkStream，实现向网络传输数据。 TcpListener类在本系统设计中，TcpListener类设计在效劳器端，主要作用是从TCP网络客户端侦听连接， TcpListener类基于Socket 类，提供更高理念级别的TCP效劳。可以使用TcpListener从TCP客户端侦听连接。像 FTP 和 这样的应用层协议是在 TcpListener 类的根底上建立的。TcpListener类常用方法、属性及其说明，如表4.1、表4.2所示：方法说明AcceptSocket接受挂起的连接请求AcceptTcpClient接受挂起的连接请求Pending确定是否有挂起的连接请求

31、Start开始侦听网络请求Stop关闭侦听器表4.1 TcpListener类常用方法及其说明表属性说明LocalEndpoint获取当前TcpListener的根底EndPointActive获取一个值，该值指示 TcpListener 是否正主动侦听客户端连接Server获取根底网络Socket表4.2 TcpListener类常用属性及其说明表 TcpClient类在本系统设计中，TcpClient类设计在客户端，主要为TCP网络效劳提供客户端连接。TcpClient是类基于Socket类构建，它以更高的抽象程度提供TCP效劳。TcpClient 提供了通过网络连接、发送和接收数据的简单

32、方法。TcpClient类常用方法、属性及其说明，如表4.3、表4.4所示：方法说明Close关闭 TCP 连接Connect使用指定的主机名和端口号将客户端连接到 TCP主机GetStream返回用于发送和接收数据的流表4.3 TcpClient类类常用方法及其说明表属性描述LingerState有关套接字逗留时间的信息NoDelay一个值，该值在发送或接收缓冲区未满时启用延迟ReceiveBufferSize接收缓冲区的大小ReceiveTimeoutTcpClient在启动后为接收数据而等待的时间长度SendBufferSize发送缓冲区的大小SendTimeout在您启动发送操作后Tc

33、pClient将为接收确认而等待的时间长度表4.4 TcpClient类类常用属性及其说明表 NetworkStream类NetworkStream类主要是提供用于网络访问的根底数据流。它主要是网络数据传输的载体，并提供同步、异步方式来访问网络数据流。在程序设设计过程中，经常利用NetworkStream作为传送StreamWriter类和接收StreamReader类数据的载体。NetworkStream类常用方法、属性及其说明，如表4.5、表4.6所示：方法说明BeginRead开始异步读者根底数据流BeginWrite开始异步写入根底数据流Close关闭流并可选择关闭根底套接字EndRe

34、ad结束异步读取EndWrite结束异步写入Flush刷新流中的数据Read从流中读取数据Seek将流的当前位置设置为给定值SetLength设置流的长度Write将数据写入流表4.5 NetworkStream类中常用的方法及其说明表 注:其中"BeginRead"、"EndRead"和"BeginWrite"、"EndWrite"是二对异步方法，起作用分别相当于"Read"和"Write"方法。属性说明CanRead获取当前流是否支持读取CanSeek获取流是否支持查找。

35、该属性总是返回 falseCanWrite获取当前流是否支持写入DataAvailable获取是否可以在流上读取数据Length流上可用数据的长度Position获取或设置流中的当前位置表4.6 NetworkStream类中属性及其说明表 StreamReader类StreamReader类能够实现对根底数据流的读操作，从而实现对经过根底数据流传送来的数据。StreamReader类常用方法、属性及其说明，如表4.7所示：方法说明Close关闭StreamReader并释放与阅读器关联的所有系统资源DiscardBufferedData允许StreamReader丢弃其当前数据Peek返回下

36、一个可用的字符，但不使用它Read读取输入流中的下一个字符或下一组字符ReadBlock从当前流中读取最大数量的字符并从索引开始将该数据写入缓冲区ReadLine从当前流中读取一行字符并将数据作为字符串返回ReadToEnd从流的当前位置到末尾读取流表4.7 StreamReader类中常用的方法及其说明表 StreamWriter类StreamWriter类能够实现对根底数据流的写操作，从而实现提供根底数据流来传送数据。StreamWriter类常用方法及其说明，如表4.8所示：方法说明Close关闭当前的StreamWriter和根底流Flush清理当前编写器的所有缓冲区，并使所有缓冲数据

37、写入根底流Write写入根底数据流WriteLine写入重载参数指定的某些数据，后跟行结束符表4.8 StreamReader类中常用的方法及其说明表第五章 系统的实现创立系统数据库，效劳器端程序和客户端程序后，就可以实现运行整个系统程序。5.1 公共模块首先在效劳器端程序的公共模块中添加以下代码，运行系统登录窗口：Sub Main ( ) Application.EnableVisualStyles ( )Application.DoEvents ( )Application.Run( New FrmLogin)End Sub 5.2 效劳器端的实现效劳器端主界面分为4局部：主菜单、工具栏、

38、播送消息面板和客户端显示板。主菜单可以对系统的操作员信息，用户信息和计算机信息进行管理；工具栏为用户提供了一些操作的快捷方式；播送消息可以向用户发送文本消息和关机等命令；客户端的连接情况那么经显示面板显示。 效劳器端登录 进入系统，首先是登录界面，而登录功能是任何一个数据库信息管理系统不可少的模块，设计如图5.1所示，用户需要输入用户名，密码和附加码。如果该界面判断用户名、密码和附加码都正确有效，系统将会进入到主界面。 图5.2登录流程图 根据以上流程，双击窗体上的“确定按钮，翻开代码编辑器，在按钮的Click事件中添加如下代码： If Label.Text = TxtAttachCode.T

39、ext Then NewSuperUser = New ClsSuperUser(Trim(UsernameTextBox.Text), PasswordTextBox.Text) If NewSuperUser.LoginConfirm Then Dim Frmobj As New FrmMain() Frmobj.Show() '显示主窗体 Me.Finalize() Else MsgBox("输入错误，请重试", MsgBoxStyle.Critical, "信息框") Exit Sub End If Else MsgBox("输

40、入错误，请重试", MsgBoxStyle.Critical, "信息框")ode Exit Sub End If Me.Close()End Sub 添加操作员添加操作员信息功能是超级用户具有的功能，通过此界面设置所添加操作员的相关信息和权限设置。所添加操作员对用户/计算机信息模块的权限分为3种：无权限、可读和可读写。添加操作员设计图如图5.3所示。 添加操作员功能只能由超级用户添加，这个设计就能使系统管理不混乱，保障系统平安性，判断“添加操作员操作权限工作流程如图5.4所示。 图 5.4 判断“添加操作员操作权限流程图双击“确定按钮，编写代码如下： Priva

41、te Sub BtOK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles If Trim(TxtName.Text) = "" Then MsgBox("输入的用户名不能为空！", MsgBoxStyle.Exclamation, "信息框") Exit Sub End If If Trim(TxtRealName.Text) = "" Then MsgBox("输入的用户真实姓名不能为空！", M

42、sgBoxStyle.Exclamation, "信息框") Exit Sub End If If Trim(TxtPassword.Text) = "" Then MsgBox("输入的密码不能为空！", MsgBoxStyle.Exclamation, "信息框") Exit Sub End If Dim TempUser As New ClsSuperUser(Trim(TxtName.Text), TxtPassword.Text) TempUser.RealName = Trim(TxtRealName.

43、Text) TempUser.ModUser = Trim(ComboModUser.Text) TempUser.ModComputer = Trim(ComboModComputer.Text) TempUser.Memo = Trim(TxtMemo.Text) NewSuperUser.AddUser(TempUser) Me.Close() End Sub 编辑操作员编辑操作员信息功能是超级用户具有的功能，通过此界面设置所要修改操作员的相关信息和权限设置。所编辑操作员对用户/计算机信息模块的权限分为3种：无权限、可读和可读写。编辑操作员设计图如图5.5所示。 图 5.5 修改操作员信

44、息图这里需要判断用户的真实姓名和密码不能为空，对用户输入的信息合法性验证通过以后，需要对信息进行处理。处理的方法有：a.直接更新。b.先删除该用户信息，然后再添加该用户的信息。根据用户选中的用户名，构造用户信息表中查询相应用户的信息，将这些信息显示在界面上。双击“保存按钮的Click事件，编写代码如下： Private Sub BtOK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles If Trim(TxtRealName.Text) = "" Then MsgBox(&qu

45、ot;输入的用户真实姓名不能为空！", MsgBoxStyle.Exclamation, "信息框") Exit Sub End If If Trim(TxtPassword.Text) = "" Then MsgBox("输入的密码不能为空！", MsgBoxStyle.Exclamation, "信息框") Exit Sub End If NewSuperUser.DelUser(LBUserName.SelectedItem) Dim TempUser As New ClsSuperUser(LBU

46、serName.SelectedItem, TxtPassword.Text) TempUser.RealName = Trim(TxtRealName.Text) TempUser.ModUser = Trim(ComboModUser.Text) TempUser.ModComputer = Trim(ComboModComputer.Text) TempUser.Memo = Trim(TxtMemo.Text) NewSuperUser.AddUser(TempUser) End Sub 删除操作员只有超级用户才具有的删除功能。首先要判断用户类型是否为超级用户，然后再判断所选中删除的是

47、否是超级用户超级用户是不能被删除的，最后更新界面的用户信息列表。工作流程如图5.6所示。具体工作过程：“操作员管理 “操作员管理“删除操作员图5.7 删除操作员信息图 修改密码修改用户密码是所用操作员都具有的功能，操作员在输入旧密码，以及重复输入新密码，就可能修改操作员密码。图5.8 所示为修改密码界面。图5.8 修改密码界面图图5.9 修改密码工作流程图 设置上机费率设置上机费率是超级用户特有的功能，可以根据不同的客户类型，设定不同的上机费率，在这里设计为临时用户、普通用户、银卡用户、金卡用户，不同类型的客户，不同上机费率也不同。具体操作：“操作员管理“设置上机费率命令，弹出“设置上机费率窗

48、口。在这分别对临时用户、普通会员、银卡会员、金卡会员的上机费率进行设定。完成并保存到数据库。如图5.10所示。图5.10 设置上机费率图 具体代码如：Private Sub BtOK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handl Dim TempFeeRules As New ClsFeeRules TempFeeRules.Group = "临时用户" TempFeeRules.Amount = Val(Me.TxtGroup0.Text) TempFeeRules.AddR

49、ule() TempFeeRules.Group = "普通用户"oup1.Text) TempFeeRules.AddRule() TempFeeRules.Group = "银卡用户" TempFeeRules.Amount = Val(Me.TxtGroup2.Text) TempFeeRules.AddRule() TempFeeRules.Group = "金卡用户" TempFeeRules.Amount = Val(Me.TxtGroup3.Text) TempFeeRules.AddRule() End Sub 锁定屏

50、幕该功能是当操作员需要外出，系统不能关闭时，防止他人的非法操作系统。在使用该功能时，主窗体被隐藏，登录主窗体，要求输入用户密码。具体操作：“操作员管理 “锁定屏幕命令，程序的窗口将会被隐藏，弹出锁定屏幕的窗口，在这里输入密码，又可重返主窗口。如图5.11所示。 图5.11 锁定屏幕图 用户充值操作员在使用此功能时，先输入用户名，点击“读取就可读取用户的真实姓名和余额信息，确认输入的用户是正确的，再输入本次充值的金额，“保存更新用户账号上的余额信息。如图5.12所示： 图5.12 用户充值图“读取功能代码： Private Sub BtnRead_Click(ByVal sender As Sy

51、stem.Object, ByVal e As System.EventArgs) Handles If Trim(TxtUserName.Text) = "" Then MsgBox("请输入用户名！", MsgBoxStyle.Exclamation, Me.Text) Exit Sub End If Dim TempUser As New ClsUser TempUser.UserName = Trim(TxtUserName.Text) TempUser.GetInfo() TxtRealN End Sub“保存功能代码： Private Sub BtnSave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles If Trim(TxtUserName.Text) = "" Then MsgBox("请输