Foxtable(狐表)用户栏目专家坐堂 → 局域网环境一个用户多处登录问题


  共有10357人关注过本帖树形打印复制链接

主题:局域网环境一个用户多处登录问题

帅哥哟,离线,有人找我吗?
lxh_wx
  11楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:29 积分:341 威望:0 精华:0 注册:2012/6/2 13:29:00
  发帖心情 Post By:2012/8/20 21:27:00 [只看该作者]

我用一个用户名登录后没有退出项目,直接切换用户,这相当于切换前的用户退出了,但切换前的用户登录的信息没删除,请教如何能将切换前的用户登录的信息删除?

 回到顶部
帅哥哟,离线,有人找我吗?
shenyl0211
  12楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:四尾狐 帖子:977 积分:6835 威望:0 精华:0 注册:2012/4/2 21:49:00
  发帖心情 Post By:2012/8/21 9:48:00 [只看该作者]

'用户切换按钮代码:

Dim i As Integer
MainTable=Tables("登录管理")
With CurrentTable
    i = .Findrow("登录用户= '" & _username & "'",0,False)
    If i>-1 And .rows(i)("异机登录") ="" Then 
        .Rows(i).Delete()
    End If
End With
_username=""
Syscmd.Project.Save()
Forms("用户登录").Open()


 回到顶部
总数 12 上一页 1 2