Controler les personnes qui doivent à partir d'une date

Signaler
Messages postés
187
Date d'inscription
mercredi 24 mai 2006
Statut
Membre
Dernière intervention
28 août 2015
-
Messages postés
1154
Date d'inscription
samedi 14 août 2004
Statut
Membre
Dernière intervention
5 avril 2012
-
Salut à Tous!


sur mon Tform, j'ai mis un Tdatetimepicker1, un Tbutton, DBgrid, un Ttimer et un Tlabel.
ces petites lignes de codes que j'ai écrit devront me permettre de savoir les personnes qui doivent de l'argent à l'entreprise x
(c'est juste à titre d'exemple). Les dits codes fonctionnent bien... Mais seulement, ils s'exécutent quand on fait un click sur une date dans le
Tdatetimepicker1. De là, il va verifier la data.
Mon vive souhait est de ne pas voire ces codes marchaient juste lors d'un click sur mon Tdatetimepicker (Non!). Au contraire, juste quand j'ouvre mon Tform,
si dans ma table il existe une date correspondante à la date sistème. Alors là, les données accompagnant cette date devront s'afficher dans mon DBgrid. Sans
 avoir passé par un click sur mon Tdatetimepick comme je l'ai signifié plus haut.
J'ai du moins essayer les mêmes codes avec l'evenement OnShow. Mais le resultat n'est pas interessant!


procedure TForm1.DateTimePicker1Change(Sender: TObject);
begin
  label1.Caption:= label2.Caption;
  Adotable1.Filter:='ultimadata=' +datetostr(datetimepicker1.DateTime);
  Adotable1.Filtered:= true;
  end;


procedure TForm1.Timer1Timer(Sender: TObject);
begin
  labelMessage.Visible:= not labelMessage.Visible;
end;

1 réponse

Messages postés
1154
Date d'inscription
samedi 14 août 2004
Statut
Membre
Dernière intervention
5 avril 2012
2
Bonsoir

Si tu veux qu'un code s'execute à l'ouverture de ta fiche, il faut utiliser le OnCreate de celle ci.

N.B. Une solution possible pourrait être d'utiliser le OnShow ou le OnActivate, avec une variable booléenne pour qu'une portion du code comprise dans l'evenement ne soit utilisée qu'une seule fois :

if not PremiereFois then
begin
  // .... code à executer une seule fois
  PremiereFois := true ;  
end ;

Cordialement.
<hr />"L'imagination est plus importante que le savoir." Albert Einstein