Discussion :

[MIWAN]

Bonsoir
Je me demande comment faire une boucle pour modifier le un champ stock (saisie) a partir d’une colonne(3,i) D’un stringGrid après des essais .
avec cette procedure

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
 
procedure TFEntrees.ValiderClick(Sender: TObject);
var A,B : string;
i,j : integer;
valeur1 : string;
begin
A:=StringGrid1.Cells[1,i];
B:=StringGrid1.Cells[2,i];
 
i:=0;
j:=StringGrid1.RowCount;
repeat
i:=i+1;
valeur1:=StringGrid1.Cells[3,i]; 
if  t_Prod.Locate('Ref_P;Designation', VarArrayOf([A,B]),[loCaseInsensitive])then
    t_Prod.Edit;
    //Q_ProdStock.Value:=Q_ProdStock.Value + strtofloat(StringGrid1.Cells[3,i]);
    t_ProdStock.Value:=Q_ProdStock.Value + strtofloat(valeur1);
    t_Prod.Post;
 
until i=j 
end;

normalement les resultats seront editées sur le champ stock qui deveront egale a 6 mais ne rien change dans la table produits


merci pour toute aide

[XeGregory]

Regarde du coté de événement OnSetEditText.

Exemple de l'événement OnSetEditText :

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
procedure TForm1.Addition;
var
  IRow, ICol: Integer;
begin
  ICol := 0;
 
  for IRow := 0 to SG.RowCount - 1 do
  begin
    try // Col 1 + Col 2 = Result Col 3
      SG.Cells[ICol + 2, IRow] :=
        IntToStr(StrToInt(SG.Cells[ICol, IRow]) + StrToInt(SG.Cells[ICol + 1, IRow]));
    except
      SG.Cells[ICol + 2, IRow] := '0'; // Col 3
    end;
  end;
end;
 
procedure TForm1.SGSetEditText(Sender: TObject; ACol, ARow: Integer; const Value: string);
begin
  Addition;
end;

Il est possible de passer par cet événement OnSetEditText et d'apporter directement les modifications du TStringGrid à une table après la saisie (Fin de saisie).
Cela te donnerait la possibilité de mettre à jour ta table en temps réel, uniquement sur la valeur modifiée.

Cela pourrait donner quelque chose de semblable :

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
procedure TForm1.SGSetEditText(Sender: TObject; ACol, ARow: Integer; const Value: string);
var
  A, B: string;
begin
  A := StringGrid1.Cells[1, ARow];
  B := StringGrid1.Cells[2, ARow];
 
  if t_Prod.Locate('Ref_P;Designation', VarArrayOf([A, B]), [loCaseInsensitive]) then
  begin
    t_Prod.Edit;
 
    try
      t_ProdStock.Value := Q_ProdStock.Value + StrToFloat(StringGrid1.Cells[3, ARow]);
      t_Prod.Post;
    except
      t_Prod.Cancel;
      ShowMessage('Err');
    end;
  end;
end;

Pour la petite correction ( IF THEN BEGIN END), Oui, si je rentre dans la condition IF THEN, je mets ma table en mode édition, Je modifie ma valeur, puis-je la valide.

Code :

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

1
2
3
4
5
if  t_Prod.Locate('Ref_P;Designation', VarArrayOf([A,B]),[loCaseInsensitive])then
    t_Prod.Edit;
    //Q_ProdStock.Value:=Q_ProdStock.Value + strtofloat(StringGrid1.Cells[3,i]);
    t_ProdStock.Value:=Q_ProdStock.Value + strtofloat(valeur1);
    t_Prod.Post;

Dans donc cas si tu ne rentres pas dans ta condition tu essayais d'attribuer une valeur à ton champ puis de la validé sur une table et n'est pas en mode édition, doux l'importance du BEGIN END dans la condition IF THEN.

Code :

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

1
2
3
4
5
6
if  t_Prod.Locate('Ref_P;Designation', VarArrayOf([A,B]),[loCaseInsensitive]) then
begin // BEGIN !!!
    t_Prod.Edit;
    t_ProdStock.Value:=Q_ProdStock.Value + strtofloat(valeur1);
    t_Prod.Post;
end; // END !!!

[MIWAN]

merci de votre repense
j'ai bien apprecie

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
 
procedure TForm1.SGSetEditText(Sender: TObject; ACol, ARow: Integer; const Value: string);
var
  A, B: string;
begin
  A := StringGrid1.Cells[1, ARow];
  B := StringGrid1.Cells[2, ARow];
 
  if t_Prod.Locate('Ref_P;Designation', VarArrayOf([A, B]), [loCaseInsensitive]) then
  begin
    t_Prod.Edit;
 
    try
      t_ProdStock.Value := Q_ProdStock.Value + StrToFloat(StringGrid1.Cells[3, ARow]);
      t_Prod.Post;
    except
      t_Prod.Cancel;
      ShowMessage('Err');
    end;
  end;
end;

mais des que je tape une valeur je reçoie un message d'erreure


le projet exe a declancheé la classe d'exception EConvertError avec le message "" n'est pas une valeur en vergule floattante correcte

[XeGregory]

Regarde du coté FormatSettings

https://www.developpez.net/forums/d1...lottant-point/

Code :

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

1
2
3
4
5
6
7
8
9
var
  FormatSettings: TFormatSettings;
begin
  // Le séparateur décimal est le point "." et non pas la virgule.
  GetLocaleFormatSettings(0, FormatSettings);
  FormatSettings.DecimalSeparator := '.';
  Result := StrToFloat(Value, FormatSettings);
  ...
end;

[papyvore]

merci de votre repense
j'ai bien apprecie

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
 
procedure TForm1.SGSetEditText(Sender: TObject; ACol, ARow: Integer; const Value: string);
var
  A, B: string;
begin
  A := StringGrid1.Cells[1, ARow];
  B := StringGrid1.Cells[2, ARow];
 
  if t_Prod.Locate('Ref_P;Designation', VarArrayOf([A, B]), [loCaseInsensitive]) then
  begin
    t_Prod.Edit;
 
    try
      t_ProdStock.Value := Q_ProdStock.Value + StrToFloat(StringGrid1.Cells[3, ARow]);
      t_Prod.Post;
    except
      t_Prod.Cancel;
      ShowMessage('Err');
    end;
  end;
end;

mais des que je tape une valeur je reçoie un message d'erreure


le projet exe a declancheé la classe d'exception EConvertError avec le message "" n'est pas une valeur en vergule floattante correcte

salut
tes variables t_ProdStock.Value et Q_ProdStock.Value sont elles bien toutes les deux des float

[XeGregory]

salut
tes variables t_ProdStock.Value et Q_ProdStock.Value sont elles bien toutes les deux des float

De ce que je vois par rapport au capture écran, cela semble être des valeurs entières.
Je comprends pas pourquoi utiliser StrToFloat, je serai plus parti sur StrToInt.

Code :

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

1
2
3
4
5
6
7
try
   t_ProdStock.Value := Q_ProdStock.Value + StrToInt(Value);
  t_Prod.Post;
except
  t_Prod.Cancel;
  ShowMessage('Err');
end;

[MIWAN]

Code :

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

1
2
3
4
5
6
7
try
   t_ProdStock.Value := Q_ProdStock.Value + StrToInt(Value);
  t_Prod.Post;
except
  t_Prod.Cancel;
  ShowMessage('Err');
end;

produit le message suivant avec doublure du quantitée ajoutée

Code :

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

1
2
 
'' n'est pas une valeur en virgule floattante correcte

[XeGregory]

Code :

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

1
2
3
4
5
6
7
try
   t_ProdStock.Value := Q_ProdStock.Value + StrToInt(Value);
  t_Prod.Post;
except
  t_Prod.Cancel;
  ShowMessage('Err');
end;

produit le message suivant avec doublure du quantitée ajoutée

Code :

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

1
2
 
'' n'est pas une valeur en virgule floattante correcte

Tu saisis quoi comme valeur dans le TStringGird ? '0 ,00 ' ou '0 .00 '
Le séparateur décimal est le point "." et non la virgule , .

[MIWAN]

Si tu veux saisir tes valeurs avec la virgule, il faut que tu passe par TFormatSettings

Code :

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

1
2
3
4
5
6
7
 
var
 fs : TFormatSettings;
 
begin
 
  GetLocaleFormatSettings(LOCALE_SYSTEM_DEFAULT, fs);

je crois que le probleme est dans la base de dnnée

[XeGregory]

Code :

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

1
2
3
4
5
6
7
 
var
 fs : TFormatSettings;
 
begin
 
  GetLocaleFormatSettings(LOCALE_SYSTEM_DEFAULT, fs);

je crois que le probleme est dans la base de dnnée

Avant d'aller plus loin dans la procédure, il est primordial de contrôler les valeurs saisies lorsque vous travaillez avec un TStringGrid avec des valeurs Int ou Float.

J'ajouterai même un contrôle du format saisi FormatFloat

Ton problème c'est juste une histoire de format, peut-être que ton champ t_ProdStock prend que les valeurs à virgule 0,00, donc forcement si tu lui rentres un format avec un point 0.00 cela peut soulever une erreur de format, après c'est à toi de faire la conversion de format.

Il est donc essentiel de contrôler la saisie.
1: Que la valeur saisie est bien du type numérique.
2: Que le format saisi correspond bien avec le format de ton champ de table.

Mais effectivement le contrôle de saisir ne peut pas se faire du côté SetEditText, Il est essentiel de contrôler la valeur, avant de déclencher événement OnSetEditText, donc SetEditText n'est pas une bonne idée.

[SergioMaster]

Plusieurs constatations :
Tout d'abord, je ne comprends pas l'image écran ne serait-ce que la première ligne seuil =20 stock = 4 et = 6 !
Ensuite je ne comprends pas pourquoi vous utilisez un StringGrid alors qu'un DBGrid et une requête serait tout aussi (si ce n'est plus) efficace
Vous n'indiquez pas quelle est votre version de Delphi, ni votre base de données, ni les connecteurs (composants) utilisés pour à la bdd.

Pour ce qui est du code

Code :

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

      t_ProdStock.Value := Q_ProdStock.Value + StrToFloat(StringGrid1.Cells[3, ARow]);

apprenez à typer vos colonnes en utilisant dans ce cas asFloat et StrToFloat d'une case vide provoquera automatiquement une erreur utilisez StrToFloatDef

Code :

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

StrToFloatDef(StringGrid1.Cells[3, ARow],0.00)

ou plutôt StrFloatDef avec l'indication de Format (maintenant dépendant de la version de Delphi cette histoire de format pouvant changer je ne vais pas indiquer comment)

[MIWAN]

Bonjour SergioMaster SergioMaster

Plusieurs constatations :
Tout d'abord, je ne comprends pas l'image écran ne serait-ce que la première ligne seuil =20 stock = 4 et = 6 !

la quantotée en stock = 4 et quand j'ajoute 2 dans stringgrid qte 2 le stock normalement serait = 6;

Ensuite je ne comprends pas pourquoi vous utilisez un StringGrid

j'utilise StringGrid comme Feuille de Brouillon afin d'éviter l'ajout d'une Table ex:Table temporaire et l'export a excel

quelle est votre version de Delphi ?

ma version delphi 2010 entreprise

je vous envois un fichier pour vous faciliter la tache

[MIWAN]

Bonjour : XeGregory

Il est donc essentiel de contrôler la saisie.
1: Que la valeur saisie est bien du type numérique.
2: Que le format saisi correspond bien avec le format de ton champ de table.

j'ai bien verifie les champs plus j'ai essaiyé sans base de donnée et le probleme reste toujours

[XeGregory]

je vous envois un fichier pour vous faciliter la tache

Tu déclare la 'Procedure Addition' dans 'TForm1' Ça peut pas fonctionner.

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
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
type
  TForm1 = class(TForm)
    StringGrid1: TStringGrid;
    Button1: TButton;
    procedure Addition;
    procedure StringGrid1SetEditText(Sender: TObject; ACol, ARow: Integer;
      const Value: string);
    procedure Button1Click(Sender: TObject);
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
    SG : TstringGrid;
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Addition;
var
  IRow, ICol: Integer;
begin
  ICol := 0;
 
  for IRow := 0 to SG.RowCount - 1 do
  begin
    try // Col 1 + Col 2 = Result Col 3
      SG.Cells[ICol + 2, IRow] :=
        IntToStr(StrToInt(SG.Cells[ICol, IRow]) + StrToInt(SG.Cells[ICol + 1, IRow]));
    except
      SG.Cells[ICol + 2, IRow] := '0'; // Col 3
    end;
  end;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
Addition;
end;
 
procedure TForm1.StringGrid1SetEditText(Sender: TObject; ACol, ARow: Integer;
  const Value: string);
begin
Addition;
end;
 
end.

Correction :

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
37
38
39
40
41
42
43
44
45
46
47
48
49
type
  TForm1 = class(TForm)
    StringGrid1: TStringGrid;
    Button1: TButton;
 
    procedure StringGrid1SetEditText(Sender: TObject; ACol, ARow: Integer; const Value: string);
    procedure Button1Click(Sender: TObject);
 
  private
    { Déclarations privées }
    procedure Addition;
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Addition;
var
  IRow, ICol: Integer;
begin
  ICol := 0;
 
  with StringGrid1 do
  begin
    for IRow := 0 to RowCount - 1 do
    begin
      try // Col 1 + Col 2 = Result Col 3
        Cells[ICol + 2, IRow] :=
          IntToStr(StrToInt(Cells[ICol, IRow]) + StrToInt(Cells[ICol + 1, IRow]));
      except
        Cells[ICol + 2, IRow] := '0'; // Col 3
      end;
    end;
  end;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  Addition;
end;
 
procedure TForm1.StringGrid1SetEditText(Sender: TObject; ACol, ARow: Integer; const Value: string);
begin
  Addition;
end;

[MIWAN]

XeGregory
lorsque je regard votre capture ecran et votre code corrigé c'est impéccable .

Tu déclare la 'Procedure Addition' dans 'TForm1'

même dans les parties Private , public et même avec votre code corrigé comme il est le message d'erreur se déclenche
vraiment je n'ai rien compris

NB: m'excuses pour votre dérangement


NB: m'excuses pour votre dérangement

[XeGregory]

XeGregory
lorsque je regard votre capture ecran et votre code corrigé c'est impéccable .

même dans les parties Private , public et même avec votre code corrigé comme il est le message d'erreur se déclenche
vraiment je n'ai rien compris

NB: m'excuses pour votre dérangement


NB: m'excuses pour votre dérangement

C'est tout à fait normal, tu es en mode DEBUG.
Bon courage pour la suite...

[MIWAN]

XeGregory


Thank's pour la bonne vue (en mode Debug)