ReSQL.ru
     
powered by simpleCommunicator - 2.0.60     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Есть идеи?
7 сообщений из 7, страница 1 из 1
Есть идеи?
    #32100724
Фотография Groove
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Groove
Участник
Добрый день, господа!
Есть какие нибудь идеи насчет того, как получать список пользователей юзающих аксцесовскую базу в настоящее время?
Я сделал просто до ужаса (просто некогда было мозговать), создал таблицу юзеров
Код: plaintext
1.
2.
3.
ID
UserLogin (string)
UserName (string)
IsLogon (boolean)
и при загрузке получаю логин, нахожу его в таблице и ставлю IsLogon=true, все работет до тех пор, пока какой нибудь пользователь не сделает снять задачу (сама прога еще ни разу не глючила). После этого поле IsLogin остается истиной, а юзер не активен...
...
Рейтинг: 0 / 0
04.02.2003, 09:59
| Ответить | Цитировать | Написать  
Есть идеи?
    #32100733
Itsme
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Itsme
Гость
procedure GetCurrentUsersList;
const adhcUsers: string = '{947bb102-5d43-11d1-bdbf-00c04fb92675}';
var r: tADODataset;
begin
r:= dm.d_currentusers;
dm.adoc_db1.OpenSchema(siProviderSpecific,emptyparam,adhcUsers,r);
r.Open;
end;

из толстой зеленой книжки "Руководство разработчика Access 2000"
...
Рейтинг: 0 / 0
04.02.2003, 10:21
| Ответить | Цитировать | Написать  
Есть идеи?
    #32100735
Itsme
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Itsme
Гость
Правда, это для тех, кто использует файл рабочей группы и вход пользователей по логину
...
Рейтинг: 0 / 0
04.02.2003, 10:23
| Ответить | Цитировать | Написать  
Есть идеи?
    #32101042
Unambo
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Unambo
Гость
procedure TForm1.FormDestroy(Sender: TObject);
begin
а здесь сделай свой IsLogon:=false

end;
это событие обрабатывается при закрытие формы, даже если снимают задачу через Ctrl+ Alt+Del
Правда если твои юзвери комп рисетят, то тогда это не поможет
...
Рейтинг: 0 / 0
04.02.2003, 16:27
| Ответить | Цитировать | Написать  
Есть идеи?
    #32101286
StarWind
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
StarWind
Участник
ну чтоб не ресетили, можно проводки от Reset'а отсоеденить... правда остается еще Power и вилка сетевого штура в силовой розетке...
...
Рейтинг: 0 / 0
05.02.2003, 03:38
| Ответить | Цитировать | Написать  
Есть идеи?
    #32101314
falcon_k
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
falcon_k
Гость
... Или винда повисла напрочь ...
...
Рейтинг: 0 / 0
05.02.2003, 08:24
| Ответить | Цитировать | Написать  
Есть идеи?
    #32101337
Aleksei
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Aleksei
Участник
А если сделать по временной опрос всех юзеров которые подключены, и в случае если он отключен от твоей базы данных сделать соответствующие изменения.

Правда это может немного загрузить сетку.
...
Рейтинг: 0 / 0
05.02.2003, 09:19
| Ответить | Цитировать | Написать  
7 сообщений из 7, страница 1 из 1
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Есть идеи?
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]