信号灯

程序间行为，有互斥关系，这就需要有个“信号灯”标注之。
一但程序断线、正常或不正常退出，信号要及时取消。

意外情况下的信号取消，往往是难点， 利用SQL临时数据库中临时表的特性可达成。

信号灯相关功能 -> 设置、检查、去掉。

前提：（1）每个APP，登录后，迟续保持一个到SQL连接。
            （2）一些自定义函数，不言自明。

应用举例：（1）科目表、权限表等 树状结构的数据设置，不便做并发操作处理。简化逻辑为：先入者设
                               信号灯，可修改；后入者设信号不成功，则以只读方式进入表单；
                      （2）操作信登录后，其离线、在线状态，及相关的IM收发，需利用信号灯标识。
                      （3）不允许操作员重复登录的功能

Function  glSignalSet
Lparameters tcSignal, tcExtraData
*-  设置信号灯.
*-  当重复设置(名相同)时, 若新旧信号是同一连接@@SPID, 允许重设. 不同连接,失败.
*-
*-  信号灯 将在 glSignalKill时 或 连接断开时 删除
Local cTmp,cSql,nArea,nSPid
nArea = Select ()
tcSignal  =  Chrtran(tcSignal, " ,'  " , ' ') + '_'+ ;
    CHRTRAN(goapp._c系统名称, '  '+Chr(39)+Chr(34),'') +'_' +;
    gcGetMacro(goApp._c数据连接串, ' database',1,';;')

glSql(goApp._n连接句柄, ' sp_who @@SPID','_tmpcheckSPid')
nSPid = _tmpcheckSPid.spid

TEXT  to  cSql
     Select  top  1   *  from ## << tcSignal >>
ENDTEXT
If  glSql(goApp._n连接句柄,cSql, ' _SignalCreation',.F.,'') && exist old signal
     If  nSpid ! =   Val ( gcGetMacro(ExTraData, ' CnnHandle') ) &&不是本app设置的signal,不可重设.失败也罢
         Select  (nArea)
         Return  .F.
    Endif
Endif
glSql(goApp._n连接句柄,Textmerge( ' DROP TABLE ##<<tcSignal>>'),'_SignalCreation',.F.,'')
*--

TEXT  to  cSql
    CREATE TABLE ## << tcSignal >>  (ExtraData  char ( 1000 ) )
    Insert into ## << tcSignal >>  (ExtraData )    values ( ' {CnnHandle=<<nSpID>>} {ExtraData=<<Evl(tcExtraData,'')>>}')
ENDTEXT
If   Not  glSql(goApp._n连接句柄,cSql, ' _SignalCreation',.F.,'')
     Return  .F.
Endif

Return  .T.
*************************************************

转载于:https://www.cnblogs.com/maxchan/archive/2007/08/14/855980.html