Encuentre el código detallado de la interfaz de inicio de sesión de VB
2. Cree una nueva tabla de base de datos date.mdb llamada usuario en el directorio raíz del programa.
El campo 1 es: nombre de usuario y el campo 2 es: contraseña de la base de datos pwd: 111.
(Basado en) set dblogin = abrir base de datos (app.path "\data.MDB", false, false, "msaccessPwd=111") Modifica la personalización.
3. Copie el código a continuación.
-
Opción explícita
Atenuar intTryTimes como entero
Atenuar dbLogin como base de datos
Atenuar rstLogin como Recordset
Sub privado cmdLoginCancel_Click()
Fin
Conector final
Sub privado cmdLoginEnter_Click()
Si yo .txtUser = " "Entonces
MsgBox "¡El nombre de usuario no puede estar vacío!", vbCritical, yo. Título
Me.txtUser.SetFocus
Ir a ExitSub
ElseIf Me.txtPwd = " "Entonces
MsgBox" Por favor complete ¡la contraseña!", vbCritical, yo. Título
Me.txtPwd.SetFocus
Ir a ExitSub
Terminará si...
Establezca rstLogin = dbLogin. open recordset(" select * from User where Username = ' " Trim(me . txt User) " ' ")
If rstLogin. Entonces RecordCount = 0
MsgBox "¡Nombre de usuario incorrecto!", vbCritical, "Error"
Me.txtUser.SetFocus
Me.txtUser.SelStart = 0
yo . txt usuario . sellength = Len(yo . txt usuario)
Ir a ExitSub
Terminará si...
si es el primero en iniciar sesión. Fields("Pwd") = Trim(Me.txtPwd) y luego
Aterrizaje exitoso
userName = Trim(Me.txtUser)
Descargarme
p>
Formulario 1.
Mostrar
Sonido de llamada ("Iniciar sesión")
Otro
MsgBox "¡Contraseña incorrecta!", vbCritical, "Error"
Yo .txtPwd.SetFocus
Me.txtPwd.SelStart = 0
yo . txt pwd . terminará
Ir a ExitSub
Salir b:
intTryTimes = intTryTimes 1
Si intTryTimes = 4, entonces
MsgBox "¡Contraseña incorrecta!", vbInformation, yo. Título
Fin
Terminará si...
Conector final
Subform_Load privado()
i . izquierda = pantalla. Ancho / 2 metros. ancho/2
i. arriba = pantalla. Altura/2-I. altura/2
i. Caption = "Iniciar sesión"
intTryTimes = 0
Establecer dbLogin = OpenDatabase(App.Path "\Data.mdb", False, False, "MS Accesspwd=111") p>
Establecer rstLogin = dbLogin. OpenRecordset("Seleccione el nombre de usuario de los usuarios")
if rstLogin. recuento de registros lt gt luego 0
Me.txtUser = rstLogin. Campo("nombre de usuario")
Finalizar si...
Mostrar
Me.txtUser.SetFocus
Finalizar conector
p>
Subformulario privado_Unload(Descargar como entero)
Establecer rstLogin = Nada
dbLogin. Cerrar
Conector final
Sub privado txtPwd_GotFocus()
Me.txtPwd.SelStart = 0
me txt sellength =. Len(me . txt pwd)
Conector final
Sub privado txtPwd_KeyPress (KeyAscii es un número entero)
Si KeyAscii = 13, entonces
Llamar a cmdLoginEnter_Click
Finalizar si...
Finalizar conector
Sub privada txtUser_GotFocus()
Me.txtUser.SelStart = 0
me . txt user . sellength = Len(me . txt user)
Conector final
Private Sub txtUser_KeyPress (KeyAscii es un número entero)
Si KeyAscii = 13, entonces
Llamar a cmdLoginEnter_Click
Finalizará si...
Finalizar conector
-
¡Da puntos!