 |
ActiveDelphi
.: O site do programador Delphi! :.
|
| Exibir mensagem anterior :: Exibir próxima mensagem |
| Autor |
Mensagem |
pedro.fantini
Novato
Registrado: Quarta-Feira, 8 de Agosto de 2007
Mensagens: 1
|
 Enviada: Qua Ago 08, 2007 4:38 pm Assunto: Treeview com banco de dados |
 |
|
Boa tarde a todos , presciso programar um treeview igual ao do explorer do windows com categorias, subcategorias, etc e quando eu clicar nessas categorias ele ativará uma consulta em um dbgrid por exemplo e ja tentei alguns componentes e nao consigo , a maior dificuldade tem sido ligar o treeview a um banco de dados ...
Agradeco a ajuda .. |
|
| Voltar ao Topo |
|
 |
adriano_servitec
Colaborador
Registrado: Sexta-Feira, 30 de Janeiro de 2004
Mensagens: 17618
|
| Enviada: Qua Ago 08, 2007 5:04 pm Assunto: |
|
|
Vou deixar aqui como eu faço
| Código: | //*******começo do treeview*************************
with dm.DataSetEmpresa do
begin
Close;
SQL.Text := 'select * from sind2 order by associado';
Open;
// adicione a linha abaixo.
// ela prepara o treeview para edicao e não reporta as alterações
// para a tela enquanto não terminar o processo, tornando o
// procedimento mais veloz
TreeView1.Items.BeginUpdate;
TreeView1.Items.Clear;
//desabilitar os controle ligados a tabela, para melhorar a performance
DisableControls;
while not Eof do
begin
SubNode1 := TreeView1.Items.AddChild(Node, dm.DataSetEmpresa.fieldbyname('associado').value);
SubNode1.ImageIndex := 1;
SubNode1.SelectedIndex := 0;
SubNode2:= TreeView1.Items.AddChild(SubNode1, dm.DataSetEmpresa.fieldbyname('matricula').value);
SubNode2.ImageIndex := 3;
SubNode2.SelectedIndex := 0;
dm.DataSetEmpresa.Next;
end;
EnableControls;
Close;
// informa ao treeview que as alterações foram finalizadas
TreeView1.Items.EndUpdate;
end;
|
_________________
Jogo seu smartphone? Acesse o link e confira.
https://play.google.com/store/apps/details?id=br.com.couldsys.rockdrum
https://play.google.com/store/apps/details?id=br.com.couldsys.drumsetfree |
|
| Voltar ao Topo |
|
|
|
|
Enviar Mensagens Novas: Proibido.
Responder Tópicos Proibido
Editar Mensagens: Proibido.
Excluir Mensagens: Proibido.
Votar em Enquetes: Proibido.
|
|
FAQ
Pesquisar
Membros
Grupos
Registrar
Perfil
Entrar e ver Mensagens Particulares
Entrar
