Detectado javascript desactivado

Tienes el javascript desactivado en este momento. Muchas funciones podrían no funcionar. Por favor reactiva el javascript para obtener una funcionalidad completa.

[RESUELTO] Los árboles que no dejan ver el bosque. (TTreeView con datos de una tabla)

Comenzado por TiammatMX , mar 10 2010 01:37

Anterior

Por favor identifícate para responder

31 respuestas en este tema

#21 kafastoforman

Advanced Member

Miembro Platino
277 mensajes

LocationMexico D.F.

Escrito 11 marzo 2010 - 02:06

¡¡EXCELENTE, KASTAFORMAN!!, de hecho, se aproxima mucho al requerimiento...

Solamente que yo desearía algo así:
(mexico df xochimilco concha) angel
(mexico df xochimilco concha) armando
(mexico df xochimilco concha) gonzalez
(mexico df ao roma) gerardo
(mexico df ao roma) martinez
(mexico df ao villas) pancho
(mexico df ao villas) lopez
(mexico chiapas municipio pueblo) rodrigo
(mexico chiapas municipio publito) escamilla
(españa madrid versa micolonia) antonio
(españa barcelona catalunia pueblochico) raafel

Donde lo que se encuentra entre paréntesis no debe aparecer. Estoy en lo dicho, seguiré sus consejos.

No se pero hay algo que no entendí por que no me aparecen repetidos y si me aparecene en el arbol, te dejo la ventana en la que hice la prueba.

Archivos adjuntos

1304_a4f225f259ef44eee1162a8646775de6457e1a27.bmp 267,4KB 11 descargas

0

Volver arriba

#22 andres1569

Advanced Member

Miembro Platino
431 mensajes

Escrito 11 marzo 2010 - 02:11

Hola TiammatMX, habría que ver, aunque fuera un simple printscreen sobre un DBGrid, cómo devuelve los datos dicha consulta.

He simulado sobre una tabla el resultado de una consulta y el árbol lo fabrica correctamente. He tomado como modelo de consulta algo muy parecido al listado que ha puesto antes Kafastoforman, donde las columnas se van diferenciando a medida que nos desplazamos hacia la derecha ...

Saludos

0

Volver arriba

#23 TiammatMX

Advanced Member

Miembros
1.750 mensajes

LocationUniverso Curvo\Vía Láctea\Sistema Solar\Planeta Tierra\América\México\Ciudad de México\Xochimilco\San Gregorio Atlapulco\Home

Escrito 11 marzo 2010 - 05:08

Hola TiammatMX, habría que ver, aunque fuera un simple printscreen sobre un DBGrid, cómo devuelve los datos dicha consulta.

He simulado sobre una tabla el resultado de una consulta y el árbol lo fabrica correctamente. He tomado como modelo de consulta algo muy parecido al listado que ha puesto antes Kafastoforman, donde las columnas se van diferenciando a medida que nos desplazamos hacia la derecha ...

Saludos

Mejor que un "pantallazo", los datos para que jueguen un rato, a ver qué tal..., van en Excel, pero no creo que haya problema si los pasan a cualquier motor de base de datos y ejecutan un Query sobre ellos.

0

Volver arriba

#24 TiammatMX

Advanced Member

Miembros
1.750 mensajes

LocationUniverso Curvo\Vía Láctea\Sistema Solar\Planeta Tierra\América\México\Ciudad de México\Xochimilco\San Gregorio Atlapulco\Home

Escrito 11 marzo 2010 - 05:11

¿Y si incluyo los datos en el mensaje, creen que será mejor? Zoquete de mí... jejejejeje :tongue:

0

Volver arriba

#25 TiammatMX

Advanced Member

Miembros
1.750 mensajes

LocationUniverso Curvo\Vía Láctea\Sistema Solar\Planeta Tierra\América\México\Ciudad de México\Xochimilco\San Gregorio Atlapulco\Home

Escrito 11 marzo 2010 - 05:50

¡¡¡ACTUALIZACIÓN DE ÉXITOOOO!!!

Con éste codigo:

delphi

procedure TfrmPrncpl.LlnrArblArs;
var
  tnUno, tnDos, tnTres, tnCuatro : TTreeNode;
  sInsttcn, sDrccnGnrl, sDrccn, sSubDrccn : string;
begin
 
  TreVewArblArs.Items.BeginUpdate;
  TreVewArblArs.Items.Clear;
  tnUno := TreVewArblArs.Items.Add(NIL, 'Gobierno del Distrito Federal');
  dtamdlDts.ADOQryDts.First;
//  tnUno := TreVewArblArs.Items.AddChild(tnUno, dtamdlDts.ADOQryDts.FieldByName('Ca_area').AsString);
(*  TreVewArblArs.Items.AddChild(tnUno,
                                         dtamdlDts.ADOQryDts.FieldByName('Ca_institucion').AsString+' '+
                                         dtamdlDts.ADOQryDts.FieldByName('Ca_dirg').AsString+' '+
                                         dtamdlDts.ADOQryDts.FieldByName('Ca_dir').AsString+' '+
                                         dtamdlDts.ADOQryDts.FieldByName('Ca_sub').AsString+' '+
                                         dtamdlDts.ADOQryDts.FieldByName('Ca_jud').AsString);*)
(*
  sInsttcn := dtamdlDts.ADOQryDts.FieldByName('ca_institucion').AsString;
  sDrccnGnrl := dtamdlDts.ADOQryDts.FieldByName('ca_dirg').AsString;
  sDrccn := dtamdlDts.ADOQryDts.FieldByName('ca_dir').AsString;
  sSubDrccn := dtamdlDts.ADOQryDts.FieldByName('ca_sub').AsString;
*)
  sInsttcn := dtamdlDts.ADOQryDts.FieldByName('ca_institucion').AsString;
  sDrccnGnrl := '';
  sDrccn := '';
  sSubDrccn := '';
 
  while not dtamdlDts.ADOQryDts.Eof do
  begin
    if sInsttcn = dtamdlDts.ADOQryDts.FieldByName('ca_institucion').AsString then
    begin
      if sDrccnGnrl = dtamdlDts.ADOQryDts.FieldByName('ca_dirg').AsString then
      begin
        if sDrccn = dtamdlDts.ADOQryDts.FieldByName('ca_dir').AsString then
        begin
          if sSubDrccn = dtamdlDts.ADOQryDts.FieldByName('ca_sub').AsString then
          begin
//            TreVewArblArs.Items.AddChild(tnCuatro, dtamdlDts.ADOQryDts.FieldByName('Ca_area').AsString);
            TreVewArblArs.Items.AddChild(tnCuatro,
                                         dtamdlDts.ADOQryDts.FieldByName('Ca_institucion').AsString+' '+
                                         dtamdlDts.ADOQryDts.FieldByName('Ca_dirg').AsString+' '+
                                         dtamdlDts.ADOQryDts.FieldByName('Ca_dir').AsString+' '+
                                         dtamdlDts.ADOQryDts.FieldByName('Ca_sub').AsString+' '+
                                         dtamdlDts.ADOQryDts.FieldByName('Ca_jud').AsString);
          end
          else
          begin
//            tnCuatro := TreVewArblArs.Items.AddChild(tnTres, dtamdlDts.ADOQryDts.FieldByName('Ca_area').AsString);
            tnCuatro := TreVewArblArs.Items.AddChild(tnTres,
                                         dtamdlDts.ADOQryDts.FieldByName('Ca_institucion').AsString+' '+
                                         dtamdlDts.ADOQryDts.FieldByName('Ca_dirg').AsString+' '+
                                         dtamdlDts.ADOQryDts.FieldByName('Ca_dir').AsString+' '+
                                         dtamdlDts.ADOQryDts.FieldByName('Ca_sub').AsString+' '+
                                         dtamdlDts.ADOQryDts.FieldByName('Ca_jud').AsString);
            sSubDrccn := dtamdlDts.ADOQryDts.FieldByName('ca_sub').AsString;
          end;
        end
        else
        begin
//          tnTres := TreVewArblArs.Items.AddChild(tnDos, dtamdlDts.ADOQryDts.FieldByName('Ca_area').AsString);
          tnTres := TreVewArblArs.Items.AddChild(tnDos,
                                         dtamdlDts.ADOQryDts.FieldByName('Ca_institucion').AsString+' '+
                                         dtamdlDts.ADOQryDts.FieldByName('Ca_dirg').AsString+' '+
                                         dtamdlDts.ADOQryDts.FieldByName('Ca_dir').AsString+' '+
                                         dtamdlDts.ADOQryDts.FieldByName('Ca_sub').AsString+' '+
                                         dtamdlDts.ADOQryDts.FieldByName('Ca_jud').AsString);
          sDrccn := dtamdlDts.ADOQryDts.FieldByName('ca_dir').AsString;
          sSubDrccn := dtamdlDts.ADOQryDts.FieldByName('ca_sub').AsString;
        end;
      end
      else
      begin
//        tnDos := TreVewArblArs.Items.AddChild(tnUno, dtamdlDts.ADOQryDts.FieldByName('Ca_area').AsString);
        tnDos := TreVewArblArs.Items.AddChild(tnUno,
                                         dtamdlDts.ADOQryDts.FieldByName('Ca_institucion').AsString+' '+
                                         dtamdlDts.ADOQryDts.FieldByName('Ca_dirg').AsString+' '+
                                         dtamdlDts.ADOQryDts.FieldByName('Ca_dir').AsString+' '+
                                         dtamdlDts.ADOQryDts.FieldByName('Ca_sub').AsString+' '+
                                         dtamdlDts.ADOQryDts.FieldByName('Ca_jud').AsString);
        sDrccnGnrl := dtamdlDts.ADOQryDts.FieldByName('ca_dirg').AsString;
        sDrccn := dtamdlDts.ADOQryDts.FieldByName('ca_dir').AsString;
        sSubDrccn := dtamdlDts.ADOQryDts.FieldByName('ca_sub').AsString;
      end;
    end
    else
    begin
//      TreVewArblArs.Items.AddChild(tnUno, dtamdlDts.ADOQryDts.FieldByName('Ca_area').AsString);
      TreVewArblArs.Items.AddChild(NIL,
                                         dtamdlDts.ADOQryDts.FieldByName('Ca_institucion').AsString+' '+
                                         dtamdlDts.ADOQryDts.FieldByName('Ca_dirg').AsString+' '+
                                         dtamdlDts.ADOQryDts.FieldByName('Ca_dir').AsString+' '+
                                         dtamdlDts.ADOQryDts.FieldByName('Ca_sub').AsString+' '+
                                         dtamdlDts.ADOQryDts.FieldByName('Ca_jud').AsString);
 
      sInsttcn := dtamdlDts.ADOQryDts.FieldByName('ca_institucion').AsString;
      sDrccnGnrl := dtamdlDts.ADOQryDts.FieldByName('ca_dirg').AsString;
      sDrccn := dtamdlDts.ADOQryDts.FieldByName('ca_dir').AsString;
      sSubDrccn := dtamdlDts.ADOQryDts.FieldByName('ca_sub').AsString;
    end;
 
    dtamdlDts.ADOQryDts.Next;
  end;
 
  TreVewArblArs.Items.EndUpdate;
  TreVewArblArs.FullExpand;
end;

CASI se ha logrado llegar al resultado deseado. He de decir que aún existen registros repetidos y mal ordenados (parte baja de la ilustración) pero en descargo he de decir que Kastaforman tuvo una excelente idea...

Gracias, muchachos..., ya casi llegamos. Se han ganado unas cervezas acompañadas de la mejor botana del Distrito Federal..., pero hasta que terminemos...

Archivos adjuntos

1308_39a59077b2ae4f1c325f330b8ae6809e8a33cc0e.jpg 54,44KB 8 descargas

0

Volver arriba

#26 Alfredo

Advanced Member

Miembros
91 mensajes

LocationMéxico

Escrito 11 marzo 2010 - 11:23

Encontre un componente que es facil de usar, checalo creo que te puede servir

http://cid-0c975157c.../DbTreeview.zip

0

Volver arriba

#27 TiammatMX

Advanced Member

Miembros
1.750 mensajes

LocationUniverso Curvo\Vía Láctea\Sistema Solar\Planeta Tierra\América\México\Ciudad de México\Xochimilco\San Gregorio Atlapulco\Home

Escrito 12 marzo 2010 - 09:50

Encontre un componente que es facil de usar, checalo creo que te puede servir

Gracias, Alfredo. Lo instalé pero la funcionalidad que contiene no llena los requerimientos.

Buen día, jóvenes..., ¿listos para más?

0

Volver arriba

#28 andres1569

Advanced Member

Miembro Platino
431 mensajes

Escrito 12 marzo 2010 - 09:57

Hola de nuevo, TiammatMX:

En el código que te puse, no existía el campo Ca_Area, que es el campo diferenciador final (prescindo del Ca_jud ya que éste parece acompañar a Ca_Area). Este es el árbol que obtengo, con los datos que nos has ofrecido, mira si se parece a lo que quieres conseguir:

Archivos adjuntos

1310_9b7f4b6abf57b74b022f875c067d5b0ab75bd78d.jpg 206,04KB 8 descargas

0

Volver arriba

#29 TiammatMX

Advanced Member

Miembros
1.750 mensajes

LocationUniverso Curvo\Vía Láctea\Sistema Solar\Planeta Tierra\América\México\Ciudad de México\Xochimilco\San Gregorio Atlapulco\Home

Escrito 12 marzo 2010 - 10:04

Hola de nuevo, TiammatMX:

Buen día, Andrés...

...mira si se parece a lo que quieres conseguir.

De hecho, es casi lo que todos hemos obtenido..., pero te muestro el árbol que más les satisfizo a mis jefes, y que parece que finalmente será el que quede como aplicación.

Archivos adjuntos

1312_77b3cfe31ee85bec0223d89d085bc7d37ed3b40c.jpg 54,44KB 5 descargas

0

Volver arriba

#30 andres1569

Advanced Member

Miembro Platino
431 mensajes

Escrito 12 marzo 2010 - 10:20

Tus jefes son muy raros ¿no? Mira que gustarles esa rista de números, :-))

Aunque veo que algunos nodos aparecen fuera de lugar, en este árbol das a entender que lo que desean es que en cada nodo aparezcan todos los dígitos involucrados (desde Ca_institu hasta Ca_Jud), algo que me choca realmente.

Saludos

0

Volver arriba

#31 TiammatMX

Advanced Member

Miembros
1.750 mensajes

LocationUniverso Curvo\Vía Láctea\Sistema Solar\Planeta Tierra\América\México\Ciudad de México\Xochimilco\San Gregorio Atlapulco\Home

Escrito 12 marzo 2010 - 10:43

Tus jefes son muy raros ¿no? Mira que gustarles esa rista de números, :-))

¡¡¡SSSHHHHHH!!!!, no tan alto, que te van a escuchar...

Aunque veo que algunos nodos aparecen fuera de lugar, en este árbol das a entender que lo que desean es que en cada nodo aparezcan todos los dígitos involucrados (desde Ca_institu hasta Ca_Jud), algo que me choca realmente.

Precisamente, ésos datos que están "turisteando" por el árbol son los que están como erróneos. La ristra de numeritos ésos en realidad es la secuencia que en su momento será sustituida por el nombre del área u oficina de que se trate. CASI damos por concluido el hilo, gracias a la ayuda de todos...

0

Volver arriba

#32 escafandra

Advanced Member

Administrador
4.107 mensajes

LocationMadrid - España

Escrito 12 marzo 2010 - 02:01

Cambiando de técnica.

Propongo tratar de simplificar el sistema con una rutina no recursiva sencilla. No puedo probar con tablas, así que el ejemplo lo pongo con TStrings. Cada uno tiene el número de cadenas que uno quiera, cada cadena representa un nivel en el árbol según su índice. No precisa que los String estén ordenados, pues el algoritmo busca el lugar donde debe colocar cada dato:

delphi

procedure TForm1.AddNode(Strings: TStringList);
var
  i,n: integer;
  Parent, Node: TTreeNode;
begin
   if TreeView1.Items.Count = 0 then
     TreeView1.Items.AddChild(nil, 'Gobierno del Distrito Federal');
 
   Parent:= TreeView1.Items.Item[0];
 
   i:= 0;
   n:= 0;
   while i < Strings.Count do
   begin;
     while n < Parent.Count do
     begin
       Node:= Parent.Item[n];
       if Node.Text = Strings[i] then
       begin
         Parent:= Node;
         n:= 0;
         inc(i);
         if i = Strings.Count then break;
         continue;
       end;
       inc(n);
     end;
     Parent:= TreeView1.Items.AddChild(Parent, Strings[i]);
     inc(i);
   end;
 
   TreeView1.FullExpand;
end;

Dejo el código fuente completo de una aplicación, creo que se entenderá y es fácil de migrar al uso de Tablas, estén o no ordenadas conforme al resultado final del árbol que deseamos.

Saludos.