Données dbgrid
Résolu
ratatouille53
Messages postés
30
Date d'inscription
lundi 11 janvier 2016
Statut
Membre
Dernière intervention
10 décembre 2017
-
6 nov. 2017 à 19:02
ratatouille53 Messages postés 30 Date d'inscription lundi 11 janvier 2016 Statut Membre Dernière intervention 10 décembre 2017 - 9 nov. 2017 à 15:01
ratatouille53 Messages postés 30 Date d'inscription lundi 11 janvier 2016 Statut Membre Dernière intervention 10 décembre 2017 - 9 nov. 2017 à 15:01
1 réponse
ratatouille53
Messages postés
30
Date d'inscription
lundi 11 janvier 2016
Statut
Membre
Dernière intervention
10 décembre 2017
9 nov. 2017 à 15:01
9 nov. 2017 à 15:01
voila jai fait un bout code !!! mais bon ca me plais pas et de plus fonctionne mal
//******************TABLE 1 ***************
procedure TForm1.Button2Click(Sender: TObject);
Var
pnom, Pnombre: String;
begin
table1.first;
if Table1.FieldByName('table').value =1 then begin panel1.Color:= clBlue;
if table1.FieldByName('nom').Value = 'nean' then begin panel1.Color:=clRed;
pnom := Grille.DataSource.DataSet.Fields.Fields[1].AsString ;
Pnombre := Grille.DataSource.DataSet.Fields.Fields[3].AsString;
label1.caption:=pnom;
label2.Caption:=pnombre;
end;
begin
table1.first;
if Table1.FieldByName('table').value =2 then begin panel2.Color:= clBlue;
if table1.FieldByName('nom').Value = 'nean' then begin panel2.Color:=clRed;
pnom := Grille.DataSource.DataSet.Fields.Fields[1].AsString ;
Pnombre := Grille.DataSource.DataSet.Fields.Fields[3].AsString;
label3.caption:=pnom;
label4.Caption:=pnombre;
end;end;
je répète cela jusqu 'a 100
le souci cet que la dernière ligne est rempli de end;
et lorsque je lance l appli il n y a que les 8 premières enregistrement qui son pris en compte!!!!
voila alors si vous avez une solution pour simplifier le code
jai essayer avec une boucle ça marche pas enfin je vais dire plutôt je sais pas faire !!! car trop d'élément !!!!!
var
i: Integer;
begin
table1.first;
try
for i := 1 to 100 do
begin
if Table1.FieldByName('table').value =IntToStr(i) then
begin panel1.Color:= clBlue;
//pour cette ligne la je sais pas faire la boucle pour le panel(1)
if table1.FieldByName('nom').Value = 'nean' then begin panel1.Color:=clRed;
pnom := Grille.DataSource.DataSet.Fields.Fields[1].AsString ;
Pnombre := Grille.DataSource.DataSet.Fields.Fields[3].AsString;
//pour cette ligne la je sais pas faire la boucle pour label(1)et (2)
label1.caption:=pnom;
label2.Caption:=pnombre;
end;
finally
IniFile.Free;
end;
je sais pas si j ai été claire !!! dite moi !!! svp
j attend vos idées ou conseils !!
cordialement t
//******************TABLE 1 ***************
procedure TForm1.Button2Click(Sender: TObject);
Var
pnom, Pnombre: String;
begin
table1.first;
if Table1.FieldByName('table').value =1 then begin panel1.Color:= clBlue;
if table1.FieldByName('nom').Value = 'nean' then begin panel1.Color:=clRed;
pnom := Grille.DataSource.DataSet.Fields.Fields[1].AsString ;
Pnombre := Grille.DataSource.DataSet.Fields.Fields[3].AsString;
label1.caption:=pnom;
label2.Caption:=pnombre;
end;
begin
table1.first;
if Table1.FieldByName('table').value =2 then begin panel2.Color:= clBlue;
if table1.FieldByName('nom').Value = 'nean' then begin panel2.Color:=clRed;
pnom := Grille.DataSource.DataSet.Fields.Fields[1].AsString ;
Pnombre := Grille.DataSource.DataSet.Fields.Fields[3].AsString;
label3.caption:=pnom;
label4.Caption:=pnombre;
end;end;
je répète cela jusqu 'a 100
le souci cet que la dernière ligne est rempli de end;
et lorsque je lance l appli il n y a que les 8 premières enregistrement qui son pris en compte!!!!
voila alors si vous avez une solution pour simplifier le code
jai essayer avec une boucle ça marche pas enfin je vais dire plutôt je sais pas faire !!! car trop d'élément !!!!!
var
i: Integer;
begin
table1.first;
try
for i := 1 to 100 do
begin
if Table1.FieldByName('table').value =IntToStr(i) then
begin panel1.Color:= clBlue;
//pour cette ligne la je sais pas faire la boucle pour le panel(1)
if table1.FieldByName('nom').Value = 'nean' then begin panel1.Color:=clRed;
pnom := Grille.DataSource.DataSet.Fields.Fields[1].AsString ;
Pnombre := Grille.DataSource.DataSet.Fields.Fields[3].AsString;
//pour cette ligne la je sais pas faire la boucle pour label(1)et (2)
label1.caption:=pnom;
label2.Caption:=pnombre;
end;
finally
IniFile.Free;
end;
je sais pas si j ai été claire !!! dite moi !!! svp
j attend vos idées ou conseils !!
cordialement t
