网吧管理系统的设计和实现的分析

...wd......wd......wd...毕业设计[论文]任务书姓名班号院系同组姓名无指导教导☆☆课题名称网吧管理系统的设计与实现课题内容运用计算机进展网吧的自动计费与管理,是计算机成为当今社会辅助管理手段开展的必然趋势。在查阅了大量参考文献的根基上,运用IC卡自动识别技术、数据库技术和网络的远程通信与控制技术等,开发了计算机网吧自动计费与管理系统,将琐碎的手工实际业务转化到计算机操作上,极大地提高了网吧工作人员的工作效率,有效地提高了网吧现代化管理的水平。课题任务要求观点正确，论证充分。构造合理，逻辑严密。满足一定的阅读量。同组设计者无五、主要参考文献[1]张海藩.软件工程导论.北京:清华大学出版社,2008年[2]王珊,萨师煊.数据库系统概论(第四版).北京:高等教育出版社,2008年[3]龚赤兵等.visualstudio2008中的LINQ开发技术.北京：机械工业出版社，2008年[4]JuliaCaseBradley,AnutaC.Millspaugh.VisualBasic2008程序设计〔第七版〕.北京：清华大学出版社,2008年[5]章立民等.VisualBasic2003–2005开发秘诀与范例大全.北京：电子工业出版社，2005年[6]胡百敬姚巧玫.SQLServer2005数据库开发详解.北京：电子工业出版社，2006年[7]童爱红刘凯刘雪梅.VB.NET程序设计实用教程.北京：清华大学出版社，2008年指导教师签字教研室主任签字年月日目录摘要1前言1TOC\o"1-3"\u第一章系统概述11.1系统开发的背景和意义11.2系统开发技术11.2.1VB.NET概述11.2.2SQLServer数据库2第二章可行性分析32.1可行性概述32.2可行性研究3第三章系统需求分析43.1传统网吧管理43.2系统优点43.3系统功能需求43.3.1系统逻辑模型53.3.2服务端53.3.3客户端63.4系统的设计原那么63.5系统设计的思想63.5.1系统设计构造63.5.2系统实现技术7第四章系统的总体设计84.1系统功能设计84.2系统功能模块简介94.2.1客户端功能模块94.2.2服务端功能模块94.2.3数据库设计10第五章详细设计135.1关键模块设计135.1.1登陆模块135.1.2客户端模块135.1.3服务端模块145.2系统界面设计155.2.1登录界面155.2.2客户端界面165.2.3服务端界面17第六章编码实现196.1系统功能实现196.2登陆模块编码196.3客户端模块编码206.4服务端模块编码23第七章系统测试277.1系统测试目标277.2系统测试方案277.3具体测试287.3.1登录模块测试287.3.2客户端测试287.3.3服务端测试30完毕语31参考文献32致谢33摘要运用计算机进展网吧的自动计费与管理,是计算机成为当今社会辅助管理手段开展的必然趋势。在查阅了大量参考文献的根基上,运用IC卡自动识别技术、数据库技术和网络的远程通信与控制技术等,开发了计算机网吧自动计费与管理系统,将琐碎的手工实际业务转化到计算机操作上,极大地提高了网吧工作人员的工作效率,有效地提高了网吧现代化管理的水平。本系统在参阅其他成功的网吧管理系统的根基上,通过对实际业务的分析,确定了系统的设计思想和运行流程,主要在以下几个方面开展了研究工作:在对自动识别和IC卡技术进展分析的根基上,提出了使用IC卡作为用户上机识别的标志的思想,并给出了具体的实现方式。研究了数据库技术及其开展情况,根据SQLServer2000数据库的特点,选用了适合本系统的开发软件。关键词：网吧管理，自动计费，SQL,Server前言随着高科技的蓬勃开展,智能化管理已经走进了人们的社会生活,一座座智能化大厦拔地而起,适应信息的时代需要,作为跨世纪使用的建筑,必须在功能上满足当前和未来开展的需求,成为文化和经济开展的基地

网吧管理系统开发作为一项先进的高科技技术防范和管理手段,在一些经济兴旺的国家已经广泛应用于科研工业博物馆酒店商场医疗监护银行监狱等,特别是由于系统本身具有隐蔽性,及时性等特点,在许多领域的应用越来越广泛1系统概述1.1系统开发的背景和意义随着计算机技术的日月更新，越来越多的人们注重加强对计算机知识的学习，为了满足学校学生或者社会学员的需求，许多网吧都纷纷对外开放，实行计时收费。但随着上机人数的增多，网吧的管理成了一个非常困难的问题。首先，人工计时收费是非常繁琐的一项工作，消耗人力物力，而且极容易出错；最后的统计工作更是一项费时费力的苦差事，甚至不能统计。其次，上机过程中，每个网吧都需要值班人员值班，消耗了管理人员的很多时间。随着计算机各种外围设备技术的开展，以上工作通过计算机就可以很方便地实现。为了适应当前网吧管理无人化的需求，本人试图利用自己大学所学专业知识并结合教学管理中的实际情况和其它类似计费软件的优点，开发了一套网吧收费系统软件。本系统可以解决网吧管理中存在的几个实际问题：1减少值班人员、维护人员，降低管理人员费用，甚至可以做到网吧无需人员值守管理。2增加网吧的开放时间，提高设备的利用率。3解决目前网吧管理中的人情免费上机、脱逃费问题。1.2系统开发技术1.2.1VB.NET概述VB.net是微软最新平台技术，是.netframeworkSDK的一种语言。编译以后生成的可执行文件被称为Assembly，即程序集。它的运行是建设在CLR(CommonLanguageRuntime)MSIL(MicrosoftIntermediateLanguage)虚拟器上的。其实，它的机制和Java差不多。VB.net的语言特点有下：1代码托管。被托管的代码享受.netframework提供的安全保障和垃圾回收机制，但是这也同时说明，程序被框在Framework里面了。API变得不太方便。2强大的面向对象特性。现在VB7已经是一个完全的面向对象程序。它已经支持类的各种特性：继承，函数的覆盖，重载，虚拟，隐藏……。3功能强大，程序界面更标准。4程序代码构造化更强，开发环境舒适体贴。1.2.2SQLServer数据库美国Microsoft公司推出的一种关系型数据库系统。SQLServer是一个可扩展的、高性能的、为分布式客户机/服务器计算所设计的数据库管理系统，实现了与WindowsNT的有机结合，提供了基于事务的企业级信息管理系统方案。其主要特点如下：1高性能设计，可充分利用WindowsNT的优势。2系统管理先进，支持Windows图形化管理工具，支持本地和远程的系统管理和配置。3强壮的事务处理功能，采用各种方法保证数据的完整性。4支持对称多处理器构造、存储过程、ODBC，并具有自主的SQL语言。SQLServer以其内置的数据复制功能、强大的管理工具、与Internet的严密集成和开放的系统构造为广阔的用户、开发人员和系统集成商提供了一个出众的数据库平台2可行性分析2.1可行性概述可行性分析也称为可行性研究，是在系统调查的根基上，针对新系统的开发是否具备必要性和可能性，对新系统的开发从技术、经济、社会的房买你进展分析和研究，以防止投资失误，保证新系统的开发成功。可行性研究的目的就是用最小的代价在尽可能短的时间内确定问题是否能够解决。2.2可行性研究数据库是指自描述的完整记录的集合。数据库技术在20世纪60年代中期产生，它的出现使信息系统的研制从加工数据的程序为中心转变为共享数据库为中心来进展。数据库开场时在大公司或机构中进展大规模数据处理后来随着计算机的逐渐普及，数据库才应用到计算机上。数据库开展到今天，已经是相当成熟的阶段，它对大量处理能力的不断提高，开展和完善。本系统的开发利用VS2008作为开发工具。VS2008是一个具有完善开发工具的平台。VS2008提供的工具适合各种水平层次无论是初学者还是有经历的团队，并适合各种不同的开发需求。降低了开发的复杂度，其提供给开发者更加简便动态的.NetFramework根基解决方案，其中包括了windows应用程序开发、office嵌入开发、Web应用开发、移动应用程序开发。改进了团队交流方式，VS2008为团队开发提供通道和完整的开发周期工具，从而增加了团队内部的交流与协作的效率。通过学习，熟悉和掌握VB.NET的使用方法，使用VS2008作为开发工具将使整个系统的模块化设计变得更加简便。系统采用SQLSERVER2005作为开发数据库。SQLSERVER2005是一种客户机/服务器构造的关系数据库管理系统。SQLSERVER2005提供了许多易于使用的图形化工具和向导，其中最常用的是服务管理器、企业管理器和查询分析器。它们为创立和管理数据库带来了很大的方便。3系统需求分析3.1传统网吧管理网吧是随人们生活中对计算机越来越需要而建设的，这类网吧大多存在于学校，公司，图书馆等大型公共场所，在网吧建设之初，没有网吧计费系统的情况下，网吧的管理完全人工化。逃费，人情上机，计费错误等情况不可防止地出现。也可以说是网吧现象中的一局部，这类情况给管理人员带来很大的麻烦，逃费和计费错误会给网吧管人员在财力带来损失或误会，人情上时机给管理人员带来生活中为难的烦恼。这类情况一再发生，就会在管理人员精神上带来越来越大的压力。上机用户有时也会因管理人员的失误带来不必要的麻烦。渐渐大家对网吧就会有一种厌反感和恐惧感。同时,在人工长期使用,会形成大量的数据,这些数也会使得数据管理上的混乱。3.2系统优点人工管理网吧实在存在很大的问题，而且浪费太多的人力，物力。计算机一点一丁的入侵人类的生活，计算机管理代替人工管理是不可防止的，像网吧管理这类不要求在管理上创新，机械般管理更加完美的前提下，我选择设计开发网吧计费系统，希望能改善网吧管理上的混乱情况，也防止了管理人员的工作麻烦。使用网吧计费系统优于人工管理在于：1管理人员的工作量。2计费准确无误。3防止人情上机的为难。4工作迅速快捷。3.3系统功能需求网吧计费系统的主要功能有：1服务端〔包括管理员管理，用户信息管理〕2客户端〔用户使用计算机的所有情况〕3系统数据的初始化，查询，修改，删除。3.3.1系统逻辑模型为了实现管理信息系统的计算机化，仅仅用文字来描述信息的流动和存储还远远不够，还要进一步调查分析舍去物质流，抽象出信息流，绘制出数据流程图，并对各种数据的属性和各项处理功能进展详细分析。系统分析的主要成果是系统的逻辑模型。本系统主要是以数据流程图、E-R图和系统功能模块图为主要描述工具来勾画系统的概貌。对系统的功能进展分析,综合本系统设计的服务器端与客户端,总结整个系统功能模块。图图3.1顶层数据流图用户管理员上机更新用户消费信息下机3.3.2服务端1管理员管理主要包括：操作用户管理、操作员登录、修改密码、设置上机费用。这其中大局部是标准数据的维护，包括新增、修改、删除等；2用户信息管理主要包括：用户充值、查询用户费用、删除用户信息、添加用户信息、修改用户信息。这里区分不同的用户类型，按照不同用户类型设置上机费用等；3上机记录主要负责接收客户端程序发送来的上、下机信息，进展上、下机的处理，在处理上机登录时要进展用户的合法性检测。检测通过后产生一条用户上机记录，记录下计算机代码、账号、登录开场时间等信息。处理下机信息时，要记录下此用户下机的详细时间。计费时要将当前使用费用记录在上机记录中，并在用户的档案记录的余额字段中扣减。3.3.3客户端首先要求将客户端的桌面、任务管理器、系统状态栏等系统功能锁定，桌面上只有客户登录程序界面，要求用户输入用户代码和密码进展登录。登录信息要求数据库中的信息来判断其合法性，并反响一个信息给客户端，如果一切合法的话，再将桌面、任务管理器等功能解锁，让用户正常使用。客户端程序要求正常停靠在系统托盘中，用户下机时要求点击此图标进展下机，客户端将下机信息发送到数据库，系统关机。3.4系统的设计原那么根据系统的需求分析，计费系统属于网络，计算机使用费用，作息管理及数据库于一体的综合性系统，因而，网吧计费系统在总体设计时应遵循以下原那么上：1系统的功能设计完善性，满足多方的使用需求。2系统应具有良好的稳定性，实用性，安全性。设计理念应是客户容易使用。3数据库构造设计合理，各类属性符合要求。3.5系统设计的思想3.5.1系统设计构造基于网吧计费系统的综合性，而且为了满足多方使用的需求，本系统以c/s的框架构造为基本构造模式：〔如图3.2所示〕客户端客户端服务端数据库服务器图3.2系统构造图3.5.2系统实现技术系统实现所需开发环境VisualBasic.NET，它是下一代的VisualBasic。而并不是简单的在VisualBasic6.0上在添加一些新特性而已，微软重新设计了产品以便使开发者能够更加容易的开发分布式应用，例如基于WEB的程序以及多层系统。VisualBasic.NET中有两种窗体包，Windows窗体以及Web窗体；一个新版的ADO用于承受离线数据源；新的语言，移走了原来的关键字，提高Type数据的安全性以及提供低级别构造以满足高级别开发者的需求。这些新的特性为VisualBasic开发者提供了新的开发窗口：通过Web窗体以及ADO.NET，你可以快速开发可扩展的Web站点；通过继承，该语言实现了真正的支持面向对象编程〔object-orientedprogramming〕；Windows窗体本身支持可视继承；现在展开程序就像拷贝可执行文件和控件到另一个目录那样简单。VisualBasic.NET现在完全集成在其它的MicrosoftVisualStudio.NET语言中，不仅可以通过不同的语言开发组件，而且通过穿插语言继承，可以从用一种语言编写的类中派生用另一种语言编写的类。4系统的总体设计4.1系统功能设计本系统包含两个子系统，其中网吧的客户用的是客户端子系统，而网管所使用的那么是服务端子系统。每个子系统包换了假设干子功能模块，每个子功能模块完成相应的处理操作功能。网吧计费系统网吧计费系统管理员表管理消费记录管理客户端管理端用户信息管理用户登录用户计费管理员登陆图4.1系统总功能框图客户端负责用户信息验证和记录用户的上机信息。管理端是直接操作数据库信息，实现对整个系统的管理。4.2系统功能模块简介4.2.1客户端功能模块1客户登陆输入用户名与密码登录系统通过比照用户名与密码确定用户是否合法2计费模块获取登陆时间并保存到数据库获取下机时间并保存到数据库计算花费并保存到数据库计算余额并保存到数据库4.2.2服务端功能模块1管理员的登陆输入用户名与密码登陆系统通过比照用户名与密码确定用户是否合法2用户信息管理添加用户修改用户删除用户3管理员信息管理添加管理员修改管理员删除管理员4消费记录管理查看消费记录4.2.3数据库设计该系统数据库使用的是SQLserver，美国Microsoft公司推出的一种关系型数据库系统。SQLServer是一个可扩展的、高性能的、为分布式客户机/服务器计算所设计的数据库管理系统，实现了与WindowsNT的有机结合，提供了基于事务的企业级信息管理系统方案。1概念构造设计概念构造设计的任务是在需求分析阶段产生的需求说明书的根基上，按照特定的方法把它们抽象为一个不依赖于任何具体机器的数据模型，即概念模型。概念模型使设计者的注意力能够从复杂的实现细节中解脱出来，而只集中在最重要的信息的组织构造和处理模式上。概念模型具有以下的特点：(1)概念模型是对现实世界的抽象和概括，它真实、充分地反映了现实世界中事物和事物之间的联系，能满足用户对数据的处理要求。(2)由于概念模型简洁、明晰、独立于计算机，很容易理解，因此可以用概念模型和不熟悉计算机的用户交换意见，使用户能积极参与数据库的设计工作，保证设计工作顺利进展。(3)概念模型易于更新，当应用环境和应用要求改变时，容易对概念模型修改和扩大。(4)概念模型很容易向关系、网状、层次等各种数据模型转换。描述概念模型的有力工具是E-R图。E-R模型是一个面向问题的概念模型，即用简单的图形方式(E-R图)描述现实世界中的数据。这种描述不涉及数据在数据库中表示和存取方法，非常接近人的思维方式。后来又提出了扩展实体联系模型(ExtendEntity-RelationshipModel)，简称为“EER模型〞。EER模型目前已经成为一种使用广泛的概念模型，为面向对象的数据库设计提供了有效的工具。图图4.2详细E-R图余额年龄用户账号密码注册日期上机费用管理员密码性别年龄账号年龄计算机计算机名使用管理管理11n11n2逻辑构造设计概念构造设计所得的E-R模型是对用户需求的一种抽象的表达形式，它独立于任何一种具体的数据模型，因而也不能为任何一个具体的DBMS所支持。为了能够建设起最终的物理系统，还需要将概念构造进一步转化为某一DBMS所支持的数据模型，然后根据逻辑设计的准那么、数据的语义约束、标准化理论等对数据模型进展适当的调整和优化，形成合理的全局逻辑构造，并设计出用户子模式。数据库逻辑构造的设计分为两个步骤：首先将概念设计所得的E-R图转换为关系模型；然后对关系模型进展优化。在网吧计费系统当中包括了以上几个ER模型向关系模型的转换：用户表〔帐号，密码，年龄，余额，上机费用，注册日期〕管理员表〔帐号，密码，姓名，年龄，性别〕消费表〔登陆帐号，登陆时间，下机时间，计算机名，花费〕3物理构造设计在表当中，关键字〔即编号〕都采用自动编号的数据类型；日期都采用日期型的数据类型；但凡关于数据量的都采用数据型的数据类型；其他数据均采用文本型的数据类型。当表之间有关系时通过添加外键来处理。当表与其他表有关系时，便给该表建设一张视图，通过外键将两张表联系起来，通过数据筛选，把自己想要的信息提取出来，形成一张新的表。其数据库中表的设计具体如下：表4-1用户表列名数据类型允许空字段说明帐号Char(10)否主键密码Char(10)否登录密码余额Money是用户余额上机费用Money否每分钟费用注册日期Datetime是注册日期表4-2管理员表列名数据类型允许空字段说明帐号Char(10)否主键密码Char(10)是登陆密码姓名Varchar(50)是管理员姓名年龄Varchar(50)是管理员年龄性别Char(10)是管理员性别表4-3消费表列名数据类型允许空字段说明登陆帐号Char(10)否主键登陆时间Datetime是登陆时间下机时间Datetime是下机时间计算机名Varchar(50)是计算机名花费money是花费5详细设计5.1关键模块设计此次设计的网吧计费系统主要包括三大模块：系统登录模块、客户端系统模块、服务端系统模块。系统登录模块由登录界面组成；用户的本次登陆信息显示及操作功能模块组成本系统的客户端系统；用户信息管理、管理员信息管理、消费信息记录组成本系统的服务端系统。客户端系统主要是为普通用户使用而设计的；而服务端系统是维护系统的数据、客户端的数据内容的显示以及用户信息的管理等，是为后台管理员使用设计的。5.1.1登陆模块本系统在客户端有一个用户的登陆界面，在服务端有一个管理员的登陆界面，客户端的登陆是用户开场使用此计算机并开场计费，而服务器端的登陆界面是为了获得管理整个系统的权利。实现功能：验证帐号和密码的正确性。实现方法：添加数据库连接，建设LINQtoSQL类，使用LINQ语言调用数据库信息，完成帐号和密码的验证，进入系统。实现方案：建设一个窗口，在窗口中添加两个文本框，用来存放帐号和密码，添加一个确定按钮，用来触发登陆事件。添加LINQtoSQL类，建设数据对象，通过LINQ语言查询数据库中是否存在登陆的帐号和密码并匹配。如果存在那么进入系统，显示主窗口，关闭登陆窗口〔如图5.1〕。5.1.2实现功能：记录用户的登陆信息，计算用户产生的费用，并发送给数据库。实现方法：建设一个显示窗口以显示此次登陆的有效信息,获取登陆时间和下机时间,计算此次花费和帐户余额，并将这些信息返回数据库。具体方案：建设一个窗口，分别添加Label控件显示登陆时间，已上机时间，本次花费。建设LINQtoSQL类，添加数据库服务器，调用系统时间函数获取登陆时间和下机时间,调用数据库中的用户上机费用等信息,进展计算此次所花的费用。添加Timer控件持续更新当前时间，计算并显示已上机时间〔如图5.2〕。开场开场输入帐户、密码N是否存在Y进入主界面图5.1系统登陆流程图获取登陆时间获取登陆时间获取当前时间计算费用修改数据库客户端图5.2客户端窗口设计5.1.3服务实现功能：添加修改删除用户信息，添加修改删除管理员信息，查看用户的消费记录。实现方法：建设各个功能窗口，通过主窗口调用各子功能窗口，在子功能窗口中通过中的DataGridView控件直接操作数据库中的信息。具体方案：建设四个窗口，一个作为主窗口，另外三个作为子窗口，建设LINQtoSQL类，添加数据库服务器，在三个子窗口分别添加DataGridView控件，配置DataGridView控件显示不同的数据表的内容，并相应实现添加删除的功能〔如图5.3〕。用户信息窗口用户信息窗口管理员信息窗口消费记录窗口修改数据库添加修改删除查看添加修改删除服务端主窗口图5.3服务端窗口设计5.2系统界面设计网吧计费系统主要涉及到三个用户界面：这些界面基本包括了系统功能规定的所有功能。以下是关于这几个用户界面当中一些主要的功能界面的简单介绍。5.2.1登录界面用户登录界面主要是作为系统入口进入系统使用的，使用人员启动系统之后便会出现登录界面，用户登录进入到系统的主界面〔如图5.4〕。5.2.2客户端界面客户端界面主要是用来显示用户有关信息的。根据网吧用户的习惯设置了一个隐藏按钮，可以放在系统托盘图标中，当双击次图标时，显示客户端的主界面〔如图5.5和图5.6〕。图5.4用户登陆窗口图5.5客户端系统托盘图标图5.6客户端界面5.2.3服务端界面服务端界面主要是管理员操作系统信息使用的，系统使用人员登录之后便出现功能界面。在此界面下，用户可以操作规定权限下的功能操作。主界面〔如图5.7〕调用以下功能模块1用户信息管理功能调用用户信息管理窗口，可以进展添加，修改，删除用户信息操作。(如图5.8)2管理员信息管理功能调用管理员信息管理窗口，可以进展添加，修改，删除管理员信息操作。(如图5.9)3消费记录管理功能观察用户的消费记录。(如图5.10)图5.7主界面图5.8用户信息管理界面图5.9管理员信息管理界面图5.10消费记录管理界面6编码实现6.1系统功能实现网吧计费管理功能主要有两个方面：客户端和服务端。在服务端，管理员能够增加,删除及更新用户信息;客户端在普通用户登陆后，会自动计时计费。系统功能实现主要通过客户端对登陆用户信息进展收集和更新。6.2登陆模块编码图6.1登陆窗口DimdbAsNew网吧计费管理DataContextTryDimusername=(FromadminIndb.Table_2_Whereadmin.帐号=UsernameTextBox.Text_Selectadmin.帐号).Single()Dimuserpassword=(FromadminIndb.Table_2_Whereadmin.密码=PasswordTextBox.Text_Selectadmin.密码).Single()UsernameTextBox.Text=""PasswordTextBox.Text=""Form1.Show()Me.Close()CatchexAsExceptionMessageBox.Show("用户名或密码错误,请重新输入!")UsernameTextBox.Text=""PasswordTextBox.Text=""EndTry6.3客户端模块编码图6.2客户端窗口DimdbAsNew网吧计费管理DataContextDimmydatetimeAsDateTimePrivateSubForm1_Load(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesMyBase.LoadMe.Hide()LoginForm1.ShowDialog()TryDimusername=FromadminIndb.Table_3_Whereadmin.登陆账号=Label7.Text_Selectadminmydatetime=DateTime.NowLabel4.Text=mydatetime.ToStringForEachTable_3InusernameTable_3.登陆时间=mydatetimeTable_3.计算机名=System.Net.Dns.GetHostNameNextdb.SubmitChanges()CatchexAsExceptionDimnewTable_3AsNewTable_3With{_.登陆账号=Label7.Text,_.登陆时间=Label4.Text,_.计算机名=System.Net.Dns.GetHostName}db.Table_3.InsertOnSubmit(newTable_3)db.SubmitChanges()EndTryEndSubPrivateSubTimer1_Tick(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesTimer1.TickIf(Label7.Text="")ThenElseDimnowdatetimeAsDateTime=DateTime.NowDimdsAsTimeSpands=nowdatetime.Subtract(mydatetime)Label5.Text=ds.ToStringDimhuafei=FromuserIndb.Table_3_Whereuser.登陆账号=Label7.Text_SelectuserDimcost=(FromuserIndb.Table_1_Whereuser.帐号=Label7.Text_Selectuser.上机费用).SingleDimhua=(ds.Minutes+ds.Hours*60)*costForEachTable_3InhuafeiTable_3.花费=huaNextdb.SubmitChanges()Label6.Text=huaEndIfEndSubPrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.ClickDimclosetimeAsDateTime=DateTime.NowDimdsAsTimeSpands=closetime.Subtract(mydatetime)Dimyu=(FromuserIndb.Table_1_Whereuser.帐号=Label7.Text_Selectuser)Dimcost=(FromuserIndb.Table_1_Whereuser.帐号=Label7.Text_Selectuser.上机费用).SingleForEachTable_1InyuTable_1.余额=Table_1.余额-(ds.Minutes+ds.Hours*60)*costNextdb.SubmitChanges()Me.Close()EndSubPrivateSubForm1_Resize(ByValsenderAsObject,ByValeAsSystem.EventArgs)HandlesMyBase.ResizeIfMe.WindowState=FormWindowState.MinimizedThenMe.Hide()EndIfEndSubPrivateSub显示详细信息ToolStripMenuItem_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)Handles显示详细信息ToolStripMenuItem.ClickMe.Visible=TrueMe.WindowState=FormWindowState.NormalEndSubPrivateSub下机ToolStripMenuItem_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)Handles下机ToolStripMenuItem.ClickDimclosetimeAsDateTime=DateTime.NowDimdsAsTimeSpands=closetime.Subtract(mydatetime)Dimyu=(FromuserIndb.Table_1_Whereuser.帐号=Label7.Text_Selectuser)Dimcost=(FromuserIndb.Table_1_Whereuser.帐号=Label7.Text_Selectuser.上机费用).SingleForEachTable_1InyuTable_1.余额=Table_1.余额-(ds.Minutes+ds.Hours*60)*costNextdb.SubmitChanges()Me.Close()EndSubPrivateSubNotifyIcon1_MouseDoubleClick(ByValsenderAsObject,ByValeAsSystem.Windows.Forms.MouseEventArgs)HandlesNotifyIcon1.MouseDoubleClickMe.ShowInTaskbar=TrueMe.Show()Me.WindowState=FormWindowState.NormalEndSubPrivateSubButton2_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton2.ClickMe.Hide()EndSub6.4服务端模块编码图6.3服务端主窗口PrivateSubForm1_Load(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesMyBase.LoadMe.Hide()LoginForm1.ShowDialog()EndSubPrivateSub用户管理ToolStripMenuItem_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)Handles用户管理ToolStripMenuItem.ClickForm2.MdiParent=MeForm2.Show()Form2.WindowState=FormWindowState.MaximizedForm3.Hide()Form4.Hide()EndSubPrivateSub管理员管理ToolStripMenuItem_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)Handles管理员管理ToolStripMenuItem.ClickForm3.MdiParent=MeForm3.Show()Form3.WindowState=FormWindowState.MaximizedForm2.Hide()Form4.Hide()EndSubPrivateSub消费记录ToolStripMenuItem_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)Handles消费记录ToolStripMenuItem.ClickForm4.MdiParent=MeForm4.Show()Form4.WindowState=FormWindowState.MaximizedForm2.Hide()Form3.Hide()EndSub图6.4服务端用户信息子窗口PrivateSubTable_1BindingNavigatorSaveItem_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)Me.Validate()Me.Table_1BindingSource.EndEdit()Me.TableAdapterManager.UpdateAll(Me.网吧计费管理DataSet)EndSubPrivateSubTable_1BindingNavigatorSaveItem_Click_1(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)Me.Validate()Me.Table_1BindingSource.EndEdit()Me.TableAdapterManager.UpdateAll(Me.网吧计费管理DataSet)EndSubPrivateSubTable_1BindingNavigatorSaveItem_Click_2(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)Me.Validate()Me.Table_1BindingSource.EndEdit()Me.TableAdapterManager.UpdateAll(Me.网吧计费管理DataSet)EndSubPrivateSubTable_1BindingNavigatorSaveItem_Click_3(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)Me.Validate()Me.Table_1BindingSource.EndEdit()Me.TableAdapterManager.UpdateAll(Me.网吧计费管理DataSet)EndSubPrivateSubTable_1BindingNavigatorSaveItem_Click_4(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesTable_1BindingNavigatorSaveItem.ClickMe.Validate()Me.Table_1BindingSource.EndEdit()Me.TableAdapterManager.UpdateAll(Me.网吧计费管理DataSet)EndSubPrivateSubForm2_Load(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesMyBase.Load'TODO:这行代码将数据加载到表“网吧计费管理DataSet.Table_1〞中。您可以根据需要移动或移除它。Me.Table_1TableAdapter.Fill(Me.网吧计费管理DataSet.Table_1)EndSub图6.5服务端管理员信息子窗口PrivateSubTable_2BindingNavigatorSaveItem_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)Me.Validate()Me.Table_2BindingSource.EndEdit()Me.TableAdapterManager.UpdateAll(Me.网吧计费管理DataSet)EndSubPrivateSubTable_2BindingNavigatorSaveItem_Click_1(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesTable_2BindingNavigatorSaveItem.ClickMe.Validate()Me.Table_2BindingSource.EndEdit()Me.TableAdapterManager.UpdateAll(Me.网吧计费管理DataSet)EndSubPrivateSubForm3_Load(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesMyBase.Load'TODO:这行代码将数据加载到表“网吧计费管理DataSet.Table_2〞中。您可以根据需要移动或移除它。Me.Table_2TableAdapter.Fill(Me.网吧计费管理DataSet.Table_2)EndSub图6.6服务端用户消费记录子窗口PrivateSubTable_3BindingNavigatorSaveItem_Click(ByVal