Fórum GUARDANDO QUAL USUÁRIO FEZ O LOGIN #531647

Boa tarde


bem, eu preciso guardar os usuários que fizeram o login (isso já acontece sem problema) na tabela USER_LOGADO (NUM_REGISTRO, COD_USUARIO, DATA_LOGIN E SUCESSO)

o detalhe está nesse campo SUCESSO da tabela USER_LOGADO, eu preciso mostrar SIM ou NÃO (SIM para um login com sucesso e NÃO quando o usuário errar a senha por exemplo)

isso tudo eu venho implementando dentro do onclick do botão

procedure TFrmLogin.BtnEntrarClick(Sender: TObject);

begin // se a senha for válida ele guarda o conteudo do edit usuário para exibir no status bar do form principal

if EdtSenha.Text = FBQuery_LoginSENHA.Value then
begin
GuardaLogin:= EdtUsuario.Text;
FDQuery_Logado.Insert; // abro o dataset em mode de inserção
FDQuery_LogadoCOD_USUARIO.Value:= FBQuery_LoginCODIGO.Value; // capturo o código do usuário vindo da tabela USUARIOS


if (MINHA DUVIDA ESTÁ AQUI, O PRIMEIRO IF DESSE BLOCO TESTA A SENHA COMPARANDO COM A SENHA JÁ CADASTRADA NA TABELA USUARIOS, SENDO VENDADE O FORM PRINCIPAL É CHAMADO E A PALAVRA 'SIM' DEVE SER ARMAZENADA NO CAMPO SUCESSO DA TABELA USER_LOGADO, CASA NÃO SEJA VERDADE A PALAVRA 'NÃO' SERÁ GRAVADA NO CAMPO SUCESSO DA MESMA TABELA, ASSIM POSSO VER QUEM LOGOU COM SUCESSO E QUEM TENTOU LOGAR E NÃO CONSEGUIU) then

FDQuery_LogadoSUCESSO.Value:= 'SIM'
ELSE
FDQuery_LogadoSUCESSO.Value:= 'NÃO';



FDQuery_Logado.Post; // grava na tebela USER_LOGADO
end

else // faz a contagem de vezes que a senha foi digitada errada
begin
inc (tentativasSenha);
if tentativasSenha = 1 then
ShowMessage('Senha invalida, você tem mais uma tentativa!')

else
begin// encerra o programa
ShowMessage('Você não tem permissão, essa instância será finalizada!');
Application.Terminate;
end;
modalresult:=mrnone;
end;

end;