Captura de Error personalizado

[Jose Roman]

Hola a todos,

Resulta que por medio de este codigo capturo un error de la base de datos:

Código Delphi [-]
procedure TwPaciente.CapturaError(DataSet: TDataSet; E: EDatabaseError;
  var Action: TDataAction);
begin
  if E.ClassNameIs('EFIBInterBaseError') then
  case EFIBError(E).IBErrorCode of
//  Not Null
    335544347 : begin
                  E.Message := 'El campo NOMBRE o puede estar vacio.';
                  dbNombre.SetFocus;
                end;
//  UNIQUE Key
    335544665 : begin
                  E.Message := 'CEDULA ya existe.';
                  dbNombre.SetFocus;
                end;
  end;
end;

Mi pregunta es:
Como reemplazo la parte E.Message por MessageDlg esto debido a que deseo algo mas personalizado que ese cuadro de dialogo sencillo que aparece.

[ecfisa]

Hola Jose.

Si no te entiendo mal, por ejemplo sobre tu código:

Código Delphi [-]
procedure TwPaciente.CapturaError(DataSet: TDataSet; E: EDatabaseError;
  var Action: TDataAction);
begin
  if E.ClassNameIs('EFIBInterBaseError') then
  case EFIBError(E).IBErrorCode of
//  Not Null
    335544347 : begin
                  MessageDlg('El campo NOMBRE no puede estar vacio', mtError,[mbYes],0);
                  dbNombre.SetFocus;
                end;
//  UNIQUE Key
    335544665 : begin
                  MessageDlg('CEDULA ya existe.', mtError,[mbYes],0);
                  dbNombre.SetFocus;
                end;
  end;
end;

Saludos

[Jose Roman]

Gracias ecfisa, el dialogo se muestra bien como me lo colocaste en el codigo:

pero en cuanto le doy clic a YES me aparece este dialogo, el cual no deseo que le aparesca al usuario:

¿Como evito este ultimo cuadro de dialogo?

[ecfisa]

Hola José.

No sé como estas capturando las excepciones te pongo un ejemplo muy, pero muy simplificado para que pruebes:

Código Delphi [-]
...
type
  TfrmMain = class(TForm)
  ...
  procedure FormCreate(Sender: TObject);
  ...
  private
    ...
  public
    ...
  end;

  TwPaciente = class(TObject)
  public
    procedure ShowException(Sender: TObject; E: Exception);
  end;

var
  frmMain: TfrmMain;
  wPaciente : TwPaciente;

implementation

procedure TwPaciente.ShowException(Sender: TObject; E: Exception);
var
  Msg: string;
begin
  case EIBInterbaseError(E).IBErrorCode of
    335544347: Msg := 'El campo NOMBRE no puede estar vacio';
    //...
  end;
  MessageDlgPos(Msg,mtError,[mbOk], 0, 100, 200);
  frmMain.IBTransaction1.RollbackRetaining;
  //...
end;

procedure TfrmMain.FormCreate(Sender: TObject);
begin
  Application.OnException := wPaciente.ShowException;
end;
...

De este modo tiene que funcionarte sin presentar la segunda pantalla. Pero debo decirte que en la práctica, queda por tu cuenta manejar cada una de las excepciones que pudiera presentar cualquier tabla de tu bd.

Fijate que estoy utilizando IBX por lo que deberás cambiar:

Código Delphi [-]
EIBInterbaseError(E).IBErrorCode

por:

Código Delphi [-]
EFIBError(E).IBErrorCode

Saludos

Edito: Si te decidis por este modo de manejo, te aconsejo crearte una unidad para encapsular todo el código relativo al manejo de las excepciones.

[TOPX]

Hola,

Según los nombres de los parámetros del procedimiento CapturaError, parece que espera que se asigne cierto valor al parámetro Action.

Ya que no dice qué componentes de acceso a bases de datos usa y no los logré adivinar, busqué en Google: (DataSet: TDataSet; E: EDatabaseError; var Action: TDataAction) para encontrar un ejemplo del uso del evento OnPostError de un TDataSet en:

• Capturar errores de edición - edit - y validación - post - de una tabla y mostrar un mensaje personalizado - ajpdsoft

Con esa información, encontré la declaración del tipo TDataAction en la unidad Data.DB:

Código Delphi [-]
TDataAction = (daFail, daAbort, daRetry);

Espero que sirva.
-

[Jose Roman]

gracias ese ejemplo tambien se ve muy claro y mas complejo, utilizo los componentes FIBPlus por cierto.