VB.Net实现用户登录

[Vieky]

下面的是我的代码：
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim conn_err As Integer
Try
Me.ViekyTableAdapter.Fill(Me.VbstudyDataSet.Vieky)
Catch ex As Exception
Me.lblMessage.Text = ex.Message
Me.lblMessage.BackColor = Color.Red
conn_err = 1
End Try
If conn_err = 0 Then
Me.lblMessage.Text = ""
Me.lblMessage.BackColor = Color.LightGreen
End If
End Sub

Private Sub btnLogin_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnLogin.Click
Dim un As String
Dim pw As String
un = Me.txtUserName.Text
pw = Me.txtPassword.Text
If un = "" Then
MsgBox("用户名输入为空。请输入！", MsgBoxStyle.OkOnly, "出错咯 - -!")
ElseIf pw = "" Then
MsgBox("密码输入为空。请输入！", MsgBoxStyle.OkOnly, "出错咯 - -!")
Else
Dim i As Integer
For i = 0 To Me.VbstudyDataSet.Vieky.Rows.Count - 1
If Me.VbstudyDataSet.Vieky.Rows(i)("uid") = un Then
MsgBox("用户名检测完成")
End If
Next
End If

程序数据库连接正常，但运行后，以下这段没反应
If Me.VbstudyDataSet.Vieky.Rows(i)("uid") = un Then
MsgBox("用户名检测完成")
End If
希望高手指出不足和如何修改，谢谢！

[Vieky]

555555555，没人答我。。。。。

[ou108]

楼主想做什么?
代码有错吗?

[Vieky]

就是判断输入的帐号和密码和数据库里的一不一样。

代理在VS中显示都没有出错，但
If Me.VbstudyDataSet.Vieky.Rows(i)("uid") = un Then
MsgBox("用户名检测完成")
End If
这里的作用没效果出来，我觉得是Me.VbstudyDataSet.Vieky.Rows(i)("uid")的问题

我的数据库里的表 Vieky 里面有这两个字段 uid pwd

[ou108]

我这里有段登录代码,楼主参考一下:

Private Sub BtnOK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnOK.Click
Try
Dim uid, uname, pass As String
uid = Me.ComboBoxfcCode.Text.Trim
uname = Me.ComboBoxUser.Text.Trim
pass = Me.TextBoxPass.Text.Trim
fcUid = Me.ComboBoxfcCode.Text.Trim
fcUname = Me.ComboBoxUser.Text.Trim
If uid = "" Then
MsgBox("用戶ID不能為空!", MsgBoxStyle.Information, "System Info!")
Exit Sub
ElseIf uname = "" Then
MsgBox("用戶名稱不能為空!", MsgBoxStyle.Information, "System Info!")
Exit Sub
ElseIf pass = "" Then
MsgBox("用戶密碼不能為空!", MsgBoxStyle.Information, "System Info!")
Exit Sub
End If
sqlstr = "select * from hp_userinfo where fcid='" & uid & "' and fcname='" & uname & "' and fcpass='" & pass & "'"
dt.Clear()
dt = sqlexecute.GetDataTable(sqlstr)
If dt.Rows.Count - 1 >= 0 Then
Dim frm As New FrmMain
frm.Show()
Me.Hide()
Else
MsgBox("用戶ID或用戶名稱或密碼不對!請核對!", MsgBoxStyle.Information, "System Info!")
Me.TextBoxPass.Text = ""
Me.TextBoxPass.Focus()
Exit Sub
End If
Catch ex As Exception
MsgBox(Err.Description, MsgBoxStyle.Exclamation, "System Error!")
End Try
End Sub