主题：关于Select的问题(已解决)

如果输入的账号不存在就弹窗提示“账号不存在”，请问代码应该怎么写啊？

请帮忙在我一下代码中添加，谢谢！

 

Dim UserName As String = e.Form.Controls("账号1").Value
Dim Usermima As String = e.Form.Controls("密码1").Value
Dim cmd As New SQLCommand
Dim dt As DataTable
Dim dr As DataRow
cmd.C
If UserName = ""  Then
    Messagebox.show("请输入用户名!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
Return
End If
cmd.CommandText = "Select * From {xtuser} Where [用户账号] = '" & UserName & "'"
dt = cmd.ExecuteReader
dr = dt.DataRows(0)
If Usermima = dr("用户密码") Then
    e.Form.Close
Else
    Messagebox.show("用户账号或密码不正确!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
End If

 

 

输入该代码后，按确定就提示count 不是DataTable的成员

帮忙看看以下代码出错在哪里！黄色字体的代码运行时提示“count 不是DataTable的成员”，粉红色字体的代码运行时提示“登录状态”不属于“表”，我是想账号密码正确就保存“登陆状态”为“TRUE”

 

Dim UserName As String = e.Form.Controls("账号1").Value
Dim Usermima As String = e.Form.Controls("密码1").Value
Dim rdo1 As WinForm.RadioButton
Dim rdo2 As WinForm.RadioButton
rdo1 = e.Form.Controls("收银台")
rdo2 = e.Form.Controls("管理台")
Dim cmd As New SQLCommand
Dim dt As DataTable
Dim dr As DataRow
cmd.C
If UserName = ""  Then
    Messagebox.show("请输入用户名!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
    Return
ElseIf Usermima = ""  Then
    Messagebox.show("请输入登陆密码!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
    Return
ElseIf Usermima.Length <> 6 Then
    Messagebox.show("密码长度不足6位数!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
    Return
End If
cmd.CommandText = "Select * From {xtuser} Where [用户账号] = '" & UserName & "'"
dt = cmd.ExecuteReader
If dt.count=0 Then
Messagebox.show("账号不存在!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
End If
dr = dt.DataRows(0)
Dim dr1 As DataRow
If Usermima = dr("用户密码") Then
   If dr("登录状态") = False Then
      If rdo1.Checked = True Then
      dr1("登录状态") = True
      e.Form.Close()
      ElseIf rdo2.Checked = True Then
      MessageBox.Show("后台尚在制作中……暂时不能使用!", "温馨提示!")
      End If
   Else
   MessageBox.Show("该账号已经在其他终端登陆!", "温馨提示!")
   End If
Else
    Messagebox.show("用户账号或密码不正确!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
End If

账号不存在提示问题已经解决，谢谢！

第二个问题：粉红色字体的代码运行时提示“登录状态”不属于“表”，我是想账号密码正确就保存“登陆状态”为“TRUE”

 

请问如何将TRUE保存到“登录状态”列中呢？

麻烦帮忙检查附件中的项目，谢谢！ 开发者密码默认：888

 

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

点击浏览该文件:新建文件夹.rar

我的目的是：首先判断用户账号是否存在，如果存在就判断账号和密码是否正确，如果正确就判断该账号是否已经登录，如果“登录状态”为TRUE，就提示“已经登录”，否则就将“登录状态”保存为“true”，打开另一个窗口并关闭该登录窗口，谢谢！

这个就是我想问的，谢谢我如果登录状态为false，就修改为true

老大，我的问题就是如果admin账号登陆了，别的机子就不能登陆，否则就可以登陆；也就是说如果admin登录状态为“false” 就可以登陆并且把admin的“登陆状态”修改为“true”，问题就是如何修改为“true”!