主题：设置默认账户和记住密码

图中有两个复选框 希望做到在账户文本框输入账号后勾选设置默认 能把当前文本框内的账户设置成为默认账户 下次登录不需要再输入 接着到密码   输入密码后勾选记住密码 下次登录不需要再输入密码 直接点击登录即可

此主题相关图片如下：2015-12-17_115541.jpg

论坛说用saveconfigvalue和getconfigvalue 没弄明白 只能求助了 以前的登录代码:

Dim dr As DataRow
Dim Ok As Boolean
Dim zhanghao As String = e.Form.Controls("账号").Value
Dim mima As String = e.Form.Controls("密码").Value
If zhanghao = Nothing Then
    MessageBox.Show("请输入您的登录账号!", "错误提示!",MessageBoxButtons.OK,MessageBoxIcon.Information)
    e.Cancel = True
ElseIf mima = Nothing Then
    MessageBox.Show("请输入您的登录密码!", "错误提示!",MessageBoxButtons.OK,MessageBoxIcon.Information)
    e.Cancel = True
Else
    DataTables("账户管理").LoadFilter= "[用户账号] = '" & zhanghao & "'"
    DataTables("账户管理").Load
    dr = DataTables("账户管理").Find("[用户账号] = '" & zhanghao & "'")
    If dr Is Nothing Then
        Messagebox.show("登陆账号和密码不一致!","错误提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
        e.Cancel = True
    ElseIf dr("用户密码") <> MD5Encrypt(mima) Then
        Messagebox.show("登陆账号和密码不一致!","错误提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
        e.Cancel = True
    ElseIf dr("用户状态") = True Then
        Messagebox.show("该账号上次未安全退出,若要重新登录,先按退出键.再重新登录!","异常提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
        e.Cancel = True
    ElseIf dr("账号状态") = False Then
        Messagebox.show("该账号已经被锁定,禁止登录!","错误提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
        e.Cancel = True
    Else
        dr("用户状态") = True
        DataTables.Save()
        e.Form.BaseForm.Hide()
        e.Form.close
        Forms("主界面").Open()
    End If
End If