Foxtable(狐表)用户栏目专家坐堂 → 用户登录记录


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

主题:用户登录记录

帅哥哟,离线,有人找我吗?
nuoyan88
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:八尾狐 帖子:2034 积分:13740 威望:0 精华:0 注册:2017/10/12 13:00:00
用户登录记录  发帖心情 Post By:2020/2/14 20:14:00 [只看该作者]

老师,以下代码是保存用户登录记录的,但是只保存到了本地,我在服务器中新建了一个表为:用户登录记录,我想把如图的信息保存到这个用户登录记录表中。怎么写呢?谢谢!
图片点击可在新窗口打开查看此主题相关图片如下:1.png
图片点击可在新窗口打开查看

Dim FileName As String = ProjectPath & "save.txt"
 Dim Info As String = _UserName & "|" & Date.Now & vbcrlf
 FileSys.WriteAllText(FileName, Info, True)

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:43669 积分:221787 威望:0 精华:8 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/2/14 20:41:00 [只看该作者]

把txt的数据写入数据库?http://www.foxtable.com/webhelp/topics/2629.htm



 回到顶部
帅哥哟,离线,有人找我吗?
nuoyan88
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:八尾狐 帖子:2034 积分:13740 威望:0 精华:0 注册:2017/10/12 13:00:00
  发帖心情 Post By:2020/2/14 20:45:00 [只看该作者]

老师,不是的,不需要转换,我是想把登录的信息直接保存到我新建的那个用户登录记录表中,以前的不要了。谢谢

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:43669 积分:221787 威望:0 精华:8 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/2/14 21:11:00 [只看该作者]

那就把用户登录记录表加载进来和平常给表格赋值一样使用呀。

如果没有加载的使用SQLcommand:http://www.foxtable.com/webhelp/topics/3266.htm

 回到顶部
帅哥哟,离线,有人找我吗?
nuoyan88
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:八尾狐 帖子:2034 积分:13740 威望:0 精华:0 注册:2017/10/12 13:00:00
  发帖心情 Post By:2020/2/14 21:45:00 [只看该作者]

老师,以下代码我写在“登录”这个控件中,提示如图的异常登录机器码(机器码就是登录的这台电脑名称)和登录IP不知道怎么获取?谢谢

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

Dim cmd As new SQLCommand
cmd
.ConnectionName = "ERP系统管理"
cmd
.CommandText = "Insert Into 用户登录记录 (用户名,登录时间,登录机器码,登录IP,登录日期) Values(?,?,?)"
cmd
.Parameters.Add("@用户名",_UserName)
cmd
.Parameters.Add("@登录时间",Date.now)
cmd
.Parameters.Add("@登录机器码",“1”)
cmd.Parameters.Add("@登录IP",“2”)
cmd.Parameters.Add("@登录日期",Date.Today)
cmd
.ExecuteNonQuery

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:43669 积分:221787 威望:0 精华:8 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/2/14 21:50:00 [只看该作者]

机器码:
Foxtable提供了一个全局变量ComputerId,该变量返回12个字符,前4位表示硬盘信息,中间4位表示主板信息,最后4位表示CPU信息。
多数情况下, 不同的电脑会有不同的ComputerId,而且即使格式化硬盘重新安装系统,ComputerId的返回值也不会改变。

ip:
Dim IPAdress As System.Net.IPAddress 
Dim HostName As String
HostName = System.Net.Dns.GetHostName '获得本机的机器名 
IPAdress = System.Net.Dns.GetHostByName(HostName).AddressList.GetValue(0) '获得本机的IP 
OutPut.Show( HostName )  '本机机器名 
OutPut.Show(IPAdress.ToString )  '本机的IP 

问号的数量要和列数量一致
cmd.CommandText = "Insert Into 用户登录记录 (用户名,登录时间,登录机器码,登录IP,登录日期) Values(?,?,?,?,?)"

 回到顶部