、广播消息面板和客户端显示板。
主菜单可以对系统的操作员信息,用户信息和计算机信息进行管理;工具栏为用户提供了一些操作的快捷方式;广播消息可以向用户发送文本消息和关机等命令;客户端的连接情况则经显示面板显示。
5.2.1服务器端登录
进入系统,首先是登录界面,而登录功能是任何一个数据库信息管理系统不可少的模块,设计如图5.1所示,用户需要输入用户名,密码和附加码。如果该界面判断用户名、密码和附加码都正确有效,系统将会进入到主界面。
图5.1服务端登录图
设计过程,系统首先需要判断输入附加验证码是否正确。利用附加码的目的是防止非法用户利用机器程序,这些附加码都是随机产生的,大大增加了系统的安全性,比如穷举破解密码方法在这一功能下行不通。工作流程图5.2所示
图5.2登录流程图
根据以上流程,双击窗体上的"确定"按钮,打开代码编辑器,在按钮的Click事件中添加如下代码:
PrivateSubOK_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesOK.Click
IfLabel.Text=TxtAttachCode.TextThen
NewSuperUser=NewClsSuperUser(Trim(UsernameTextBox.Text),PasswordTextBox.Text)
IfNewSuperUser.LoginConfirmThen
DimFrmobjAsNewFrmMain()
Frmobj.Show()'显示主窗体
Me.Finalize()
Else
MsgBox("输入错误,请重试",MsgBoxStyle.Critical,"信息框")
Label.Text=ClsSuperUser.AttachCode
ExitSub
EndIf
Else
MsgBox("输入错误,请重试",MsgBoxStyle.Critical,"信息框")
Label.Text=ClsSuperUser.AttachCode
ExitSub
EndIf
Me.Close()
EndSub
5.2.2添加操作员
添加操作员信息功能是超级用户具有的功能,通过此界面设置所添加操作员的相关信息和权限设置。所添加操作员对用户/计算机信息模块的权限分为3种:无权限、可读和可读写。添加操作员设计图如图5.3所示。
图5.3添加操作员图
添加操作员功能只能由超级用户添加,这个设计就能使系统管理不混乱,保障系统安全性,判断"添加操作员"操作权限工作流程如图5.4所示。
图5.4判断"添加操作员"操作权限流程图
双击"确定"按钮,编写代码如下:
PrivateSubBtOK_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesBtOK.Click
IfTrim(TxtName.Text)=""Then
MsgBox("输入的用户名不能为空!",MsgBoxStyle.Exclamation,"信息框")
ExitSub
EndIf
IfTrim(TxtRealName.Text)=""Then
MsgBox("输入的用户真实姓名不能为空!",MsgBoxStyle.Exclamation,"信息框")
ExitSub
EndIf
IfTrim(TxtPassword.Text)=""Then
MsgBox("输入的密码不能为空!",MsgBoxStyle.Exclamation,"信息框")
ExitSub
EndIf
DimTempUserAsNewClsSuperUser(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()
EndSub
5.2.3编辑操作员
编辑操作员信息功能是超级用户具有的功能,通过此界面设置所要修改操作员的相关信息和权限设置。所编辑操作员对用户/计算机信息模块的权限分为3种:无权限、可读和可读写。编辑操作员设计图如图5.5所示。
图5.5修改操作员信息图
这里需要判断用户的真实姓名和密码不能为空,对用户输入的信息合法性验证通过以后,需要对信息进行处理。处理的方法有:a.直接更新。b.先删除该用户信息,然后再添加该用户的信息。根据用户选中的用户名,构造用户信息表中查询相应用户的信息,将这些信息显示在界面上。
双击"保存"按钮的Click事件,编写代码如下:
PrivateSubBtOK_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesBtOK.Click
IfTrim(TxtRealName.Text)=""Then
MsgBox("输入的用户真实姓名不能为空!",MsgBoxStyle.Exclamation,"信息框")
ExitSub
EndIf
IfTrim(TxtPassword.Text)=""Then
MsgBox("输入的密码不能为空!",MsgBoxStyle.Exclamation,"信息框")
ExitSub
EndIf
NewSuperUser.DelUser(LBUserName.SelectedItem)
DimTempUserAsNewClsSuperUser(LBUserName.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)
EndSub
5.2.4删除操作员
只有超级用户才具有的删除功能。首先要判断用户类型是否为超级用户,然后再判断所选中删除的是否是超级用户(超级用户是不能被删除的),最后更新界面的用户信息列表。工作流程如图5.6所示。
图5.6删除操作员工作流程图
具体工作过程:"操作员管理"→"操作员管理"→"删除操作员"命令,在弹出的窗口中对操作员进行删除并保存。如图5.7所示
图5.7删除操作员信息图
5.2.5修改密码
修改用户密码是所用操作员都具有的功能,操作员在输入旧密码,以及重复输入新密码,就可能修改操作员密码。图5.8所示为修改密码界面。
图5.8修改密码界面图
修改密码时,需要判断操作员的旧密码是否正确,并判断操作员两次输入的新密码是否一致,这就防止操作员输入错误密码,而将其添加到数据库。图5.9所示为修改密码工作流程图
图5.9修改密码工作流程图
5.2.6设置上机费率
设置上机费率是超级用户特有的功能,可以根据不同的客户类型,设定不同的上机费率,在这里设计为临时用户、普通用户、银卡用户、金卡用户,不同类型的客户,不同上机费率也不同。
具体操作:"操作员管理"→"设置上机费率"命令,弹出"设置上机费率"窗口。在这分别对临时用户、普通会员、银卡会员、金卡会员的上机费率进行设定。完成并保存到数据库。如图5.10所示。
图5.10设置上机费率图
具体代码如:
PrivateSubBtOK_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesBtOK.Click
DimTempFeeRulesAsNewClsFeeRules
TempFeeRules.Group="临时用户"
TempFeeRules.Amount=Val(Me.TxtGroup0.Text)
TempFeeRules.AddRule()
TempFeeRules.Group="普通用户"
TempFeeRules.Amount=Val(Me.TxtGroup1.Text)
TempFeeRules.AddRule()
TempFeeRules.Group="银卡用户"
TempFeeRules.Amount=Val(Me.TxtGroup2.Text)
TempFeeRules.AddRule()
TempFeeRules.Group="金卡用户"
TempFeeRules.Amount=Val(Me.TxtGroup3.Text)
TempFeeRules.AddRule()
EndSub
5.2.7锁定屏幕
该功能是当操作员需要外出,系统不能关闭时,防止他人的非法操作系统。在使用该功能时,主窗体被隐藏,登录主窗体,要求输入用户密码。
具体操作:"操作员管理"→"锁定屏幕"命令,程序的窗口将会被隐藏,弹出锁定屏幕的窗口,在这里输入密码,又可重返主窗口。如图5.11所示。
图5.11锁定屏幕图
5.2.8用户充值
操作员在使用此功能时,先输入用户名,点击"读取"就可读取用户的真实姓名和余额信息,确认输入的用户是正确的,再输入本次充值的金额,"保存"更新用户账号上的余额信息。如图5.12所示:
图5.12用户充
上一篇:
VB_net+SQL房地产评估系统(论文和程序)
下一篇:
计算机毕业论文答辩2014年