Ir para conteúdo

POWERED BY:

Eisenheim

Members
  • Total de itens

    543
  • Registro em

  • Última visita

  • Dias vencidos

    3

Eisenheim venceu o dia em Julho 22 2013

Teve o conteúdo mais curtido

Reputação

67 Bom

6 Seguidores

Sobre Eisenheim

  • Data de Nascimento 08/28/1986

Informações Pessoais

  • Sexo
    Masculino
  • Interesses
    Computação - Música e Matemática

Contato

  • Site Pessoal
    http://www.jrs.eti.br

Últimos Visitantes

O bloco dos últimos visitantes está desativado e não está sendo visualizado por outros usuários.

  1. Eisenheim

    Erro infinito !

    Olá! Quando você compila seu projeto, junto vai tudo que é componente de terceiros que você tenha utilizado. Como você disse que formatou seu computador, entendo que refez a instalação, entretanto pode ser que alguma "sujeira" tenha ficado vinculado a sua IDE. Precisaria analisar mais a fundo pra poder lhe ajudar, mas o que eu tentaria: 1) Verificar dentre os componentes que utilizo, como estão as definições da minha librarypath. 2) Fazer uma instalação de cada um novamente.
  2. Eisenheim

    Problemas para gravar data no sql server

    Olá! Altere o tipo da coluna para datetime e faça um teste.
  3. Eisenheim

    Query em tempo de execução

    Olá! Refatorando seu código: procedure Tfrm_login.SpeedButton1Click(Sender: TObject); var Qry : TZQuery; begin try Qry := TZQuery.Create(nil); Qry.Connection := dm_dados.ZConnection1; //componente de conexão Qry.Close; Qry.SQL.Clear; Qry.Params.Clear; Qry.SQL.Add('select codigo, nome, acessar, user, pass from clientes where Lower( user ) = :user'); Qry.Params[0].AsString := LowerCase( Edit1.Text ) Qry.Open; // if Qry.RecordCount > 0 then begin ShowMessage('usuário cadastrado'); end else begin ShowMessage('usuário inexistente'); Edit1.SetFocus; end; finally FreeAndNil(Qry); end; end; O método locate não seria o mais recomendado para essa finalidade.
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.