Código de programa de interfaz de inicio de sesión simple de diseño de base de datos VB, cuanto más simple, mejor

Opción explícita

Inicio de sesión público exitoso como booleano

'Formulario de salida

Sub cmdExit_Click privado()

Inicio de sesión exitoso = False

Descargarme

End Sub

'Verificar datos

Sub privado cmdOK_Click()

Establecer rs = New ADODB.Recordset

Set rs = CN.Execute("select * From user")

If rs.EOF Then 'Si no hay ningún usuario en la base de datos, permitir entrada

rs.Close

Establecer rs = Nada

Descargarme

Cargar frmMain

Salir Sub< / p>

Finalizar si

rs.MoveFirst

Hacer

Si rs.Fields("username") = txtUser.Text Entonces

Si rs.Fields("contraseña") = txtPassword.Text Entonces

LoginSucceeded = True

rs.Close

Descargarme

Cargar frmMain

frmMain.Show

Salir Sub

Salir Do

Finalizar si

Finalizar si

rs.MoveNext

Bucle hasta rs.EOF

Si rs.EOF Entonces 'El nombre de usuario o la contraseña son incorrectos

MsgBox "Contraseña o nombre de usuario no válido, ¡inténtelo de nuevo!", , "Iniciar sesión"

txtUser.SetFocus

Finalizar si

Salir de Sub

errh: 'Manejo de errores

MsgBox Err.Description

End Sub

Private Sub Form_Load()

Dim s As String

MakeCenter frmLogin 'El formulario está en el medio de la pantalla

s = MakeConnection() 'Crea una conexión ADO global

Si s <> "OK " Entonces

MsgBox s, , "¡Error! "

Descargarme

Logi

nSucceeded = False

Finalizar si

End Sub

Sub privado Form_Unload(Cancelar como entero)

Si no se inició sesión correctamente Entonces 'Si se registró en Fallo

CN.Close 'Liberar conexión

Establecer CN = Nada

Finalizar si

End Sub