bonjours les amis, voici mon problème
j'aimerais transformer cette boucle en une requette sql (sql 2000) sous delphi 7 pour mettre un tquery
----debut de boucle -------------------
----- fin de boucle --------
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 mdd.TPriseCharge.First; while not mdd.TPriseCharge.Eof do begin if ((mdd.TPriseChargenum_miss.Text=Prise_chargeF.edit42.Text) and (mdd.TPriseChargedate_pc.Text=Prise_chargeF.label1.caption)) then begin mdd.TPriseCharge.Edit; mdd.TPriseChargemont_dej.Value:=strtofloat(edit1.Text); mdd.TPriseChargemont_din.Value:=strtofloat(edit2.Text); mdd.TPriseChargemont_heber.Value:=strtofloat(edit3.Text); mdd.TPriseChargejour.Text:=label15.Caption; mdd.TPriseChargetype_pc.Text:=label11.Caption; mdd.TPriseChargetotal_indem.Value:=strtofloat(edit4.Text); mdd.TPriseChargergion.Text:=edit43.Text; end; mdd.TPriseCharge.Next; end;
la première condition edit42 fixe.
sauf la c'est que la 2ème condition
puisque j'utilise 10 CheckBox, (on check : alors 10 boucle de while not ) , chaque checkbox pour chaque label.caption
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7 mdd.TPriseChargedate_pc.Text=Prise_chargeF.label1.caption)) peut etre label2.caption label3.caption . . . label10.caption
merci pour votre aide
Partager