Discussion :

[SSJ17Vegeta]

Bonjour à tous,

Tout d'abord, excusez-moi par avance si jamais mon sujet est mal placé .

Je code sous Lazarus, mais c'est un problème que je considère plus orienté comme un souci de conception ou de choix d'utilisation pour illustrer une relation n-n avec les composants data-aware.

Explication :

Dans le cadre d'un dev sur un petit outil de gestion de fiches personnages pour un jeu de rôle papier (une sorte d'outil pour Maître de Jeu en quelque sorte), j'ai la structure de données suivante.



Une arme possède une ou plusieurs qualités : "Hargneuse", "Assommante", "Perçante", etc.

L'idée est, dans le formulaire d'édition de l'objet (arme), de pouvoir définir ces qualités via une liste en multi-sélection (Ctrl+Clic), renseignant ainsi la table faisant office de relation entre la table Armes et Qualité.

La question est : existe-t-il un composant, ou un paramétrage disponible pour un TDBListBox ou TDBLookupListBox ? Ou bien faut-il le gérer "à la main" avec des requêtes SQL ?
Peut-être fais-je fausse route avec l'idée d'utiliser un TDBListBox dans mon formulaire ?

J'ai essayé de regarder les propriétés MasterSource et MasterFields des DataSet, mais je n'ai trouvé aucune documentation digne de ce nom me permettant de les utiliser pour du n-n. Aucun souci en revanche avec les relations 1-n

En vous remerciant par avance de votre sollicitude,

Cordialement.

[JustMe]

A mon avis dans ce cas de formulaire tu va déjà choisir (Fixer) une arme (Maitre) que tu choisi avec un dblookupcombobox ou similaire et tu replis la table possede qualité (Détail) avec les qualité que tu introduit une à une dans table possède quantité.

[ShaiLeTroll]

Dans mon ancienne société, on avait un composant similaire à un TDBLookupComboBox à choix multiple

C'est un assemblage d'un TEdit, TButton (comme pour un Combo) et d'un TCheckListBox, toute la partie DataLink avait été refaite car aucun composant ne proposait cette fonctionnalité de pouvoir sélectionner plusieurs valeurs dans un thésaurus !

J'aussi fait cela dans mon premier emploi, pour la gestion de matériel en chirurgie (cardiologie)
Cela donnerait pour toi

- 1er formulaire, un TDBGrid affichant les Armes
-> double-clic sur une Arme, Affiche un 2nd Formulaire

- 2nd Formulaire contenant TDBEdit pour le nom, une TDBListBox contenant les Qualités de l'arme (a gauche) et une TDBListBox contenant les autres qualités disponibles (a droite), des boutons ajouter\retirer (possibilité de Drag&Drop)

Ecran inspiré de la gestion des Fiches à créer automatiquement dans les Options d'un Projet Delphi

[SSJ17Vegeta]

Salut à vous et merci pour vos réponses,

Je t'avouerais que j'avais envisagé la solution TEdit+bouton+liste à choix multiple en "popup", qui me semble la meilleure, d'autant qu'elle pourrait s'avérer recyclable pour d'autres cas de figure de relations n-n.
Peux-tu me donner des infos sur la partie "DataLink" ? Je t'avouerais que, même si ta deuxième solution semble plus simple, par curiosité ça pourrait être pas mal

La solution 2 (les deux listes avec drag n' drop) me paraît pas mal et plus facile à implémenter, au prix d'un peu plus de place occupée. C'est peut-être vers ça que je vais me tourner dans un premier temps.

Question : sur la deuxième listBox (celle sur laquelle on "drop" les éléments de la première), comment configurer le rendu (le champ à afficher) ? Autant pour la première, je vois bien comment le faire (en définissant le champ "nom" de la table qualité d'armes), autant sur la deuxième, sans "lookup", je ne vois pas).

Une nouvelle fois merci

[ShaiLeTroll]

Pour le DataLink, je ne l'ai pas fait moi-même, je n'ai pas encore créer mes propres composants DB, faudrait étudier celui du TDBEdit et TDBListBox

Pour la méthode Drag&Drop, je ne sais pas le dire en français, du SQL, ça t'aidera (sauce MySQL)

TDBListBox des Qualités d'une Arme issu d'une requête

Code sql :

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

1
2
3
4
SELECT Q.ID, Q.Nom
FROM `PossèdeQualité` PQ
INNER JOIN `Qualité` Q ON (PQ.ID_Qualité = Q.ID)
WHERE PQ.ID_Arme = :paramètre

Selon la DB et le Lib, tu peux modifier le résultat d'une Query, soit directement genre RequestLive soit via TUpdateSQL pour le BDE, soit manuellement par d'autre objet Query
tu peux remplir manuellement une TListBox, tu la parcours ensuite pour lancer une série de INSERT\DELETE en fonction de ce qui a été modifié


TDBListBox des Qualités restantes à attribuer

Code sql :

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

1
2
3
4
5
6
7
8
SELECT Q.ID, Q.Nom
FROM `Qualité` Q
NOT EXISTS 
  (
    SELECT PQ.ID_Qualité 
    FROM `PossèdeQualité` PQ
    WHERE PQ.ID_Arme  = :paramètre
  )

Cette requête va te fournir toutes les qualités qui ne sont pas attribuées à cette arme

Je passe par un couche objet, qui va gérer ces petits tracas, souvent les DB-Aware sont reliés à un Query en lecture seule, c'est un TClientDataSet qui s'occupe de lier les DBEdit à la couche OR