Programme de saisi d'information sur une table [Résolu]

Signaler
Messages postés
37
Date d'inscription
dimanche 28 septembre 2008
Statut
Membre
Dernière intervention
10 mai 2010
-
Messages postés
13
Date d'inscription
samedi 17 avril 2010
Statut
Membre
Dernière intervention
18 mai 2010
-
Bonjour,
je suis entraine de faire une application"un programme de suivi des dossier de travaux dans un service" et dans l'application je doit faire une vérification du montant demander et se montant ne doit pas dépasser les 80% du budget global du marché.alors ce que je veux est comme suit:
quand je saisi un montant dans la fenêtre TDBEdit celle ci affiche automatique un message lorsque on a dépasser les 80%.

j'ai fait le programme suivant avec la procédure OnEnter mais ça ne marche pas:
procedureTForm3.EditMontanteffectuerEnter(Sender: TObject);
begin
M:=strtofloat(EditMontantGlobMar.Text);
ME:=strtofloat(EditMontanteffectuer.Text);
Y:= (M*80)/100;
if ME>y-1 then
showmessage('Attention vous avez dépasser les 80%'!');
end;
alors SVP si vous pouvez m'aidez,et merci d'avance

6 réponses

Messages postés
302
Date d'inscription
jeudi 29 septembre 2005
Statut
Membre
Dernière intervention
17 septembre 2013
1
re-bonjour,

l'évènement OnEnter se produit quand le contrôle reçoit le focus, donc vous n'avez pas encore entré de donnée dedans. Je pense que c'est pour cela que votre routine ne sort pas de résultat.
Comme je l'ai dit dans mon premier message, essayer l'évènement OnExit !!!
Messages postés
302
Date d'inscription
jeudi 29 septembre 2005
Statut
Membre
Dernière intervention
17 septembre 2013
1
Bonjour,

l'évvènement OnEnter se produit dans le contrôle reçoit le focus, pas quand on appuie sur la touche Enter...
Changez d'évènement, OnExit par exemple :

procedureTForm3.EditMontanteffectuerExit(Sender: TObject);
begin
if EditMontanteffectuer.Modified then
begin
  M:=strtofloat(EditMontantGlobMar.Text);
  ME:=strtofloat(EditMontanteffectuer.Text);
  Y:= (M*80)/100;
  if ME>y-1 then
  begin
    showmessage('Attention vous avez dépasser les 80%'!');
    EditMontanteffectuer.SelectAll;
    EditMontanteffectuer.SetFocus;
  end;
end;
end;
Messages postés
37
Date d'inscription
dimanche 28 septembre 2008
Statut
Membre
Dernière intervention
10 mai 2010

merci,mais puisque ça marche pas avec événement enter je fait quoi
Messages postés
37
Date d'inscription
dimanche 28 septembre 2008
Statut
Membre
Dernière intervention
10 mai 2010

oui merciiiiiiiiiiiiiiiiiiiiiiii
Messages postés
2527
Date d'inscription
jeudi 15 janvier 2004
Statut
Membre
Dernière intervention
16 octobre 2019
15
Eh ben ...

On n'est pas près d'arrêter les subventions au tiers monde...
Messages postés
13
Date d'inscription
samedi 17 avril 2010
Statut
Membre
Dernière intervention
18 mai 2010

c mechant ça