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


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

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


加好友 发短信
等级：八尾狐 帖子：1838 积分：13006 威望：0 精华：0 注册：2013/6/10 9:23:00 		[求助]怎么让一个账号只能在固定的电脑登录？  发帖心情 Post By：2016/9/9 23:48:00 [显示全部帖子]

怎么让一个账号只能在固定的电脑登录？

用户表，加入一列，记录电脑的computeid或者ip地址，登陆的时候，判断此电脑是否用户表对应的记录即可。

如何判断？有无实列？

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


加好友 发短信
等级：八尾狐 帖子：1838 积分：13006 威望：0 精华：0 注册：2013/6/10 9:23:00 		  发帖心情 Post By：2016/9/10 22:50:00 [显示全部帖子]

需事先指定计算机， 此计算机对应的账号才能进入系统
 回到顶部
帅哥哟，离线，有人找我吗？
seal51
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1838 积分：13006 威望：0 精华：0 注册：2013/6/10 9:23:00 		  发帖心情 Post By：2016/9/12 10:48:00 [显示全部帖子]

打开系统立即显示注册

If GetConfigValue("注册状态" & ComputerId,False) = False Then  '若是非注册状态
    Forms("注册窗口").open
End If
如果已注册，如何进入系统
 回到顶部
帅哥哟，离线，有人找我吗？
seal51
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1838 积分：13006 威望：0 精华：0 注册：2013/6/10 9:23:00 		  发帖心情 Post By：2016/9/12 12:11:00 [显示全部帖子]

谢谢老师！

注册失败如何写

其他正常登陆如何写

给我一个全的代码！
 回到顶部
帅哥哟，离线，有人找我吗？
seal51
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1838 积分：13006 威望：0 精华：0 注册：2013/6/10 9:23:00 		  发帖心情 Post By：2016/9/12 23:03:00 [显示全部帖子]

1. 一机一码进入系统后如何和用户联系到一起？

2. 如果不用注册，一机一码一用户如何做？
 回到顶部
帅哥哟，离线，有人找我吗？
seal51
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1838 积分：13006 威望：0 精华：0 注册：2013/6/10 9:23:00 		  发帖心情 Post By：2016/9/13 0:20:00 [显示全部帖子]

以下是引用有点蓝在2016/9/10 9:23:00的发言：
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

写在afteropenproject事件中吗？机器码就是computerid对吗？

数据表样式为

 


图片点击可在新窗口打开查看此主题相关图片如下：qq截图20160913002017sm16091301.png
图片点击可在新窗口打开查看
[此贴子已经被作者于2016/9/13 0:22:39编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
seal51
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1838 积分：13006 威望：0 精华：0 注册：2013/6/10 9:23:00 		  发帖心情 Post By：2016/9/13 9:36:00 [显示全部帖子]

有点蓝老师给回复一下！谢谢！
 回到顶部
帅哥哟，离线，有人找我吗？
seal51
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1838 积分：13006 威望：0 精华：0 注册：2013/6/10 9:23:00 		  发帖心情 Post By：2016/9/13 15:17:00 [显示全部帖子]

如何存储在存储到上面表格指定用户的comid中？？

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


加好友 发短信
等级：八尾狐 帖子：1838 积分：13006 威望：0 精华：0 注册：2013/6/10 9:23:00 		  发帖心情 Post By：2016/9/13 15:19:00 [显示全部帖子]

我公司为小公司，只有5台电脑，comid我直接输入进去， 如果这样就加3楼的判断就可以了吗？写在afteropenproject事件中吗？机器码就是computerid对吗？

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


加好友 发短信
等级：八尾狐 帖子：1838 积分：13006 威望：0 精华：0 注册：2013/6/10 9:23:00 		  发帖心情 Post By：2016/9/13 18:17:00 [显示全部帖子]


图片点击可在新窗口打开查看此主题相关图片如下：qq截图20160913002017sm1609131111.png
图片点击可在新窗口打开查看
 回到顶部
总数 17 1 2 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04688 秒, 5 次数据查询