Ir para conteúdo
Fórum Script Brasil

Kikonanet

Veteranos
  • Total de itens

    472
  • Registro em

  • Última visita

Tudo que Kikonanet postou

  1. Olá, Se você estiver usando SQL, pode usar ORDER BY campo. Ex. SELECT * FROM Tabela ORDER BY Nome; Abs. Kiko
  2. Kikonanet

    Editar Tabela

    Olá, Se você estiver usando uma Query. with Query do begin Close; Sql.Clear; Sql.Add('UPDATE Tabela SET Campo1 ="'+Edit1.Text+'", Campo2 ="'+Edit2.Text+'" '); Sql.Add('WHERE Id = '+EditId.text+''); ExecSql; end; Abs. Kiko
  3. Olá, Dê uma olhada neste link.... Acho q ele te ajudará bastante. http://www.forumweb.com.br/foruns/index.ph...&st=entry7721 Abs. Kiko
  4. Kikonanet

    Serversocket

    Olá Felipe, Essa função vai retornar um valor (ex. 10), que seria os usuários conectados! Se você fizer um For de 0 até n (10 no exemplo) você estará contando 11 vezes. Então você terá que contar de 1 até 10. For i:=1 to n .... qualquer coisa posta ae. Abs. Kiko
  5. Kikonanet

    Form De Login?

    Ok. Tópico Fechado Abs. Kiko
  6. Kikonanet

    Form De Login?

    Olá Éder, Tenta usar só Show; Abs. Kiko
  7. Kikonanet

    Form De Login?

    Tente isso: procedure TForm1.FormCreate(Sender: TObject); begin RegisterHotKey(Handle, 1, MOD_ALT, VK_F4); end; procedure TForm1.FormDestroy(Sender: TObject); begin UnregisterHotKey(Handle, 1); end; Abs. Kiko
  8. Kikonanet

    Form De Login?

    Tá dizendo q são incompativeis. O q é o TForm22?? É uma classe sua? Abs. Kiko
  9. Kikonanet

    Form De Login?

    Olá, Tenta assim: Formlogin:= TForm.Create(self); Formlogin.ShowModal; Formlogin.Release; Abs. Kiko
  10. Olá, Tem essa variável Global... Tente colocar no OnCreate do Form Principal shortdateformat := 'dd/mm/yyyy'; Abs. Kiko
  11. Olá, Tenta usa FormatDateTime. FormatDateTime('dd/mm/yyyy',now); Usei now para pegar a data atual. Abs. Kiko
  12. Kikonanet

    Serversocket

    Olá Felipe, Use essa função para pegar o nº de conexões ativas. Tenta isso: var n:integer; begin n:=ServerSocket1.Socket.ActiveConnections; For i:=0 to n do ServerSocket1.Socket.Connections[i].SendText( texto a ser enviado ); end; qualquer coisa posta ae. Abs. Kiko
  13. Kikonanet

    Serversocket

    Olá Felipe, Tenta usar um For.... Ex: For i:=0 to (n-1) do ServerSocket1.Socket.Connections[i].SendText( texto a ser enviado ); onde n, é o nº de Clientes conectados! Abs. Kiko
  14. Olá, Tenta colocar Ip estático e ve se funciona... Pode ser q ele não esteja pegando o endereco do Gateway. Vai no prompt de comando e digita ipconfig, e veja o ip q ele pegou! qualquer coisa posta ae. Abs. Kiko
  15. Ae, Agora pra todo o Office acontece isso...... Quando tento abrir um arquivo no Word, ele trava na tela de procurar arquivo! Alguém sabe o q pode ser? Abs. Kiko
  16. Kikonanet

    Texto Com Cores

    Olá McBlade, Usa a propriedade SelAttributes.Color do RichEdit Ex: RichEdit1.SelAttributes.Color:=clRed; RichEdit1.Lines.Add('Erro'); RichEdit1.SelAttributes.Color:=clBlue; RichEdit1.Lines.Add('Acerto'); qualquer coisa posta ae. Abs. Kiko
  17. Kikonanet

    Envio De Email

    Olá Annelise, Não seja tão radical! Não é porque está havendo demora nas respostas é que o Fórum tá horroroso! Afinal, até agora muitos tem te ajudado no possível! Vamos ao problema agora! Eu testei o código aki e funcionou! Qual é a versão do seu Delphi e componente Indy? Tá configurado certo o IdSMTP, com Host, Tipo de Autenticação? Abs. Kiko
  18. Olá Eder, Tenta usar o método Locate que retorna uma variável boolean. if Table1PERMI.Locate('Campo','1',[LoCaseInsensitive]) then // acessa else // não acessa Abs. Kiko
  19. Olá, Acho q assim você consegue. SELECT TabelaAlunos.Nome, TabelaNotas.Notas FROM TabelaAlunos, TabelaNotas WHERE TabelaAlunos.ID=TabelaNotas.ID Onde TabelaNotas = A tabela com as Notas dos alunos e TabelaAlunos = Tabela com os nomes dos alunos. Na propriedade FieldName dos Columns você coloca TabelaAlunos.Nome, TabelaNotas.Notas... qualquer coisa posta ae. Abs. Kiko
  20. Olá Tiago, Dê uma procurada nos sites abaixo. http://www.activedelphi.com.br http://www.delphi.eti.br qualquer coisa posta ae. Abs. Kiko
  21. Kikonanet

    Form De Login

    if DataModule1.ADODataSet1.Eof then ShowMessage('Usuário ou senha invalidos') Cadê o comando de chamar o form Principal ou fechar o form Login? Abs. Kiko
  22. Kikonanet

    Enter

    Como assim criar um linha?? Explique melhor. Abs. Kiko
  23. Kikonanet

    Envio De Email

    Olá Annelise, Dê uma olhada neste link (Ensina envio de email usando os componentes Indy) http://www.imasters.com.br/artigo.php?cn=1...b6e812a01ca52d2 Obs: A dica do Graymalkin o PySendMail funciona muito bem. http://www.graymalkin.globalhosts.com.br/pysendmail.asp Abs. Kiko
  24. Olá, Dê uma olhada no site dos desenvolvedores dos componentes Indy. Tem alguns demos, inclusive de receber e-mails, usando IdPOP3. Acho q te ajudará bastante! http://www.indyproject.org/Sockets/Demos/index.iwp Abs. Kiko
  25. Kikonanet

    Form De Login

    Olá, Se o usuário não se logar você pode usar o seguinte comando para encerrar a aplicação. Application.Terminate; qualquer coisa posta ae. Abs. Kiko
×
×
  • Criar Novo...