Discussion :

[fcboumi13]

salut a tous
je suis sur un programme sur delphi et j'ai une base de donnée et je veut calcule un moyen pour tous les enregistrement dans cette table en un clic en boutton cad de parcourir toute la table
j'ai fait ce code mais il me donne rien

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
procedure TEmployeur.sButton1Click(Sender: TObject);
begin
with query1 do
begin
close;
sql.Text:='SELECT * FROM "C:\Program Files\Agroemballe\base\entreprise.db"';
open;
while not eof do
begin
dbedit7.Text:=floattostr((strtofloat(dbedit1.Text)+strtofloat(dbedit2.Text)+strtofloat(dbedit3.Text)+strtofloat(dbedit4.Text)+strtofloat(dbedit5.Text)+strtofloat(dbedit6.Text)));
dbedit9.Text:=floattostr((strtofloat(dbedit7.Text)*strtofloat(dbedit8.Text)));
next;
end;
end;
end;

si quelqu'un peur m'aidé c trés gentil a vous
merci

[Fxg]

C'est la moyenne de certains champs que tu veux calculer ?

Sinon pour parcourir la table le code resemble à cela :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
  with table1 do
  begin
  First;
    while not eof do
    begin
      if Table1.Fieldbyname('Num_Genre').asinteger = 25 then
      begin
      memo1.lines.Add(table1.fieldbyname('Titre').AsString);
      i:=i+1;
      end;
      next;
    end;
  end;

Ce que fait cet exemple est sans rapport avec ce que tu veux faire (et que je n'ai pas compris) c'est juste pour faire avance le parcours d'une table..

Ne pas oublier le FIRST et le NEXT

[fcboumi13]

oui ce que je veut c calculé la moyen pour quelque champs

[NABIL74]

salut,

tu peux parcourir ta table ou ta requête comme ça:

Code :

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

1
2
3
4
5
6
7
8
9
Table1.Edit;
Table1.first;//on se positionne sur le 1er enregistrement
while not Table1.Eof do
begin
Table1.Edit;
Table1.FieldByName('Moyenne').AsFloat:=(Table1.FieldByName('CHAMP1').AsFloat+
Table1.FieldByName('ChAMP2').AsFloat)/3;
Table1.Post;//on sauvegarde
Table1.next;// on passe à l'enregistrement suivant

Comme ça tu parcours toute ta table en calculant la moyenne.

Bonne chance.

NABIL74

[fcboumi13]

ça marché
merci bcp bcp nabil 74

[MonPc]

biensure ne pas oublier