Accueil > Manip’s > Delphi > ACCESS > Paramétrer une Liste de choix intégrée à la Base Access
Paramétrer une Liste de choix intégrée à la Base Access
samedi 25 décembre 2010, par
Prenons l’exemple d’une base ADRESSES
- Il peut être intéressant d’intégrer dans la base une Liste des Villes afin de compléter l’adresse par un simple clic
- Sans faire intervenir la procédure complexe de la Liaison des tables par un champ indexé
- Il suffit de créer une Table des Adresses comprenant un champ VILLE
- Une Table des Villes comprenant un Champ NOM
- Et de lier les 2 par un composant DBLOOKUPCombobox
| Onglet | Composant |
|---|
| ContrôleBD | DbLookupComboBox |
Exemple d’une Gestion de Stock affichant une liste des articles
Inspecteur D’Objets
- Évènements
| DataSource | Table Mère (Principale) | STOCK |
|---|
| ListSource | Table Fille (Liste) | Articles |
|---|
Les 2 tables étant liées il faut maintenant lier leur champs
Inspecteur D’Objets
- Propriétés
On retrouve les 2 Tables précédentes
- STOCK
- ARTICLES
Dans la Table STOCK on choisit le champ "ARTICLE"
| DataField | Article |
Dans la Table ARTICLES on prend le champ "NOM"
| KeyField | Nom |
| ListField | Nom |
En action
On remarque le petit bouton plus (+) qui permet de rajouter facilement une entrée à la liste.
procedure TDataModule1.Ajouter_ArticleExecute(Sender : TObject) ;
- var sNEW : string ;
begin
if not InputQuery (’A J O U T E R’,’Entrez un nouvel Article’, sNEW ) then exit ;
- DataModule1.ADOTable_ARTICLES.Insert ;
- DataModule1.ADOTable_ARTICLES.FieldByName(’nom’).Value := sNEW ;
- DataModule1.ADOTable_ARTICLES.Post ;
- ShowMessage(sNEW + ’ ajouté’) ;
end ;
