DBEdit.BeforeScroll : problème de "State"

Bonjour,

J'ai le même problème que sur ce post : DBEdit ne modifiant pas la BDD

J'ai essayer de récupérer l'information dans l'évènement BeforeScroll, mais dans mon cas la variable "State" est à la valeur "dsBrowse" changement d'enregistrement, puisque c'est lors d'un changement d'enregistrement sans validation préalable que je veux faire la vérication !

L'utilisateur n'est donc jamais intérroger.

Si je met ce code dans l'évènement "BeforePost", cela fonctionne, mais j'ai un plantage puisque le post veut s'exécuter tout de même puisqu'il est en cours!

Le champs référant se trouve dans le "ListSource" d'une TDBLookupListBox.

@+
microJaP

bonjour,

Le "onStateChange" d'un datasource lié à cet ensemble ne conviendraitil pas ?

a+

Salut et merci de ton aide.

Cela ne fonctionne pas avec cet évènement :

Citation:

---

Le "onStateChange" d'un datasource lié à cet ensemble ne conviendraitil pas ?

---

Le status "Edit" se passe quand l'enregistrement passe en édition et non pas à sa sortie.

Du coup, j'ai essayer les autres évènements du Query et du DataSource (chose que je n'y aurait pas penser sans ton aide).

Le seul qui fonctionnerait est "OnUpdateDate" du DataSource, mais nouveau problème, il passe deux dans l'évènement si on accepte de valider les modifications et donc repose deux fois la question !

Ce n'est donc pas génial non plus !

@+
microJaP

salut,

Tu peux annuler la validation dans l'evenemt beforePost aver Abort.

Code:

---

1 2 3 4 5

procedure MonDataSetBeforePost (DataSet: TDataSet); begin if MessageDlg ('Confirmer',mtConfirmation,mbOkCancel,0) = mrCancel then abort; end;

---

a+

La méthode que tu propose Zatoobux n'est pas valable non plus. Abort, annule le post et l'enregistrement courant reste le même.

J'ai essayer de mettre un copie d'écran de ma boîte de dialogue pour donner un aperçu de la chose, je ne sais si j'ai bien compris la méthode pour cela.

Toujours est-il que je recherche comment intercepter uniquement le post sur un changement d'enregistrement alors que l'enregistrment courant est en édition. J'y est mis des bouton de validation poiur l'utilisateur.

Chaque méthode qui permet d'intercepter le post imprévu par l'utilisateur, intercepte également les post ordonné par celui-ci, cela fait doublon et n'est pas très cohérent.

@+
microJaP

tu peux flagger les clics sur tes boutons.

Code:

---

1 2 3 4 5 6

MonFlag: boolean ... procedure BtnValidClick (Sender: TObject); begin MonFlag := true; end;

---

ensuite dans le beforePost ou dans le beforeCancel

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

procedure MaTableBeforePost (Sender: TDataset); begin if not MonFlag then begin if ConfirmationUtilisateur <> ok then abort end; end;   procedure MaTableAfterScroll (Sender: TDataset); begin MonFlag := false; end;

---

a+

Citation:

---

Envoyé par Zatoobux

tu peux flagger les clics sur tes boutons.

Code:

---

1 2 3 4 5 6

MonFlag: boolean ... procedure BtnValidClick (Sender: TObject); begin MonFlag := true; end;

---

Code:

---

1 2 3 4

procedure MaTableAfterScroll (Sender: TDataset); begin MonFlag := false; end;

---

---

Pour le drapeau,OK, pas de problème !

Citation:

---

Envoyé par Zatoobux

Code:

---

1 2 3 4 5 6 7 8

procedure MaTableBeforePost (Sender: TDataset); begin if not MonFlag then begin if ConfirmationUtilisateur <> ok then abort end; end;

---

---

Pour "Abort", ce n'est pas l'effet rechercher. C'est une simulation d'erreur et elle arrête tout jusque l'action de l'utilisateur : le changement d'enregistrement..

Mais à partir de tes réflections et avec de nombreux essais sur les différents évènements du TADOQuery et du TDataSource, je suis parvenu à mes fins.
J'ai utilisé l'évènement "UpdateData" du Datasource dont voici le code :

Code:

---

1 2 3 4 5 6 7 8 9 10

procedure TSaisieBureaux_form.DS_DetailsBureauUpdateData(Sender: TObject); begin // Vérifier si modif if not FFlagValider then if MessageDlg('Enregistrer votre saisie ?', mtConfirmation, [mbYes, mbNo], 0) = mrNo then SQL_DetailsBureau.Cancel // Annuler else // Bascule à "True" à cause d'un deuxième passage dans l'évenement FFlagValider := true; end;

---

A partir de cet évènement, j'arrive à faire un cancel sur le Query; tandis que une fois dans l'évement "BeforePost", l'enregistrement est déjà valider.

Ce que je ne comprend pas, c'est les deux passages dans certains évènements, même après le cancel.

:roll: mais ce n'est pas grave, avec le flag à true, c'est transparent. :bug:

Je vous remercie tous les deux !

@+
microJaP :merci: