Registro de Acesso

[Raphael Souza]

Olá

Gostaria de saber como posso fazer o seguinte...

Tenho um sistema, e ele tem uma tela de logiin, e uma tabela com usuáriuos e senha.

O que eu gostaria era que toa vez que algum usuário logasse no sistema a data e a hora ficasse registrada em uma tabela, e ao clicar no botão de logoff a data e horário de saída também ficasse registrado nessa tabela....

Obs....gostaria de usar uma tabela p/ ca da usuário nessa empreitada...

Desde já agradeço a ajuda, conselhos e exemplos aqui prestados.

[cleverson_manaus]

você pode optar por registrar, se estiver em rede, o userlogin e namemachine .

crie um módulo para cada função:

'01 - Mostra o usuário logado na máquina

Private Declare Function apiGetUserName Lib "advapi32.dll" Alias _

"GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long

Function fOSUserName() As String

' Returns the network login name

Dim lngLen As Long, lngX As Long

Dim strUserName As String

strUserName = String$(254, 0)

lngLen = 255

lngX = apiGetUserName(strUserName, lngLen)

If lngX <> 0 Then

fOSUserName = Left$(strUserName, lngLen - 1)

Else

fOSUserName = ""

End If

End Function

'02 - mostra o nome da maquina usado pelo usuário

Private Declare Function apiGetComputerName Lib "kernel32" Alias _

"GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long

Function fOSMachineName() As String

'Returns the computername

Dim lngLen As Long, lngX As Long

Dim strCompName As String

lngLen = 16

strCompName = String$(lngLen, 0)

lngX = apiGetComputerName(strCompName, lngLen)

If lngX <> 0 Then

fOSMachineName = Left$(strCompName, lngLen)

Else

fOSMachineName = ""

End If

End Function

- no seu form, crie duas variáveis string por exemplo:

Dim strUser as string

Dim strMachine as string

- depois atribua os valores das funções às variáveis, assim:

strUser = fOSUserName()

strMachine = fOSMachineName()

- em seguida depedendo de como você acessa seus dados, via DAO ou form acoplado,

atribua os valores dessas variáveis a duas caixas de texto no seu form.

cole e teste

cleverson

[Leandro Abbade]

Boa tarde amigo,

Veja este exemplo:

http://www.professorlar.com/contarcliques3...rio_da_rede.zip

Agora este:

http://www.professorlar.com/contarcliques4...le_de_ponto.zip