| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- [求助]怎么让一个账号只能在固定的电脑登录？ (http://foxtable.com/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 \'若是非注册状态 |
| -- 作者：有点蓝 -- 发布时间：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 -- 思路，获取本机硬件信息或者其他信息，然后，登录的时候直接绑定他，保存到数据库，下次登录匹配这些信息 |