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
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
Dans le onClosequery de la form
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.
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;
Modérateur Delphi
Le guide du bon forumeur :
- Les règles du forum tu liras
- La FAQ et les tutoriels tu consulteras
- La fonction Recherche tu utiliseras
- Google tu vénèreras
__________
Rayek World : Youtube Facebook
merci je vais la tester
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
comment faire car rien n'est ecrit ds la procedure close.
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;
merci
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.
@+
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;
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, @+
merci je vais tester
merci c'est regler
Vous avez un bloqueur de publicités installé.
Le Club Developpez.com n'affiche que des publicités IT, discrètes et non intrusives.
Afin que nous puissions continuer à vous fournir gratuitement du contenu de qualité, merci de nous soutenir en désactivant votre bloqueur de publicités sur Developpez.com.
Partager