学步园

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

意外情况下的信号取消，往往是难点， 利用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.
*************************************************