值图
"读取"功能代码:
PrivateSubBtnRead_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesBtnRead.Click
IfTrim(TxtUserName.Text)=""Then
MsgBox("请输入用户名!",MsgBoxStyle.Exclamation,Me.Text)
ExitSub
EndIf
DimTempUserAsNewClsUser
TempUser.UserName=Trim(TxtUserName.Text)
TempUser.GetInfo()
TxtRealName.Text=TempUser.RealName
TxtFee.Text=TempUser.Fee
EndSub
"保存"功能代码:
PrivateSubBtnSave_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesBtnSave.Click
IfTrim(TxtUserName.Text)=""Then
MsgBox("请输入用户名!",MsgBoxStyle.Exclamation,Me.Text)
ExitSub
EndIf
DimTempUserAsNewClsUser
TempUser.UserName=Trim(TxtUserName.Text)
IfTempUser.UserExist=FalseThen
MsgBox("该用户不存在!",MsgBoxStyle.Exclamation,Me.Text)
ExitSub
EndIf
TempUser.SetFee(Val(Me.TxtCurrentFee.Text))
BtnRead_Click(sender,e)
Me.TxtCurrentFee.Text=""
EndSub
具体操作:"用户信息管理"→"用户充值"命令,将会弹出"用户充值窗口",在这里可以对用户费用的读取、查询余额、本次充值。填写信息后按保存完成充值操作。
5.2.9查询费用
费用查询能让用户清楚详细知道费用使用情况,操作用在使用此功能时,必须确定用户名不为空,查询该用户相关的上机费用信息,然后返回一个数据表,并显示在界面中。
具体操作:"用户信息管理"→"查询用户费用"命令,将弹出"查询费用窗口",输入用户maomao,点确定,将会在界面的列表中显示该用户所有的费用记录,包括本次使用计算机,登录时间,下机时间信息。如图5.13所示。
图5.13查询用户费用图
5.2.10添加用户信息
操作过程:"用户信息管理"→"添加用户信息"命令,将弹出"添加用户信息"窗口,输入账号aa110,包括密码、用户类型、用户姓名、备注等信息,确认账号将示意当前账号在本系统的可用性。所有信息输入结束,点"确定"保存。操作过程需要输入用户的详细信息,输入完毕后,"确定"按钮可以将用户信息插入到数据库中,此功能主要是记录用户的详细信息。如图5.14所示。
图5.14添加用户信息图
5.2.11修改用户信息、删除用户信息
这两个模块在功能、操作方法上大致相同,操作员经过这两个功能模块可以即时对用户信息进行修改/删除,从而保证用户的各类需求或更正操作员之前的操作失误。使系统更加人工智能化。修改/删除用户信息功能都是按用户类型、按用户姓名或按用户账号方式修改/删除用户信息。
具体操作如:"用户信息管理"→"修改用户信息/删除用户信息"命令,将会弹出相应窗口,超级用户可以修改/删除用户任意信息。如按用户类型修改/删除用户信息,是在窗体加载时,设置用户类型为第一选项,然后进入界面修改/删除其用户信息。如图5.15、图5.16所示
图5.15修改用户信息图
图5.16删除用户信息图
5.2.12添加计算机信息
添加计算机信息时,操作员需要输入计算名称、(MAC地址)、机位编号、网吧编号、计算机配置、备注等信息,在添加输入完毕后,点击"确定"可向数据库添加计算机信息。
具体操作:"计算机信息管理"→"添加计算机信息"命令,将弹出"添加计算机信息"窗口,包括计算机名称、机位编号、网吧编号、计算机配置,所有信息输入结束,点"确定"保存。如图5.17所示。
图5.17添加计算机信息图
5.2.13修改/删除计算机信息
这两个模块在功能、操作方法上大致相同。操作员经过这两个功能模块可以即时对计算机信息进行修改/删除,从而使得网吧的计算机管理不出现混乱或同一编号计算机出现,使系统人工智能化。修改/删除计算机信息功能都是按网吧编号、按配置和按机算机名称修改/删除计算机信息。
具体操作如:"计算机信息管理"→"修改计算机信息/删除计算机信息"命令,将会弹出相应窗口,操作员可以修改/删除计算机信息。如按网吧编号修改/删除计算机信息,是在窗体加载时,设置按网吧编号为第一选项,然后进入界面修改/删除其计算机信息。如图5.18、图5.19所示
图5.18修改计算机信息图
图5.19删除计算机信息图
5.3客户端登录
客户端是获取用户的用户名和密码的窗口,界面设计有:用户名、密码输入,四个控件:登录、下机、设置、退出。即时支持客户的工作,满足客户使用时各种需求。启动服务器端即可进入客户端,如图5.20所示,登录成功后,会显示登录成功信息,此时服务器端将会显示机器的使用情况。
图5.20客户端登录图
5.3.1登录
在输入用户名、密码后,向服务器端发送连接请求的功能模块。在其登录成功后,客户端窗口最小化,并以托盘图标显示在窗口的右下角,当用户点击托盘时,需要重新显示客户端界面。客户端登录工作流程图如图5.21所示:
图5.21客户端登录流程图
登录模块代码如:
PrivateSubBtLogin_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesBtLogin.Click
DimConnectMessageAsString=""
ConnectMessage+="LOGIN,"+TempClient.ComputerName
ConnectMessage+=","+TempClient.ClientIPAddress
ConnectMessage+=","+Trim(Me.TxtUsername.Text)
ConnectMessage+=","+Trim(Me.TxtPassword.Text)
TempClient.SendData(ConnectMessage)
Me.TxtPassword.Enabled=False
Me.TxtUsername.Enabled=False
Me.Hide()
EndSub
5.3.2下机
在用户使用完计算机,必须点击"下机"按钮,以结算本次上机所用的金额,代码如下:
PrivateSubBtLogoff_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesBtLogoff.Click
DimConnectMessageAsString=""
ConnectMessage+="LOGOFF,"+TempClient.ComputerName
ConnectMessage+=","+TempClient.ClientIPAddress
ConnectMessage+=","+Trim(Me.TxtUsername.Text)
TempClient.SendData(ConnectMessage)
Me.TxtPassword.Enabled=True
Me.TxtUsername.Enabled=True
EndSub
5.3.3设置
为了满足不同客户的需求,专门设定的一个功能。客户端启动以后,如需要设置服务器的IP地址,点击"设置"设置IP地址。代码如下:
PrivateSubBtSet_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesBtSet.Click
FrmServerSet.ShowDialog()
EndSub
其设置窗口示意图如图5.22所示
图5.22设置窗口示意图
5.3.4退出
为临时用户设定的退出窗口,或其他用户不意查询余额时可直接点击使用。体现了系统的快捷性能。
第六章:总结
本文体现了一个系统的编程规范,文章内容涵盖了系统的需求、数据库的需求分析、系统设计、界面设计与及系统的最终实现。
6.1网吧计费系统的开发技术特点
整个网吧计费系统的开发有以下几个特点
1.属于典型的三层系统代码结构;
2.基于C/S(客户端/服务器)的通信结构;
3.服务器端与客户端进行简单的通信协议;
4.网路通信技术与数据库存技术综合开发。
6.2系统的不足与前景
本系统虽是C/S型网络结构,但因为数据库Access只能承受少量客户端,系统的访问量相对比较小,只能局限于网吧、图书馆等局域网中,这应有相应的解决方案,使其不断得到改进。在开发过程中,切身体会了利用VB.NET结合Socket对象模型
上一篇:
VB_net+SQL房地产评估系统(论文和程序)
下一篇:
关于广告设计人才培养模式研究