Ir para conteúdo
Fórum Script Brasil

Jhonas

Monitores
  • Total de itens

    9.657
  • Registro em

Tudo que Jhonas postou

  1. veja http://www.google.com.br/search?hl=pt-BR&a...833l2-3.4.2l9l0 abraço
  2. se voce não tem nenhuma tabela que tenha os campos ordenados da maneira como gostaria, voce pode criar uma tabela temporária que tera o layout que voce deseja no relatorio outra sugestão é usar campo memo para trabalhar com os dados, nesse caso voce pode usar como se fosse um texto formatado existem outras opções... mas fica dificil explicar se voce não tem experiencia com o componente QRGroup do Quick Report ( tente pesquisar na net ) GroupHeader e GroupFooter abraço
  3. Faça uma pesquisa no forum http://scriptbrasil.com.br/forum/index.php...capturar+teclas http://scriptbrasil.com.br/forum/index.php...amp;hl=keyloger abraço
  4. abra o DPR usando File > Open .. e depois compile o programa se o erro permanecer, verifique se voce não estava usando componente de terceiros instalados abraço
  5. Com a penas uma mudança no código ( uma linha ) , voce consegue imprimir ... de qualquer forma, que bom que tenha resolvido abraço
  6. veja na pasta demos do delphi ( TeeChart ) ... tem um exemplo de como imprimir usando o QRChart1 abraço
  7. voce já testou somente o código que te passei ??? o código mostra somente os nós filhos, mas pode mostrar tambem os nós pais ... eu quero que voce entenda a lógica do código ... ( depois fica mais facil para selecionar um item ou subitem ) OBS: Sei que voce tem pressa de resolver o seu problema, mas vamos com calma, pois tambem tenho tarefas a cumprir e me falta tempo para ser mais detalhista... ok ? abraço
  8. Voce já fez uma pesquisa no forum ? os topicos do link reportam à dúvidas com threads http://scriptbrasil.com.br/forum/index.php...highlite=thread abraço
  9. voce vai usar a banda QRGroup para determinar o grupo que será mostrado, no entanto como voce não sabe como utilizar, gostaria que voce desse uma lida nesse artigo ( leia com calma para poder entender... ) http://translate.google.com.br/translate?h...26prmd%3Divnsfd para judar tem exemplos na pasta demo do delphi ( procure por Quickrpt - QR3) OBS: a explicação que foi dada a voce no outro forum, é para quem já tem alguma experiencia com esse componente Vale observar que para o tipo de relatorio que deseja, o ideal é realmente agrupar os dados em um unico select abraço
  10. Não olhe somente o titulo do tópico ... tem varios posts respondidos com a sua dúvida http://scriptbrasil.com.br/forum/index.php...ite=GroupHeader abraço
  11. o codigo que te passei, te da o nome de todos os itens e subitens do treeview ... basta fazer um if para testar se no percurso da lista, ele chegou no item que voce esta querendo... depois basta selecionar o item que voce esta querendo dica: é praticamente a mesma coisa que voce fez com o listbox ... pense um pouco, caso não consiga, te dou uma ajuda depois. abraço
  12. o relatório que voce esta querendo, o Quick Report faz tranquilamente... porem como voce é novo no forum, peço que voce pesquise no forum a sua dúvida, e caso não encontre nada que possa ajuda-lo, ai os membros poderão ajuda-lo http://scriptbrasil.com.br/forum/index.php...te=quick+report abraço
  13. Para corrigir esse erro, modifique o código procedure TForm1.Button1Click(Sender: TObject); var i, x, y,z : integer; item : string; s : TTreeNode; begin i := 0; x := 0; z := 0; for i := 0 to TreeView1.Items.Count -1 do begin item := TreeView1.Items[i].Text; s := TreeView1.Items[i].Parent; if s = nil then begin for x := 0 to TreeView1.Items.Item[x].Count -1 do begin inc(z); if x = TreeView1.Items.Item[x].Count -1 then y := 0 else y := x; if (z = i) and (x = 1) then exit; if TreeView1.Items[i].Text = item then showmessage(TreeView1.Items[i].Item[y].Text) end; end; x := 0; end; end; abraço
  14. exemplo: procedure TForm1.Button1Click(Sender: TObject); var i, x : integer; item : string; s : TTreeNode; begin i := 0; x := 0; for i := 0 to TreeView1.Items.Count -1 do // conta quantos itens e subitens tem no treeview begin item := TreeView1.Items[i].Text; // mostra o nome de todos os itens e subitens por vez s := TreeView1.Items[i].Parent; // armazena o no pai para teste if s = nil then // se for o nó pai, mostra quais são os nós filhos begin for x := 0 to TreeView1.Items.Item[x].Count -1 do if TreeView1.Items[i].Text = item then showmessage(TreeView1.Items[i].Item[x].Text); end; x := 0; end; end; faça testes para entender a lógica abraço
  15. esse exemplo mostra quais são os subitens de um item da lista no proprio treeview... modifique para obter o nome do subitem procedure TForm1.Button1Click(Sender: TObject); var i : integer; begin for i:= 0 to TreeView1.Items.Count -1 do begin if TreeView1.Items[i].Text = 'AAA' then // nome de um item da lista TreeView1.Items[i].Item[0].Selected := True; end; end; abraço
  16. A ordenação fica errada quando os arquivos estão nomeados assim 1.txt 2.txt 10.txt 11.txt 12.txt 20.txt na ordenação ficaria 1.txt 10.txt 11.txt 12.txt 2.txt 20.txt A ordenação fica correta quando os arquivos estão nomeados assim 01.txt 10.txt 11.txt 12.txt 02.txt 20.txt na ordenação ficaria 01.txt 02.txt 10.txt 11.txt 12.txt 20.txt abraço
  17. Jhonas

    import table

    use o mysql-front http://www.superdownloads.com.br/download/100/mysql-front/ abraço
  18. tente LinhadeComando :='C:\Arquivos de programas\WinRAR\WINRAR.EXE a "'+Caminho+'" "C:\IzaCfc\IzaCfc.exe"'; abraço
  19. veja http://interformacao.wordpress.com/2007/10/01/algoritmo/ abraço
  20. veja pagina 31 http://www.ime.usp.br/~rt/mmfina/NotMat1a.pdf abraço
  21. É dificil alguém resolver isso para voce ... informações que podem te ajudar veja http://www.unidev.com.br/phpbb3/viewforum.php?f=28 abraço
  22. O algoritmo em si, representa a lógica que será usada .... o que pode ser melhorado é a representação do algoritmo em uma linguagem de programação abraço
  23. veja http://www.iceb.ufop.br/decom/prof/romildo.../algoritmos.pdf http://www.siumab.com/site/materias/mat/matrizes.pdf http://moraissilva.com/pdf%20curiosidades/...eterminante.pdf http://pt.wikipedia.org/wiki/Determinante#...triz_de_ordem_2 entre outros... abraço
  24. está correto .... veja tambem http://www.iceb.ufop.br/decom/prof/romildo.../algoritmos.pdf abraço
  25. veja http://tools.assembla.com/svn/gustavo/ed2/matrix/matrix.pdf abraço
×
×
  • Criar Novo...