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 7 - Télécharger - Langages
- Numéro de série delphi 7 ✓ - Forum Delphi
- Filigrane projet - Guide
- Exemple d'un projet déjà monté - Forum Programmation
- Comment projeter une image sur un mur - Forum TV & Vidéo
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,