Programme de saisi d'information sur une table

Résolu
cs_lidia22 Messages postés 37 Date d'inscription dimanche 28 septembre 2008 Statut Membre Dernière intervention 10 mai 2010 - 12 avril 2010 à 11:52
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

6 réponses

beckerich Messages postés 302 Date d'inscription jeudi 29 septembre 2005 Statut Membre Dernière intervention 17 septembre 2013 1
12 avril 2010 à 14:52
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 !!!
3
beckerich Messages postés 302 Date d'inscription jeudi 29 septembre 2005 Statut Membre Dernière intervention 17 septembre 2013 1
12 avril 2010 à 12:49
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;
0
cs_lidia22 Messages postés 37 Date d'inscription dimanche 28 septembre 2008 Statut Membre Dernière intervention 10 mai 2010
12 avril 2010 à 14:41
merci,mais puisque ça marche pas avec événement enter je fait quoi
0
cs_lidia22 Messages postés 37 Date d'inscription dimanche 28 septembre 2008 Statut Membre Dernière intervention 10 mai 2010
12 avril 2010 à 15:26
oui merciiiiiiiiiiiiiiiiiiiiiiii
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
Caribensila Messages postés 2527 Date d'inscription jeudi 15 janvier 2004 Statut Membre Dernière intervention 16 octobre 2019 18
13 avril 2010 à 03:31
Eh ben ...

On n'est pas près d'arrêter les subventions au tiers monde...
0
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
c mechant ça
0