Discussion :

[SergioMaster]

Bonjour,

Si j'ai bien compris les livebindings on peut faire l'équivalent d'un VCL.DBCombobox de la manière suivante :

On pose un comboxbox , on lie le comboxbox aux données qui nous intéresse et la messe est dite .
Sauf que , s'il s'agit de récupérer le texte sélectionné c'est facile , mais comment récupérer la 'SelectedValue' (cette propriété semble bien exister puisque l'on peut faire la liaison) et pourtant , de base, impossible (propriété inconnue) . Comment accède t-on à cette valeur (la fameuse keyvalue d'un VCL.DBCombobox) ?

Question subsidiaire en livebindings le combobox propose par défaut les liaisons :

1. SelectedValue (objet de ma première question)
2. Synch
3. Item.Text
4. Item.LookData

si je n'ai aucun problème à comprendre Item.text, qu'est-ce que les deux autres ?

en fait mon objectif est simple : faire sélectionner dans ma combobox et récupérer la "keyvalue' comme paramètre d'une query (là aussi , serait-il possible de "livebinder", je doute ?)

[SergioMaster]

Finalement , je suis revenu a des 'classiques' , un combobox sans livebindings (et donc chargé par programme) .
pour en faire un 'DBCombobox' du coup , j'ai du faire appel a mes vieilles bases "Delphiesque"

une classe pour définir l'objet

Code :

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

1
2
3
4
5
6
7
  TKey = class
   private
     fCode: string;
   public
     property Code : string read fCode;
     constructor Create(const Code : string) ;
   end;

un bout de code pour 'charger'

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
if Datas.LignesProduits.Active then
with LPBox do
 begin
   Items.Clear;
   Items.AddObject('pas de ligne de produit',TLigneProduit.Create(''));
   datas.LignesProduits.First;
   while not Datas.LignesProduits.Eof do
    begin
      Items.AddObject(Datas.LignesProduitsLIBELLE_LIGNE.AsString,TLigneProduit.Create(Datas.LignesProduitsCODE_LIGNE.AsString));
      Datas.LignesProduits.Next;
    end;
    if Datas.LignesProduits.Locate('CODE_LIGNE',Node.Attributes['ligneproduit'],[])
     then ItemIndex:=Items.IndexOf(Datas.LignesProduitsLIBELLE_LIGNE.asString)
     else ItemIndex:=0;
 end;
Datas.LignesProduits.Active:=False;

et on récupère la keyvalue par exemple via l’événement onChange de la combobox

Code :

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

1
2
 
CodeLigne.Text:=TLigneProduit(LPbox.Items.Objects[LPBox.ItemIndex]).Code;

j'ai l'impression de régresser

[alves1993]

salut Mr SergioMaster j'ai le même problème que vous avez rencontrez mais vu votre solution je suis un peu troublé

Pouvez vous expliquer votre solution à un jeune Delphiste qui à un niveau moyen

[SergioMaster]

Bonjour,

j'ai le même problème que vous avez rencontrez mais vu votre solution je suis un peu troublé
Pouvez vous expliquer votre solution à un jeune Delphiste qui à un niveau moyen

en fait , difficilement et ce n'est qu'un contournement , il doit certainement y avoir un moyen plus simple , mais les livebindings je ne les maitrise certainement pas assez .
le seul 'truc' que j'ai trouvé à été d'utiliser une liste d'objet . L'objet est défini dans le premier code , ajouté (via une boucle sur la table) dans la liste des Items (donc au lieu d'utilisé le Items.Add('un libellé'); j'utilise Items.addObject) en simplifiant (en ôtant les fioritures nécessaires à mon programme c.a.d. ôter le cas ou il n'y a pas de ligne de produits (objet 0) et le positionnement fait après remplissage)

soit table une table composée d'une CLE et un LIBELLE

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
var tobjet : Tkey;  // c'est peut être ça qui manquait ?
....
Datas.table.Active:=True;
with combobox do
 begin
   while not Datas.table.Eof do
    begin
      Items.AddObject(Datas.tableLIBELLE.AsString,TObjet.Create(Datas.TableCLE.AsString));
      Datas.table.Next;
    end;
 end;
Datas.Table.Active:=False;

[free07]

Bonjour Serge,

Je ne sais pas si tu l'as remarqué mais lorsque tu rajoutes un lien ( visuellement avec LiveBinding ), il crée un composant qui gère le lien, par exemple pour un combobox :

Code :

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

1
2
3
 
    ComboBox1: TComboBox;
    LinkFillControlToField1: TLinkFillControlToField;

Après on peut utiliser LinkFillControlToField1 pour récupérer certaines valeurs, par exemple pour récupérer le nom de la colonne liée :

Code :

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

LinkFillControlToField1.FillDisplayFieldName;

Je ne sais pas si cela peut t'aider mais il y a aussi d'autres propriétés de TLinkFillControlToField qui sont peut être être intéressantes ( à voir )

[joc02]

Bonjour,


Je viens de me poser, la même question et je viens de trouver une solution. Je me permets donc de la proposer ici, car je suis tombé sur votre poste.


Le binding sur la combo propose 4 propriétés :
- SelectedValue
- Synch
- Item.Text
- Item.LookupData


Si l'on veut charger la combo et qu'elle change de valeur comme pour une DBCombo nous devons avoir :
- Une source de données contenant la liste "DataListe"
- Une source de données contenant une référence à l'item de la liste "DataGeneral"


On va connecter DataGeneral.idDataListe sur la propriété SelectValue. Cette propriété va déterminer quel indice de la liste il faut sélectionner.
Ensuite on va connecter DataListe.idDataListe sur la propriété Item.LookupData. Cette propriété contient la clé de l'item
Et enfin on va connecter DataListe.TextDataListe sur la propriété Item.Text. Cette propriété contient le texte à afficher dans la combo.


Je suppose que depuis le temps vous aviez trouvé une solution, mais ça pourra peut-être aider quelque d'autre.

[SergioMaster]

Bonjour,

Je suppose que depuis le temps vous aviez trouvé une solution, mais ça pourra peut-être aider quelque d'autre.

Oui, le sujet était d'ailleurs résolu. J'ai surtout changé de versions et fait un peu plus attention à certains "pièges" du livebinding.
Je crois que j'ai indiqué comment faire dans un autre sujet