Ir para conteúdo
Fórum Script Brasil

Jhonas

Monitores
  • Total de itens

    9.657
  • Registro em

Tudo que Jhonas postou

  1. Veja se este post ajuda http://www.babooforum.com.br/forum/index.p...t&p=2008479 abraço
  2. Voce tem que desinstalar o ACCESS 2000, limpar os registros do windows ( procure na net um programa para limpeza de registros ) para depois instalar o ACCESS 2007, para evitar esses problemas. abraço
  3. Voce não tem que criar uma tabela para cada letra do alfabeto, basta criar somente uma tabela que conterá todas as letras do alfabeto. Dessa maneira, para se fazer uma pesquisa que se refere a data de vencimento será muito mais fácil e tambem com a possibilidade de se ordenar alfabeticamente o resultado da pesquisa. OBS: quando voce pesquisar por uma letra ( por exemplo : todos os nomes que começem com a letra B ) a pesquisa mostrará apenas esses nomes. abraço
  4. Jhonas

    [Ajuda]Dll

    Veja este post http://scriptbrasil.com.br/forum/index.php...ost&p=82538 Caso não ache fácil o que procura veja estes http://www.guiadodelphi.com.br/ler.php?codigo=456 http://www.devmedia.com.br/articles/viewcomp.asp?comp=7902 http://www.webcheats.com.br/forum/delphi-v...cao-de-dll.html abraço
  5. Jhonas

    ajuda com (Socket)

    Pelo que eu entendi voce está querendo algo parecido com um ICQ se for veja nestes endereços http://www.programadoresdejogos.com/forum/...opic.php?t=9555 http://inf.unisul.br/~ines/workcomp/cd/pdfs/2396.pdf Sistema de trocas de mensagens estilo icq http://www.planetadelphi.com.br/delphi/exe...os/00001118.zip abraço
  6. Está meio certo...rs procedure TForm1.Button1Click(Sender: TObject); var ano : integer; begin ano := strtoint(edit1.text); if (ano mod 4 = 0) and (ano mod 100 = 0) and (ano mod 400 = 0) then showmessage('O ano '+ edit1.text + ' é Bissexto') else showmessage('O ano '+ edit1.text + ' não é Bissexto'); end; abraço
  7. Neste caso pode ser um bug de componente .... experimente deletar este componente e colocá-lo novamente no form abraço
  8. Poste o seu código de substituição das tags para poder entender o que voce está fazendo abraço
  9. SQL.Add('SELECT * FROM ESTACAI.dbf'); SQL.Add('WHERE CAIDAT BETWEEN :DataIni AND :DataFin'); Erro 'QueryRelCaixa: Campo 'CAIDAT' não encontrado' Este erro indica que o campo CAIDAT não faz parte da tabela ESTACAI.DBF ... veja se este campo não esta com outro nome abraço
  10. Jhonas

    ajuda com (Socket)

    De um exemplo melhor ... isso tá muito confuso abraço
  11. Veja nestes endereços http://www.programadoresdejogos.com/forum/...opic.php?t=9555 http://inf.unisul.br/~ines/workcomp/cd/pdfs/2396.pdf Sistema de trocas de mensagens estilo icq http://www.planetadelphi.com.br/delphi/exe...os/00001118.zip abraço
  12. Faça desta maneira procedure TForm1.Button1Click(Sender: TObject); var hora:TTime; begin // coverter hora decimal para hora hora:=(strtofloat(Edit1.Text) / 1440); // digite no edit 2,50 ShowMessage(TimeToStr(hora)); end; procedure TForm1.Button2Click(Sender: TObject); var hora:TTime; hh : real; begin // coverter hora para hora decimal hora:=((strtotime(Edit1.Text) * 1440) / 60); // digite no edit 02:30:00 hh := hora; ShowMessage(format('%n',[hh])); end; abraço
  13. Como sistema de validação está no próprio site, pode ser sim ... <div id="menuPrincipal"> <ul> <li><a href="http://tiss.unimedbelem.com.br/">P&aacute;gina Inicial</a></li> <li><a href="/index.cgi/recido-entrega.html">Consultar Envio </a></li> <li><a href="/index.cgi/padrão.html">Padrão das Guias </a></li> <li><a href="/index.cgi/index.html">TISS - ANS </a></li> <li><a href="/index.cgi/padrão-tiss-tipotabela.html">Tipo de Tabela </a></li> <li><a href="/index.cgi/preenchimento-dos-campos.html">Preenchimento </a></li> <li><a href="/index.cgi/validador.html">Validador </a></li> <li><a href="/index.cgi/digito-verificador.html">Dígito Verificador </a></li> <li><a href="/index.cgi/tissnet-envio-de-producao.html">Envio da Produção </a></li> <li><a href="/index.cgi/download.html">Download </a></li> </ul> <br/>Padr&atilde;o TISS (XML): <br/>&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <b>2.02.01</b> <br/>Transmiss&atilde;o: <br/>&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <b>TissNet 5.0</b> </div> <div id="banner"> <p><a href="http://www.unimedbelem.com.br/vivabem/"><img alt="Projeto VivaBem Unimed Belém" src="http://www.unimedbelem.com.br/imagesnova/logo_vivabem.gif" width="130" height="74" border="0"/></a></p> <p><a href="http://www.unimedbelem.com.br/social/"><img alt="Selo de Responsabilidade Social" src="http://www.unimedbelem.com.br/imagesnova/logo_respsocial1.gif" width="130" height="112" border="0"/></a></p> <p><img alt="Selo da ABRINQ" src="http://www.unimedbelem.com.br/imagesnova/logo_abrinq_branco.gif" width="130" height="97"/></p> <p><a href="http://www.ans.gov.br" target="_blank"><img alt="Logo ANS" src="http://www.unimedbelem.com.br/imagesnova/logo_ans_vert.gif" width="100" height="93" border="0"/></a></p> <!-- p><a href="http://evandro.net/" title="Google PageRank"><img border="0" alt="pagerank" src="http://evandro.net/pagerank/pagerank.gif"/></a></p --> </div> </body> </html> abraço
  14. http://www.baixaki.com.br/download/smtp-po...-for-delphi.htm OBS: O proprio delphi tem exemplo destes componentes abraço
  15. Veja este tópico http://scriptbrasil.com.br/forum/index.php...ivo+de+recursos abraço
  16. Veja este post http://scriptbrasil.com.br/forum/index.php...st&p=542019 abraço
  17. Tente desta maneira, além de mandar o foco para o radiogroup, voce diz para qual item vai e deixa ele selecionado procedure TForm1.MaskEdit1Exit(Sender: TObject); begin RadioGroup1.SetFocus; // madar o foco para o RadioGroup1 RadioGroup1.ItemIndex := 0; // primeiro item do RadioGroup1 keybd_event(VK_TAB, 0, 0, 0); // marcar o item selecionado end; abraço
  18. erro "Field requery" => erro Campo requerido agora da a mensagem que o dataset não esta no modo de inserção. Verifique se voce abriu o dataset ( DM.Q_Funcionario.Open ) e o deixou em modo de edição ( DM.Q_Funcionario.Edit ) abraço
  19. Sem saber como está o seu código fica dificil responder, mas procure no seu código onde voce manda fazer a validação e descobrirá que suas variaveis não estão sendo zeradas. abraço
  20. Conta de usuário excedeu o máximo contacte o seu administrador de banco de dados sei que e porque estou abrindo muitas tabelas num mesmo aplicativo quantas tabelas possui o seu programa ? abraço
  21. insufficient expense in hardware significa que voce está tentanto instalar o windows vista em uma máquina ( Hardware ) que não tem os requisitos minimos para suportar este sistema operacional abraço
  22. Veja neste endereço http://superdownloads.uol.com.br/download/...ree-key-logger/ abraço
  23. Veja se o controlador RAID está instalado, caso contrário voce não consegue Desabilite o firewall que a internet volta a funcionar, ou execute o reparo da conexão pelo windows abraço
  24. Jhonas

    Duvida UPX

    UPX é um compressor de executáveis, OCXs, SCRs (Screen Savers) e DLLs que consegue fazer o seu programa para plataformas Win32 ficar até 70% menor, diminuindo assim o tamanho da sua instalação. Este primeiro roda em DOS http://upx.sourceforge.net/download/upx303d.zip Este outro roda no Windows 95, Windows 98, Windows ME, Windows 2000, Windows NT, Windows XP http://ultradownloads.com.br/download/UPX-Front-End-Simples/ Os comandos estão no Help abraço
  25. pode ser duas coisas: 1 - o conector do desktop está com os terminais afundados ou quebrados 2 - ou em uma hipótese mais remota mas não improvável, os contatos do desktop estão invertidos abraço
×
×
  • Criar Novo...