Crear arbol mediante registros en una base de datos.

[Rc96]

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:

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

[Casimiro Notevi]

+ 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".
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).

[duilioisola]

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;