用户登录为何出错? - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 用户登录为何出错?

共有2518人关注过本帖树形打印复制链接主题：用户登录为何出错?

lyfxybc

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：六尾狐帖子：1290 积分：9820 威望：0 精华：0 注册：2012/9/19 21:13:00

用户登录为何出错? 发帖心情

Post By：2015/9/24 7:59:00 [显示全部帖子]

用户登录为何出错?

下载信息 [文件大小：下载次数： ]
点击浏览该文件:管理项目1.rar

lyfxybc

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：六尾狐帖子：1290 积分：9820 威望：0 精华：0 注册：2012/9/19 21:13:00

Post By：2015/9/24 21:04:00 [显示全部帖子]

谢谢

lyfxybc

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：六尾狐帖子：1290 积分：9820 威望：0 精华：0 注册：2012/9/19 21:13:00

Post By：2015/9/24 21:06:00 [显示全部帖子]

用户不能登录，出现提示信息后，为何出错

lyfxybc

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：六尾狐帖子：1290 积分：9820 威望：0 精华：0 注册：2012/9/19 21:13:00

Post By：2015/9/24 21:16:00 [显示全部帖子]

MessageBox.Show("您未获得该电脑授权,无法使用该软件!!!")
Syscmd.Project.Exit(False)
Return

执行完信息“您未获得该电脑授权,无法使用该软件”，后执行“Syscmd.Project.Exit(False)”出错

lyfxybc

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：六尾狐帖子：1290 积分：9820 威望：0 精华：0 注册：2012/9/19 21:13:00

Post By：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

lyfxybc

小大 6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：六尾狐帖子：1290 积分：9820 威望：0 精华：0 注册：2012/9/19 21:13:00

Post By：2015/9/24 22:12:00 [显示全部帖子]

谢谢

下一主题 >> << 上一主题

主题：用户登录为何出错?