Interbase - usuarios logados

Top  Previous  Next

select user from RDB$DATABASE;

 

 

 

// other way

 

Um Botão

Um TMemo

Um .IBDatabaseInfo1

 

e a receita...

 

procedure TFPrincipal.BitBtn1Click(Sender: TObject);

var

  I: Integer;

begin

  with dmSeller.IBDatabaseInfo1 do

  begin

    for I := 0 to UserNames.Count - 1 do

      Memo1.Lines.Add(UserNames[I]);

//    Memo1.Lines.Add(DBFileName);

//    Memo1.Lines.Add(IntToStr(Fetches));

//    Memo1.Lines.Add(IntToStr(CurrentMemory));

  end;

end;