Unconfigured Ad Widget

Collapse

Anúncio

Collapse
No announcement yet.

Como pegar um certo campo dentro de uma tabela.

Collapse
X
 
  • Filter
  • Tempo
  • Show
Clear All
new posts

  • Font Size
    #1

    Duvida Como pegar um certo campo dentro de uma tabela.

    Boa noite companheiros, estou com uma dúvida provavelmente básica sobre pascal...

    Estou criando um sistema de login e senha, estou usando tabelas criada pelo database desktop, e queria fazer com que o sistema procurasse o usuário dentro da tabela, pois vou colocar mais usuários nela, a seguir o código que estou usando

    Código:
    var
       login, senha: string;
    begin
            if((eUsuario.text = '') and (eSenha.Text = '')) then
            ShowMessage('Informe Login e Senha');
    
    begin
            //começa a verificação da senha.
            Login:= 'Marcio';
            Senha:= 'delphi';
    
         begin
            //N tentativas para acessar o Menu Principal.
            if(ContaErro>0) then
            begin
              if((eUsuario.text = login) and (eSenha.Text = senha)) then
                begin
                 frmPrincipal.hide;
                 frmMenuPrincipal.ShowModal;
                 end
                       else begin
          dec(contaErro);
          ShowMessage('Senha ou login invalidos');
    
    //Aqui você atribui a mensagem ao objeto label
    label3.caption:='Você tem ' +IntToStr(ContaErro)+' tentativas';
    
    
        end;
      end
      else
      begin
    
        ShowMessage('Você atingiu o limite de tentativas');
        close;
      end;
    end; 
    end;
    
    procedure TfrmPrincipal.Button2Click(Sender: TObject);
    begin
            close;
    end;
    perceba que estou usando duas var ali em cima Login e senha, queria mudar para tabelas, podem me ajudar?

  • Font Size
    #2
    Consegui sozinho, obrigado.

    Comment

    X
    Working...
    X