Delphi - Tratando erros de banco de dados

Como o objetivo desse artigo é facilitar o máximo, iremos utilizar um formulário padrão do Delphi, chamado de ReconcileError. Esse formulário padrão é utilizado para tratar todas as exceções que acontecem no banco de dados, possibilitando que nossa aplicação interfira no processo. Inclusive possibilita que o usuário altere os dados, ou simplesmente desista da alteração ou inserção.

Para utilizar o ReconcileError, acesse o menu File > New > Other e escolha a aba Dialogs. Selecione Reconcile Error Dialog. Agora é necessário chamar o formulário. Para tanto, no evento OnReconcileError de todos os ClientDataSet coloque o código exibido abaixo:

   Action := HandleReconcileError(DataSet, UpdateKind, E);

* Você pode colocar o código em somente um ClientDataSet e nos outras fazer a ligação do evento, assim centralizando esse código em um único local e diminuíndo o trabalho.

Adicione a Unit do ReconcileError no DataModule. Isso pode ser feito através do menu File > Use unit.

Quando o ReconcileError é chamado apresentará os dados que foram informados na aplicação, inclusive oferecendo a opção de visualizar somente os campos que sofreram alteração. Além disso, nos possibilita três ações para tratar a exceção (Reconcile Action):

· Skip : Simplesmente “escapa” sem tratar o evento, voltando para o formulário que o usuário estava;

· Cancel : Cancela a inserção ou alteração do registro;

· Correct : A mais interessante de todas, pois ao selecioná-la é possibilitado ao usuário a alteração dos dados no próprio formulário.

Além dessas três ações mais comuns, temos outras ações para tratar conflitos de registros que foram alterados ao mesmo tempo por mais usuários:

· Abort : Aborta o tratamento voltando para o formulário que o usuário estava.

· Merge : Possibilita a verificação dos dados que foram alterados por outros usuários e a junção com os dados alterados na sua aplicação.

* Depois que for exibido o ReconcileError e o usuário tomar uma das possíveis decisões ainda será necessário dar um comando ApplyUpdates para efetivamente gravar as alterações no banco de dados

Agora, para você utilizar o ReconcileError em suas aplicações falta somente fazer algumas traduções para que fique mais entendível para o usuário. Todos os componentes visíveis podem ser facilmente traduzidos. O trabalho mais pesado fica na hora de fazer algumas traduções nos código. Comece alterando as constantes conforme mostra o código abaixo:

const
 ActionStr: array[TReconcileAction] of string = ('Escapar', 'Abortar', 'Merge', 'Corrigir', 'Cancelar', 'Atualizar');
 UpdateKindStr: array[TUpdateKind] of string = ('Alteração', 'Inserção', 'Exclusão'); SCaption = 'Erro - %s';
 SUnchanged = '<não alterado>';
 SBinary = '(Binary)';
 SAdt = '(ADT)';
 SArray = '(Array)';
 SFieldName = 'Nome do Campo';
 SOriginal = 'Valor Original';
 SConflict = 'Valor conflitante';
 SValue = ' Valor';
 SNoData = '<sem registro>';
 SNew = 'Novo';

Outra possibilidade interessante é alterar o evento FormCreate do ReconcileError colocando alguns testes para verificar o tipo de erro que ocorreu e acrescentar uma tradução ao erro. Veja como deve ficar o código desse evento abaixo:

if FDataSet = nil then Exit;
FDataFields := TList.Create;
InitDataFields;
Caption := Format(SCaption, [FDataSet.Name]);
UpdateType.Caption := UpdateKindStr[FUpdateKind];
ErrorMsg.Text := FError.Message;
if FError.Context <> '' then
ErrorMsg.Lines.Add(FError.Context);
if Pos('PRIMARY',ErrorMsg.Text) > 0 then
ErrorMsg.Lines.Add('Tradução: Erro de Chave Primária!');
if Pos('FOREIGN',ErrorMsg.Text) > 0 then
ErrorMsg.Lines.Add('Tradução: Erro de Chave Estrangeira!');
if Pos('*** null ***',ErrorMsg.Text) > 0 then
ErrorMsg.Lines.Add('Tradução: Campo obrigatório não foi informado!');
ConflictsOnly.Enabled := FCurColIdx > 0;
ConflictsOnly.Checked := ConflictsOnly.Enabled;
ChangedOnly.Enabled := FNewColIdx > 0;
InitReconcileActions;
UpdateData.DefaultRowHeight := UpdateData.Canvas.TextHeight('SWgjp') + 7; { Do not localize }

Depois dessas alterações teremos todos os erros de validação devidamente tratados, através de uma apresentação ao usuário, que poderá decidir o que fazer. Veja na Figura abaixo o ReconcileError com as traduções.