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
si quelqu'un peur m'aidé c trés gentil a vous
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;
merci
Partager