Avaliação do Usuário

Estrela ativaEstrela ativaEstrela ativaEstrela ativaEstrela inativa
 


{ads1} 

CRIANDO A SENHA PADRÃO PARA O USUÁRIO

Contudo, ainda resta centralizarmos a configuração da senha padrão. Para isto crie uma constante privada chamada SENHA_PADRAO e uma função Get para a mesma, também no módulo ControleAcesso, para armazenar e recuperar este valor inicial de senha, conforme o código abaixo:

Private Const SENHA_PADRAO = "123456"

Function getSenhaPadrao() As String
  getSenhaPadrao = SENHA_PADRAO
End Function

Concluída a tarefa de alteração de senha, podemos codificar o botão:

Private Sub btnSenhaPadrao_Click()

  If Not IsNull(txtLogin) Then
  
    If MsgBox("Deseja atribuir a senha padrão para o usuário " & txtLogin & "?", _
                vbQuestion + vbYesNo, "Senha Padrão") = vbYes Then
    
      alterarSenha txtLogin, getSenhaPadrao
      MsgBox "A senha foi alterada com sucesso.", vbInformation, "Senha Padrão"
      
    End If
    
  End If

End Sub

Como você pode observar este procedimento verifica se há um usuário a ser gerenciado, questiona a redefinição de senha ao administrador que comandou a ação, obtem a senha padrão através da função getSenhaPadrao() e executa a chamada ao procedimento de atualização da senha. Ao final, exibe uma mensagem informando o sucesso da operação.

A tarefa de excluir um usuário ficará sob a responsabilidade do botão btnExcluir, através do código incluído no seu evento Ao Clicar:

Private Sub btnExcluir_Click()

  If MsgBox("Deseja excluir o usuário " & txtLogin & "?", _
              vbQuestion + vbYesNo, "Excluir Usuário") = vbYes Then
    DoCmd.RunCommand acCmdSelectRecord
    DoCmd.RunCommand acCmdDeleteRecord
  End If
  
End Sub

Para fecharmos esta etapa com chave de ouro, ficou faltando apenas definirmos a senha padrão para todos os novos usuários. Você havia percebido a falta deste procedimento? Caso tenha notado, meus parabéns.

O local mais indicado para executarmos este passo é no evento Após Inserir do formulário, já que este é um evento que é executado apenas após a inserção de um novo registro. Isto é exatamente o que queremos.

Vejamos o código:

Private Sub Form_AfterInsert()
  alterarSenha txtLogin, getSenhaPadrao
  MsgBox "O usuário " & txtLogin & " foi incluído com sucesso.", _
            vbInformation, "Novo Usuário"
End Sub

Além de incluir a senha padrão para o usuário exibiremos, ainda, uma mensagem informando o sucesso da operação.

Percebeu como foi produtivo separarmos as tarefas por responsabilidade? Reutilizamos o código de alteração de senha sem nenhum esforço extra. Esta é a vantagem de escrevermos as funções específicas em seu local apropriado.

Com isto nosso formuário de gerenciamento já possui todas as tarefas principais implementadas. O administrador tem agora o controle total sobre os usuários.

Mas temos então a seguinte situação: como o usuário irá alterar sua senha, caso deseje?

Naturalmente temos que implementar a tela de alteração de senha, a fim de oferecer esta opção.

No próximo artigo este será o assunto tratado. Nos encontramos na parte 4 da série Login e Senha.

 

Seja social. Compartilhe!