Discussion :

[KOUTO]

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 :

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

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.

[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 :

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

ListBox2.ItemIndex:=ListBox1.ItemIndex;

à mettre par exemple dans le OnClick de la listbox1

[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.

[qi130]

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.

[KOUTO]

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

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 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;

[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)