Discussion :

[samidz2014]

Bonjour;

Mon MCD est le suivant :

Table 1 : TArchive (Id_arch, libelle_arch, rayonnage, etage_ray, num_boite_arch, date_archivage, duree_vie, scan_arch, observation, id_type_arch, id_dir, id_salle, id_etat_arch, id_langue_arch)

Table 2 : T Directions (id_dir, libelle_dir)

Table 3 : TSalles_archives (id_salle, num_salle_arch, surface_salle, etage_salle)

Table 4 : TEtat_arch (id_etat_arch, etat_arch)

Table 5 : TLangue_ arch (id_langue_arch, langue_arch)

Table 6 : Ttypes_archives (id_type_arch, des_type_arch)

Bon, j'ai pu afficher dans un DBGRID tout les champs de la table TArchive, mais au lieu d'afficher dans cette table les clés étrangers je veux qu’elle m'affiche pour chacune un champ significatif...............par example:

Au lieu de id_type_arch je veux avoir des_type_arch
Au lieu de id_dir je veux avoir libelle_dir
...................
.....................
......................


Alors comment forcer mon DBGRID pour afficher ce que je veux?

Et merci

[SergioMaster]

Bonjour,
Réponse : Utiliser une Requête et pour celle-ci les jointures

Code SQL :

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

1
2
3
4
5
6
 
SELECT a.Id_arch, a.libelle_arch, a.rayonnage, a.etage_ray, a.num_boite_arch, a.date_archivage, a.duree_vie, a.scan_arch, a.observation,
ta.des_type_arch,d.libelle_dir .....
FROM  TArchive A LEFT JOIN  Ttypes_archives ta ON a.id_type_arch=ta.id_type_arch
                          LEFT JOIN  TDirections d on a.id_dir=d.id_dir
                          ....

il existe une autre solution plus Delphi et moins SQL qui consiste à définir les champs de la table TArchive puis de rajouter les champs de description comme étant des champs de référence mais cela demande à ce que toutes les tables soit ouvertes dans le programme etc...
bref solution à éviter (même si je l'ai beaucoup utilisée à mes débuts)

[samidz2014]

Bonjour,

Merci SergioMaster pour la réponce;

j'ai fait ça ( code pour mon boutton Filtrer)

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
 
begin
TdbQuery1.close;
TdbQuery1.UnPrepare;
TdbQuery1.SQL.text:='Select a.libelle_arch, a.rayonnage, a.etage_ray, a.num_boite_arch, a.date_archivage, a.duree_vie, a.scan_arch, a.type_interet,';
TdbQuery1.SQL.text:=TdbQuery1.SQL.text+ 'D.libelle_dir, E.etat_arch, L.langue_doc, T.des_type_arch, S.num_salle_arch, S.surface_salle, S.etage_salle from archive a';
TdbQuery1.SQL.text:=TdbQuery1.SQL.text+ 'LEFT JOIN directions D ON a.id_dir=D.id_dir LEFT JOIN etat_arch E ON a.id_etat_arch=E.id_etat_arch LEFT JOIN Langue_docum L';
TdbQuery1.SQL.text:=TdbQuery1.SQL.text+ 'ON a.id_langue_arch =L.id_langue_arch LEFT JOIN salles_archives S ON a.id_salle=S.id_salle LEFT JOIN types_archives T ON a.id_type_arch=T.id_type_arch';
TdbQuery1.SQL.Add('WHERE 1=1');
If length(Edit2.text)>0 then TdbQuery1.sql.add('AND rayonnage=:ray');
TdbQuery1.Prepare;
If length(Edit2.text)>0 then TdbQuery1.paramByName('ray').asString:=Edit2.text;
TdbQuery1.Open;
If length(Edit3.text)>0 then TdbQuery1.sql.add('AND num_boite_arch=:numb');
TdbQuery1.Prepare;
If length(Edit3.text)>0 then TdbQuery1.paramByName('numb').asString:=Edit3.text;
TdbQuery1.Open;
end;

Mais Mon DBGRID ne change pas, mème pas une erreur !



Qu'est-ce que je dois faire pour résoudre mon probléme... et merci

[Ph. B.]

Bonjour,

N'oubliez pas la balise [CODE] (bouton # de l'éditeur) quand vous proposez un extrait de code...

J'ai réécrit le code afin qu'il soit tout d'abord plus lisible et aussi pour réorganiser les instructions plus logiquement. En effet :

1. On écrit la requête SQL dans son intégralité, paramètres inclus,
2. on demande sa préparation,
3. on affecte les valeurs correspondantes à chacun des paramètres,
4. on demande l'ouverture de l'ensemble de données.

Cela donne :

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
begin
  TdbQuery1.close;
  //TdbQuery1.UnPrepare; // Inutile ici, on va réécrire la requête
  // 1 Ecriture de toute la requête
  TdbQuery1.SQL.Clear;
  TdbQuery1.SQL.Add('SELECT');
  TdbQuery1.SQL.Add('  a.libelle_arch, a.rayonnage, a.etage_ray, a.num_boite_arch, a.date_archivage, a.duree_vie, a.scan_arch, a.type_interet,');
  TdbQuery1.SQL.Add('  D.libelle_dir, E.etat_arch, L.langue_doc, T.des_type_arch, S.num_salle_arch, S.surface_salle, S.etage_salle')
  TdbQuery1.SQL.Add(' FROM archive a');
  TdbQuery1.SQL.Add(' LEFT JOIN directions D ON a.id_dir = D.id_dir');
  TdbQuery1.SQL.Add(' LEFT JOIN etat_arch E ON a.id_etat_arch = E.id_etat_arch');
  TdbQuery1.SQL.Add(' LEFT JOIN Langue_docum L ON a.id_langue_arch = L.id_langue_arch');
  TdbQuery1.SQL.Add(' LEFT JOIN salles_archives S ON a.id_salle = S.id_salle');
  TdbQuery1.SQL.Add(' LEFT JOIN types_archives T ON a.id_type_arch = T.id_type_arch');
 
  TdbQuery1.SQL.Add(' WHERE 1 = 1');
  If Length(Edit2.text) > 0 then
    TdbQuery1.SQL.Add(' AND rayonnage = :ray');
  If Length(Edit3.text) > 0 then 
    TdbQuery1.SQL.Add(' AND num_boite_arch = :numb');
 
  // 2 Préparation
  TdbQuery1.Prepare;
  // 3 Passage du ou des paramètres
  If Length(Edit2.text) > 0 then 
    TdbQuery1.paramByName('ray').asString := Edit2.text;
  If Length(Edit3.text) > 0 then 
    TdbQuery1.paramByName('numb').asString := Edit3.text;
 
  // 4 Ouverture de l'ensemble de données
  TdbQuery1.Open;
end;

Accessoirement, on aère le code avec quelques espaces pour séparer les différents tokens et ainsi permettre plus de lisibilité (et maintenabilité)...

[SergioMaster]

Bonsoir

N'oubliez pas la balise [CODE] (bouton # de l'éditeur) quand vous proposez un extrait de code...

Balises de code mise
mais je plussoie pour la lisibilité

[samidz2014]

Bonjours,

Un grand merci Ph. B, votre code marche très bien.

Je veux maintenant ajouter un autre filtre (Filtrage par Nom de Direction), Alors que ses nom je les récupèrent à partir d'un DBLookupComboBox1

Le problème c'est que je ne peux pas écrire çà :

Code :

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

1
2
3
4
if  Length(RzDBLookupComboBox1.Text) >0 then
    TdbQuery1.SQL.Add(' AND id_dir = :dir');
If  Length(RzDBLookupComboBox1.text) >0 then
    TdbQuery1.paramByName('dir').asString := RzDBLookupComboBox1.text;

parceque le contenu de DBLookupComboBox1 n'est pas un Entier.

Alors je fait quoi au liex de >0

Mème question pour le filtrage par (date d'archivage)

Une autre questoin , j'utilise le composant RzDBDateTimePicker1 afin de selectioner une date donnée, mais le probléme c'est que la date affichée par défaut (en mode éxécution du programme) est toujour 30/12/1899 !!! est ce que c'est normale ça?

[samidz2014]

svp aidez moi...

[SergioMaster]

Bonjour,
tout d'abord j'explique pourquoi j'ai : pas de up

parce que le contenu de DBLookupComboBox1 n'est pas un Entier.

et alors ? dans le code proposé ce n'est pas le contenu de qui est testé mais la longueur du texte Length(DBLookupComboBox1.Text)Maintenant si le texte affiché dans le DBLookupCombobox n'est pas la valeur du paramètre mais un libellé c'est la propriété KeyValue qu'il faut utilisé au lieu de Text.

Alors je fait quoi au lieu de >0

null et non avenu

Même question pour le filtrage par (date d'archivage)

Pour un paramètre date il faudra simplement changer le type du parambyName

Code :

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

1
2
 
TdbQuery1.paramByName('DateArchivage').asDateTime := Date;

je ne connais pas les composants rzxxxxxxx mais RzDBDateTimePicker1 doit être dérivé de TDateTimePicker donc avec un peu de chance cela sera

Code :

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

TdbQuery1.paramByName('DateArchivage').asDateTime := RzDBDateTimePicker1.Date;

enfin pour le dernier point

le problème c'est que la date affichée par défaut (en mode exécution du programme) est toujours 30/12/1899 !!! est ce que c'est normal ça?

il suffit de lire ceci
et puisque je pressens par la suite la question

Alors je fait quoi au lieu de >0

pour ce genre de composants
je dirait comme Ray Konopka , il faut utiliser la propriété checked et donc au préalable mettre ShowCheckBox à true

Code :

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

1
2
if  RzDBDateTimePicker1.Checked then
  TdbQuery1.paramByName('DateArchivage').asDateTime := RzDBDateTimePicker1.Date;

[samidz2014]

Merci SergioMaster, j'ai reglé le probléme de DBLookupComboBox1,

Pour RzDBDateTimePicker1, j'ai essayé le code suivant

Code :

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

AjouModif.RzDBDateTimePicker1.Date:=(date());

La bonne nouvelle c'est que la date '30/12/1899' est remplacée par la date d'aujourd'hui.

La mauvaise nouvelle c'est que en validant par OK, Mon DBGRID affiche tous les nouveau champs de ma table sauf la date d'aujourd'hui, il affiche une case blanche, je ne sais pas pourquoi?



----------------------------------------------------0-0-0-------------------------------------------------------------------

Autre chose,

Dans la fiche 'La recherche', je veux que mes 'DBLookupComboBoxxxxxxxx' affiche un Blanc en mode execution, pour que l'utilisateur puisse lui mème choisir sur quel champ faire la rechrche ou non, parceque dans mon etat actuel et quand j'appelle la fiche de recherche, je trouve toutes mes DBLookupComboBoxxxx pleines et affichent pour chaque DBLookupComboBox un champ de la table archive.

et merci.

[samidz2014]

• Besoin d'aide svp...

[SergioMaster]

Bonjour,

encore une fois !

tout d'abord j'explique pourquoi j'ai :moinser: pas de up

+ questions différentes au post d'origine

si vous vous étonnez du peu de réponses relisez les paragraphes des règles du forum

pourquoi moi je n'y ai pas répondu ? parce que je n'avais rien compris à votre dernier message, parce que ,comme la plupart d'entre nous, je ne suis pas disponible à temps plein pour répondre (bénévolement dois-je le rappeler) et ce même si j'interviens fréquemment (trop diront les mauvaises langues ) et aussi parce que pour moi les composants raize (rzxxxx) sont des composants tiers que je ne maitrise pas

La mauvaise nouvelle c'est que en validant par OK, Mon DBGRID affiche tous les nouveau champs de ma table sauf la date d'aujourd'hui, il affiche une case blanche, je ne sais pas pourquoi?

c'est plutôt du coté du code pour mettre à jour l'enregistrement qu'il faut chercher

Dans la fiche 'La recherche', je veux que mes 'DBLookupComboBoxxxxxxxx' affiche un Blanc en mode execution,

c'est certainement parce que les propriétés datasource et datafield sont renseignés alors que seul listsource,listfield et Keyfield doivent être renseignés
et ce n'est pas en voyant l'image écran que l'on devine cela !

[cantador]

Maître SM, tout doux..
une tasse de camomille avec du miel..

[anapurna]

Salut

pour n'afficher que les colonne nécessaire il faut juste que tu définisse les colonne de ton dbgrid a l'avance
soit par programmation soit par l'interface graphique de delphi si les colonnes sont fixe