¿Cómo utilizar VB para escribir un sistema de inicio de sesión que pueda registrar una cuenta?
Pasos de VB para escribir un sistema de inicio de sesión que pueda registrar una cuenta:
1) 1) Primero, necesita usar un software de base de datos (como el software ACCESS) para crear una base de datos y cree varias tablas nuevas para las tablas que registran contraseñas de cuentas, tablas de registro de inicio de sesión y otras tablas relacionadas necesarias.
2) Cree un nuevo proyecto de datos en VB. En este momento, los controles necesarios para la programación de la base de datos se han cargado en la caja de herramientas en el lado izquierdo del entorno de depuración integrado de VB6.
3) Luego agregue el control de datos ADO en el formulario FORM1, haga clic con el botón derecho en la página de propiedades del control ADODC1, use la cadena de conexión, seleccione Generar, seleccione la base de datos de conexión OLE DB adecuada en la opción de proveedor, etc. Hay una cadena larga en la ventana de texto en blanco que utiliza la cadena de conexión en la página de propiedades del control ADODC1. Tenga en cuenta que esta cadena se puede copiar al código del programa para programar.
Hay una ventana de escritura de texto de comando (SQL) en la fuente de datos de la página de propiedades del control ADODC1 para escribir el lenguaje de consulta SQL. Las declaraciones SQL en esta ventana se pueden copiar al código del programa para programación.
4) Las declaraciones de consulta SQL se pueden asignar a la propiedad RecordSource del control de datos ADO.
5) Para la entrada y modificación de datos, los cuadros de texto o los controles de la tabla de datos se pueden usar de manera flexible para vincular los controles de datos ADO a través del código.
6) Si desea utilizar objetos de datos ADO, también puede trasplantar fácilmente el código escrito por el control de datos ADO a los objetos de datos ADO.
El siguiente es el código de inicio de sesión y registro escrito utilizando objetos de datos ADO:
1) Código de módulo estándar: ¿Opción?Explícito
Público?nombre de inicio de sesión?As? String
Public?cn?As?New?ADODB.Connection?'Definir la conexión de base de datos para almacenar datos y código
Public?rs?As?New?ADODB.Recordset
Public?sql?As?String
Public?Newname?As?String
2) Código del formulario de registro: Option?Explicit
Dim ?Contraseña?As?String
Privado?Sub?Text1_KeyPress(KeyAscii?As?Integer)
If?KeyAscii?=?13?And?Text1?<>?""? Entonces
sql?=?"select?*?from?Administración de usuarios?where?username='"?&?Text1.Text?&?"'"?'?and?password='" ? &?Text2.Text?&?"'"
cn.ConnectionString?=?"Provider=Microsoft.Jet.OLEDB.4.0;Data?Source="?&?App.Path?&? \data\data.mdb;Persist?Security?Info=False"
cn.Open
rs.CursorLocation?=?adUseClient
rs.Open ? sql,?cn,?adOpenDynamic,?adLockOptimistic
If?rs.EOF?=?True?Then?'No se puede registrar ningún nombre de usuario
MsgBox?"El nombre de usuario está bien Registrarse !"
rs.Close
cn.Close
¿Nuevo nombre?=?Texto1.Text
Texto4?=?Nuevo nombre
p>
Text2.SetFocus
Else
MsgBox?"El nombre de usuario ya existe, ¡cambia el nombre para registrarte!"
Text1.Text?= ?""
Text1.SetFocus
¿Fin?Si
Fin?Si
¿Salir?Sub
terminar:
MsgBox?Err.Description
Fin?Sub
Privado?Sub?Text2_KeyPress(KeyAscii?As?Integer)
If?KeyAscii?=?13?And?Text2?<>?""?Then
Contraseña?=?Text2.Text
Texto5?=?Contraseña
Text3.SetFocus
¿Fin?Si
Fin?Sub
¿Privado?Sub?Text3_KeyPress(KeyAscii?As?Integer)
If?KeyAscii?=?13?And?Text3.Text?=?Text2.Text?Then
Command3.Enabled?=?True
Command3.SetFocus
Si no?K
eyAscii?=?13?Y?Text3.Text?<>?Text2.Text?Entonces
Texto3?=?""
Texto3.SetFocus
¿Fin?Si
Fin?Sub
Privado?Sub?Command1_Click()
¿Descargar?Yo
Fin?Sub
¿Privado?Sub?Command3_Click()
sql?=?"select?*?from?Administración de usuarios"
cn.ConnectionString?=?"Provider=Microsoft. Jet.OLEDB.4.0;Data?Source="?&?App.Path?&?"\data\data.mdb;Persist?Security?Info=False"
cn.Open
rs.CursorLocation?=?adUseClient
rs.Open?sql,?cn,?adOpenDynamic,?adLockOptimistic
rs.AddNew
rs. Fields(0)?=?Nuevonombre
rs.Fields(1)?=?Contraseña
rs.Update
rs.Close
cn.Close
Command3.Enabled?=?False
End?Sub
3) Código del formulario de inicio de sesión: ¿Opción?Explícito
Dim?pnum?As?Integer
Private?Sub?Command1_Click()
On?Error?GoTo?finish?' Código a prueba de errores para evitar salidas inesperadas
sql?=?"select?*?from?Administración de usuarios?where?username='"?&?Text1.Text?&?"'?and?password='"?&?Text2 .Text?& ?"'"
cn.ConnectionString?=?"Provider=Microsoft.Jet.OLEDB.4.0;Data?Source="?&?App.Path?&?"\data\ data.mdb; Persist?Security?Info=False"
cn.Open
rs.CursorLocation?=?adUseClient
rs.Open?sql,? cn,?adOpenDynamic ,?adLockOptimistic
'Lo anterior utiliza el método más común para consultar si hay registros coincidentes en la base de datos
If?rs.EOF?=?True?Then?' no hay registro, significa que el usuario o la contraseña son incorrectos
Si?pnum?
pnum?=?pnum?+?1
MsgBox?"¡Nombre de usuario o contraseña incorrectos!",?vbInformation,?"Número de errores:"?&? pnum
rs.Close
cn.Close
Text1.Text?=?""
Texto2.Text?=?" "
Text1.SetFocus
¿Salir?Sub
Si no
MsgBox?"Si el nombre de usuario o la contraseña son incorrectos más de tres veces, el sistema saldrá automáticamente",?vbInformation,?"Prompt"
Fin
Fin?Si
Else
nombre de inicio de sesión?=?rs.Fields(0)
Form1.Show
rs.Close
cn.Cerrar
¿Fin?Si
¿Salir?Sub
finalizar:
¿MsgBox?Err. Descripción
rs.Close
cn.Close
Fin?Sub
Privado?Sub?Text2_KeyPress(KeyAscii?As?Integer)
If?KeyAscii?=?13?Then?' Obtenga la clave. Si es Enter, ejecute el contenido del botón image_click
Llamar?Command1_Click
¿Fin?Si
Fin?Sub
Privado?Sub?Text1_KeyPress(KeyAscii?As?Integer)
Si?KeyAscii?=?13?Entonces
Text2.SetFocus
¿Fin?Si
Fin?Sub
¿Privado?Sub?Command2_Click()
Fin
Fin ?Sub
Privado?Sub?Command3_Click()
frmZhuce.Show
Fin?Sub