Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Conexión con bases de datos (https://www.clubdelphi.com/foros/forumdisplay.php?f=2)
-   -   Despues de Mensaje de error en user y password (https://www.clubdelphi.com/foros/showthread.php?t=22605)

el_barto 21-06-2005 15:32:00

Despues de Mensaje de error en user y password
 
Código:

procedure TForm3.BitBtn1Click(Sender: TObject);
begin
  DataModule2.IBDatabase1.Params.Values['USER_NAME'] := Edit1.Text;
  DataModule2.IBDatabase1.Params.Values['PASSWORD']  := Edit2.Text;
  try
        DataModule2.IBDatabase1.open;
        DataModule2.IBTransaction1.Active := True;
        DataModule2.IBDataSet1.Active := True;
  except
        MessageDlg ('SU USER O PASSWORD NO ES VALIDO', mtError,[mbyes],0);
  end;
  if DataModule2.IBDatabase1.Connected then
        begin
          ModalResult := mrOk;  //  Avisamos que todo esta OK
        end;
end;


Buenos dias foro tengo un problemilla con este codigo compila superbien, lo que hace es que cuando el user o pass esta mal saca un mensaje de error pero sin embargo me deja entrar al aplicativo, no se que meter en el except para que cuando despues de que me saque el mensaje me siga mostrando la pantalla que pide el user y pass. :confused:

Gracias por prestarme atencion :D

delphi.com.ar 21-06-2005 15:38:01

Tienes varias opciones... o bien:

Código Delphi [-]
  try
    CheckearUsuario;
    IniciarAplicacion;
  except
    ...
  end;

en tu mismo esquema pero en lugar de mostrar un mensaje y capturar el error, crear tu propio error:

Código Delphi [-]
  try
    ...
  except
    raise Exception.Create('Usuario o contraseña inválida...');
  end;

Saludos!

el_barto 21-06-2005 15:58:56

Fede probe tu segunda opcion compila bien pero cuando digito mal la contraseña o el user se queda parada la plicacion y no responde mas por que sera??
No hay un posibilidad que con mi codigo despues de mostrar el mensaje nuevamente llame al form3 es decir que siempre que entre por el except muestre el mensaje que yo coloque y luego muestre el form3???

delphi.com.ar 21-06-2005 16:07:53

Ese código esta "disparando" el error a la captura anterior de errores... no se como creas tu formulario, pero es posible que producir un error inesperado haga que tu código quede inestable. Ten en cuenta que esto puede suceder con cualquier otro error, por lo que no estaría nada bien.

Saludos!

el_barto 21-06-2005 16:36:32

Tenes toda la razon si cuando se dispara el formulario 3 existe algun error ya sea de lo que sea y produce una excepion siempre va a tomar como si fuese error de user o password, Gracias voy a replantear eso.


La franja horaria es GMT +2. Ahora son las 08:44:41.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi