用vb,access做一个登陆界面。1

发布网友发布时间：2023-10-11 12:43

共1个回答

热心网友时间：2024-10-21 07:54

Private Sub Cmd_ok()
On Error Resume Next
Dim Psw As String
If txtuser = "" Or txtpwd = "" Then
MsgBox "用户名密码不能为空,请重新输入!", 64, "提示"
Else
Adodc1.RecordSource = "select * from 登录表 where admin ='" & txtuser.Text & "'"
Adodc1.Refresh
If Adodc1.Recordset.RecordCount > 0 Then
Psw = Adodc1.Recordset.Fields("Password")
If txtpwd.Text = Psw Then
main.Show: Unload Me
ElseIf txtpwd <> Psw Then
MsgBox "密码错误,请重新输入!", 64, "提示": txtpwd = "": txtpwd.SetFocus
End If
Else
MsgBox "没有该用户!", 64, "提示": txtuser = "": txtuser.SetFocus: txtpwd = ""
End If
End If
End Sub

Private Sub Cmd_cancel()
End
End Sub

Private Sub Form_Load()
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path &

"\db1.mdb;Persist Security Info=False"
End Sub

Private Sub txtpwd_GotFocus()
If txtuser = "" Then MsgBox "用户名不能为空!", 48, "提示": txtuser.SetFocus
End Sub