[Resolvido]Sistema de Login em rede de Dominio

Ola

Antes de mais feliz 2016 para todos

A minha duvida 'e a seguinte, possuo um base de dados devidida em fronte end e back end e esta a funcionar na perfeicao. O problema 'e que agora existe necessidade de implementar um sistema de login para accesso para a base de dados. O sistema actual encontra-se numa rede de dominio e seria bastante util se fosse possivel logar automaticamente os ultilizadores na base de dados atraves do dominio para isso os dados de cada utilizadores seriam importados do Dominio para uma tabela dentro da base de dados.

Estou um pouco aflito porque nao percebo de programacao e nunca trabalhei com sistema de login numa base de dados.
Se alguem me poder dizer algum exemplo que eu possa usar para incopar na minha base de dados seira excelente.

Caso eu nao tenha sido claro pf digam-me.

Abraco

Olá Brito,
É uma boa questão, mas o ideal era ir verificar diretamente ao DomainControl
Em tempos efectuei uma pesquisa e nada e do pouco que encontrei comprometia a segurança da rede.

Se tem um rede em dominio com gestão de permissões, então quando é iniciado o seu projecto, já sabemos qual é o utilizador, não será necessário pedir novamente nome nem palavra-passe.

No seu projecto para identificar o utilizador que está ligado, pode usar a função abaixo:

Código:

Function fncUserNameLogin()
    'ahteixeira 2016 - para MaximoAccess
    fncUserNameLogin = Environ("UserName")
End Function


Abraço

Olá de novo,
Lembrei-me que também pode ser útil identificar o Posto/estação de Trabalho, para isso:

Código:

Function fncPostoLogin()
    'ahteixeira 2016 - para MaximoAccess
    fncPostoLogin = Environ("computername")
End Function

Abraço

Ola,

Obrigado pela ajuda, mas se nao se importar um pequeno esclarecimento. Como 'e que posso aplicar na minha base de dados o que describe abaixo e tambem se alem do nome do utilisador e nome do computador 'e possivel tambem importar/visualizar o codigo identioficativo do funcionario neste caso 'e o campo "Alias" disponivel no Microsoft outlook?

desde ja muito obrigado

abraco

Olá Brito,

Para usar na sua base de dados, pode colocar por exemplo diretamente na tabela, no respectivo campo em valor predefinido =fncUserNameLogin()
Ao adicionar um novo registo, vai colocar o nome de utilizador.
Caso não pretenda desta forma, pode colocar no campo dos formularios, será o mesmo:
=fncUserNameLogin()

Quanto à questão do "Alias" desconheço, repare que as informações que apresenta do exemplo, são adquiridas através das variáveis de ambiente do sistema operativo.
Abraço

Olá Brito, como ficou a situação?
Os utilizadores do fórum merecem e agradecem o retorno.
Abraço

Ola Teixeiara,

Penso desculpa pela demora na minha resposta. Para ser sincere ainda nao resolvi da maneira que pretend. Entretanto apliquei uma solucao temporaria aqui do forum .

Uma vez mais obrigado

Olá Brito,
Poderia partilhar a solução adotada "temporariamente"?
Abraço

Estou a tentar usar esse sistema, contudo precisava de uma sugestão.

Na minha base de dados tenho o seguinte código que captura o user que está logado na rede.

Código:

Public Function getUserRede()
Dim WS As Object
Set WS = CreateObject("WScript.network")
getUserRede = WS.UserName
Set WS = Nothing
End Function


Contudo, esse user é próprio do empresa onde trabalho.

Na tblUsers tenho os nome dos utilizadores com o User da rede.
Por exemplo: o UserRede: 1234, UserShort: Manuel António

Queria criar uma função getUserAtual() que procurasse o User de Rede na tblUsers e devolvesse o valor do campo UserShort

Código:

Function getUserAtual() As String
 
  getUserAtual = Nz(DLookup("UserShort", "tblUsers", _
                    "UserRede='" & getUserRede & "'"), "")
   
End Function

Olá, obrigado pelo retorno.
Parece que você já tem a função.
No entanto vai ter que carregar sempre na sua tblUsers manualmente igual aos utilizadores do dominio.
Podemos dizer que você tem no seu projecto uma tabela replicada dos utilizadores da rede, usando o user logado como chave primária de relacionamento.
Abraço

O que é que acha?
O problema é que eu quer que nos formulários apareça o nome do utilizador e não o código, por isso é que usei duas funções.
Acha que poderia fazer de outra forma?

Olá, está correcto para o que pretende.
1º verifica qual o UserName do sistema.
2º vai consultar à sua tabela o Nome que corresponde aquele UserName.
Abraço