Discussion :

[User]

Bonsoir à tous,

Ma question est simple:

J'ai une fiche sur laquelle il y a:

Une Tlistbox avec les valeurs:

Dupont
Durant
Martin
Deprez

et des TDBEdit du style:

Nom
Prenom
Adresse
Tel


et je souhaiterai en selectionnant par exemple Durant dans la liste accéder
aux informations concernant Durant sur ma fiche (Nom,Prenom,Adresse, etc..)


Excusez moi pour cette question qui a certainement deja été traité sur ce forum..mais je débute en Delphi


Merci par avance,

[aliwassem]

Salut

bon vous avez un Nom,Prenom,........ ou je trove ca , dans une base de donne ou quoi ?

[User]

Oui dans une table Client située dans 1 BD paradox..

et mes TDBEdit sont lié aux champs de cette table Client (Nom,Prenom..)

@+

[aliwassem]

Oui dans une table Client située dans 1 BD paradox..

et mes TDBEdit sont lié aux champs de cette table Client (Nom,Prenom..)

@+

alors

Code :

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

1
2
3
4
5
6
7
8
9
10
 
With Query1 do
begin
SQL.Clear;
SQL.Add('SELECT Nom,PreNom,...... FROM TableName');
SQL.Add('WHERE Nom =:Nom');
Params[0].AsString := ListBox1.Items.Strings[ListBox1.IndexItem];
RequestLive:= True;
Open;
End;

Et aussi quand vous relie votre Query et DataSource ,alros relie votre TDBEDIT a la Query pour recuperer la sortie de la Query directement a les TDBEDIT.....................

[akli_agha]

Il suffit de faire un locate sur ta table du nom sélectionné dans ta List

Dans l'evnmt OnClick de ta List :

TaTable.Locate('NOM', TaList.Items.Strings[TaList.IndexItem], []);

Ton curseur de table se positionnera sur le 1er enregistrement comportant le nom choisi et tes DBEdit seront informés du reste des Infos.

Bye.

[User]

Merci pour ces 2 solutions qui vont certainement m'être utile pour la suite !

Pour ce cas précis j'ai utilisé une table avec un index et fait:

Code :

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

1
2
3
4
5
6
7
8
9
procedure TForm2.ListBox1Click(Sender: TObject);
var
var_name: string;
 
begin
var_name := ListBox1.Items[ListBox1.ItemIndex];
 
Table1.FindKey([var_name]);
end;

merci encore !