Ahrdie-OOD-VB-045

Public Class Form1
    Dim intValue As Integer
    Private Sub btnCheckEntry_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCheckEntry.Click
        Dim clsValidate As New ValidateTextBox
        If clsValidate.IsTextBoxEmpty(txtStudentID) = True Then
            If clsValidate.IsTextBoxEmpty(txtFirstName) = True Then
                If clsValidate.IsTextBoxEmpty(txtMiddleName) = True Then
                    If clsValidate.IsTextBoxEmpty(txtLastName) = True Then
                        If clsValidate.IsTextBoxEmpty(txtAddress) = True Then
                            If clsValidate.IsTextBoxEmpty(txtAge) = True Then
                                MsgBox("Please fill out all necessary fields")
                            End If
                        End If
                    End If
                End If
            End If
        ElseIf Not IsNumeric(txtStudentID.Text) = True Then
            MsgBox("Please enter numbers only.", vbInformation)
            'you may also consider erasing it
            txtStudentID.Text = ""
            txtStudentID.Focus()

            Exit Sub
        ElseIf clsValidate.IsTextBoxEmpty(txtFirstName) = True And clsValidate.IsTextBoxEmpty(txtMiddleName) = True And clsValidate.IsTextBoxEmpty(txtLastName) = True And clsValidate.IsTextBoxEmpty(txtAddress) = True And clsValidate.IsTextBoxEmpty(txtAge) = True Then
            MsgBox("Please Fill Student First,Middle,Last Name, Address and Age")
            txtFirstName.Focus()
        ElseIf clsValidate.IsTextBoxEmpty(txtFirstName) = True And clsValidate.IsTextBoxEmpty(txtMiddleName) = False And clsValidate.IsTextBoxEmpty(txtLastName) = True And clsValidate.IsTextBoxEmpty(txtAddress) = False And clsValidate.IsTextBoxEmpty(txtAge) = True Then
            MsgBox("Please Fill Student FirstName, LastName and Age")
            txtFirstName.Focus()
        ElseIf clsValidate.IsTextBoxEmpty(txtFirstName) = False And clsValidate.IsTextBoxEmpty(txtMiddleName) = True And clsValidate.IsTextBoxEmpty(txtLastName) = False And clsValidate.IsTextBoxEmpty(txtAddress) = True And clsValidate.IsTextBoxEmpty(txtAge) = False Then
            MsgBox("Please Fill Student MiddleName and Address")
            txtFirstName.Focus()
        ElseIf clsValidate.IsTextBoxEmpty(txtFirstName) = True And clsValidate.IsTextBoxEmpty(txtMiddleName) = True And clsValidate.IsTextBoxEmpty(txtLastName) = True Then
            MsgBox("Please Fill FirstName, MiddleName and LastName")
            txtFirstName.Focus()
        ElseIf clsValidate.IsTextBoxEmpty(txtMiddleName) = True And clsValidate.IsTextBoxEmpty(txtLastName) = True And clsValidate.IsTextBoxEmpty(txtAddress) = True Then
            MsgBox("Please Fill MiddleName, LastName and Address")
            txtMiddleName.Focus()
        ElseIf clsValidate.IsTextBoxEmpty(txtLastName) = True And clsValidate.IsTextBoxEmpty(txtAddress) = True And clsValidate.IsTextBoxEmpty(txtAge) = True Then
            MsgBox("Please Fill LastName, Address and Age")
        ElseIf clsValidate.IsTextBoxEmpty(txtFirstName) = True And clsValidate.IsTextBoxEmpty(txtMiddleName) = True Then
            MsgBox("Please Fill FirstName and MiddleName")
        ElseIf clsValidate.IsTextBoxEmpty(txtMiddleName) = True And clsValidate.IsTextBoxEmpty(txtLastName) = True Then
            MsgBox("Please Fill MiddleName and LastName")
        ElseIf clsValidate.IsTextBoxEmpty(txtLastName) = True And clsValidate.IsTextBoxEmpty(txtAddress) = True Then
            MsgBox("Please Fill LastName and Address")
        ElseIf clsValidate.IsTextBoxEmpty(txtAddress) = True And clsValidate.IsTextBoxEmpty(txtAge) = True Then
            MsgBox("Please Fill Address and Age")
        ElseIf clsValidate.IsTextBoxEmpty(txtFirstName) = True And clsValidate.IsTextBoxEmpty(txtMiddleName) = False And clsValidate.IsTextBoxEmpty(txtLastName) = True Then
            MsgBox("Please Fill FirstName and LastName")
        ElseIf clsValidate.IsTextBoxEmpty(txtMiddleName) = True And clsValidate.IsTextBoxEmpty(txtLastName) = False And clsValidate.IsTextBoxEmpty(txtAddress) = True Then
            MsgBox("Please Fill MiddleName and Address")
        ElseIf clsValidate.IsTextBoxEmpty(txtLastName) = True And clsValidate.IsTextBoxEmpty(txtAddress) = False And clsValidate.IsTextBoxEmpty(txtAge) = True Then
            MsgBox("Please Fill LastName and Age")
        ElseIf clsValidate.IsTextBoxEmpty(txtFirstName) = True Then
            MsgBox("Please Fill FirstName")
        ElseIf clsValidate.IsTextBoxEmpty(txtMiddleName) = True Then
            MsgBox("Please Fill MiddleName")
        ElseIf clsValidate.IsTextBoxEmpty(txtLastName) = True Then
            MsgBox("Please Fill LastName")
        ElseIf clsValidate.IsTextBoxEmpty(txtAddress) = True Then
            MsgBox("Please Fill Address")
        ElseIf clsValidate.IsTextBoxEmpty(txtAge) = True Then
            MsgBox("Please Fill Age")
        ElseIf Not IsNumeric(txtAge.Text) = True Then
            MsgBox("Invalid Age")
            txtAge.Text = ""
        End If


        If txtFirstName.Text.Length > 30 Then
            MsgBox("Value Entered in FirstName, MiddleName and LastName should not exceed 30 characters")
        End If
        If txtMiddleName.Text.Length > 30 Then
            MsgBox("Value Entered in FirstName, MiddleName and LastName  should not exceed 30 characters")
        End If
        If txtLastName.Text.Length > 30 Then
            MsgBox("Value Entered in FirstName, MiddleName and LastName should not exceed 30 characters")
        End If
    End Sub
    Private Sub btnExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnExit.Click
        Close()
    End Sub
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub
End Class