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
perceba que estou usando duas var ali em cima Login e senha, queria mudar para tabelas, podem me ajudar?
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;
Comment