如何得知有多少 USER 連上INTERBASE

[tim]

要使用 IBServerProperties 元件

代碼: 選擇全部

    With IBServerProperties1 Do 
    Begin 
      Active := True; 
      Try 
        FetchDatabaseInfo; 
        StatusBar1.Panels[1].Text:=' '+IntToStr(DatabaseInfo.NoOfAttachments)+'人'; 
      Finally 
        Active := False; 
      End; 
    End;