Rss & SiteMap

Foxtable(狐表) http://www.foxtable.com

新一代数据库软件,完美融合Access、Foxpro、Excel、vb.net之优势,人人都能掌握的快速软件开发工具!
共1 条记录, 每页显示 10 条, 页签: [1]
[浏览完整版]

标题:用户登录后没有退出,用别的电脑怎么登录

1楼
18365900066 发表于:2025/1/30 16:38:00

图片点击可在新窗口打开查看此主题相关图片如下:捕获.jpg
图片点击可在新窗口打开查看


登录的代码这样写的
Dim counts As Integer = 0
counts = Tables("用户").Compute("count(用户ID)","姓名 = '" & yhm.Text  & "' and 密码 = '" & mm.Text & "' and 启用 =  true " and "状态 = false")

‘BeforeCloseProject关闭项目之前执行。

Dim dr As DataRow
dr = DataTables("用户").Find("姓名 = '" & Vars("姓名") & "' ") 
With DataTables("用户")
    dr("状态") = False
End With

请问:如果   用户 登录后没有退出系统,那从第二台电脑怎么登录啊。第二台登录的时候提醒 在别的地方登录,把原来登录的关闭呗,参考哪些文档啊
[此贴子已经被作者于2025/1/30 16:39:36编辑过]
共1 条记录, 每页显示 10 条, 页签: [1]

Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号

Powered By Dvbbs Version 8.3.0
Processed in .01563 s, 2 queries.