Hola buenos dias.
Trabajo con DELPHI6 y FIREBIRD 2.0, Win10
Saludos amigos. Nuevamente apoyándome en todos ustedes y sus conocimientos.
Tengo un formulario LOGIN que tiene 2 botones "INICIAR SESION" y otro "CANCELAR" y tengo un DATAMODULE con un IBDatabase y un IBTransaction.
El usuario al dar click sobre el botón Cancelar, pues obvio no se conecta y sale un mensaje de error de que el usuario y contraseña no están en la base de datos...., como puedo cambiar este mensaje que me manda por default y mostrar otro.
Aqui el código en el DataModule:
Código Delphi
[-]
procedure TbdMMS.dbMMSLogin(Database: TIBDatabase; LoginParams: TStrings);
begin
try
frmConexion:=TFrmConexion.Create(Self);
if frmConexion.ShowModal = mrOk then
begin
LoginParams.Values['user_name'] := frmConexion.edNombreUsu.Text;
LoginParams.Values['password'] := frmConexion.edContrasenia.Text;
dbMMS.DatabaseName:=frmConexion.cServer+':C:\MMS\BD\BD-MMS.FDB';
end;
finally
frmConexion.Free;
end;
end;
Como interceptar ese mensaje y mostrar otro....??
Gracias por su tiempo.