func test_base_openl
para mono_is
if !used('users')
   use users in  0 
endi
sele users
go top
loca for alltr(ID)==alltr(sys( 0 ))&&что бы не искать черную кошку в темной комноте, тем более когда ее там нет
 if !found()
    =MESSAGEBOX('У Вас нет прав доступа.... Обратитесь к админу!', 16 )
   use
   retu .F.
else 
   recno_user=recno()
endi

SET REPROCESS TO  0  SECONDS 
can_mono=.T.&& Изначально считаем что можно входить(Посмотрим че получится дальше)монопольно
can_loca=.T.&&локально
CREATE CURS curs_users ;
	(NAME C( 25 ), Type C( 10 ), When T)
sele users
go top
do while !eof()
  if recno()#recno_user&&не мы а кто-либо есче
 
   if lock()&&пытаемся заблокировать /поличилось значит была не заблокирована
     unlock&&вернем все в зад
   else&& не получилось значит была заблокирована кем-то -запоминаем в курсор
     nnnam=name
     tttype=iif(mono_local,'МОНОПОЛЬНО','ЛОКАЛЬНО  ')
     dddate=last_time
     sele curs_users
     APPEND BLANK
     repl NAME with nnnam,;
     	  Type with tttype,;
     	  When with dddate
     go top	  
     sele users
     can_mono=.F.&&если найдена хоть одна запись то для монопольного режима уже не подходит
     can_loca=iif(can_loca and !mono_local,.T.,.F.)
     *can_loca and !mono_loca - если после предыдущей записи переменная все еще 
    endi
  else &&если мы
    if lock()&&пытаемся заблокировать /поличилось значит была не заблокирована
     unlock&&вернем все в зад
    else 
       =MESSAGEBOX('У Вас уже открыта база - нафиг вам вторая', 16 )
       retu .F.
    endi  
   endi
  skip        
endd

*ИТАК в can_mono,can_loca - возможность открыт монопольно и нет соответственно и курсор с проблемами
*если таковые имеются

if (mono_is and !can_mono) or (!mono_is and !can_loca)&&требование -монопольно и входить нельзя
*or требование -локально и входить нельзя    
   retu .F.
endi
*если дошли до этого фрагмента все норм надо лишь дооформить себя же
go recno_user
repl mono_local with mono_is,;
      last_time with datetime()
endi  
name_user=name    
retu lock()&&-ыы уж себя точно залочить получся. Так что точно .T.

 if test_base_openl(.F.)&&.F. не сидит ли кто монопольно   
    *можем открывать свои таблицы по excl off 
 else 
         do form access_is_denied&&покажем почему
 endi

 if test_base_openl(.T.)&&.F. не сидит ли кто Вообще  
    *можем открывать свои таблицы по excl on 
 else 
         do form access_is_denied&&покажем почему
 endi