1、加载窗口后执行
'【赋值账户密码】
e.Form.Controls("UserName").Value=GetConfigValue("Name","")
e.Form.Controls("PassWord").Value=GetConfigValue("Word","")
If GetConfigValue("zd","")="0" Then '若是自动登录
'【登陆代码】
Dim UserName As String = e.Form.Controls("UserName").Value
Dim dr As DataRow
If UserName = "" Then
Messagebox.show("请选择用户!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
Return
End If
dr = _UserTable.SQLFind("[Name] = '" & UserName & "'")
If dr Is Nothing Then
Messagebox.show("此用户不存在!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
Return
End If
If e.Form.Controls("PassWord").Value = dr("Password") Then
_UserName = UserName
_UserGroup = dr("Group")
_Userxm = dr("xm")
e.Form.Close
Else
Messagebox.show("密码错误!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
End If
'非自动登录执行
Else
If GetConfigValue("jz","")="0" Then '若是记住密码
e.Form.Controls("CheckBox1").Checked =True '选中记住密码
Else
e.Form.Controls("CheckBox1").Checked =False '取消选中记住密码
End If
End If
2、选中与取消记住密码（自动登录）后执行
【记住密码】
If e.Form.Controls("CheckBox1").Checked = True Then
Dim z As String=e.Form.Controls("UserName").Value
Dim m As String=e.Form.Controls("PassWord").Value
SaveConfigValue("Name",z)
SaveConfigValue("Word",m)
SaveConfigValue("jz","0")
Else
SaveConfigValue("Name","")
SaveConfigValue("Word","")
SaveConfigValue("jz","1")
End If
【自动登录】
If e.Form.Controls("CheckBox2").Checked = True Then
Dim z As String=e.Form.Controls("UserName").Value
Dim m As String=e.Form.Controls("PassWord").Value
SaveConfigValue("Name",z)
SaveConfigValue("Word",m)
SaveConfigValue("jz","0")
SaveConfigValue("zd","0")
Else
SaveConfigValue("Name","")
SaveConfigValue("Word","")
SaveConfigValue("jz","1")
SaveConfigValue("zd","1")
End If
3、如有自动登录，在系统内设置一个按钮取消自动登录
If e.Form.Controls("CheckBox1").Checked = True Then
SaveConfigValue("zd","1")
End If
4、建议对账户密码加密
加好友 
发短信
Post By：2019/3/19 16:53:00 [只看该作者]
