|
第五章 系统的实现 创建系统数据库，服务器端程序和客户端程序后，就可以实现运行整个系统程序。 内容来自www.paper51.com 5.1 公共模块 内容来自www.paper51.com 首先在服务器端程序的公共模块中添加以下代码，运行系统登录窗口： copyright paper51.com Sub Main ( ) paper51.com Application.EnableVisualStyles( ) 内容来自论文无忧网 www.paper51.com Application.DoEvents( ) 内容来自论文无忧网 www.paper51.com
Application.Run(New FrmLogin) copyright paper51.com End Sub copyright paper51.com 5.2 服务器端的实现 copyright paper51.com 服务器端主界面分为4部分：主菜单、工具栏、广播消息面板和客户端显示板。 http://www.paper51.com
主菜单可以对系统的操作员信息，用户信息和计算机信息进行管理；工具栏为用户提供了一些操作的快捷方式；广播消息可以向用户发送文本消息和关机等命令；客户端的连接情况则经显示面板显示。 内容来自www.paper51.com
5.2.1 服务器端登录 http://www.paper51.com 进入系统，首先是登录界面，而登录功能是任何一个数据库信息管理系统不可少的模块，设计如图5.1所示，用户需要输入用户名，密码和附加码。如果该界面判断用户名、密码和附加码都正确有效，系统将会进入到主界面。 paper51.com
copyright paper51.com
图5.1服务端登录图 copyright paper51.com 设计过程，系统首先需要判断输入附加验证码是否正确。利用附加码的目的是防止非法用户利用机器程序，这些附加码都是随机产生的，大大增加了系统的安全性，比如穷举破解密码方法在这一功能下行不通。工作流程图5.2所示 内容来自论文无忧网 www.paper51.com
内容来自论文无忧网 www.paper51.com
图5.2登录流程图 内容来自论文无忧网 www.paper51.com 根据以上流程，双击窗体上的“确定”按钮，打开代码编辑器，在按钮的Click事件中添加如下代码： 内容来自www.paper51.com
Private Sub OK_Click(ByVal sender As System.Object, ByVal e AsSystem.EventArgs) Handles OK.Click paper51.com
IfLabel.Text = TxtAttachCode.Text Then http://www.paper51.com NewSuperUser = New ClsSuperUser(Trim(UsernameTextBox.Text),PasswordTextBox.Text) 内容来自www.paper51.com If NewSuperUser.LoginConfirm Then paper51.com Dim Frmobj As New FrmMain() http://www.paper51.com Frmobj.Show() '显示主窗体 copyright paper51.com
Me.Finalize() copyright paper51.com
Else paper51.com
MsgBox("输入错误，请重试", MsgBoxStyle.Critical, "信息框") 内容来自www.paper51.com Label.Text = ClsSuperUser.AttachCode copyright paper51.com
Exit Sub paper51.com End If copyright paper51.com Else paper51.com MsgBox("输入错误，请重试", MsgBoxStyle.Critical, "信息框") http://www.paper51.com Label.Text = ClsSuperUser.AttachCode http://www.paper51.com
ExitSub paper51.com EndIf 内容来自www.paper51.com Me.Close() 内容来自www.paper51.com End Sub paper51.com 5.2.2 添加操作员 内容来自论文无忧网 www.paper51.com 添加操作员信息功能是超级用户具有的功能，通过此界面设置所添加操作员的相关信息和权限设置。所添加操作员对用户/计算机信息模块的权限分为3种：无权限、可读和可读写。添加操作员设计图如图5.3所示。 paper51.com
copyright paper51.com
paper51.com 图5.3添加操作员图 http://www.paper51.com 添加操作员功能只能由超级用户添加，这个设计就能使系统管理不混乱，保障系统安全性，判断“添加操作员”操作权限工作流程如图5.4所示。 copyright paper51.com http://www.paper51.com 图5.4 判断“添加操作员”操作权限流程图 内容来自www.paper51.com 双击“确定”按钮，编写代码如下： 内容来自www.paper51.com
PrivateSub BtOK_Click(ByValsender As System.Object, ByVal e AsSystem.EventArgs) Handles BtOK.Click 内容来自www.paper51.com
If Trim(TxtName.Text) = ""Then paper51.com MsgBox("输入的用户名不能为空！",MsgBoxStyle.Exclamation, "信息框") http://www.paper51.com Exit Sub 内容来自www.paper51.com
End If 内容来自www.paper51.com
If Trim(TxtRealName.Text) = ""Then paper51.com MsgBox("输入的用户真实姓名不能为空！", MsgBoxStyle.Exclamation, "信息框") copyright paper51.com Exit Sub copyright paper51.com End If 内容来自www.paper51.com IfTrim(TxtPassword.Text) = "" Then copyright paper51.com
MsgBox("输入的密码不能为空！", MsgBoxStyle.Exclamation, "信息框") 内容来自www.paper51.com Exit Sub paper51.com End If 内容来自论文无忧网 www.paper51.com
Dim TempUser As New ClsSuperUser(Trim(TxtName.Text),TxtPassword.Text) http://www.paper51.com TempUser.RealName = Trim(TxtRealName.Text) copyright paper51.com TempUser.ModUser = Trim(ComboModUser.Text) copyright paper51.com TempUser.ModComputer = Trim(ComboModComputer.Text) 内容来自论文无忧网 www.paper51.com TempUser.Memo = Trim(TxtMemo.Text) 内容来自www.paper51.com NewSuperUser.AddUser(TempUser) paper51.com Me.Close() paper51.com
EndSub paper51.com |