Treeview

Question

Bonjour,

J'utilise un treeview que je charge a l'aide de ma base de donn&#233;e
j'utilise une procedure chargerTreeview, chargerSousGroupe et chargerSousSousGroupe.

La procedure chargerTreeview charge les noeuds principales (sa marche ! ). Dans cette pprocedure je fais appel &#224; la proc&#233;dure chargerSousGroupe. Elle charge les noeuds enfants ( sa marche ! ) Et dans cette procedure je fais une procedure ChargerSousSousGroupe qui doit charger les noeuds enfants des noeuds enfants ( tout le monde suit?). 
On doit obtenir : 
DONNEES FOYERS
      NOM DU FOYER X
            PERIODE A
            PERIODE B
                 SITUATION

En suite dans le procedure chargerSousSousGroupe , on fait appel a la procedure chargerSousSousGroupe ( &#224; elle m&#234;me quoi ! )

Le probl&#232;me est que quand je suis arriver &#224; la procedure chargerSousSousGroupe il faudrait que je puisse selectionner le noeuds enfants ( sa sa marche po car il me selectionne le noeuds principale 

Code :
{ Chargement du treevieuw avec la base de donn&#233;es }
procedure TCdrGroupe.ChargerTreeview();
var NbLig,j: integer ;
begin
   // il faut charger le treeview en fonction des donn&#233;es de la base de donn&#233;es
    DataSet.Active:= false ;
    DataSet.CommandText:='SELECT    DISTINCT       grp_NomGroupe    FROM    groupe    WHERE    grp_NoPlan    =''ALL''    OR    grp_NoPlan='''+    TypeSim    + ''' or grp_NoPlan = ''' + TypeGroupe + ''' ORDER BY grp_ordre ;';


    DataSet.Active:=true;
    DataSet.First;


    NbLig:=DataSet.RecordCount;
     for  j: =1 to NbLig do
    begin
       if (FrmSimulation.TreeView.Items.Count= 0) then 
       begin
             with    FrmSimulation.TreeView.Items.AddFirst   (nil,DataSet.FieldByName   ('grp_NomGroupe').AsString)    do
            selected : =true ;


             ChargerSousGroupe(DataSet.FieldByName('grp_NomGroupe').AsString);
      end
      else
      begin
             with    FrmSimulation.TreeView.Items.Add   (FrmSimulation.TreeView.Selected,DataSet.FieldByName   ('grp_NomGroupe').AsString)    do
            selected := true ;
             ChargerSousGroupe(DataSet.FieldByName('grp_NomGroupe').AsString);
       end; 
        DataSet.Next;
      end
end;


{Chargement des sous groupe en fonction du NomGroupe donner en param&#232;tre}
procedure TCdrGroupe.ChargerSousGroupe(NomGroupe:string);
var NbLig,i:integer ;
begin
  //On va chercher les sous Groupes par rapport a plusieurs crit&#232;res :
  //   - le NoPlan ou on se trouve IBA, IBI, SBA, SBI
  //   - le groupe qu'il faut renseigner ( en param&#232;tre )
  datasetsg.Active: =false;  datasetsg.CommandText:'SELECT    sgrp_NomSousGroupe,niveau    FROM    sousgroupe    g    WHERE     sgrp_NomGroupe       '''+ NomGroupe + ''' AND sgrp_NoPlan IN (''ALL'', '''+ typesim+ ''',''' +typeGroupe + ''') ORDER BY sgrp_ordre;';


  datasetsg.Active:=true ;
  datasetsg.First ;


  nblig:=datasetsg.RecordCount;


   for  i: =1 to nblig do
  begin      
        with  FrmSimulation.TreeView.Items.AddChild                                        (FrmSimulation.TreeView.Selected,DataSetsg.FieldByName('sgrp_NomSousGroupe').AsString) do

        if DataSetsg.FieldByName('niveau').AsInteger > 0 then    ChergerSousSousGroupe(DataSetsg.FieldByName('sgrp_NomSousGroupe').AsString);
        datasetsg.Next;


       end;
        nblig:= 0;
 end; 


procedure TCdrGroupe.ChergerSousSousGroupe(NomSousGroupe:string);
var Nblig,i:integer;
begin
      DataSetSgrp.Active: =false;      DataSetSgrp.CommandText:'SELECT sgrp_NomSousGroupe,niveau FROM sousgroupe WHERE sgrp_NomGroupe'''+nomSousGroupe+''';';
      DataSetSgrp.Active:=true ;


      Nblig:=datasetsgrp.RecordCount;


       for  i: =1 to nblig do
      begin


          with FrmSimulation.TreeView.Items.AddChild(FrmSimulation.TreeView.Selected,DataSetsgrp.FieldByName('sgrp_NomSousGroupe').AsString)do


            //  if DataSetSgrp.FieldByName('niveau').AsInteger>0 then ChergerSousSousGroupe(DataSetsgrp.FieldByName('sgrp_NomSousGroupe').AsString);
              datasetsgrp.Next;
      end;
end;

cs_Loda · Answer

Je me suis pas trop pench&#233; sur ton code, mais si j'&#233;tais toi je
passerais le noeud auquel tu veux ajouter les enfants comme un
param&#232;tre de tes proc&#233;dures.



genre ChargerSousSousGroupe(NomSousGroupe:string; NoeudParent : TTreeNode)



comme &#231;a tu ne te base pas sur la selection, mais bien sur un noeud
particulier pour les ajouter. pas de probl&#232;me de selection qui change
sans que tu saches pk. (une cause possible de ton probl&#232;me)



Sinon, pour une question de propret&#233; et de modularit&#233; (et donc de
facilit&#233; de tests), j'essairais de passer non pas le param&#232;tre de ta
requete, mais le resultat. Dans ton cas, je sais pas si &#231;a vaut la
peine. mais penses-y la prochaine fois. Il est souvent plus sage de
s&#233;parer les proc&#233;dures d'affichage et de manipulation de donn&#233;e.



En esp&#233;rant t'avoir donn&#233; une voie utile,


Loda



PS: sinon je connais pas la partie BD, mais es-tu sur que l'appel de
"DataSetSgrp.Active:= XXX;" au milieu de ta boucle for ne d&#233;range pas?

Treeview

1 réponse

Votre réponse

Discussions similaires