Discussion :

[tchimou]

Bonjour à tous!
j'ai deux DBGrid liés à deux tables, l'un en maître et l'autre en esclave. Le premier qui est en maitre contient les noms des personnes et l'autre qui est en esclave contient les details , et parmi ces details il y a un champs appelé Salaire.
j'ai un edit dans lequel je voudrais afficher le total des salaires de chaque personne lorsque je passe d'une personne à l'autre.
Je voudrais savoir dans quel evenement du DBgrid ou de l'Edit je dois inserrer le code pour calculer le total des salaires.
Merci pour votre aide.

[atb]

Bonjour , ma solution à moi c'est de créer un champ somme comme suit :
sur le dataset (chez moi le clientdataset) j'ajoute un nouveau champ de type statistic dans l'inspecteur , je rempli experssion avec par exemple sum(salaire); salaire etant un champ du dataset , donc j'ai un champ qui se calcul automatiquement ,et que je peux utilser dans dbedit ,dblabel ou dbgrid , à voir avec le type de ton ensemble de donnée !

[tchimou]

excusez moi , mais je ne comprends pas bien ce que vous dites, et je ne vois pas comment je peux faire cela , comment le champs que j'ajouterai pourra calculer automatiquement la somme des salaires de chaque personne .
Expliquez moi d'avantage svp , si possible même avec des ecrans.
Merci

[akli_agha]

Essayez ceci :


Dans l'evnt AfterScroll de la table Maitre

Code :

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

1
2
3
4
TableDetail.DisableControls;
// insérer votre code ici ...
TableDetail.First;
TableDetail.EnableControls;

[atb]

bonjour , j'ai quelque capture d'écran ,j'utilise un clientdataset ,je te conseil de creuser un peu la piste des champs agregats que tu peux exploiter pour ce genre d'operation .

[tchimou]

Merci bcp atb , c'est vraiment clair, merci pour ta piste.

[atb]

De rien , bonne programmation

[tchimou]

bonjour! excuser moi parce que j'ai retiré resolu sur la discution à cause d'un problème .
La solution que atb a proposé est bonne , mais ici je ne veux pas creer un nouveau champs , mais je veux seulement avoir dans mon TEdit la somme des salaires d'un employé lorsque je clique sur cet employé avec ma souris . Je rappelle que je travaille avec deux tables, l'un en maitre (Personne) et l'autre en esclave (DetailPerson) qui contient le champs Salaire sur lequel je fais mon calcul.
Les donnees des deux tables sont dans des DBgrid.
j'ai mis mon code dans l'evenement DblClick du DBgrid de la table maitre (personne)

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
procedure TGestionForm.DBGrid8DblClick(Sender: TObject);
var nTotalS:variant;
begin
    nTotalS:=0;
    while not DM.tbDetailPerson.Eof do
  begin   
    nTotalS:=nTotalS + DM.tbDetailPersonSalaire.Value;
  end;
   DM.tbDetailPerson.Next;
   EditSalaire.Text:=nTotalS;
 
end;

mais mon code ne fonctionne pas, je sais que j'ai fait des erreurs mais je vois lesquelles, je ne sais pas si c'est niveau de l'evenement .
j'ai cherché l'evenement Onclick du DBgrid , mais il n'existe pas , j'ai pris DBClick, et lorsque je clique deux fois sur l'employé dans le DBgrid , le programme plante , et plus rien qui marche.
je ne vois pas l'erreur.
Merci de m'aider

[SergioMaster]

bonjour ,

j'en suis pas sur à 100% mais ntotals devrait être déclaré en Currency ?
ce qui donnerait ensuite

Code :

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

editSalaire.text:=format('%3.2f',[ntotals])

ou utilise floatstrF , ca que tu as déjà demandé sur ce forum

[banban54]

bonjour

le next etait hors de la boucle!!

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
procedure TGestionForm.DBGrid8DblClick(Sender: TObject);
var nTotalS:variant;
begin
    nTotalS:=0;
    while not DM.tbDetailPerson.Eof do
  begin   
    nTotalS:=nTotalS + DM.tbDetailPersonSalaire.Value;
   DM.tbDetailPerson.Next;
  end;
   EditSalaire.Text:=nTotalS; 
end;

à plus

[tchimou]

Merci Banban54, c'est vrai j'avais mis le next hors de la boucle. maintenant ça marche.
Je voudrais savoir une autre chose , je voudrais cliquer une fois l'employé et voir la somme des salaires , sans faire le double click , je ne sais pas s'il y a un evenement qui permet de faire cela.
Merci

[atb]

Bonjour ,
tu peux toujour utiliser OnCellClick

[tchimou]

merci atb, ça marche!