.NET543网吧计费系统软件VB.NET+access
1.无需注册登录,支付后按照提示操作即可获取该资料.
2.资料以网页介绍的为准,下载后不会有水印.资料仅供学习参考之用.
密 惠 保
目 录
think58好，好think58 [资料来源：THINK58.com]
[版权所有：http://think58.com]摘 要 I
第一章 绪论 1
1.1 选题的背景和意义 1
1.2 研究内容 1
1.2.1 服务端 1
1.2.2 客户端 1
1.3 系统开发技术 2
1.3.1 VB.NET 2
1.3.2 Access 2003数据库 2
第二章 系统设计 3
2.1 系统需求分析 3
2.1.1 系统需求分析 3
2.1.2 传统网吧管理 3
2.1.3 系统优点 3
2.1.4 功能需求 3
2.2 系统的设计原则 3
2.3 系统设计的思想 4
2.4 系统功能描述 4
2.4.1 操作员管理功能模块 5
2.4.2 用户管理功能模块 6
2.4.3 计算机管理功能模块 7
2.5 系统设计的类结构 8
第三章 数据库设计 10
3.1 数据库的需求分析 10
第四章 通信过程与VB.NET中的通信类 14
4.1 通信过程 14
4.2 VB.NET 中的通信类 15
4.2.1 TcpListener类 16
4.2.2 TcpClient类 16
4.2.3 NetworkStream类 17
4.2.4 StreamReader类 17
4.2.5 StreamWriter类 18
第五章 系统的实现 19
5.1 公共模块 19
5.2 服务器端的实现 19
5.2.1 服务器端登录 19
5.2.2 添加操作员 21
5.2.3 编辑操作员 23
5.2.4 删除操作员 24
5.2.5 修改密码 25
5.2.6 设置上机费率 26
5.2.7 锁定屏幕 27
5.2.8 用户充值 28
5.2.9 查询费用 29
5.2.10 添加用户信息 30
5.2.11 修改用户信息、删除用户信息 31
5.2.12 添加计算机信息 33
5.2.13 修改/删除计算机信息 33
5.3 客户端登录 35
5.3.1 登录 35
5.3.2 下机 36
5.3.3 设置 37
5.3.4 退出 37
第六章：总结 38
6.1 网吧计费系统的开发技术特点 38
6.2 系统的不足与前景 38
参考文献 39
致 谢 40 think58
[资料来源：http://www.THINK58.com]
第五章 系统的实现
think58 [资料来源：http://THINK58.com]
[资料来源：http://think58.com]创建系统数据库，服务器端程序和客户端程序后，就可以实现运行整个系统程序。
5.1 公共模块
首先在服务器端程序的公共模块中添加以下代码，运行系统登录窗口：
Sub Main ( )
Application.EnableVisualStyles ( )
Application.DoEvents ( )
Application.Run( New FrmLogin)
End Sub
5.2 服务器端的实现
服务器端主界面分为4部分：主菜单、工具栏、广播消息面板和客户端显示板。
主菜单可以对系统的操作员信息，用户信息和计算机信息进行管理；工具栏为用户提供了一些操作的快捷方式；广播消息可以向用户发送文本消息和关机等命令；客户端的连接情况则经显示面板显示。
5.2.1 服务器端登录
进入系统，首先是登录界面，而登录功能是任何一个数据库信息管理系统不可少的模块，设计如图5.1所示，用户需要输入用户名，密码和附加码。如果该界面判断用户名、密码和附加码都正确有效，系统将会进入到主界面。 本文来自think58 [来源：http://www.think58.com]
图5.1服务端登录图
设计过程，系统首先需要判断输入附加验证码是否正确。利用附加码的目的是防止非法用户利用机器程序，这些附加码都是随机产生的，大大增加了系统的安全性，比如穷举破解密码方法在这一功能下行不通。工作流程图5.2所示 本文来自think58 [资料来源：http://THINK58.com]
图5.2登录流程图
本文来自think58 [资料来源：www.THINK58.com]
[资料来源：http://THINK58.com]根据以上流程，双击窗体上的“确定”按钮，打开代码编辑器，在按钮的Click事件中添加如下代码： think58好，好think58
[资料来源：www.THINK58.com]
Private Sub OK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK.Click
If Label.Text = TxtAttachCode.Text 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, "信息框") 本文来自think58
Label.Text = ClsSuperUser.AttachCode
Exit Sub
End If
Else
MsgBox("输入错误，请重试", MsgBoxStyle.Critical, "信息框")
Label.Text = ClsSuperUser.AttachCode
Exit Sub
End If
Me.Close()
End Sub [资料来源：www.THINK58.com]
5.2.2 添加操作员
添加操作员信息功能是超级用户具有的功能，通过此界面设置所添加操作员的相关信息和权限设置。所添加操作员对用户/计算机信息模块的权限分为3种：无权限、可读和可读写。添加操作员设计图如图5.3所示。 内容来自think58 [来源：http://www.think58.com]
图5.3添加操作员图 copyright think58 [资料来源：http://www.THINK58.com]
添加操作员功能只能由超级用户添加，这个设计就能使系统管理不混乱，保障系统安全性，判断“添加操作员”操作权限工作流程如图5.4所示。 [资料来源：http://THINK58.com]
图 5.4 判断“添加操作员”操作权限流程图 [来源：http://think58.com]
双击“确定”按钮，编写代码如下：
copyright think58 [资料来源：http://www.THINK58.com]
Private Sub BtOK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtOK.Click
If Trim(TxtName.Text) = "" Then
MsgBox("输入的用户名不能为空！", MsgBoxStyle.Exclamation, "信息框")
Exit Sub
End If
If Trim(TxtRealName.Text) = "" Then
MsgBox("输入的用户真实姓名不能为空！", MsgBoxStyle.Exclamation, "信息框")
Exit Sub
End If
If Trim(TxtPassword.Text) = "" Then
MsgBox("输入的密码不能为空！", MsgBoxStyle.Exclamation, "信息框") 本文来自think58
[资料来源：www.THINK58.com]
Exit Sub
End If
Dim TempUser As New ClsSuperUser(Trim(TxtName.Text), 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)
Me.Close()
End Sub think58
5.2.3 编辑操作员
编辑操作员信息功能是超级用户具有的功能，通过此界面设置所要修改操作员的相关信息和权限设置。所编辑操作员对用户/计算机信息模块的权限分为3种：无权限、可读和可读写。编辑操作员设计图如图5.5所示。
本文来自think58