Fórum Plano de Contas com Treeview (Arvore) #137480

procedure TForm1.Button1Click(Sender: TObject);
var
MyTreeNode1, MyTreeNode2: TTreeNode;
begin
with TreeView1.Items do
begin
Clear; { Remove qualquer node existente }
MyTreeNode1 := Add(nil, ´RootTreeNode1´); { Adiciona o node raiz }
{ Adiciona um sub item no node adiciona anteriormente }
AddChild(MyTreeNode1,´ChildNode1´);
{Adiciona outro node raiz}
MyTreeNode2 := Add(MyTreeNode1, ´RootTreeNode2´);
AddChild(MyTreeNode2,´ChildNode2´);
MyTreeNode2 := TreeView1.Items[3];
AddChild(MyTreeNode2,´ChildNode2a´);
Add(MyTreeNode2,´ChildNode2b´);
Add(MyTreeNode1, ´RootTreeNode3´);
end;
end;

Veja esta mensagem que vi no forum
do Ramos

´
--------------------------------------------------------------------------------
Na semana passada, em outro grupo de discussões, prometi que ia colocar um código fonte para inclusão e edição de um plano de contas, para programas de contabilidade, orçamento, controle patrimonial ou qualquer outra coisa que utilize estruturação de códigos de forma hierárquica.

Como sempre tive simpatia pelo pessoal desse grupo, resolvi colocar aqui também.

É possível baixá-lo de duas formas, com e sem o executável:

a) Com o .EXE http://kylix.virtualave.net/forum/ctbexe.zip [433k]
b) Sem o .EXE http://kylix.virtualave.net/forum/ctb.zip [22k]

O executável foi gerado pelo Delphi 6.02, e o plano de contas de exemplo é uma tabela Paradox (o programa original usa DBISAM).

O código fonte que estou disponibilizando faz parte de um programa de contabilidade que desenvolvi há alguns anos, com o qual nunca ganhei dinheiro, mas foi interessante de desenvolver e ainda é utilizado por uma estatal do Governo de Rondônia. Foi enxugado, sendo eliminado tudo que não tem relação com a edição do plano de contas.

Se alguém se interessar e achar que o código presta para alguma coisa, utilize-o a vontade, desde que eu não seja responsabilidado por nenhum desastre

Dá pra pensar em liberar os fontes de todo o programa de contabilidade, caso alguém queira.

Responderei quaisquer comentários que estiverem neste mesmo tópico. E, se eu for novamente citado no e-zine, por favor alguém tenha a bondade de me avisar.

--
\\|// \\\|/// ( Q Q ) --------o00o-(_)-o00o------- Junior/RO pascal@intermega.com.br ---------------------------- oooo0 0oooo ( ) ( ) \ ( ) / \ ) ( / -- --

Valeu, mas ja tinha visto.

Ocorre que preciso de um plano de facil entendimento pra os clientes e que possa ser criados os sub niveis quase que automaticos, bastando apenas que o cliente informe a descrição, pois o codigo e criado automaticamente, porque muitos nao sabem o que é um plano de contas e pode dar muita dor de cabeça.


Grato

PESSOAL,

Vocês saberiam onde posso encontrar o Exemplo acima? Estou precisando fazer justamente isso.

Muito Obrg.

Alex