Controler les personnes qui doivent à partir d'une date

Question

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;

WhiteHippo · Answer

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

Controler les personnes qui doivent à partir d'une date

1 réponse

Votre réponse

Discussions similaires