valider avant de quitter

**stefano** · 19/04/2006, 20h29

salut a tous,

J'aimerai savoir si c'est possible de demander a un utilisateur si il veux enregistrer les mofifications apporter a une table paradox avant de fermer l'application ??

ex
si l'enregistrement n'a pas ete fait avant le clic sur le bouton fermer

Clic sur le bouton fermer

------> message "enregistrer"
------>Oui ------> Sauvegarde
------>Non ------> quitter

merci pour votre aide

**qi130** · 19/04/2006, 21h05

Oui, c'est possible, mais tu attends quoi ?

Le code du MessageDlg ou le code pour commiter les modifs en base ?

**stefano** · 19/04/2006, 21h43

salut,

ce que j'attend c'est ce que je doit ecrire pour que cela ce fasse

je pense qu'il faut que je fasse sur l'evenement onclic du bouton "fermer" pour que la fenetre d'alerte s'affiche, puis a partir de la fenetre dire que si c'est ok alors les modif seront enregistrer si c'est "non" alors on fermera l'appli mais comment tester pour savoir si le bouton "sauvegarder" n'as pas ete actionner juste avant le bouton "fermer"

merci pour ton aide

**qi130** · 19/04/2006, 22h12

1/ déclare une variable globale :

Code :

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

var sauvegardeFaite:boolean;

2/ Dans le Create de ta form principale:

Code :

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

sauvegardeFaite:=false;

3/ Dans le OnClick du bouton Sauvegarde:

Code :

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

sauvegardeFaite:=true;

4/ Dans le OnDestroy de ta form principale:

Code :

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

1
2
3
4
 
if not sauvegardeFaite then
  if MessageDlg('Les dernières modifications ne sont pas enregistrées.'+
   ' Voulez-vous les enregistrer?',mtWarning,[mbOk,mbCancel],0,mbOk)=mrOk then boutonSauvegardeClick(nil);

**stefano** · 19/04/2006, 23h49

merci pour ton aide,

j'ai modifier un peux ce que tu m'as donner

Code :

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

1
2
3
if not sauvegardeFaite then
  if MessageDlg('Les dernières modifications ne sont pas enregistrées.'+
   ' Voulez-vous les enregistrer?',mtWarning,[mbOk,mbCancel],0) = mrOk then ValiderClick(nil);

car j'avais un message d'erreur comme quoi il avait trop d'argument et en recherchant dans les tuto du forum j'ai vu que mbOk situer apres le 0 ne paraissant pas.

Et j'ai mis la condition dans l'evenement onClick du bouton fermer car en onDestroy ça marchais pas.et je sais pas pourquoi

Quoi qu'il en soit , un grand merci pour ton aide

**Rayek** · 20/04/2006, 09h29

il y a aussi une autre possibilité

Code :

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

1
2
3
4
5
6
7
8
9
10
 
if LATable in [dsInsert,dsEdit] then
begin
  if Messagedlg('Voulez vous enregistrer les dernieres modifications ?',mtConfirmation,[mbYes,mbNo],0) = mrYes then
  begin
    LaTable.Post;
  end
  else
    LaTable.Cancel;
end;

**TicTacToe** · 20/04/2006, 09h50

Attention, je ne sais pas si tu as saisis le truc.

Pendant l'utilisation de ton application, les données sont en générale 'enregistrées' ou postées en temps réel.

Le moment ou tu peux valider ou annuler tes posts, c'est lorsque tu es en édition sur un enregistrement. (code de Malatar)
D'ailleurs, c'est

Code :

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

LaTable.State in [ dsInsert, dsEdit ]

qu'il faut mettre

Je dis ca, car je vois dans ta question 'modifications sur la table'.

Je ne sais pas comment tu effectues tes modifications sur la table, ni quelle base tu utilises, mais en général, au moment de quitter ton appli, tout est déjà posté. Donc pas d'annulation possible. Ce n'est pas comme un fichier Excel, ou tout est temporaire, puis enregistré d'un coup sur une action 'sauvegarde'.

Par contre, au moment de la validation d'un enregistrement, tu peux utiliser l'evt TTable.BeforePost, pour abandonner ou poster l'enreg.

Ca sert peut être à rien ce que je dis si tu as une bonne connaissance sur BD, sinon c'est une info que tu dois prendre en compte

bon courage !