Discussion :

[vg-matrix]

tout le monde, j'aimerais afficher des messages après l'insertion, la modification ou la suppression d'un enregistrement du genre "Opération réussie" ou "Opération échouée". Notons que j'utilise un TActionList sur un TIBTable pour ces opérations.

Que dois-je mettre comme code?

[evarisnea]

les actions sont des actions perso ou des standard de type TDataSetXXX ?

pour les actions perso, tu peux coder ainsi

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
// insertion :
procedure TForm1.ActionInsererExecute(Sender:TObject);
begin
  try
    IBTable1.Post();
    ShowMessage('Opération réussie');
  except
    ShowMessage('Opération échouée');
  end;
end;
// la modification utiliser le même code
// pour la suppression :
procedure TForm1.ActionInsererExecute(Sender:TObject);
begin
  try
    IBTable1.Delete();
    ShowMessage('Opération réussie');
  except
    ShowMessage('Opération échouée');
  end;
end;

pour les actions TDataSetXXX, il faut placer l'affichage des messages dans des gestionnaires pour les évènements OnAfterPost et OnAfterDelete du TIBTable pour une opération réussie, et dans des gestionnaires OnPostError, OnUpdateError, OnDeleteError...