Red de conocimiento informático - Conocimiento de la instalación - Encuentre el código detallado de la interfaz de inicio de sesión de VB

Encuentre el código detallado de la interfaz de inicio de sesión de VB

1. Arrastre dos textos y dos comandos y asígneles un nombre respectivamente: txtUser, txtPwd, cmdLoginEnter, cmdLoginCancel.

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")

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!