Private Sub btnLogin_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnLogin.Click
Dim Check As cUser
Check = New cUser
Check.Name = txtUsername.Text
Check.Password = txtUserpwd.Text
Check.Type = cboType.Text
Check.Check()
Check = Nothing


End Sub

Private Sub btnReset_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnReset.Click
txtUsername.Text = ""
txtUserpwd.Text = ""
cboType.Text = ""
End Sub
cUser.vb:
Public Class cUser
Public Name As String
Public Password As String
Public Type As String

Sub Check()

If Name = "zs" Then
If Password = "123" Then
If Type = "学生" Then
MessageBox.Show("恭喜，登录成功", "提示", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
Else
MessageBox.Show("用户类型不符", "提示", MessageBoxButtons.OK, MessageBoxIcon.Error)
End If
Else
MessageBox.Show("密码不正确", "提示", MessageBoxButtons.OK, MessageBoxIcon.Error)
End If
ElseIf Name = "ls" Then
If Password = "456" Then
If Type = "教师" Then
MessageBox.Show("恭喜，登录成功", "提示", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
Else
MessageBox.Show("用户类型不符", "提示", MessageBoxButtons.OK, MessageBoxIcon.Error)
End If
Else
MessageBox.Show("密码不正确", "提示", MessageBoxButtons.OK, MessageBoxIcon.Error)
End If
Else
MessageBox.Show("该用户名不存在", "提示", MessageBoxButtons.OK, MessageBoxIcon.Error)
End If


End Sub