Pirambu!

Estou tentando criar uma Organograma com base em tabelas ou Paradox ou SQL Server, Eu já tinha visto algo com o Micheus Link

Cara como eu faço para colocar na barra de tarefa próximo ao relogio, no canto inferior direito?

este é um assunto bem interessante, eu tentei mas deu este erro "Connection closed gracefully" o significa?

no momento que eu colocar no menu iniciar ele será execultado?

é isso mesmo, valeu Micheus. Abraço.

Alguém sabe como eu posso execultar um programa ao iniciar o Windows, é para apresentar uma tela de agenda de compromisso do dia.

Micheus, ficou ótimo, só mais uma coisa, coloquei em "pagecontrol" como eu faço para mostrar a árvore sem clicar no botão, apenas ao entrar no TabSheet2 onde estar o treeview?

Micheus funcionou certinho, mas tiver que fazer esta alteração sql.add('select campo from tabela where UPPER(campo) like :A'); parambyname('A').value:= '%' + UpperCase(edit.text) +'%'no lugar de "AnsiUpperCase(edit.text)" usei apenas "UpperCase(edit.text)" Valeu pela força.

estou precisando realizar uma consulta em uma tabela do paradox usando uma query sendo que seja filtrado o independente de ter sido escrito maisculo ou minusculo query1.locate('campo',edit1.text,[loincentive,lopartialkey]). não quero realizar a consulta desta forma pois listará todos os registros para depois escolher. with query1 do begin close; sql.add; sql.add('select upper(campo) from tabela where campo like:A'); parambyname('A').value:= '%' + edit.text +'%'; open; end;eu tentei desta forma mas não funcionou, alguém sabe outra forma de realizar esta consulta.

tenta isso: procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState); begin if not odd(table1.RecNo) then begin DBGrid1.Canvas.Brush.Color:= clMoneyGreen; DBGrid1.Canvas.FillRect(Rect); DBGrid1.DefaultDrawDataCell(Rect, Column.Field, State); if gdFocused in State then begin DBGrid1.Canvas.Brush.Color:= clBlack; DBGrid1.Canvas.FillRect(Rect); DBGrid1.DefaultDrawDataCell(Rect, Column.Field, State); end; end; end;

A estrutura seria na tabela 1 teria os campos Her1ID, + , * Nome2 , A, 30 na tabela 2 Her1ID, I, * Her2ID, + , * Nome2, A, 30 a tabela 2 estaria relacionada com a tabela 1 pelo "Her1ID" na tabela 3teria os campos Her2ID, I, * Her3ID, + , * Nome3, A, 30 a tabela 3 estaria relacionada com a tabela 2 pelo "Her2ID" na tabela 4 Her3ID, I, * Her4ID, + , * Nome4, A, 30 a tabela 4 estaria relacionada com a tabela 3 pelo "Her3ID" Então usei uma query1 para fazer a consulta with query do begin Close; sql.clear; sql.add('select * from ((tabela1 left join tabela2 on tabela1.her1ID = tabela2.her1ID) left join tabela3 on Tabela2.Her2ID = Tabela3.Her2ID) left join tabela4 on Tabela4.Her3ID = Tabela4.Her3ID'); open; end; foi desta forma que tentei. Micheus, seria assim: vou usar nome no lugar de cargo + Raimundo (Diretor) + Pedro (Gerente) + Francisco(supervisor) - Soares(Encarregado) - Antonio(Encarregado) Usando Banco de dados do paradox.

Micheus,não deu certo pois tentei fazer desta forma, eu pensei em fazer 4 níveis de herarquias usando 4 tabelas, colocando vínculos nas tabelas Tb1-> Tb2->Tb3->Tb4. então usei uma query para fazer a lista e com 4 campos sendo que cada numero estar em um campo ( 1.1.2.1 ). é desta forma mesmo? ou teria outra maneira usando apenas uma tabela ( Paradox)?

Micheus como poderia fazer para usar um trueview, criar a query eu sei, mas como lincar ao trueview?

Tenta assim em evento da tabela coloca o codigo abaixo no "OnNewRecord" Table1Campo.value := '1'; Com isso toda vez que iniciar um registro na tabela o campo terá o valor 1.

Valeu Micheus pela força.

Ok.o objetivo como falei e montar uma "árvore de hierarquia de liderança" como exemplo eu tenho um diretor "1" de uma empresa, que tem como subordinado dois gerente: gerente "1" e gerente "2", para o gerente "1" tenho os supervisores 1.1.1 , 1.1.2 e 1.1.3 e para gerente "2" tenho os supervisores 1.2.1, 1.2.2 e 1.2.3, e para cada supervisor tenhos 5 encarregado de produção, 1.1.1.1, 1.1.1.2 e ... e mesmo para o gerente "2". Resumo. Eu quero mostrar que na empresa tenho diretor e como subordinado a ele tem dois gerentes e subordinado a cada gerente tenho dois supervidores e subordinado a cada supervisor tenho 5 encarregado. eu imaginei isso em um diagrama, ficaria ótimo ou talvés usando um trueview na tabela ficaria como mostrado acima 1.1.1.1 - o primeiro 1 seria o "Diretor", segundo seria "Gerência", o terceiro seria o "Supervisor" o quarto seria o "Encarregado de produção". mas não sei como relacionar uma tabela ao trueview. Espero ter facilitado a juda. :rolleyes:

tudo em. Na verdade o que eu estou tentando fazer é montar uma árvore de hierarquia de liderança. talvés você conheça outra forma de representar o que eu estou querendo fazer. Se realmente não tiver jeito, possa até tentar representar usando trueview, mas não como Relacionar a tabela talvés você possa me ajudar.

Micheus, conseguir instalar, agora vem as dúvidas, eu consigo vincular a uma tabela?

Micheus, é para adicionar uma nova paleta no delphi? como posso usar?

é isso que estou procurando, vou tentar, depois post o resultado.

Valeu, é isso mesmo. obrigado.

Alguém sabe como eu poderia fazer para Criar um Diagrama Ex.: diagrama de um determinado produto "A" que é formado por outros produtos A1 e A2 e são composto por A1.1 E A2.1

Estou precisando saber como eu faço para adicionar um icone no form principal para quando gerar o ".EXE", já parecer com o icone escolhido? para quando minimizar o mesmo não apareça o icone do Delphi?

tenta isso: with query1 do begin close; sql.add('select * from Tabela1 where entrega like "Sim"); open; end;

Cara você quer salvar o que? em que banco de dados você estar usando?