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

Tela De Login


fraudinha

Pergunta

1 resposta a esta questão

Posts Recomendados

  • 0

Amigo eu uso da seguinte forma e funciona corretamente, mas uso banco em access e conexão ADO.

No OnClick do botão entrar:

    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
        FrmPrincipal.Show;

falou espero ter ajudado... qualquer duvida posta ai

V&A

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
      152,1k
    • Posts
      651,8k
×
×
  • Criar Novo...