- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 用户登录为何出错? (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=74989)
-- 发布时间：2015/9/24 7:59:00
-- 用户登录为何出错?
用户登录为何出错?
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目1.rar |
-- 发布时间：2015/9/24 9:25:00
--
dr = dt.Find("用户名 =\'" & User.Name & "\'")
改成
dr = dt.Find("\',\' + 用户名 + \',\' like \'%," & User.Name & ",%\'")
-- 发布时间：2015/9/24 21:04:00
--
谢谢
-- 发布时间：2015/9/24 21:06:00
--
用户不能登录，出现提示信息后，为何出错
-- 发布时间：2015/9/24 21:07:00
--
你查询的条件不对，查不到数据，自然执行了退出的代码。
-- 发布时间：2015/9/24 21:16:00
--
MessageBox.Show("您未获得该电脑授权,无法使用该软件!!!")
Syscmd.Project.Exit(False)
Return
执行完信息“您未获得该电脑授权,无法使用该软件”，后执行“Syscmd.Project.Exit(False)”出错
-- 发布时间：2015/9/24 21:19:00
--
Dim dt As DataTable = DataTables("电脑位置")
Dim dr As DataRow
dr = dt.Find("\',\' + 用户名 + \',\' like \'%," & User.Name & ",%\'")
If dr Is Nothing Then
MessageBox.show("用户不存在!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
Syscmd.Project.Exit(False)
Return
End If
If dr IsNot Nothing Then
Dim wz As Integer = Tables("电脑位置").FindRow(dr)
If wz >= 0 Then
Tables("电脑位置").Position = wz
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
Dim ip As String = IPAdress.ToString
If dr("电脑ip") <> ip
MessageBox.Show("您未获得该电脑授权,无法使用该软件!!!")
syscmd.Project.Exit(False)
Return
End If
End If
End If
-- 发布时间：2015/9/24 21:25:00
--
系统的这个命令有问题，这样退出吧。
Dim ps As System.Diagnostics.Process() = System.Diagnostics.Process.GetProcessesByName("foxtable")
For Each p As System.Diagnostics.Process In ps
If p.MainWindowTitle = Nothing OrElse p.MainWindowTitle = basemainform.Text Then
p.kill
Exit For
End If
Next
-- 发布时间：2015/9/24 22:12:00
--
谢谢