以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  【已解决】（记住密码、自动登录）[求助]自定义用户登录界面，我想保存账户密码，下一次登录系统可以直接登录要怎么写？  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=132316)
--  作者：zto001
--  发布时间：2019/3/19 16:53:00
--  【已解决】（记住密码、自动登录）[求助]自定义用户登录界面，我想保存账户密码，下一次登录系统可以直接登录要怎么写？
CaseStudy目录下的文件"自定义用户管理之二.Table"，
在窗口“用户登录”增加一个 “RadioButton1”（记住密码），如果选中，下次登录时会记住密码与用户名，如果没选中则“UserName”，“PassWord”为空
该怎么写？
[此贴子已经被作者于2019/3/20 14:27:01编辑过]
--  作者：有点甜
--  发布时间：2019/3/19 16:57:00
--  

参考

 

http://foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=106091&skin=0

 
--  作者：zto001
--  发布时间：2019/3/20 14:26:00
--  
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、建议对账户密码加密