>Hi,
>
>I want to be able to lock a user out once they are already logged in to my application. I currently do this using a DBF file in which I lock a record (RLOCK()) when the user logs in. The RLOCK() automatically gets released when the user shuts down the app either by logging out of if there was a crash or the user terminated the app or switched off the PC.
>
>Is there a way to do this using an SQL Server database? I am trying to avoid having to create another shared folder to put just this one DBF in.
>
>Thanks,
>
>Frank

when the application start:

* sync mode
h=SQLCONNECT(...)
SQLEXEC(m.h,"EXEC sp_who","who")
* BROWSE
COUNT FOR loginame=="userloginname"
* USE
IF _TALLY>1
   SQLDISCONNECT(m.h)
   QUIT
ENDIF

OR

<pre>
* sync mode
h=SQLCONNECT(...)
IF SQLEXEC(m.h,"SELECT @@SPID spid;EXEC sp_who '"+"userloginname"+"'","spid")=2
   LOCATE FOR spid<>who.spid
   * USE who,who2
   IF NOT FOUND()
      * CONTINUE
   ENDIF
ENDIF
SQLDISCONNECT(m.h)
QUIT