pantalla de inicio de sesión de delphi7
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