Fácil acceso al código fuente del inventario

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 nombre de usuario = ' " 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 una 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