Показать сообщение отдельно
  #2  
Старый 15.12.2015, 20:43
lmikle lmikle вне форума
Модератор
 
Регистрация: 17.04.2008
Сообщения: 8,096
Версия Delphi: 7, XE3, 10.2
Репутация: 49089
По умолчанию

Первая ссылка в гугле дает:
Цитата:
Sysprocesses -- one of the tables in SQL Server's master database can be used to track which SQL Server users are currently logged in and which database(s) they are accessing.

Ну и еще вот это понадобится:
Цитата:
SELECT SYSTEM_USER

Т.е. сразу после лигина делаем запрос сколько текущих юзеров подключено, если > 1, то отключаемся с показом страшной ругани. Видимо, надо делать это в AfterConnect компонента TADOCOnnection.
Ответить с цитированием