Discussion :

[rec82]

salut

ma configuration :
Delphi7 et Access 2003.

Problème:
Lors d'une opération de recherche, le curseur pointe sur l'enregistrement concerné et ces donnés s'affichent sur des dbcontroles sur ma fiche.
Comment je peux détecter si un changement est apparu sur l'enregistrement
lors des changements dans les dbcontroles.

cordialement rec82. .

[liazidf]

Salut,
vous pouvez l'evenement ondatachange du dataset, ou appuyez sur F1 Help ya pas mal d'exemples.

[rec82]

merci liazid.
mais j'ai pas compris les exemples.
je formalise mon question pour la 2ieme fois:
j'ai :un boutton Rechercher ,un DBgeid, un button Enregister, et des DBEDIT et DBCHECKBOX.
ce que je veut lorsque je clique sur Rechercher le pointeur pointe sur l'enregistrement concerné ,ces donnés s'affiche dans les dbcontroles,
lorsque je modifier un dbcontrole(dbedit,dbcheckbox) le boutton Enregister le caption de button change "enregistrer modification," et quand je clique sur elle il enregistre les modification.
cordialement rec82

[liazidf]

merci liazid.
mais j'ai pas compris les exemples.
je formalise mon question pour la 2ieme fois:
j'ai :un boutton Rechercher ,un DBgeid, un button Enregister, et des DBEDIT et DBCHECKBOX.
ce que je veut lorsque je clique sur Rechercher le pointeur pointe sur l'enregistrement concerné ,ces donnés s'affiche dans les dbcontroles,
lorsque je modifier un dbcontrole(dbedit,dbcheckbox) le boutton Enregister le caption de button change "enregistrer modification," et quand je clique sur elle il enregistre les modification.
cordialement rec82

Bonsoir,
Votre exemple ne peut pas fonctionner, car il faut au préalable mettre votre table en mode EDIT, ensuite faire le test sur les dbcontrol... (OldValue -> NewValue), et c'est ce test qui va permettre d'inhiber où non le bouton ENREGISTER.

[Just-Soft]

Salut

voici un petit exemple dont tu peux l'adapter selon ton besoin

Code :

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

1
2
3
4
5
6
7
8
9
10
11
procedure TonDataModule.TonDataSetStateChange(Sender: TObject);
begin
  with TonFormulaire do
  begin
    bValider.Enabled := (TonDataSet.State in [dsInsert, dsEdit]);
    bAnnuler.Enabled := bValider.Enabled;
    if (TaTable.Active) then
      StatusBar1.Panels[1].Text := Format('Nombre d''enregistrement(s) : %d',
                                      [TaTable.RecordCount]);
  end
end;

j'ai supposé que tu as deux boutons et un statusbar. un bouton pour l'enregistrement "valider" et un autre pour l'annulation "annuler" et le statusbar pour recevoir le nombre d'enregistrements exact.

j'espère avoir compris et répondu à ta question.

[rec82]

salut
merci beaucoup Just-Soft t,c'est ce que je veut exactement.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
procedure TForm1.DataSource1StateChange(Sender: TObject);
begin
 with form1 do
  begin
    Valider.Enabled := (adotable1.State in [dsInsert, dsEdit]);
    Annuller.Enabled := Valider.Enabled;
    if (adotable1.Active) then
      StatusBar1.Panels[1].Text := Format('Nombre d''enregistrement(s) : %d',
                                      [adotable1.RecordCount]);
 
  end
end;

dans le boutton valider:

Code :

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

1
2
3
 
if  adotable1.State in [dsedit,dsinsert] then
     adotable1.Post;

dans le boutton Annuller

Code :

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

1
2
 
t.cancel;

une petite question :
est ce que les changements dans les dbcontrols c'est celui qui déclenche l'évenement onStateChange de datasource .
merci cordialement.rec82

[Cl@udius]

une petite question :
est ce que les changements dans les dbcontrols c'est celui qui déclenche l'évenement onStateChange de datasource .

Oui, la propriété State du DataSource reflète celle du DataSet.
Donc tous changements d'état (dsBrowse, dsInsert, dsEdit, ...) déclenche l'évènement OnStateChange.

@+

[rec82]

salut
merci Cl@udius et à tout.
je peut mettre resolu