Discussion :

[LandGreen]

Bonjour,
j'ai un DBGrid1 contient les colonne Produit , prix , qtité , total relié à DATASOURCE (DS_Vent_Int) et cette DATASOURCE a comme DS_Vent_Int (data set Vent_Int )
je souhaite lorsque je sélectionne une ligne dans le DBgrid et j'appuie sur + la valeur sur la colonne Qtite augment

dans l'evenement OnKeyPress j'ai mis ça mais ça beugue

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
if key = #43 then
begin
  F_DM.Vent_Int.Edit;
F_DM.Vent_Int.FieldValues['Qtite'] := F_DM.Vent_Int.FieldValues['Qtite']+1 ;
 
end else if key = #45 then
 F_DM.Vent_Int.Edit;
F_DM.Vent_Int.FieldValues['Qtite'] := F_DM.Vent_Int.FieldValues['Qtite']-1;

[sergio_is_back]

Bonjour,
j'ai un DBGrid1 contient les colonne Produit , prix , qtité , total relié à DATASOURCE (DS_Vent_Int) et cette DATASOURCE a comme DS_Vent_Int (data set Vent_Int )
je souhaite lorsque je sélectionne une ligne dans le DBgrid et j'appuie sur + la valeur sur la colonne Qtite augment

dans l'evenement OnKeyPress j'ai mis ça mais ça beugue

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
if key = #43 then
begin
  F_DM.Vent_Int.Edit;
F_DM.Vent_Int.FieldValues['Qtite'] := F_DM.Vent_Int.FieldValues['Qtite']+1 ;
 
end else if key = #45 then
 F_DM.Vent_Int.Edit;
F_DM.Vent_Int.FieldValues['Qtite'] := F_DM.Vent_Int.FieldValues['Qtite']-1;

Les questions :

Quelle est l'exception remontée ?
Quelle version de Delphi ?

F_DM -> c'est quoi ? Une TForm
Vent_Int -> c'est quoi ? Un Dataset j'imagine ? TQuery, autre chose

[LandGreen]

Les questions :

Quelle est l'exception remontée ?
Quelle version de Delphi ?

F_DM -> c'est quoi ? Une TForm
Vent_Int -> c'est quoi ? Un Dataset j'imagine ? TQuery, autre chose

Quelle est l'exception remontée ? aucune exception mais par contre aucune modification n'apparait il ya le symbole "+" qui apparaît dans la colonne selectionnée
Quelle version de Delphi ? Delphi 7
F_DM :FICHE DATA MODULE contient l'ensemble des composants ( DATA SOURES ,
Vent_Int : ADOTABLE

[sergio_is_back]

Si tu utilises l'événement OnKeyPress je te conseille de rajouter Key:=#0 ce sera déjà mieux
Car en effet la touche est renvoyée à la DBGrid après ton traitement :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
 
if key = #43 then
begin
  F_DM.Vent_Int.Edit;
  F_DM.Vent_Int.FieldValues['Qtite'] := F_DM.Vent_Int.FieldValues['Qtite']+1 ;
   key:=#0;
 
end else if key = #45 then
begin
  F_DM.Vent_Int.Edit;
  F_DM.Vent_Int.FieldValues['Qtite'] := F_DM.Vent_Int.FieldValues['Qtite']-1;
  Key:=#0;
end;

[SergioMaster]

Bonjour,

Perso je ne suis pas un fan des DBGrids et au vue de l'interface utilisateur de l'image écran, j'aurai laissé la grille en lecture seule pour ne proposer la saisie que dans le dessus de la grille du coup le '+' et '-' ne serait à gérer que sur la zone de saisie libellée Qtité

ADOTABLE

beurk, je déteste ADO !
Une table, Je comprends mieux cette histoire de fiche non vide

[LandGreen]

j'arrive enfin et utliser les +/- pour modifier la quantité j'ai utiliser ce code

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
CASE KEY OF
 
VK_ADD :
begin
  F_DM.Vent_Int.Edit;
  F_DM.Vent_Int.FieldValues['Qtite'] := F_DM.Vent_Int.FieldValues['Qtite']+1 ;
  F_DM.Vent_Int.FieldValues['M_HT']:=F_DM.Vent_Int.FieldValues['Qtite']*F_DM.Vent_Int.FieldValues['Px_U'];
  F_DM.Vent_Int.FieldValues['TVA']:=F_DM.Vent_Int.FieldValues['M_HT']*F_DM.Vent_Int.FieldValues['Tx_TVA']/100;
  F_DM.Vent_Int.FieldValues['M_TTC']:=F_DM.Vent_Int.FieldValues['M_HT']+F_DM.Vent_Int.FieldValues['TVA'];
 
                 vh:=0;
                 tva:=0;
                 ttc:=0;
                  F_DM.Vent_Int.First;
                    while not F_DM.Vent_Int.Eof do
                           begin
                               vh:=vh+F_DM.Vent_Int.FieldValues['M_HT'];
                               tva:=tva+F_DM.Vent_Int.FieldValues['TVA'];
                               ttc:=ttc+F_DM.Vent_Int.FieldValues['M_TTC'];
                             F_DM.Vent_Int.Next
                           end;
 Edit3.Text:=FormatFloat('0.00',vh);
 Edit4.Text:=FormatFloat('0.00',tva);
 Edit5.Text:=FormatFloat('0.00',ttc);
 memo2.Lines[0] :=FormatFloat(',0.00',ttc);

maintenant le problème qui se pose c'est lorsque j'ai plusieurs article la manipulation s'applique uniquement au dernière ligne, moi je veux qu'elle soit appliqué à la ligne selectionnée,
y'a t'il une idée?