以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]怎么让一个账号只能在固定的电脑登录？  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=90330)
--  作者：seal51
--  发布时间：2016/9/9 23:48:00
--  [求助]怎么让一个账号只能在固定的电脑登录？
怎么让一个账号只能在固定的电脑登录？

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

如何判断？有无实列？
--  作者：qianqian1530
--  发布时间：2016/9/10 0:24: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
--  作者：seal51
--  发布时间：2016/9/10 22:50:00
--  

需事先指定计算机， 此计算机对应的账号才能进入系统
--  作者：seal51
--  发布时间：2016/9/12 10:48:00
--  

打开系统立即显示注册

If GetConfigValue("注册状态" & ComputerId,False) = False Then  \'若是非注册状态
    Forms("注册窗口").open
End If
如果已注册，如何进入系统
--  作者：有点蓝
--  发布时间：2016/9/12 11:07:00
--  
If GetConfigValue("注册状态" & ComputerId,False) = False Then  \'若是非注册状态
    Forms("注册窗口").open
    if 注册失败 then
Syscmd.Project.Exit()
      return
    end if
else
    其它正常登录操作
End If
--  作者：seal51
--  发布时间：2016/9/12 12:11:00
--  

谢谢老师！

注册失败如何写

其他正常登陆如何写

给我一个全的代码！
--  作者：有点蓝
--  发布时间：2016/9/12 12:19:00
--  
参考http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=84745
--  作者：seal51
--  发布时间：2016/9/12 23:03:00
--  

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

2. 如果不用注册，一机一码一用户如何做？
--  作者：cbt
--  发布时间：2016/9/12 23:09:00
--  
思路，获取本机硬件信息或者其他信息，然后，登录的时候直接绑定他，保存到数据库，下次登录匹配这些信息