Exemplo de login inicial simples.

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

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

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.

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...

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.