Código fuente del cuadro de inicio de sesión

Atenuar A como una cadena

A = app.path+"\ accessfile.mdb "

Adodc1. ConnectionString = " Proveedor = Microsoft. Jet . OLEDB.4.0 fuente de datos = " & ampA & amp"; información de seguridad persistente = False "

adodc 1. fuente de registro = " seleccione * de la tabla de usuarios, donde el usuario Nombre = ' "+nombre de usuario+", contraseña = ' "+contraseña+" ' "

Adodc1. Actualízate

Si OT adopta dc1. Recordset.EOF luego

sección principal. Muéstrame

. Ocultar

Otros

MsgBox("¡Nombre de usuario o contraseña incorrectos! ¡Vuelva a ingresar!")

Yo. Nombre de usuario = " "

Yo. Contraseña = " "

Borrar el contenido del cuadro de texto

Terminará si...

Finalizar conector

Lo anterior es iniciar sesión, en VB Configure ACCESS en una carpeta del proyecto y tome una ruta relativa.

La siguiente es la lista de usuarios registrados:

Subcomando privado 2_Click()

Atenuar A como una cadena

A = aplicación .ruta+"\ accessfile.mdb "

Adodc1. ConnectionString = " Proveedor = Microsoft. Jet . OLEDB.4.0 fuente de datos = " & ampA & amp"; información de seguridad persistente = False "

adodc 1. fuente de registro = " seleccionar * de la tabla de usuarios "

Adodc1. Actualízate

Si OT adopta dc1. Recordset.EOF entonces

Adodc1.recordset.AddNew

Adodc1.recordset.fields("nombre de usuario") = textbox1.

adodc 1 . campos del conjunto de registros("contraseña")=cuadro de texto 2.

............................

Adodc1.recordset.update

Cuadro de texto 1 = " "

Cuadro de texto 2= " "

......

Cuadro de texto 1.setfocus

Otros

Cuadro de texto 1= " "

Cuadro de texto 2= " "

.....

Cuadro de texto 1 .setfoucus

Terminará si...

Finalizar conector