VB 记住用户名和密码

来源：百度知道 编辑：UC知道 时间：2024/05/19 06:18:18
VB登录页面如何才能记住用户名和密码,就好像QQ登录那样,点击"记住用户名和密码"就能在下次登录时不用输入了.

这代码是如何写的?

要接数据库可以实现.
记住用户名和密码按钮:
Private Sub Command1_Click()
Adodc1.Recordset.MoveFirst
Dim n As Byte
n = MsgBox("你确定要记住用户名和密码！", 33, "提示：")
If n = 1 Then
Adodc1.Recordset.AddNew
Adodc1.Recordset.Fields(0) = Trim(Text1.Text)
Adodc1.Recordset.Fields(1) = Trim(Text2.Text)
Adodc1.Recordset.Update
End If
End Sub

登入按钮:
Private Sub Command2_Click()
Static n As Byte
n = n + 1
Adodc1.Recordset.MoveFirst
Do While (Adodc1.Recordset.EOF = False)
If Trim(Text1.Text) = Trim(Adodc1.Recordset.Fields(0)) And Trim(Text2.Text) = Trim(Adodc1.Recordset.Fields(1)) Then
Exit Do
Else
Adodc1.Recordset.MoveNext
End If
Loop

If Adodc1.Recordset.EOF = False Then
'加上登入后内容
Else
Text1.Text = ""
Text2.Text = ""
Text1.SetFocus
If n = 4 Then
n = 0
MsgBox "您尝试的次数太多，请重新登录！"
Unload Form2
Els