Discussion :

[xeak2008]

Bonjour à tous,

J'ai une fiche avec des élèves qui sont reparties dans 3 écoles,

j'essaie de changer l'image lorsque l'école de l'élève change... mais je n'y arrive pas, j'ai vérifié la syntaxe de me if mais elle parait juste et ça compile. pourriez-vous m'aider ?

voilà ma condition :

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
procedure TFEleves.DBEcoleChange(Sender: TObject);
 
begin
  if DBEcole.Text = 'Ecole1' then 
begin
    ImgEcole2.Hide; ImgEcole3.Hide;
    end
    else begin
    if DBEcole.Text = 'Ecole2' then begin
      ImgEcole1.Hide; ImgEcole3.Hide;
      end
      else begin if DBSalles.Text = 'Pâquis' then begin
        ImgGrottes.Hide; ImgThonex.Hide;
        end;
        end;
end;
 end;

[Cl@udius]

Salut

Tes conditions sont mal posées. Tu aurais du utiliser des if .. else if .. end.

Mais ceci me parait plus simple.

Code :

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

1
2
3
4
5
6
7
8
procedure TFEleves.DBEcoleChange(Sender: TObject);
begin
  ImgEcole1.Visible := DBEcole.Text = 'Ecole1';
  ImgEcole2.Visible := DBEcole.Text = 'Ecole2';
  ImgEcole3.Visible := DBEcole.Text = 'Ecole3';
  ImgGrottes.Visible := DBSalles.Text = 'Pâquis'; 
  ImgThonex.Visible := ImgGrottes.Visible;
end;

@+ Claudius

[xeak2008]

Merci mais les images n'apparaisse pas quand je défile les élèves alors que le nom de l'école oui

j'ai essayé autre chose mais ça me donne la même chose que ta proposition :

ceci :

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 TFEleves.DBEcoleChange(Sender: TObject);
 
begin
ImgEcole1.Hide;
ImgEcole2.Hide;
ImgEcole3.Hide;
  if DBEcole.Text = 'Ecole1' then
    ImgEcole1.Show
    else if DBEcole.Text = 'Ecole2' then
      ImgEcole2.Show
      else if DBEcole.Text = 'Ecole3' then
        ImgEcole3.Show;
        end;
  end.

[xeak2008]

c'est bon ça marche c'était une erreur dans ma base de donnée

Merci de votre aide