Discussion :

[SOPSOU]

salut
je viens de voir le composant tabcontrol dans la liste des composants et...
voila j'ai deposé un tabcontrol sur lequel j'ai les 26 lettres de l'alphabet (a...z) qui representenr des boutons donc possibilité de cliquer sur une lettre.
ensuite j'ai deposé un dbgrid qui est connecté à une base de données access
(contient une table donc les champs sont: matricule, nom, prenom).
moi, je désire par exemple qu'a l'execution de l'application qu'il n'apparaissent sur le dbgrid que les personnes donc les noms commencent par a ( sur le tabcontrol, c'est le bouton qui comporte la lettre a qui est activé par défaut) qui s'affichent. ainsi, si l'utilisateur clic sur un autre bouton qui comporte la lettre b par exemple que seules les personnes donc le nom commence par b doivent apparaitre sur le dbgrid et ainsi de suite.
je veux donc savoir comment on code cela
merci

[Cl@udius]

Salut

Tu peux appliquer un filtre sur le DataSet de tes personnels en implémentant OnFilterRecord comme ceci:

Code :

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

1
2
3
4
5
6
7
 
procedure TForm1.Query1FilterRecord(DataSet: TDataSet;
  var Accept: Boolean);
begin
  with TabControl1 do
    Accept := Query1.FieldByName('Nom').AsString[1] = Tabs[TabIndex];
end;

Ensuite quand tu changes de page sur le TabControl, il suffit de rafraîchir le filtre:

Code :

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

1
2
3
4
5
6
7
8
 
procedure TForm1.TabControl1Change(Sender: TObject);
begin
  with Query1 do begin
    Filtered := False;
    Filtered := True;
  end;
end;

@+ Claudius