pantalla de inicio de sesión de delphi7

1. Cree un formulario form1, form2, agregue los botones editar1, editar2 y bnt

2: abra SSS.mdb, cree una nueva tabla, cree el campo Nombre del fusor, escriba el texto Fcontraseña, agregue una F al texto escriba para evitar que los campos se guarden en la tabla mediante claves. Seleccione un nombre, como por ejemplo: AMU

Abra la tabla, agregue AAA (cuenta) en Fusername y agregue 123 (contraseña) en Fpassword

3 Agregue control ADOConnection

Haga doble clic, seleccione build, seleccione microsoft jet 4.0 ole db (accsee2003), 2007 seleccione 12.0

A continuación, agregue Fpassword en Fusername y agregue 123 (contraseña) en Fpassword

4. Agregar control ADOConnection

Haga doble clic, seleccione compilar, seleccione microsoft jet 4.0 ole db (accsee2003), 2007 seleccione 12.0.0

A continuación, seleccione su base de datos. MDB, pruebe la conexión y estará bien después de que la conexión sea exitosa

Configure su mensaje de inicio de sesión en falso. Este es el mensaje al iniciar sesión en la base de datos. /p>

4. Agregue el control de odquety. Siga ADOConnection en la línea de propiedad de la conexión

5.text='' y luego

siendo

showmessage. ('La contraseña no puede estar vacía');

salir

finalizar

con adoquery1

comenzar<; /p>

close;

sql.clear;

sql.add('select * from AMU donde Fusername =''' edit1.text ''' y Fpassword= ''' edit2.text ''''');

abrir

comenzar

si bof y eof entonces (no encontrado arriba)

salir

else

form2.show;

fin

fin

Mi las manos están cansadas después de escribir tantas palabras