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

Messages postés
37
Date d'inscription
dimanche 28 septembre 2008
Statut
Membre
Dernière intervention
10 mai 2010
- - Dernière réponse : tadlaoui7amel
Messages postés
13
Date d'inscription
samedi 17 avril 2010
Statut
Membre
Dernière intervention
18 mai 2010
- 23 avril 2010 à 22:18
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
Afficher la suite 

6 réponses

Meilleure réponse
Messages postés
302
Date d'inscription
jeudi 29 septembre 2005
Statut
Membre
Dernière intervention
17 septembre 2013
1
3
Merci
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 !!!

Dire « Merci » 3

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 207 internautes nous ont dit merci ce mois-ci

Commenter la réponse de beckerich
Messages postés
302
Date d'inscription
jeudi 29 septembre 2005
Statut
Membre
Dernière intervention
17 septembre 2013
1
0
Merci
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;
Commenter la réponse de beckerich
Messages postés
37
Date d'inscription
dimanche 28 septembre 2008
Statut
Membre
Dernière intervention
10 mai 2010
0
Merci
merci,mais puisque ça marche pas avec événement enter je fait quoi
Commenter la réponse de cs_lidia22
Messages postés
37
Date d'inscription
dimanche 28 septembre 2008
Statut
Membre
Dernière intervention
10 mai 2010
0
Merci
oui merciiiiiiiiiiiiiiiiiiiiiiii
Commenter la réponse de cs_lidia22
Messages postés
2527
Date d'inscription
jeudi 15 janvier 2004
Statut
Membre
Dernière intervention
16 octobre 2019
13
0
Merci
Eh ben ...

On n'est pas près d'arrêter les subventions au tiers monde...
Commenter la réponse de Caribensila
Messages postés
13
Date d'inscription
samedi 17 avril 2010
Statut
Membre
Dernière intervention
18 mai 2010
0
Merci
c mechant ça
Commenter la réponse de tadlaoui7amel