filter avec DBLoockupCombobox

Question

bonjour tout le monde
et un bonjour particulier a delphiProg
en fait j'ai deux questions :

un petit soucis simple qu'il parait, mais qui me bloque:
voila : j'ai un DBGrid sur une fiche et deux DBLoockupComboBox, je veux appliquer un filtre a mon grid avec ce composant , quelqu'un pourrai m'aider SVP ?  

l'autre soucis qui parait simple aussi mais ....

je voulais créer un événement OnClick dans un des boutton d'un DBNavigator , c'est fesable ? si c'est le cas ,Comment ?
merci d'avance pour vos reponses .

apprendre !

cs_cantador · Answer

bonjour,
pour le filtre utilise l'évènement OnCloseUp afin de récupérer la valeur sélectionnée que tu introduiras ensuite dans un paramètre d'une requête qui affectera les données du dbgrid.


Pour le DBNavigator :

PROCEDURE TFJeu.DBNavigator1Click(Sender: TObject; Button: TNavigateBtn);
BEGIN

    CASE button OF
      nbPrior, nbNext:
        BEGIN
/// ton code à placer ici 
        END;
      nbFirst, nbLast:
        BEGIN
/// ton code à placer ici 
        END;
    END;

END;

cantador

vladocb · Answer

merci cantador

bon pour la deuxième réponse c'est  ok ça marche , mais la première !! serte j'ai compris le principe , mais comment l'implementer ? 

merci encore.

cs_cantador · Answer

un exemple avec le combobox :

var
param : variant;
---
procedure TForm1.ComboBox1CloseUp(Sender: TObject);
begin
  param := ComboBox1.Items.strings[ComboBox1.ItemIndex];
end;

Je te laisse l'adaper au dblookupComboBox et introduire la valeur dans la requête..
il faut aussi chercher de ton côté..

cantador

vladocb · Answer

merci cantador
je te mettrai aucourant !

c'est tres gentil .

vladocb · Answer

bonjour cantador

la procedure que tu ma ecris concerne le composant ComboBox, pas le lookupcomboBox, et celui là ne contient pas la proprieté Items; 
le probleme reste poser mon ami .

cs_cantador · Answer

ah oui autant pour moi avec le lookupcomboBox, tu peux récupérer :
soit la valeur sélectionnée par :

procedure TForm1.DBLookupComboBox1CloseUp(Sender: TObject);
begin
ShowMessage(DBLookupComboBox1.Text);
end;

soit le code de l'enregistrement par :
procedure TEdOrderForm.CompanyComboCloseUp(Sender: TObject);
begin
ShowMessage(IntToStr(DBLookupComboBox1.KeyValue));
end;

Pour ma part, j'utilise la 2e solution qui offre plus de garantie du choix (unicité de l'incrément)

cantador

vladocb · Answer

MERCI cantador

je vais l'essayer ce soir !

au fait une autre question mais je vais la poser sous un autre theme pour faire profiter les autres 
c'est a propos de l'impression d'un grid filtré !

apprendre !

Filter avec DBLoockupCombobox

7 réponses

Votre réponse

Discussions similaires