Delphi: TreeView com DBGrid

[mdeymonn]

Prezados,

Estou desenvolvendo uma aplicação que tem muitas tabelas no banco de dados. Por isso, coloquei todas num DataModule, afim de concentrar todas num só lugar.

Num form, coloquei um TreeView, com vários ítens e também um DBGrid, já conectado com o DataModule onde estão minhas tabelas. Pois bem, agora quero que o usuário, ao clicar num determinado nó do TreeView, veja a tabela correspondente no DBGrid. Mas não sei como proceder.

Aguardo, se possivel, alguma dica.

Obrigado.

[mdeymonn]

Galera, depois de muito esperar pela resposta, através de muita luta, consegui o que queria. Resolvi então colocar aqui a solução pois acho que pode ajudar alguém.

1) Insira um TreeView e um DBGrid no Form;

2) Insira um Table e um DataSource e faça todas as conexões necessárias (inclusive com o DBGrid, certo?);

3) Crie o seguinte evento:

procedure TForm1.FormCreate(Sender: TObject);

var

tabelas: TStringList;

I: Integer;

no: TTreeNode;

begin

tabelas:= TStringList.Create;

try

ADOConnection1.GetTableNames(tabelas);

no:= TTreeNode.Create(TreeView1.Items);

no.Text := 'Tabelas';

TreeView1.Items.Add(no, no.Text);

for I := 0 to tabelas.Count-1 do

TreeView1.Items.AddChild(TreeView1.Items[0], tabelas);

finally

tabelas.free;

end;

end;

4) Crie o segundo evento e rode o programa:

procedure TForm1.TreeView1Change(Sender: TObject; Node: TTreeNode);

begin

ADOTable1.close;

if Node.AbsoluteIndex > 0 then

begin

ADOTable1.TableName := Node.Text;

ADOTable1.Open;

end;

end;

Tenho certeza que funciona!!!!!

Um abraço.