Quickreport, lier 3 tables, comment ?

Question

Bonjour !



Mon programme est celui d'une gestion de patients et des vaccins qu'ils
ont eu. La base de donn&#233;es comporte 3 tables: PATIENTS,
VACCINS_PATIENTS et VACCINS.



La table PATIENTS comporte un num&#233;ro g&#233;n&#233;r&#233; automatiquement (PAT_NO) et les infos sur le patient.



La table VACCINS_PATIENTS comporte elle aussi un num&#233;ro automatique, un
champs pour la date de la vaccination, et deux champs contenant les cl&#233;
&#233;trang&#232;res de la table PATIENTS et VACCINS (PAT_NO et VAC_NO)



La table VACCINS comporte seulement un num&#233;ro, et le nom du vaccin.



J'essaie de cr&#233;er un rapport avec Quickreport, donnant le nom et pr&#233;nom
du patient (et autres infos) contenu dans une bande D&#233;tail, la date de
vaccination et le nom du vaccin correspondant dans la SubDetail. Il y a
3 objets IBTable et un datasource pour lier les tables.



Bon, et maintenant, mon probl&#232;me:



Quand j'essaie de lier la table VACCINS aux autres, je peux pas car
elle est r&#233;f&#233;renc&#233; au datasource, qui lui est r&#233;f&#233;renc&#233; &#224; la table
PATIENTS (IBTable1). Donc, je ne peux pas afficher le nom du vaccin
correspondant &#224; la date de vaccination, et au patient. J'aimerais
savoir si c'est possible de r&#233;gler ce probl&#232;me l&#224;, ou que c'est
impossible avec QuickReport.




Delphi 6


BD: Interbase



D&#233;sol&#233; pour le message un peu long

ada_azoul · Answer

Normalement vous vous travaillez avec Tquery
lieaison avec  join lift ,right ou full
ensuite entreprendre un appelle dans ta qreport par uses 
ensuite d&#233;pot  des expression qreport

mais auparavant  tu dois mettre  (PAT_NO)  dans les  autres tables

par insertion

CAD        
table PATIENTS,
(PAT_NO)

nom
etc...

table VACCINS_PATIENTS ,
(PAT_NO)

vaccin
etc...

table VACCINS_PATIENTS ,
(PAT_NO)

autre
etc...

la liaison s'effectura par   (PAT_NO)

salut
ADA

vegeta_356 · Answer

Merci pour la r&#233;ponse, mais bon... &#231;a ne m'a pas d&#233;pann&#233; pour ce probl&#232;me, car de la fa&#231;on dont la BD est mont&#233;, je ne peux pas ajouter un champs PAT_NO dans la table vaccins.



Mais suite &#224; ta r&#233;ponse, j'ai encore continuer et j'ai trouv&#233; une alternative.



J'ai cr&#233;&#233; un deuxi&#232;me datasource. Celui-ci pointe maintenant sur
l'objet IBTable de la table VACCINS_PATIENTS. Ensuite, j'ai fais
pointer mon IBTable de la table VACCINS sur le datasource nouvellement
cr&#233;&#233; et j'ai ajout&#233; la contrainte du no (Propri&#233;t&#233; Masterfields).



Jme demande pq je n'y ai pas pens&#233; avant...  



Mais j'aimerais bien que tu m'&#233;claires sur ta m&#233;thode ad_azoul, j'ai pas tout compris de la premi&#232;re partie de ton message:



Normalement vous vous travaillez avec Tquery
lieaison avec  join lift ,right ou full
ensuite entreprendre un appelle dans ta qreport par uses 
ensuite d&#233;pot  des expression qreport

ada_azoul · Answer

voici qlq chose en ce sens

//==================================
try
 IBQuery_QREPORT.Close;   // tu peux changer le nom de ton Query  TABLE.Close; idem pour les autres
 IBQuery_QREPORT.SQL.Clear;
 IBQuery_QREPORT.SQL.Add('  select * from "'+table_PATIENT+'" TBPAT'+
   ' left OUTER JOIN  "'+table_VACCIN+'" TB_VAC '+
   ' on  (TBPAT.NUMERO=TB_VAC.NUMERO) '+
   ' left OUTER JOIN  "'+table_AUTRE+'" TB_ATR '+
    ' on  (TBPAT.NUMERO=ID_RG.NUMERO) '+'
    ' ORDER BY TBPAT.nom_pat '); //  tri sur le nom  ascendant  exple


   si tu ajoute un where voici le bloc
    //======== debut  bloc


   ' left OUTER JOIN  "'+table_AUTRE+'" TB_ATR '+
   ' on  (TBPAT.NUMERO=ID_RG.NUMERO) '+
   ' where TBPAT.NUMERO = '''+MON_NUMERO+''' '+
   ' ORDER BY TBPAT.nom_pat '); //  tri sur le nom  ascendant  exple
    //============ fin bloc



 if not IBQuery_QREPORT.Prepared then
 IBQuery_QREPORT.Prepare;
 IBQuery_QREPORT.Open;
except
end;


//=============================



sinon  il faut faire fontionner  la table par un DataSource 
 de la table maitresse IBQuery_QREPORT.DataSource:=DS_VACCIN;



  dans ces condition  il faudrai aussi un autre TIBquery pour la 3eme table
   tu pourrait aussi faire &#231;a dans l'inspecteur d'objet directement



try
IBQuery_QREPORT.DataSource:=DS_VACCIN;
IBQuery_QREPORT.Close;
IBQuery_QREPORT.SQL.Clear;
IBQuery_QREPORT.SQL.Add(' SELECT * from "'+table_PATIENT+'" TBPAT'+
   ' left OUTER JOIN  "'+table_VACCIN+'" TB_VAC '+
   ' on  (NUMERO=TB_VAC.NUMERO) '+
   ' Where  TBPAT.NUMERO = :NUMERO '+
   ' ORDER BY TBPAT.nom_pat ');
if not IBQuery_QREPORT.Prepared then
IBQuery_QREPORT.Prepare;
IBQuery_QREPORT.Open;
except
end;


//================  toute fois toi seul qui connait les combinaisons exactes 


Bn Prog

ADA

vegeta_356 · Answer

Ok, mais ce code, c'est o&#249; tu l'ins&#232;res, dans l'&#233;v&#233;nement On Preview? ailleurs?



J'ai essay&#233; de mettre en application cette m&#233;thode via seulement
l'inspecteur d'objet pour voir, mais on dirait qu'il y a seulement un
probl&#232;me. Le query ne change pas d'enregistrement une fois termin&#233;, il
fais seulement r&#233;p&#233;t&#233; la premi&#232;re de sa liste en continu...



J'ai aussi essay&#233; de mettre des objets IBTable, pour que le table
change les enregistrements, et je les ai reli&#233; par un datasource aux
querys, mais aucun succ&#232;s.



Merci bcp pour ton aide, c'est tr&#232;s appr&#233;ci&#233; !

Quickreport, lier 3 tables, comment ?

4 réponses

Votre réponse

Discussions similaires