saludos uso dbexpress en delphi 7 y mysql 5.0 de los cual tengo una forma personalizada para ingresar al sistema, la cuestion es como le puedo hacer cuando un usuario se equivoque en el usuario o en el password y le de un error y le regrese a la misma pantalla para ingresarlos, ya que el siguiente codigo expuesto me da un error del odbc con el usuario que quise entrar, y al dar aceptar, me deja entrar a la pantalla principal, aunque no se conecte pero eso seria fatal.
creo que si hay un error lo mejor es que se cierre completamente con el application.terminate o bien volver a la pantalla de acceso.
Código PHP:
Fusuario:=Edit1.Text;
fpsw:=Edit2.Text;
with BD.SQLConnection do
begin
Connected := false;
try
BD.SQLConnection.Params.Values['Database']:='DSN=BDEquipos;UID='+ Fusuario + ';'+ 'PWD='+fpsw + ';' + 'DB=equipos;HOSTNAME=localhost';
Except
on E: exception do begin
ShowMessage('Error al intentar abrir la base de datos.' + ^M +
'Confirme a Sistemas.');
Application.Terminate;
end;
end
end;
gracias.