Reproduire le code d'un DBNavigator

Voilà ,je voudrais reprendre le code d'un DBNavigator concernat les 02 boutons: Valider et Annuler
Car en utilisant ce qui suit:

Code:

---

1 2 3 4 5 6

procedure TFFournisseurs.OkBtnClick(Sender: TObject); Begin DataModule2.TabFrs.Post; OkBtn.Enabled:=false; AnnulBtn.enabled:=false; end;

---

ET:

Code:

---

1 2 3 4 5 6

procedure TFFournisseurs.AnnulBtnClick(Sender: TObject); begin DAtaModule2.TabFrs.Cancel; OkBtn.Enabled:=false; AnnulBtn.enabled:=false; end;

---

je n'arrive pas à reproduire ce qui suit:

si je me positionne sur un enregistrement , et que je clique sur le bouton edit du DBNavigator ensuite je passe a un autre enregistrement sans valider, alors les 02 boutons : Valider et annuler doivent impérativement se désactiver, en d'autres termes détecter le déplacement dans la table.

Et bien il faut que tu détectes qu'il y a un déplacement de l'enregistrement courant et si le DataSet est en mode Edit alors tu fais un Cancel dessus.

si mes souvenirs sont bons il faut gérer les boutons dans l'évènement OnStateChange du Datasource . Plus de détails si besoin apres ma pause déjeuner .

Bon Appétit

Citation:

---

Envoyé par Aka Guymelef

Et bien il faut que tu détectes qu'il y a un déplacement de l'enregistrement courant et si le DataSet est en mode Edit alors tu fais un Cancel dessus.

---

Oui mais comment détecter le déplacement alors????? à travers quel évenement et comment l'implémenter concrétement?????

Merci++++++++++++++++++++++++++++++++++:P

Salut

Je pense que le plus simple est de lier tes boutons à des TActions.
Et c'est dans le Update des actions que tu rends celle-ci active ou non (et donc les boutons).

Cela donne quelque chose comme ceci:

Code:

---

1 2 3 4

procedure TForm1.actPostCancelUpdate(Sender: TObject); begin TAction(Sender).Enabled := MyQuery.State in [dsInsert, dsEdit]; end;

---

Cet évènement étant lié aux 2 actions Post et Cancel.

@+ Claudius

Sinon pour détecter un mouvement tu peux réagir aux évènement BeforeScroll ou AfterScroll de ton DataSet.

Citation:

---

Envoyé par Cl@udius

Salut

Je pense que le plus simple est de lier tes boutons à des TActions.
Et c'est dans le Update des actions que tu rends celle-ci active ou non (et donc les boutons).

Cela donne quelque chose comme ceci:

Code:

---

1 2 3 4

procedure TForm1.actPostCancelUpdate(Sender: TObject); begin TAction(Sender).Enabled := MyQuery.State in [dsInsert, dsEdit]; end;

---

Cet évènement étant lié aux 2 actions Post et Cancel.

@+ Claudius

---

merci ++++ pour cette solution, mais excuse mon ignorance, je ne sais pas comment intégrer cette solution à mes 02 bontons????

Citation:

---

si mes souvenirs sont bons il faut gérer les boutons dans l'évènement OnStateChange du Datasource . Plus de détails si besoin apres ma pause déjeuner .

---

Et cette méthode ne serait elle pas plus adéquate??? surtout que ne n'ai pas su implémenter celle des Taction....???????

Avec un DBNavigator classique, l'action est immédiate, si aprés avoir cliqué sur le bonton d'édition , on passe à un autre, les deux bontons : VAlider et annuler sont automatiquement désactivé...
Je voudrais juste reproduire cela
Merci++++++++++++++++++++++++

en fait j'ai essayer de brinoler un peu:

Code:

---

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

procedure TDataModule2.DataSFrsStateChange(Sender: TObject); begin if datamodule2.DataSFrs.State in [dsinsert, DsEdit] then Begin FFournisseurs.OkBtn.Enabled:=true; FFournisseurs.AnnulBtn.Enabled:=true; end Else begin FFournisseurs.OkBtn.Enabled:=false; FFournisseurs.AnnulBtn.Enabled:=false; end; end;

---

Mais au moment de l'exécution, s'affiche une notification d'une exception du déboggeur: Le Projet Lgc.exe a provoqué une classe d'exception: EAccess violation avec le message "Violation d'accès à l'adresse 004F1118 dans le module Lgc.exe Lecture de l'adresse 00000328 ......

je n'ai pas compris le problème

Merci++++++++++++++++++

sans doute un problème d'ordonnancement de ton code qui fait que peut-être ton code se déclenche avant que ta variable FFournisseurs ne soit valorisée.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

procedure TDataModule2.DataSFrsStateChange(Sender: TObject); begin if assigned(FFournisseurs) then begin if {datamodule2.} DataSFrs.State in [dsinsert, DsEdit] then Begin FFournisseurs.OkBtn.Enabled:=true; FFournisseurs.AnnulBtn.Enabled:=true; end Else begin FFournisseurs.OkBtn.Enabled:=false; FFournisseurs.AnnulBtn.Enabled:=false; end; end; end;

---

Il est inutile voire dangereux de faire référence dans une méthode à l'instance de l'objet propriétaire de la méthode.

Citation:

---

sans doute un problème d'ordonnancement de ton code qui fait que peut-être ton code se déclenche avant que ta variable FFournisseurs ne soit valorisée.
Code :
procedure TDataModule2.DataSFrsStateChange(Sender: TObject);
begin
if assigned(FFournisseurs) then
begin
if {datamodule2.}
DataSFrs.State in [dsinsert, DsEdit] then
Begin
FFournisseurs.OkBtn.Enabled:=true;
FFournisseurs.AnnulBtn.Enabled:=true;
end
Else
begin
FFournisseurs.OkBtn.Enabled:=false;
FFournisseurs.AnnulBtn.Enabled:=false;
end;
end;
end;
Il est inutile voire dangereux de faire référence dans une méthode à l'instance de l'objet propriétaire de la méthode.

---

Oui c'et bon il n'ya plus de message de notification, néanmoins la solution ne marche pas!!!
Car le problème initial persiste!!! avec la non désactivation des 02 boutons si déplacement il y'a!!!
Est ce qu'il serait possible de trouver le code source du DBNavigator??? quelque part???,

Met un point d'arrêt sur le "if DataSFrs.State in [dsinsert, DsEdit] then" pour voir si tu es bien notifié lorsque ton DataSet change d'enregistrement alors qu'il est en édition.

plus beau et tout aussi efficace

Code:

---

1 2 3

FFournisseurs.OkBtn.Enabled:=(DataSFrs.State in [dsinsert, DsEdit]); FFournisseurs.AnnulBtn.Enabled:=(DataSFrs.State in [dsinsert, DsEdit]);

---

quant aux sources il suffit de fouiller un peu dans l'unité DBCtrls.Pas il me semble ({delphi}\source\vcl)

Citation:

---

Envoyé par SergioMaster

plus beau et tout aussi efficace

Code:

---

1 2 3

FFournisseurs.OkBtn.Enabled:=(DataSFrs.State in [dsinsert, DsEdit]); FFournisseurs.AnnulBtn.Enabled:=(DataSFrs.State in [dsinsert, DsEdit]);

---

quant aux sources il suffit de fouiller un peu dans l'unité DBCtrls.Pas il me semble ({delphi}\source\vcl)

---

Merci pour cette solution je l'ai intégré mais idem, ça ne marche pas!!!
les boutons ne se désactivent pas si on se déplace à un autre enregistrement autre que celui pointé au moment de cliquer sur le bouton d'édition!!!!

Je ne comprend pas, ça a l'air d'être à portée de main vu le fonctionnement d'un DBNavigator classique!!!!! :arf:

As-tu vérifié que ton code est appelé lorsque tu change l'enregistrement courant en mettant un point d'arrêt comme je t'avais dis ?

Citation:

---

Envoyé par Aka Guymelef

As-tu vérifié que ton code est appelé lorsque tu change l'enregistrement courant en mettant un point d'arrêt comme je t'avais dis ?

---

Oui c'est bon, la condition est vérifiée (Checked)

Je pense que c'est lors du changement d'état de la table que la procédure ne s'éxécute plus

Et je ne sais pas!!!

la solution la plus simple a mon avis c'est de mettre ce code dans l'evenement
afterscroll de ta table

Code:

---

1 2 3 4 5 6

procedure TForm1.Table1AfterScroll(DataSet: TDataSet); begin buttonOK.Enabled:=false; buttonCancel.Enabled:=false; end;

---

afterscroll Se produit quand une application est passée d'un enregistrement de la table à un autre.

je pense que ça devrait marcher.

bonne chance

Citation:

---

Envoyé par samy larson

la solution la plus simple a mon avis c'est de mettre ce code dans l'evenement
afterscroll de ta table

Code:

---

1 2 3 4 5 6

procedure TForm1.Table1AfterScroll(DataSet: TDataSet); begin buttonOK.Enabled:=false; buttonCancel.Enabled:=false; end;

---

afterscroll Se produit quand une application est passée d'un enregistrement de la table à un autre.

je pense que ça devrait marcher.

bonne chance

---

ça doit être ça effectivement, de toute façon j'ai opté pour autre chose, mais je vais tout de même l'essayer!!!

Merci+++++++++