verificacao de usuarios
bom dia,
alguem sabe como posso fazer para verificar num banco mysql se um usuario jah estah conectado......
PS: para cada usuario cadastrado no sistema tenho um usuario no banco para fazer a conexao, gostaria q se um deles se conectasse numa maquina nao pudesse entrar numa outra com o mesmo usuario......uso dbexpress.......
obrigada,
K-ROL
alguem sabe como posso fazer para verificar num banco mysql se um usuario jah estah conectado......
PS: para cada usuario cadastrado no sistema tenho um usuario no banco para fazer a conexao, gostaria q se um deles se conectasse numa maquina nao pudesse entrar numa outra com o mesmo usuario......uso dbexpress.......
obrigada,
K-ROL
K-rol
Curtidas 0
Respostas
Skywalker
07/07/2003
Ola K-ROL sou denovo.
Bom, pelo que eu entendi voce quer que um usuario logado em uma maquina não efetue o login em outra, ne?
Se for bem crie uma tabelinha do tipo:
TBLog
Nome_Usuario
ai quando o usuario logar em uma maquina voce faz uma busca se encontrar ele nesta tabela voce da o erro, se não voce insere ele, no fim e so deletar o nome dele.
Ajudou?
Ate +!
P.S.:Exite um registro que pega o nome da maquina local eu não me lembro qual que é, mas se voce presicar eu posso revirar meu armario e arruma-lo para voce, ai voce insere um campo na tabela acima e coloca o nome da maquina, depois na hora do erro voce pode avisar em que maquina o usuario esta.
Bom, pelo que eu entendi voce quer que um usuario logado em uma maquina não efetue o login em outra, ne?
Se for bem crie uma tabelinha do tipo:
TBLog
Nome_Usuario
ai quando o usuario logar em uma maquina voce faz uma busca se encontrar ele nesta tabela voce da o erro, se não voce insere ele, no fim e so deletar o nome dele.
Ajudou?
Ate +!
P.S.:Exite um registro que pega o nome da maquina local eu não me lembro qual que é, mas se voce presicar eu posso revirar meu armario e arruma-lo para voce, ai voce insere um campo na tabela acima e coloca o nome da maquina, depois na hora do erro voce pode avisar em que maquina o usuario esta.
GOSTEI 0
Marconi
07/07/2003
A função abaixo identifica o usuário que esta conectado na rede windows.
Não funciona com o Windows XP.
function LogUser : String;
{Requer a unit Registry declarada na clausula Uses da Unit}
var
Registro : TRegistry;
begin
Registro := TRegistry.Create;
Registro.RootKey := HKEY_LOCAL_MACHINE;
if Registro.OpenKey(´Network\Logon´, false) then
begin
result := Registro.ReadString(´username´);
end;
Registro.Free;
end;
Espero que seja isto
Marconi
Não funciona com o Windows XP.
function LogUser : String;
{Requer a unit Registry declarada na clausula Uses da Unit}
var
Registro : TRegistry;
begin
Registro := TRegistry.Create;
Registro.RootKey := HKEY_LOCAL_MACHINE;
if Registro.OpenKey(´Network\Logon´, false) then
begin
result := Registro.ReadString(´username´);
end;
Registro.Free;
end;
Espero que seja isto
Marconi
GOSTEI 0