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