Foros Club Delphi - Crear arbol mediante registros en una base de datos.

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)

- - Crear arbol mediante registros en una base de datos. (https://www.clubdelphi.com/foros/showthread.php?t=92216)

Crear arbol mediante registros en una base de datos.

Buenas tardes. estoy haciendo un sistema el cual debo manejar los departamentos de una empresa. tengo en mi BD tres tablas (lvl1, lvl2, lvl3; donde cada tabla solo tiene dos campos : cod y departamento) lo hice de esta forma porque cada nivel tiene distintos departamentos. Estoy intentando traer los datos a un treeview para que quede de la siguinete forma:

+ Nivel1
departamento 1
departamento 2
departamento 3
+ Nivel2
departamento 1
departamento 2
departamento 3
+ Nivel3
departamento 1
departamento 2
departamento 3
El problema es que al traer los datos de cada tabla los inserta en el treeview pero todos en el primer nodo osea "Nivel1" y necesito que cada consulta se muestre segun el nivel que le corresponde. si pudieran decirme como decirle que la consulta de la segunda tabla lvl2 me la muestre en el nodo padre " nivel2".

aca les dejo el codigo delphi que estoy usando:

Código Delphi [-]procedure Tfrmaggd.Button5Click(Sender: TObject);
var
  nodo0,nodo1,nodo2:Ttreenode;
  n:integer;
  nom,nom1:string;
begin
   with frmvp do
   begin
    FDQnd1.Close;
    FDQnd1.SQL.Text:=('select * from public.estruc_nvl1');
    FDQnd1.Open();
    while not FDQnd1.Eof do
    begin
     nom:=FDQnd1.FieldByName('Departamento').AsString;
     TreeView1.Items.AddChild( TreeView1.Items.Item[0], nom );
     TreeView1.Selected.Expanded := True;
     FDQnd1.Next;
    end;
    end;
      with frmvp do
   begin
    FDQnd2.Close;
    FDQnd2.SQL.Text:=('select * from public.estruc_nvl2');
    FDQnd2.Open();
    while not FDQnd2.Eof do
    begin
     nom1:=FDQnd2.FieldByName('Departamento').AsString;
     TreeView1.Items.AddChild( TreeView1.Items.Item[1], nom1 );
     TreeView1.Selected.Expanded := True;
     FDQnd2.Next;
    end;
    end;
end;

Espero puedan ayudarme. Gracias

Cita:

Empezado por Rc96 (Mensaje 520619)

+ Nivel1
departamento 1
departamento 2
departamento 3
+ Nivel2
departamento 1
departamento 2
departamento 3
+ Nivel3
departamento 1
departamento 2
departamento 3

Más lógico sería tener una tabla "Niveles" con los campos "nivel" y "departamento".

Código SQL [-]create table tbNiveles (
  nivel integer not null,
  departamento integer not null,
  primary key (nivel, departamento)
)

De todas formas, haz una búsqueda por treeview, es un tema tratado en diversas ocasiones.

PD: Si hubieses puesto un título descriptivo, te saldrían temas relacionados. (Algo así como crear árbol de elementos en un treeview).

Código Delphi [-]var
  NodoNivel, Nodo : TreeNode;
begin
  with TreeView1.Items do
  begin
     // Creo el nodo "padre"
     NodoNivel := Add(nil, 'Nivel1');
     // Recorro nodos del nivel 1
     FDQnd1.Close;
     FDQnd1.SQL.Text:=('select * from public.estruc_nvl1');
     FDQnd1.Open();
     begin
       // Creo Nodo colgando del NodoNivel.
       Nodo := AddChild(NodoNivel, FDQnd1.FieldByName('Departamento').AsString);

       // Aqui puedo tocar cosas del nodo recien creado.
       Nodo.ImageIndex := -1;

       FDQnd1.Next;
     end

     // Creo el nodo "padre"
     NodoNivel := Add(nil, 'Nivel2');
     // Recorro nodos del nivel 2
     {...}

   
     // Creo el nodo "padre"
     NodoNivel := Add(nil, 'Nivel3');
     // Recorro nodos del nivel 3
     {...}

  end;
end;