bonsoir
je dois faire une sorte de facture avec des bouton radio groupe qui influencerais le prix etc et bien entendu avoir un prix total a la fin .
si quelqu'un pourrais m'aidé
merci
bonsoir
je dois faire une sorte de facture avec des bouton radio groupe qui influencerais le prix etc et bien entendu avoir un prix total a la fin .
si quelqu'un pourrais m'aidé
merci
oui avec plaisir, quel est ton problème ?
bonjour,
si tu peut détaillé le contenu de facture on peut surement contribuer
en faite ma facture est déjà faite sur un fiche vlc , avec radio groupe que quand ont clique dessus influence le prix de la facture . mais le problème c'est que quand je compile le programme impossible d'utiliser les radio groupe ou autre edit (qui me permettent de définir le prix ) de plus j'ai mis un grid en dessous pour faire le compte etc mais voila rien ne s'affiche non plus . si quelqu'un pourrait m'aidé
donc c'est une facture pour un cinéma , donc numéro de commande , ensuite quelque edit qui me permettent de définir le prix d'une place
les radio que quand je clique sa ajoute ou ca réduit le prix et tout ceux ci doit s'ajouter dans un grid et que le total a payer s'affiche .
ps : dans mon radiogroupe j'ai 2 liste déroulante une avec les futurs film et l'autre avec les numéros de salle qui eux aussi ne bouge pas du tout
Bonjour,
une image écran , des bouts de code , ça aide
la version de Delphi aussi , tant qu'à faire
dire ceci pour D7 est différent si l'on parle FMX par exempledans mon radiogroupe j'ai 2 liste déroulante
delphi ex5
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36 var FVenteticket: TFVenteticket; implementation uses udata; {$R *.dfm} procedure TFVenteticket.bntAnnulerClick(Sender: TObject); begin Application.Terminate; end; procedure TFVenteticket.dbedtnumdesaleDropDown(Sender: TObject); begin DataMod.ZTSeances.SortedFields := 'SeanceSalleId'; end; procedure TFVenteticket.DBLookupComboBox1DragDrop(Sender, Source: TObject; X, Y: Integer); begin DataMod.ZTLookupFilms.SortedFields := 'FilmTitre'; end; procedure TFVenteticket.DBLookupComboBox2DragDrop(Sender, Source: TObject; X, Y: Integer); begin DataMod.ZTLookupSalles.SortedFields := 'FilmTitre'; end; procedure TFVenteticket.lookuplistefilmDropDown(Sender: TObject); begin DataMod.ZTFilms.SortedFields := 'FilmTitre'; end; end.
Franchement c'est pas clair mais on va essayer. si j'ai bien compris tu voudrais que pour le calcul du prix du ticket tout les composants existant sur ta fiche doivent être prix en considérations alors pour quoi tu fait pas des conditions sur le calcul du prix? est-ce que tu utilise une base de données pour sauvegarder les noms des films, si c'est le cas tu peut alors créer les champs suivants:
PR1 relatif au film.
maj1 relatif au premier radio groupe
ect...
et avant validation tu fait le test suivant
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8 ///prix est une variable double; prix:=table1.fieldvalues['PR1'];//correspondant au prix du film /// maintenant ajout des majoration if radiogroup1.checked then prix:=prix+table1.fieldvalues['MAJ1']; .... ect
Vous avez un bloqueur de publicités installé.
Le Club Developpez.com n'affiche que des publicités IT, discrètes et non intrusives.
Afin que nous puissions continuer à vous fournir gratuitement du contenu de qualité, merci de nous soutenir en désactivant votre bloqueur de publicités sur Developpez.com.
Partager