Fórum Ajuda sobre login #354134

procedure TfrmLogin.btnOkClick(Sender: TObject);
var
s:string;
begin
    s:=IntToStr(StrToInt(edtSenha.Text));
    DM.cdsLogin.Open; // Abre A tabela Login
    if (DM.cdsLogin.Locate(´Usuario´,frmLogin.edtApelido.Text,[LopartialKey,LocaseInsensitive] and
    DM.cdsLogin.FieldByName(´Senha´).AsString = frmLogin.edtSenha.Text) then
    begin
        MessageDlg(´Nome ou senha do usuário inválidos.´+13+13
        + ´Se você esqueceu sua senha, consulte ´+ 13
        + ´o administrador do sistema´, mtError, [mbOK], 0);
        EdtSenha.Clear; // limpa o objeto EdtSenha
        EdtSenha.SetFocus; //Ajusta o foco para o objeto EdtSenha
    end
    else
    begin
        FrmLogin.Hide; //Esconde a tela
        FrmPrincipal.ShowModal; //chama a tela FrmMenuPrin no modo modal
        FrmLogin.Release; //Remove a tela da memória
        frmLogin.Close;
        FrmLogin := Nil; //Atribui conteúdo nulo para a variável de tela FrmLogin
    end;
end;

Function ValidaUsuario(wNome,wSenha:String;aCds:TClientDataSet):Boolean;
begin
Result := False;
with aCds do
 begin
  close;
  commandtext := ´select nome, senha from usuarios where upper(nome)=Upper(:nome) and upper(senha)=upper(:senha)´;
  Params[0].Value := wNome;
  Params[1].Value := wSenha;
  Open;
  if IsEmpty then
   ExibeMensagem(´I´,´Nome ou Senha Invalidos! Proceda a Correção.´)
  else Result := True;
 Close;
 end;
end;

if ValidaUsuario(EditNome.Text,EditSenha.Text,CdsLoginUsuarios) then
 begin
  //Instruções no caso de usuario encontrado
 end;

procedure TForm1.Button1Click(Sender:TObject);
begin 
with aCds do 
 begin 
  close; 
  commandtext := ´select nome, senha from usuarios where upper(nome)=Upper(:nome) and upper(senha)=upper(:senha)´; 
  Params[0].Value := EditNome.Text; 
  Params[1].Value := EditSenha.Text; 
  Open; 
  if IsEmpty then 
   ExibeMensagem(´I´,´Nome ou Senha Invalidos! Proceda a Correção.´) 
  Close; 
 end; 
end;