MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    Exemplo de login inicial simples.

    leoni_dias
    leoni_dias
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 180
    Registrado : 14/08/2011

    Exemplo de login inicial  simples. Empty Exemplo de login inicial simples.

    Mensagem  leoni_dias em 24/11/2012, 14:20

    Bom dia, amigos.

    Não sei se vale a pena colocar esse meu modo de fazer login, até porque eu estou no meio de mestres no assunto, mas resolvi colocar pra servir de mais um modo de fazer, ajudar pessoas com o meu pouco conhecimento.
    Lembrando que o meu programa são partes modificadas ao meu gosto (Frankenstein), mas quase todas inspiradas em idéias dos grandes mestres daqui e de outros sites.

    ------------------------------------------------------------------------------

    If IsNull([KEY]) = True Or IsEmpty([KEY]) = True Then
    MsgBox "Não houve entrada na caixa de Ativação por Usuário. Entre com a ativação ou cancele.", vbInformation, "Projeto Teen's"
    [KEY].SetFocus
    Else
    Dim sTemp As String
    Dim sTemp2 As String
    'Abre caixa para a colocação da senha
    'Abre na memoria o arquivo DLL ' Resolvi criar um arquivo de texto com extensão DLL e colocar em uma pasta a parte do projeto, questão de segurança.

    Open "c:\winttl\Keys.dll" For Input As #1

    Do While Not EOF(1)
    Line Input #1, sTemp$ 'verifica a senha
    'percorre as linhas do arquivo de texto
    If Left$(sTemp$, Len(KEY)) = KEY Then
    Line Input #1, sTemp2$ 'Se a senha existe, recebe o nome do usuário
    Exit Do
    End If
    Loop

    Close #1
    If sTemp$ = KEY Then
    ' Habilitando o arquivo de dados para uso
    Habilitado (CurrentProject.PATH & "\DADOS - PRINCIPAL.mdb")
    ' Fim da habilitação
    Usuario = sTemp2$
    Forms![PRINCIPAL]!Rótulo200.Caption = "Seção ativada por:"
    Forms![PRINCIPAL]!Rótulo202.Caption = Usuario
    Forms![PRINCIPAL]!Rótulo202.Visible = True
    Forms![PRINCIPAL].TimerInterval = 10
    DoCmd.Close acForm, "KEY PROCEDURE INICIAL", acSaveYes
    Else
    DoCmd.Close acForm, "KEY PROCEDURE INICIAL", acSaveYes
    DoCmd.Quit
    End If
    End If

    ----------------------------------------------------

    O arquivo de texto (extensão DLL) é digitado assim: Ex:

    123456----------------------- A senha digitada é verificada nessa primeira linha
    Antonio Lins----------------- Se a senha existe, pega esse nome de usuário e joga no programa
    980 234
    Maria Rita
    34343434
    José Dias
    ----------------------------------------------------

    Esqueci de falar sobre a função Habilitado ou Naohabilitado.
    Foram idéias verificadas na Web del Buho para dar mais segurança ao BE

    ----------

    'Funciones e idea del Buho
    'Preserva los créditos, citando al autor
    'Manipula este ejemplo con precaucion, ya que escribo y leo a bajo nivel
    'ficheros MDB. Hazlo bajo tu propia responsabilidad


    'Ao aceitar a senha habilita o BE

    Function Habilitado(StrRutaCompleta As String)
    Dim F As Integer, CadenaVieja As String, CadenaNueva As String
    F = FreeFile
    Open StrRutaCompleta For Binary Access Read Write As #F
    Put #F, 6, "t"

    Close #F

    End Function

    'Ao sair do programa desabilita o BE

    Function NaoHabilitado(StrRutaCompleta As String)
    Dim F As Integer, CadenaVieja As String, CadenaNueva As String
    F = FreeFile
    Open StrRutaCompleta For Binary Access Read Write As #F
    Put #F, 6, "1"

    Close #F

    End Function

    APJesus
    APJesus
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 359
    Registrado : 21/09/2010

    Exemplo de login inicial  simples. Empty Re: Exemplo de login inicial simples.

    Mensagem  APJesus em 28/11/2012, 18:36

    E se tiver 2 usuários com a mesma definição na senha:
    Ex: 12345 User: Maria
    Ex: 12345 User: João

    Pelo que entendi digitamos a senha e puxa o usuário? é isto?...

    Valeu
    leoni_dias
    leoni_dias
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 180
    Registrado : 14/08/2011

    Exemplo de login inicial  simples. Empty Re: Exemplo de login inicial simples.

    Mensagem  leoni_dias em 29/11/2012, 09:02

    Bom dia. AP Jesus,

    Justamente. Digitada a senha, puxa o primeiro usuário.

    Bem, eu acredito que em nenhum sistema uma pessoa digita a mesma senha de outra pessoa, o programa não deixa, e se isso acontecer, um usuário será anulado.

    APJesus
    APJesus
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 359
    Registrado : 21/09/2010

    Exemplo de login inicial  simples. Empty Re: Exemplo de login inicial simples.

    Mensagem  APJesus em 29/11/2012, 10:23

    OK, então!
    Mas existe a possibilidade de ter duas senhas coincidente iguais caso seja criada pelo usuário a não ser que esta senha seja criada pelo sistema ou pelo administrador.
    Mas,
    Parabéns pelo código...
    copiado...
    leoni_dias
    leoni_dias
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 180
    Registrado : 14/08/2011

    Exemplo de login inicial  simples. Empty Re: Exemplo de login inicial simples.

    Mensagem  leoni_dias em 29/11/2012, 13:00

    Bom dia, AP Jesus.

    No caso de meu programa, as senhas são incluídas por mim. Recebo o arquivo via net enviado pelo dropbox e retorno pelo mesmo dropbox.

    Quando o programa é aberto onde está instalado, ele verifica se existe o arquivo no dropbox e copia para a pasta padrão já com as novas senhas e usuárioos.


      Data/hora atual: 3/12/2020, 19:19