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


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

主题:用户登录

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


加好友 发短信
等级:小狐 帖子:311 积分:3432 威望:0 精华:0 注册:2012/12/10 10:38:00
用户登录  发帖心情 Post By:2020/9/13 13:38:00 [只看该作者]



登录系统时,警告:非托管代码已经在SringBulider 缓冲区溢出。进程可能变得不稳定。在进行封送处理之前,没给StringBulider分配足够的容量。

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


加好友 发短信
等级:小狐 帖子:311 积分:3432 威望:0 精华:0 注册:2012/12/10 10:38:00
  发帖心情 Post By:2020/9/13 13:43:00 [只看该作者]

个别安装了win10的电脑出现这个问题,其它电脑正常。



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


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

应该是第三方组件的接口设置的参数不对

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


加好友 发短信
等级:小狐 帖子:311 积分:3432 威望:0 精华:0 注册:2012/12/10 10:38:00
  发帖心情 Post By:2020/9/16 13:14:00 [只看该作者]

问题是想通过pcid或者硬盘ID来约束使用的电脑,报错后直接跳过了这个环节,是不是代码有问题?谢谢

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


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

写了什么代码?

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


加好友 发短信
等级:小狐 帖子:311 积分:3432 威望:0 精华:0 注册:2012/12/10 10:38:00
  发帖心情 Post By:2020/9/16 19:14:00 [只看该作者]

用户登录_AfterLoad

 

Dim cpid As String = ComputerID

Dim hdid As String = HardDiskID

Dim nm As String = ComputerName

 

Dim cmd1 As New SQLCommand

Dim dt1 As DataTable

cmd1.C

cmd1.CommandText = "Select * Fr om {Users} Where [电脑ID] = '" & cpid & "'"

dt1 = cmd1.ExecuteReader

 

Dim cmd2 As New SQLCommand

Dim dt2 As DataTable

cmd2.C

cmd2.CommandText = "Select * Fr om {Users} Where [硬盘ID] = '" & hdid & "'"

dt2 = cmd2.ExecuteReader

 

If dt1.DataRows.Count = 0 AndAlso dt2.DataRows.Count = 0 Then

   

 Messagebox.show("PC没有备案,请联系管理员!" & Chr(13) & Chr(10) &  "用户名:【" & nm & "】" & Chr(13) & Chr(10) &  "PCID:【"  & cpid & "】" & Chr(13) & Chr(10) &  "HDID:【"  & hdid & "】","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)

 

    Syscmd.Project.Exit() '退出系统


End If


Dim cmd As New SQLCommand

Dim dt As DataTable

Dim cmb As WinForm.ComboBox = e.Form.Controls("UserName")

cmd.C

cmd.CommandText = "SELECT DISTINCT Name Fr om {Users} Where [Group] Not Like '管理员' "

dt = cmd.ExecuteReader()

For Each dr As DataRow In dt.Datarows

    cmb.Items.Add(dr("Name"))

Next

cmb.SelectedIndex = 0

 

LogCount  = LogCount  + 1  '登陆一次将记录登陆次数

 



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


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

If dt1.DataRows.Count = 0 AndAlso dt2.DataRows.Count = 0 Then

   

 Messagebox.show("PC没有备案,请联系管理员!" & Chr(13) & Chr(10) &  "用户名:【" & nm & "】" & Chr(13) & Chr(10) &  "PCID:【"  & cpid & "】" & Chr(13) & Chr(10) &  "HDID:【"  & hdid & "】","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)

 vars("退出") = true

return

End If


打开登录窗口的地方:

forms("用户登录").open

if vars("退出") then

    Syscmd.Project.Exit() '退出系统

return

end if



 回到顶部