Discussion :

[qi130]

Bonjour,

C'est certainement un cas d'école, mais je tourne en rond ...

Dans 1 table j'ai un champ qui référence (FK) l'ID de la table "Pays".

Cette table a 80 colonnes, et le formulaire d'ajout/modif s'étale sur 3 tabsheets (le dbgrid est exclu)

• Quel type de combobox pour présenter à l'utilisateur la liste des pays en mode "ajout"? DBCombo ou DBLookUp?
• En mode "browse" de la table, comment positionner, dans cette combo, le pays correspondant à la FK?
• Comment assurer la mémorisation de l'ID du pays choisi? (en ajout/modif)

Est-ce possible grâce au LiveBinding ? (et si oui, comment?)

En vous remerciant par avance.

[SergioMaster]

Bonjour

Utiliser DBLookupComboBox répondrait aux trois questions (j'ai toujours eu l'habitude, depuis D3 de l'utiliser)

Est-ce possible grâce au LiveBinding ? (et si oui, comment?)

Challenge intéressant sachant qu'il n'est pas possible de lier les données de deux tables, du moins visuellement.
En apéritif un billet qui pourrait être la technique que j'utiliserai.

Donc, en gros, on a le design suivant (avec mes jeux d'essais, Pays est devenu Appositions, mais le principe reste le même )


Avec ce schéma voici le code que j'utiliserai

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 TForm15.ComboBox1Change(Sender: TObject);
begin
if not (FDQModeles.State in [dsEdit,dsInsert]) then  FDQModeles.Edit;
 
FDQModeles.FieldByName('APPOSE').AsString:=FDTAppose.FieldByName('CODE_APPOSE').AsString;
FDQModeles.Post;
FDQModeles.Refresh;
 
end;
 
procedure TForm15.FDQModelesAfterScroll(DataSet: TDataSet);
begin
if not FDTAppose.Active then FDTAppose.Active:=true;
 FDTAppose.Locate('CODE_APPOSE',FDQModeles.FieldByName('APPOSE').AsString,[]);
end;

mais ce n'est pas ce que j'appellerai une bonne utilisation de Livebindings, il ne devrait pas y avoir de code du tout

Il faudrait que je regarde dans mes applications FMX, car j'ai certainement dû le faire, mais, ce matin, j'ai un trou de mémoire et pas sûr que ce soit applicable en VCL (avec un Combobox déjà)

[qi130]

Bonjour Serge, et merci pour tes explications.

mais ce n'est pas ce que j'appellerai une bonne utilisation de Livebindings, il ne devrait pas y avoir de code du tout

Ceci m'a mis la puce à l'oreille, et effectivement la solution peut se passer de code (et de livebinding ).

En relisant la doc avec attention et avec quand même quelques essais infructueux, tout se passe dans le dbLookUpCombo.

On y effectue une sorte de jointure (dans mon cas: personne||pays):

Paramétrage de ce qui peut être affiché: les libellés de pays (COUNTRY_NAME)


Paramétrage de ce qui doit être affiché: ("condition de jointure")


Bien sûr, les 2 tables ont leur colonne COUNTRY_ID.

C'est OK pour moi.

[SergioMaster]

En fait la réponse Livebindings était dans un de mes premiers tutoriels sur les LiveBindings

et voilà


no code

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
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
unit MainU;
 
interface
 
uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, FireDAC.Stan.Intf, FireDAC.Stan.Option,
  FireDAC.Stan.Error, FireDAC.UI.Intf, FireDAC.Phys.Intf, FireDAC.Stan.Def,
  FireDAC.Stan.Pool, FireDAC.Stan.Async, FireDAC.Phys, FireDAC.Phys.FB,
  FireDAC.Phys.FBDef, FireDAC.VCLUI.Wait, FireDAC.Stan.Param, FireDAC.DatS,
  FireDAC.DApt.Intf, FireDAC.DApt, Data.Bind.EngExt, Vcl.Bind.DBEngExt,
  System.Rtti, System.Bindings.Outputs, Vcl.Bind.Editors, Vcl.Bind.Grid,
  Data.Bind.Controls, Data.Bind.Components, Vcl.StdCtrls, Vcl.ExtCtrls,
  Vcl.Buttons, Vcl.Bind.Navigator, FireDAC.Comp.Client, Data.Bind.Grid,
  Vcl.Grids, Data.Bind.DBScope, Data.DB, FireDAC.Comp.DataSet;
 
type
  TForm15 = class(TForm)
    FDCFB: TFDConnection;
    FDQModeles: TFDQuery;
    FDTAppose: TFDTable;
    ComboBox1: TComboBox;
    BindSourceAppose: TBindSourceDB;
    BindingsList1: TBindingsList;
    BindSourceModeles: TBindSourceDB;
    StringGrid1: TStringGrid;
    LinkGridToDataSourceBindSourceDB2: TLinkGridToDataSource;
    Edit1: TEdit;
    LinkControlToField1: TLinkControlToField;
    FDUpdateModeles: TFDUpdateSQL;
    BindNavigator1: TBindNavigator;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    LinkFillControlToField: TLinkFillControlToField;
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
  end;
 
var
  Form15: TForm15;
 
implementation
 
{$R *.dfm}
 
end.