Je cherche de l'aide pour accomplir un projet sous delphi
Fermé
ghlion
Messages postés
1
Date d'inscription
mardi 2 avril 2013
Statut
Membre
Dernière intervention
2 avril 2013
-
2 avril 2013 à 19:51
kikima123 Messages postés 21 Date d'inscription dimanche 10 mars 2013 Statut Membre Dernière intervention 30 avril 2013 - 30 avril 2013 à 12:43
kikima123 Messages postés 21 Date d'inscription dimanche 10 mars 2013 Statut Membre Dernière intervention 30 avril 2013 - 30 avril 2013 à 12:43
A voir également:
- Je cherche de l'aide pour accomplir un projet sous delphi
- Telecharger delphi - Télécharger - Langages
- Gantt projet - Télécharger - Gestion de projets
- Projet ou bibliothèque introuvable ✓ - Forum VB / VBA
- Mini projet en langage c corrigé - Forum C
- Partager un projet imovie modifiable - Forum MacOS
1 réponse
kikima123
Messages postés
21
Date d'inscription
dimanche 10 mars 2013
Statut
Membre
Dernière intervention
30 avril 2013
30 avril 2013 à 12:43
30 avril 2013 à 12:43
j'ai un simple programme de gestion de stock si ça t'intéresse:
le but de ce programme est de calculer les bénifices
insérer:
-4 edit.text ou la propriété text vide et le code de chacune est
if(edit1.Text='')or(edit2.Text='')or(edit3.Text := '')or(edit4.text:=")then
showmessage('Vous devez remplir tous les champs')
-4 label nommés (prix d'achat,frais d'achat,prix de vente,bénéfices)
-3 boutons nommée comme suit
CALCULER code: edit4.Text :=inttostr(strtoint(edit3.Text) - (strtoint(edit1.Text) + strtoint(edit2.Text)))
ACTUALISER code:
edit1.Text := '';
edit2.Text := '';
edit3.Text := '';
edit4.Text := '';
edit1.setfocus
FERMER code: form1.close,
le but de ce programme est de calculer les bénifices
insérer:
-4 edit.text ou la propriété text vide et le code de chacune est
if(edit1.Text='')or(edit2.Text='')or(edit3.Text := '')or(edit4.text:=")then
showmessage('Vous devez remplir tous les champs')
-4 label nommés (prix d'achat,frais d'achat,prix de vente,bénéfices)
-3 boutons nommée comme suit
CALCULER code: edit4.Text :=inttostr(strtoint(edit3.Text) - (strtoint(edit1.Text) + strtoint(edit2.Text)))
ACTUALISER code:
edit1.Text := '';
edit2.Text := '';
edit3.Text := '';
edit4.Text := '';
edit1.setfocus
FERMER code: form1.close,