Discussion :

[colombe]

bonjour a tous
en fermant une fiche
comment savoir et dire a l'utilisateur qu'il doit confirmer sa sauvegarde ds le cas de tentative de fermeture sans sauvegarde ds la table .
merci

[Rayek]

Dans le onClosequery de la form

Code :

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

1
2
3
4
5
6
7
8
9
10
 
procedure TFrmMain.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
  if MaTable.State in [dsInsert,dsEdit] then
    case messagedlg('Sauvegarder les données ?',mtConfirmation,[mbYes,mbNo,mbCancel],0) of
      mrYes: MaTable.post;
      mrNo: MaTable.Cancel;
      mrCancel : CanClose := False;
    end;
end;

A adapter bien sur selon le type de code que tu veux réaliser, ca te donne déjà une idée de commetn faire.

[colombe]

merci je vais la tester

[colombe]

j'ai une form avec un bouton de fermeture
une fois que je clique sur se bouton la fiche se ferme sans passer par la procedure

Code :

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

1
2
3
4
5
6
7
8
9
10
procedure TFormagentliste.FormCloseQuery(Sender: TObject;
  var CanClose: Boolean);
begin
  if tagent.State in [dsInsert,dsEdit] then
    case messagedlg('Sauvegarder les données ?',mtConfirmation,[mbYes,mbNo,mbCancel],0) of
      mrYes: tagent.post;
      mrNo: tagent.Cancel;
      mrCancel : CanClose := False;
    end;
end;

comment faire car rien n'est ecrit ds la procedure close.
merci

[Cl@udius]

Salut Colombe,

Quel est le code du OnClick de ton bouton de fermeture (un simple Close ?), car je ne vois rien à redire à la procédure OnCloseQuery.

@+

[colombe]

fermeture de tables et de la form

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
procedure TFormagentliste.SpeedButton5Click(Sender: TObject);
begin
tagent.Close;
tagent1.Close;
tagent2.Close;
tagent3.Close;
trub.Close;
tbanq.Close;
torg1.Close;
torg.Close;
tfonc.Close;
formagentliste.Close;
end;

[Cl@udius]

Salut,

Si tu fermes ta table TAgent avant de demander la fermeture de la form, TAgent.state (dans OnCloseQuery) te renvera dsInactive, donc pas de message de confirmation.

Donc dans le SpeedButtonClick fait simplement un Close de ta form, et ferme toutes tes tables (et/ou requêtes) dans le OnDestroy de ta form.

Voilou, @+

[colombe]

merci je vais tester

[colombe]

merci c'est regler