Listbox et base de données

Version imprimable

Bonjour à tous

voila alors j'ai un ODBC configuré pour mysql avec easy php tourne derriere.
-----
je suis donc relier a ma base de données.
----
Dans la table entreprise j'ai deux champs : code entreprise et nom entreprise

J'ai fais une frame ou dessus je liste dans un listbox1 le code entreprise
et dans la listbox2 le nom de l'entreprise

avec le code suivant: ( je clique sur un bouton radio pour que sa lance l'operation)
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 procedure TFrame_ajt_entreprise.RadioButton1Click(Sender: TObject); var i, num_champs: integer; S: string; begin for i:= 1 to DataModule1.table_entreprise.RecordCount do begin ListBox2.Items.add(vartostr (DataModule1.table_entreprise.Fields[0].Value)); ListBox1.Items.add(vartostr (DataModule1.table_entreprise.Fields[1].Value)); DataModule1.table_entreprise.Next; end; end;
jusqu'ici pas de soucis tout s'affiche bien.

Par contre j'aimerais savoir comment en selectionnant dans ma listbox (le code entreprise )
, le nom de l'entreprise de ma deuxieme listbox peut se mettre en paralelle?

Exemple:

01 hp
54 nike

Quand je clique sur 54 ma deuxieme listbox point automatiquement sur nike.

Merci de votre aide.

et au passage j'ai créer donc un bouton radio pour lancer ceci, car je ne sais pas comment le lancer directement dans une listbox ( j'ai essayer plein d'evenement; on click, on change...)

Merci et bonne soirée à tous. :P

07/12/2006, 21h43
qi130

Quand tu cliques sur la 1ère listbox, ça positionne son ItemIndex.

Ensuite, il suffit de forcer l'itemindex de la 2ème listbox:

Code:

ListBox2.ItemIndex:=ListBox1.ItemIndex;

à mettre par exemple dans le OnClick de la listbox1
07/12/2006, 22h12
KOUTO

Mil merci qi130 je commence en delphi et j'ai un peut de mal a tout retrouver...

Sinon on peut directement tou afficher dans les listbox sans etre obliger de passer par un bouton pour l'activer?

Une autre et ultime question sans trop abuser j'espere.

J'essaye de faire un programme de gestion de fiche inventaire ou il faut saisir des choses et en selectionner d'autre le tout enregistrer dans une base de données.

Mais est ce que je peux enregistrer le tout dans un fichier xml, oui dans un richedit afin de pouvoir ouvrir a nouveau la fiche et la modifier? Si cela est possible, quelqu'un pourrait-il m'aiguiller? merci.
07/12/2006, 22h28
qi130

Citation:

on peut directement tou afficher dans les listbox sans etre obliger de passer par un bouton pour l'activer?

Oui, en mettant le code dans le OnShow de la TForm.

Attention cependant au temps de chargement...
Dans ce cas, l'utilisateur pourra croire que le prog est planté; alors que quand il appuie sur un bouton, il sait que ça travaille.

En fait, dans ton cas, je ne récupérerais que les n° des entreprises dans un Tcombobox configuré en DropDownList.
Puis quand on choisit un n°, j'irai cherché le nom dans la base pour l'afficher.

tu le parametre dans les evenement dans On dropdown? et apres tu mets cela:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
procedure TFrame_ajt_entreprise.ComboBox1DropDown(Sender: TObject);
 
var i, num_champs: integer;
S: string;
begin
 
 
for i:= 1 to DataModule1.table_entreprise.RecordCount do
  begin
     ListBox2.Items.add(vartostr (DataModule1.table_entreprise.Fields[0].Value));
     DataModule1.table_entreprise.Next;
  end;
 
 
end;

08/12/2006, 09h25
qi130

Non, dans le OnChange du Combo :
1/ récupérer l'Id de l'entreprise
2/ faire un SELECT nom from xxx where Id= Combobox.Text
3/ afficher le nom dans un Label (pas de Listbox2)
08/12/2006, 10h15
Rayek

un Datasource relié à la requete/table et un dblookupcombox ou dblookuplistbox devrait largement suffire et ne néécessite aucune programmation.

Utilisation du DbLookUpCombobox :

http://delphi.developpez.com/faq/?pa...omboboxcomment