Código fuente de contraseña de Vb
Puedes hacer esto creando un módulo e ingresando el siguiente contenido en él.
Como conexión pública a ADODB. Relaciones
DeputyConn()
Establecer conn = Nuevo ADODB. Relación
conn.ConnectionString = "Proveedor = SQL oledb.1; Información de seguridad persistente = Falso"_
+"ID de usuario = sa Contraseña = sa Directorio inicial = Su nombre de base de datos; Data source=127.0.0.1 "
La sala de control está abierta
Desde1. "Mostrar" la interfaz de inicio de sesión
Conector final
Luego escriba el siguiente código en "Aceptar" en la interfaz de inicio de sesión:
Subcomando privado 1_Click() p>
Si id. Text = " "Entonces
MsgBox "¡El nombre de usuario no puede estar vacío!", vbOKOnly+vbInformation, "Recordatorio amistoso"
Tarjeta de identificación. SetFocus
Conector de salida
Terminará si...
si la contraseña. Text = " "Entonces
MsgBox "¡La contraseña no puede estar vacía!", vbOKOnly+vbInformation, "Recordatorio amistoso"
Contraseña. SetFocus
Salir del encabezado
Finalizar si...
Atenuar strSQl como cadena
strSQl = " seleccionar * de Usuarios donde Usuarios _ name = ' " & Trim$(id.text)& contraseña = ' " &Trim$(password.text)&"
Atenuar cadena como nuevo ADODB. Conjunto de registros
Establecer str = Nuevo ADODB. Colección de discos
Str. CursorLocation = adUseClient
str. Abra strSQl, conn, adOpenStatic, adLockReadOnly
con str
if. Estado = adStateOpen Entonces. Cerrar
. Abra strSQL
si. Entonces EOF
Try_times = Try_times + 1
If Try_times & gtThen = 3
MsgBox "Has intentado ingresar a este sistema tres veces, pero todas El sistema se apagará automáticamente", vbOKOnly+vbCritical, "Advertencia"
Desinstalarme
Otro
MsgBox "Lo siento, el nombre de usuario no existe. o la contraseña es incorrecta ", vbOKOnly+vbQuestion, "Advertencia"
ID. SetFocus
Tarjeta de identificación. texto = " "
Contraseña. text = " "
Terminará si...
Otro
Descargarme
Formulario 2. Muestra 'Iniciar sesión en otra interfaz.
Terminará si...
Termina con...
Finalizar conector