Ver Mensaje Individual
  #4  
Antiguo 31-05-2011
Avatar de Chris
[Chris] Chris is offline
Miembro Premium
 
Registrado: abr 2007
Ubicación: Jinotepe, Nicaragua
Posts: 1.678
Reputación: 21
Chris Va por buen camino
Exactamente que es FMenu? es el segundo Frame o un formulario?
No es recomendado usar ShowModal en este caso. Además cuando el usuario está dado de alta, el bucle WHILE no se termina nunca. En este caso has una llamada a break depués de Fmenu.showmodal;

Por otro lado, ten en cuenta lo que ha comentado Caral. Aún así no quiero hacerte sentir presionado a hacerlo porque talvez no tengas los conocimientos necesarios para hacer un LogIn más acorde. Aún así si te interesa puedes utilizar esta versión mejorada de tu código:

Código Delphi [-]
with Modulo1.passwords do
begin
    {$ B+}
    if not (Locate('usuario', [Edit1.text], [loCaseInsensitive]) and (FieldByName('pass').AsString = MaskEdit1.text)) then
    begin
        ShowMessage('La contraseña no es correcta....');
        ...
        exit;
    end;
    {$ B-}
end;    
// hacer el inicio de sesión
FMenu.Show; 
...

Saludos,
Chris
__________________
Perfil Github - @chrramirez - Delphi Blog - Blog Web
Responder Con Cita