Fazer login no sistema.

Question

Ola pessoal. Estou tentando a alguns dias fazer este c�digo funcionar, mas infelizmente ainda n�o tive nenhum progresso.[code:1:a167202eb6]procedure TFrmSenha.BtnLogarClick(Sender: TObject);begin  Wit...

Otto · Answer

a senha grava no banco � criptografada, ou � gravada normal mesmo??

vc pode usar um Locate:

  if not Zq1.Locate(�Login;Senha�,VarArrayOf([edLogin.Text, edSenha.Text]),
                                             [loCaseInsensitive]) Then
         begin
           MessageBox(0,�O Login e ou Senha n�o confere.� +13+
                        �Favor tente novamente.�,�VALIDA��O�, MB_OK+MB_ICONERROR);
           edLogin.Clear;
           edSenha.Clear;
           edLogin.SetFocus();
         end

Peninha · Answer

Amigo Otto.Por favor se vc poder ser mais especifico eu agradeceria muito.Infelizmente n�o consegui assimilar sua resposta.Obrigado....

Bruno Belchior · Answer

olha s�[code:1:d609bf5e1d]procedure TFrmSenha.BtnLogarClick(Sender: TObject); begin   With DmBasedados.IBQuery_Login do       Begin        Sql.Clear;        Sql.Add(�Select lOGIN, SENHA From TabCad_Usuario�);        SQL.add(�Where Login = :ParLogin and Senha = :ParSenha��);        SQL.ParamByName(�ParLogin�).Value := EdLogin.Text;       SQL.ParamByName(�ParSenha  := EdSenha.Text;       Open;     end;     If (Dmbasedados.IBQuery_Login.RecordCount=0) then        Begin          Application.MessageBox (�ACESSO NEGADO�,�DADOS INV�LIDOS�,mb_IconError + mb_OK);          EdtLogin.Text:=��;          EdtSenha.Text:=��;          EdtLogin.SetFocus;        END     else        begin          MessageDlg(�CONFIRMAMOS SUA SENHA!�, mtInformation, &#91;mbOK&93;,0);        end;       Application.CreateForm(TFrmPrincipal,FrmPrincipal);       FrmPrincipal.ShowModal;       FrmPrincipal.Release; end; [/code:1:d609bf5e1d]espero que ajude, a ideia � retornar pelo menos um registro onde a senha � igual o EdSenha.Text e o login � igual ao EdLogin.Text para que o login seja v�lido......

Otto · Answer

[quote:b6cac95be3=�peninha�]Amigo Otto.Por favor se vc poder ser mais especifico eu agradeceria muito.Infelizmente n�o consegui assimilar sua resposta.Obrigado.[/quote:b6cac95be3]assim, na tabela, vc tem o campo login e o campo senha..quando vc cadastra um novo usu�rio, vc criptografa a senha pra poder salvar no banco, ou salva normal, exemplo:[code:1:b6cac95be3]login: ottosenha: blablabla// modo normallogin: ottosenha: df87a890a07ds// modo criptografado[/code:1:b6cac95be3]na rotina que te mostrei, faz um locate onde o campo Login � igual ao valor que ta no edLogin e assim com a senha...seguinte:[code:1:b6cac95be3]if not Query.Locate(�LOGIN;SENHA�,VarArrayOf(&#91;editLogin.Text, editSenha.Text&93;),&91;loCaseInsensitive&93;) Then // n�o achou nada[/code:1:b6cac95be3]...

Peninha · Answer

Amigos, qualquer c�digo que ue possa usar, quando eu clicko no bot�o BtnLogar mesmo que os dados que inseridos nele estiverem errados me retornado uma mensagem que o campo Cod_Cliente da Tabela Cad_Usuario n�o foi encontrado.
Verifiquei todas as possibilidadesm mais isto n�o pode ser possivel, por que se ue for cadastrar um novo usuario ele � gravado.
O que pode estar acontecendo.

Ariovaldo · Answer

Peninha vamos ver se entendi para te ajudar

A Primeira coisa que � estranho � vc dar um Like no campo usuario e Senha na minha opni�o isso n�o deve existir pois o sistema pode validar coisa que n�o existe, mas faz o select desta forma:

procedure TFrmSenha.BtnLogarClick(Sender: TObject);
begin
With DmBasedados.IBQuery_Login do
Begin
Sql.Clear;
Sql.Add(�Select lOGIN, SENHA From TabCad_Usuario�);
SQL.add(�Where Login like :login�);
SQL.Add(�And Senha Like :Senha�);
Parambyname(�Login�).asstring := �� + edtLogin.Text + ��;
Parambyname(�Senha�).asstring := �� + edtsenha.Text + ��;
Open;
end;
If Dmbasedados.IBQuery_Login.IsEmpty then
Begin
Application.MessageBox (�ACESSO NEGADO�,�DADOS INV�LIDOS�,mb_IconError + mb_OK);
EdtLogin.Text:=��;
EdtSenha.Text:=��;
EdtLogin.SetFocus;
END
else
begin
MessageDlg(�CONFIRMAMOS SUA SENHA!�, mtInformation, [mbOK],0);
end;
Application.CreateForm(TFrmPrincipal,FrmPrincipal);
FrmPrincipal.ShowModal;
FrmPrincipal.Release;
end;

Espero ter ajudado

Peninha · Answer

� amigo infelizmente n�o adiantou.Vou tentando por aqui.Obrigado....

Beppe · Answer

N�o se usa like pra encontrar dados exatos, como � o caso. Assim basta ter um �nico usu�rio cadastrado para o proceimento suceder. Al�m disso o ap�strofo(#39) era desnecess�rio.

with DmBasedados.IBQuery_Login do
begin
  Sql.Clear;
  Sql.Add(�select LOGIN, SENHA from TabCad_Usuario�);
  Sql.Add(�where LOGIN = � + edtLogin.Text + � and SENHA = � + edtSenha.Text);
  Open;
  try
    if IsEmpty then
    begin
      Application.MessageBox(�ACESSO NEGADO�, �DADOS INV�LIDOS�, mb_IconError + mb_OK); 
      edtLogin.Text := ��; 
      edtSenha.Text := ��; 
      edtLogin.SetFocus; 
    end
    else
    begin
      MessageDlg(�CONFIRMAMOS SUA SENHA!�, mtInformation, [mbOK], 0);
      Application.CreateForm(TFrmPrincipal, frmPrincipal); 
      try
        frmPrincipal.ShowModal;
      finally
        frmPrincipal.Release;
      end;
    end;
  finally
    Close;
  end;
end;

Eu particularmente prefiro abrir uma janela de login dentro do form principal, e n�o o contr�rio.

Peninha · Answer

Bom pessoal muito obrigado por terem me ajudado em mais um problema, pois juntando informa��es de v�rias perguntas consegui finalmente.
Agrade�o a todos aqueles que me ajudaram e at� a pr�xima.
Peninha.

Ariovaldo · Answer

Peninha qual o erro que esta dando este c�digo??...