Discussion :

[looping]

Bonjour,

Je voudrais avec une DBComboBox faire ceci:

1) Remplir par programme la combo avec un fichier de donnée (liste des pays + identifiant pays en storedString)

2) je voudrais rajouter 1 ligne en haut '<tous>' qui me renvoi -1

Est ce que c'est techniquement possible ?


Cordialement

[looping]

Bonjour

j'ai réussi à faire ceci: (avec une combo TMS et un PGdac)

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
18
19
20
21
22
23
24
 
   AdvDBComboBox1.Items.Clear;
   AdvDBComboBox1.AddDisplayAndStoredValue('<Tous>','-1');
 
  client := TPgQuery.Create(nil);
  try
    client.Connection := PgConnection1;
    client.SQL.Text := 'SELECT clnom ,client_id FROM client order by clnom';
    client.Open;
 
    client.First;
    while not client.Eof do
    begin
 
    AdvDBComboBox1.AddDisplayAndStoredValue(client.FieldByName('clnom').AsString,client.FieldByName('client_id').AsString);
 
    client.Next;
    end;
 
  finally
    client.Free;
  end;
 
    AdvDBComboBox1.ItemIndex := 0;

ça à l'air de fonctionner

Sur l'événement lookup de la combo, je récupère bien l'identifiant du pays ou -1

Par contre la DBcombo est relié à rien ? Est ce que c'est génant ?
Une combo simple aurait suffit mais j'ai l'impression que la combo simple ne gère par les StoredValue

Que pensez vous ?

Cordialement

[solilog]

Bonjour,
Un petit exemple, qui charge un combo à partir d'un fichier "old mode" :-) vu que tu n'as indiqué aucune DB.
C'est basic, pas de gestion d'erreur ni de verif d'existence du fichier, c'est pour vous montrer comment charger un combo.
Si vos pays proviennent d'une table, il suffira de boucler sur les records, c'est pareil.

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
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
type
  t_Pays = record
    Code:  String[3];    // Code ISO NUM des pays
    Nom:   String[50];   // Nom du Pays
    Capitale: String[50];
    // les autres infos que tu as
  end;
 
function TForm2.LoadCombo(aFileName: String): Integer;
var
  FiPays : File of t_Pays;
  wPays: t_Pays;
begin
  result := 0;
  ComboBox1.Items.Clear;
  AssignFile( FiPays, aFileName);
  Reset( FiPays );
  while not Eof( FiPays ) do
  begin
     Read( FiPays, wPays);
     With wPays do
      // le code sera par exemple ici : '033-FRANCE"
       ComboBox1.Items.Add(Format('%3s-%s', [ wPays.Code, wPays.Nom ] ));
     result := result +1;
  end;
  if result >0 then 
      ComboBox1.Items.Insert(0, 'tous ...');
 
end;
 
procedure TForm2.Button1Click(Sender: TObject);
var NbPays:  Integer;
begin
   NbPays := LoadCombo('PAYS.FCH');
end;

Solilog