Ir para conteúdo
Fórum Script Brasil
  • 0

Form De Login


fraudinha

Pergunta

Estou fazendo um form de login e no click do botão OK tem seguinte código:

DataModule3.SDSLOGIN.Close;

DataModule3.SDSLOGIN.CommandText:='SELECT * FROM LOGIN WHERE USUARIO=:USUARIO AND SENHA=:SENHA';

DataModule3.SDSLOGIN.Params[0].Value:=edit1.Text;

DataModule3.SDSLOGIN.Params[1].Value:=edit2.Text;

IF not DataModule3.SdsLogin.Eof then

begin

ShowMessage('usuario encontrado');

end

else

begin

ShowMessage('Usuário e/ou senha invalidos!!');

end;

end;

mas só q ele não esta lendo os dados do bd pois sempre da usuario invalido meu bd é firebird 1.5 conecção via dbExpress podem me ajudar???

Link para o comentário
Compartilhar em outros sites

3 respostass a esta questão

Posts Recomendados

  • 0

Olá amigão...

Eu faço da seguinte forma, mas uso o banco Access e conexão ADO, mas tenta ai:

    If not DmDados.Senhas.Locate('Usuario',EdtUsuario.Text,[LoCaseInsensitive])Then
    begin
       MessageBox (handle,'Usuário incorreto. Por favor tente novamente ou clique em Cancelar!','Atenção',mb_IconInformation +mb_ok);
       EdtUsuario.Text := '';
       EdtUsuario.SetFocus;
    end
    else
      If not DmDados.Senhas.Locate('Senha',EdtSenha.Text,[LoCaseInsensitive])Then
      begin
          MessageBox (handle,'Senha incorreta. Por favor tente novamente ou clique em Cancelar!','Atenção',mb_IconInformation +mb_ok);
          EdtSenha.Text := '';
          EdtSenha.SetFocus;
      end
      else
      begin
        FrmPrincipal.Show;
      end;

falou

qualquer coisa posta ai

V&A

Link para o comentário
Compartilhar em outros sites

  • 0

Tente isso:

DataModule3.SDSLOGIN.Close;
DataModule3.SDSLOGIN.CommandText:='SELECT * FROM LOGIN WHERE USUARIO=:USUARIO AND SENHA=:SENHA';
DataModule3.SDSLOGIN.Params[0].Value:=edit1.Text;
DataModule3.SDSLOGIN.Params[1].Value:=edit2.Text;
DataModule3.SDSLOGIN.Open;

if not DataModule3.SdsLogin.Eof then
   ShowMessage('usuario encontrado')
else
   ShowMessage('Usuário e/ou senha invalidos!!');
end;

Não testei, mas deve funcionar.

Agora algumas dicas/considerações:

1) Os nomes dos componentes dificultam o entendimento do código, logo, use nomes + explicativos. Por ex:

DataModule3 = dmQuerysLogin

2) Eu costumo incluir as querys que preciso direto no form em uso e não no data module. Normalmente crio elas dinamicamente e finalizo após o uso.

3) O uso de params[indice], nesse caso, não vale a pena. São poucos os parâmetros, e isso também prejudica no entendimento do código.

Isso ae..

[]'s

Link para o comentário
Compartilhar em outros sites

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152k
    • Posts
      651,8k
×
×
  • Criar Novo...