Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]怎么让一个账号只能在固定的电脑登录？


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

主题：[求助]怎么让一个账号只能在固定的电脑登录？
帅哥哟，离线，有人找我吗？
seal51
 小大  21楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1837 积分：12990 威望：0 精华：0 注册：2013/6/10 9:23:00 		  发帖心情 Post By：2016/9/13 22:34:00 [只看该作者]

写入三楼你给的代码出现18楼的错误， 请指正！
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  22楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107873 积分：548728 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2016/9/13 22:43:00 [只看该作者]

上传例子测试

 回到顶部
帅哥哟，离线，有人找我吗？
seal51
 小大  23楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1837 积分：12990 威望：0 精华：0 注册：2013/6/10 9:23:00 		  发帖心情 Post By：2016/9/14 0:44:00 [只看该作者]

搞了几天才明白，注册和用户登录各是各的，不是参合在一起的！
 回到顶部
帅哥哟，离线，有人找我吗？
seal51
 小大  24楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1837 积分：12990 威望：0 精华：0 注册：2013/6/10 9:23:00 		  发帖心情 Post By：2016/9/14 15:01:00 [只看该作者]

如果用系统自带的用户管理， 3楼的代码如何修改

 

Dim cmd As New SQLCommand
cmd.Con nection Name = "region"
cmd.CommandText = "Sel ect * From {Users} Where [Name] = '" & e.form.controls("用户名称输入框") & "'"
Dim dt As DataTable = cmd.ExecuteReader()
If dt.DataRows.Count = 0 Then
    msgbox("无效用户")
Else
    If dt.DataRows(0)("ComputerId") <> ComputerId Then
        msgbox("您不能在此电脑登录")
    Else
        msgbox("登录成功")
    End If
End If
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  25楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107873 积分：548728 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2016/9/14 15:04:00 [只看该作者]

cmd.CommandText = "Sel ect * From {Users} Where [Name] = '" & user.name & "'"

 回到顶部
帅哥哟，离线，有人找我吗？
seal51
 小大  26楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1837 积分：12990 威望：0 精华：0 注册：2013/6/10 9:23:00 		  发帖心情 Post By：2016/9/14 15:11:00 [只看该作者]

只要是无效用户就不能打开项目，如何写？

 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  27楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107873 积分：548728 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2016/9/14 15:18:00 [只看该作者]



If dt.DataRows.Count = 0 Then
    msgbox("无效用户")
Syscmd.Project.Exit()
return
Else
    If dt.DataRows(0)("ComputerId") <> ComputerId Then
        msgbox("您不能在此电脑登录")
Syscmd.Project.Exit()
return
    Else
        msgbox("登录成功")
    End If
End If
 回到顶部
帅哥哟，离线，有人找我吗？
seal51
 小大  28楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1837 积分：12990 威望：0 精华：0 注册：2013/6/10 9:23:00 		  发帖心情 Post By：2016/9/14 15:38:00 [只看该作者]

谢谢有点蓝老师！

 

另外，如果使用注册机制，一机一码， 下面的代码对吗？

 

Dim RegOk As Boolean = GetConfigValue("注册状态" & ComputeId ,False)  '定义一个逻辑变量,来记录注册成功与否
If regok = False Then   '若是未注册状态
        Forms("注册").open    '打开注册窗体
        Return
    End If
Else
SaveConfigValue("注册状态" & ComputeId ,True) '保存
End If
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  29楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107873 积分：548728 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2016/9/14 15:54:00 [只看该作者]

看8楼实例

 回到顶部
总数 29 上一页 1 2 3
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.03906 秒, 4 次数据查询