DBLookupComboBox1 et DBNavigator1

**mimiferry** · 21/05/2019, 14h17

Bonjour tout le monde;

J'espère vous allez bien

Ma question aujourd'hui, J'utilise DBLookupComboBox comme liste déroulante pour afficher les désignation(Nom) du produit mais mon souci et que ça marche pas avec DBNavigator !! J aimerai savoir si il y a un moyen de les lier ensemble ou éventuellement une autre méthode de procéder

Merci

**SergioMaster** · 21/05/2019, 14h51

Bonjour,

ce n'est pas prévu pour ça non plus !
Mais il y a toujours moyen de faire un truc en utilisant les évènements du navigateur
Nom : Capture.PNG
Affichages : 185
Taille : 4,7 Ko

Nom : Capture.PNG
Affichages : 185
Taille : 4,7 Ko

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
unit Unit42;
 
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.DB, FireDAC.Comp.DataSet,
  FireDAC.Comp.Client, Vcl.DBCtrls, Vcl.ExtCtrls;
 
type
  TForm42 = class(TForm)
    DataSource1: TDataSource;
    DBNavigator1: TDBNavigator;
    DBLookupComboBox1: TDBLookupComboBox;
    FDConnection1: TFDConnection;
    FDTable1: TFDTable;
    procedure DBNavigator1Click(Sender: TObject; Button: TNavigateBtn);
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
  end;
 
var
  Form42: TForm42;
 
implementation
 
{$R *.dfm}
 
procedure TForm42.DBNavigator1Click(Sender: TObject; Button: TNavigateBtn);
begin
case Button of
  nbFirst,
  nbPrior,
  nbNext ,
  nbLast: DBLookupComboBox1.KeyValue:=FDTable1.FieldByName(DBLookupComboBox1.KeyField).Value;
  else FDTable1.Cancel;
end;
end;
 
end.

dfm

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
51
52
53
54
55
56
57
58
59
60
61
62
 
object Form42: TForm42
  Left = 0
  Top = 0
  Caption = 'Form42'
  ClientHeight = 242
  ClientWidth = 527
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object DBNavigator1: TDBNavigator
    Left = 48
    Top = 46
    Width = 144
    Height = 25
    DataSource = DataSource1
    VisibleButtons = [nbFirst, nbPrior, nbNext, nbLast]
    TabOrder = 0
    OnClick = DBNavigator1Click
  end
  object DBLookupComboBox1: TDBLookupComboBox
    Left = 48
    Top = 72
    Width = 145
    Height = 21
    KeyField = 'COUNTRY'
    ListField = 'COUNTRY;CURRENCY'
    ListSource = DataSource1
    TabOrder = 1
  end
  object DataSource1: TDataSource
    DataSet = FDTable1
    Left = 408
    Top = 88
  end
  object FDConnection1: TFDConnection
    Params.Strings = (
      'Database=Employee'
      'User_Name=SYSDBA'
      'Password=masterkey'
      'DriverID=FB')
    Connected = True
    LoginPrompt = False
    Left = 328
    Top = 24
  end
  object FDTable1: TFDTable
    Active = True
    IndexFieldNames = 'COUNTRY'
    Connection = FDConnection1
    UpdateOptions.UpdateTableName = 'COUNTRY'
    TableName = 'COUNTRY'
    Left = 408
    Top = 24
  end
end

**mimiferry** · 21/05/2019, 15h15

Envoyé par SergioMaster

Bonjour,

Code :

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

1
2
3
4
5
6
7
8
9
10
procedure TForm42.DBNavigator1Click(Sender: TObject; Button: TNavigateBtn);
begin
case Button of
  nbFirst,
  nbPrior,
  nbNext ,
  nbLast: DBLookupComboBox1.KeyValue:=FDTable1.FieldByName(DBLookupComboBox1.KeyField).Value;
  else FDTable1.Cancel;
end;
end;