Fórum Usuário Atual #35962
12/03/2003
0
Obrigado
Anonymous
Curtir tópico
+ 0Posts
12/03/2003
Anonymous
(codigo, nome, usuario)
values
(1, ´JOAO´, USER)
Gostei + 0
12/03/2003
Anonymous
Como faço para saber qual foi o usuário que logou no banco de dados.
ex.
Campo Usuario:= [i:38e286be0a]UsuarioAtual[/i:38e286be0a]
Ou seja uma função que retorna-se o usuário que está logado no banco de dados.
Gostei + 0
13/03/2003
Anonymous
Gostei + 0
13/03/2003
Anonymous
var
I : Integer;
begin
with IBSecurityService1 do
begin
try
IBSecurityService1.Active := true;
DisplayUsers;
ListView1.Items.BeginUpdate;
ListView1.Items.Clear;
for I := 0 to UserInfoCount - 1 do
begin
with UserInfo[i] do
begin
with ListView1.Items.Add do
begin
Caption := UserName;
SubItems.Add(FirstName + ´ ´ + MiddleName + ´ ´ + LastName);
SubItems.Add(IntToStr(UserId));
SubItems.Add(IntToStr(GroupId));
end;
end;
end;
finally
ListView1.Items.EndUpdate;
IBSecurityService1.Active := false;
end;
end;
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)