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

用户登录为何出错?

 

 

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目1.rar

dr = dt.Find("用户名 ='" & User.Name & "'")

 

改成

 

dr = dt.Find("',' + 用户名 + ',' like '%," & User.Name & ",%'")

谢谢

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

你查询的条件不对，查不到数据，自然执行了退出的代码。

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

 

 

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

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

系统的这个命令有问题，这样退出吧。

 

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

谢谢