FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
|
#1
|
|||
|
|||
el problema es de como puedo crear un login enlazando los 3 DBLOOKUPCOMBOBOX (EMPRESA, AGENCIA,USUARIO) + DBEDIT (PASSWORD) con la base de datos,
para que cuando escoja uno de los usuarios de la base de datos y escriba solamente la contraseña que aparece también en la base de datos y si es el password que aparece en la base datos, ingrese correctamente al form 2, y si no es la misma contraseña que salga un aviso también diciendo password incorrecto. |
#2
|
||||
|
||||
Hola.
Con respecto a la verificación del usuario y contraseña te sugiero usar componentes TEdit en lugar de TDBEdit. Y, suponiendo que realizaras la verificación de los datos cuando el usuario presiona el botón aceptar, podrías hacer algo así:
Un ejemplo del uso:
El punto 12 de la guía de estilo, explicita que sólo se permite una pregunta por hilo, por favor abre otro nuevo con la consulta hacerca de como enlazar los TDBLoockupComboBox con las tablas. Saludos
__________________
Daniel Didriksen Guía de estilo - Uso de las etiquetas - La otra guía de estilo .... |
#3
|
|||
|
|||
Gracias ecfisa
ecfisa gracias por responder a mi pregunta, cuando ingreso el código (function LoginAccepted(qy: TIBQuery; const nam, pwd: string): Boolean; ) se pinta de color rojo y me bota error nose si lo este haciendo bien pero yo lo puse aquí(este es todo el código del form con el nombre (AccesoalSistema)):
Última edición por ecfisa fecha: 13-08-2017 a las 19:40:58. Razón: Agregar etiquetas [DELPHI][/DELPHI] |
#4
|
||||
|
||||
Hola.
Cita:
Saludos
__________________
Daniel Didriksen Guía de estilo - Uso de las etiquetas - La otra guía de estilo .... |
#5
|
|||
|
|||
Estos errores me bota en la parte de abajo (code)
[Error] AccesoalSistema.pas(37): Undeclared identifier: 'TIBQuery' [Error] AccesoalSistema.pas(40): Missing operator or semicolon (cuando doy clic me pinta de color rojo el qy.Close; ) [Error] AccesoalSistema.pas(41): Missing operator or semicolon (cuando doy clic me pinta de color rojo el qy.SQL.Clear; ) [Error] AccesoalSistema.pas(42): Missing operator or semicolon (cuando doy clic me pinta de color rojo el qy.SQL.Add('SELECT DES_USUARIO, PWD_USUARIO'); ) [Error] AccesoalSistema.pas(43): Missing operator or semicolon (cuando doy clic me pinta de color rojo el qy.SQL.Add('FROM SIS_USUARIOS WHERE DES_USUARIO = :NOMBRE'); ) [Error] AccesoalSistema.pas(44): Missing operator or semicolon (cuando doy clic me pinta de color rojo el qy.ParamByName('NOMBRE').AsString := nam; ) [Error] AccesoalSistema.pas(45): Missing operator or semicolon (cuando doy clic me pinta de color rojo el qy.Open; ) [Error] AccesoalSistema.pas(46): Missing operator or semicolon (cuando doy clic me pinta de color rojo el Result := not qy.IsEmpty and (qy.FieldByName('PWD_USUARIO').AsString = pwd); ) [Error] AccesoalSistema.pas(46): ')' expected but identifier 'FieldByName' found [Error] AccesoalSistema.pas(46): 'END' expected but ')' found [Error] AccesoalSistema.pas(58): ';' expected but '.' found [Error] AccesoalSistema.pas(60): Undeclared identifier: 'IBQPassword1' [Error] AccesoalSistema.pas(60): Undeclared identifier: 'EditUsuario' [Error] AccesoalSistema.pas(60): Not enough actual parameters [Error] AccesoalSistema.pas(62): ';' expected but '.' found [Error] AccesoalSistema.pas(64): Declaration expected but end of file found [Fatal Error] Sistema.dpr(9): Could not compile used unit 'AccesoalSistema.pas' |
#6
|
||||
|
||||
Hola.
Empecemos por el primer error... quita la función del form Login y declarala como un método de DataModule1: Estando la unidad de DataModule1 incluída en el form "Login", llama a la función de este modo:
Saludos
__________________
Daniel Didriksen Guía de estilo - Uso de las etiquetas - La otra guía de estilo .... |
#7
|
|||
|
|||
cuando le doy en Run me bota este error:
Error in module AccesoalSistema: Declaration of class Tlogin is missing or incorrect |
|
|
Temas Similares | ||||
Tema | Autor | Foro | Respuestas | Último mensaje |
Crear Un Login | Belen12 | Conexión con bases de datos | 2 | 31-05-2016 23:23:25 |
crear login con adotabla1 | Yensis22 | Conexión con bases de datos | 3 | 01-04-2008 23:06:22 |
Login Lento En Interbase Local | GIVO | Conexión con bases de datos | 1 | 17-03-2004 22:03:42 |
Suprimir Login InterBase | jsc | Conexión con bases de datos | 4 | 29-01-2004 02:46:51 |
InterBase Login? | TIKIMORE | Firebird e Interbase | 6 | 23-06-2003 17:36:34 |
|