Hola a todos/as.
Vaya por delante que trabajo con interbase 6 y delphi 7.
Estoy intentando construir un formulario de entrada a la aplicacion. En el mismo pongo un combobox con todos los usuarios de la base de datos y debajo un Edit para introducir el password. No se como capturar la excepcion que se produce cuando el usuario se equivoca en la password. Estoy intentando el siguiente codigo pero me falla.
Código Delphi
[-]procedure TAcceso_Programa.BitBtn1Click(Sender: TObject);
begin
BitBtn1.Cursor:=crHourGlass;
BitBtn1.Enabled:=False;
with DM.IBDB do
begin
Connected:=False;
LoginPrompt:=False;
DataBaseName:='Nombre_Aplicacion.GDB';
Params.Values['user_name']:=ComboBox1.Text;
Params.Values['password']:=Edit1.Text;
try
Connected:=True;
Form1.Show; except
on ELoginFailed do ShowMessage('Contraseña incorrecta.');
end;
end;
Close;
end;
¿Alguien me puede echar un cable?