机房重构——清空与判空

【前言】

机房重构的时候会遇到很多清空，判空的地方，下面来总结一下清空判空的办法。

【正文】

如果只有几个地方需要清空，直接写下面的代码就OK了。

txtStudentNo.Text = ""
        txtName.Text = ""
        combSex.Text = ""

可是如果要清空很多的地方，上面那种方法就比较麻烦。

                                                   

可以利用模块来进行清空或者判空

一般都是在U层中进行清空或者判空，所以模块就写在U层，

Module CheckModule
    '在模块中定义结构体Term，并定义term类型的结构体数组
    Public Structure Term
        Dim ControlSub As Control
        Dim strText As String
        Sub New(ByVal controlSub As Control, ByVal strText As String)
            With Me
                .ControlSub = controlSub
                .strText = strText
            End With
        End Sub
    End Structure

    '定义一个term类型的结构体数组
    Public arrayControl() As Term

    '判空  的方法
    Public Function CheckIsEmpty(ByVal arrayControl() As Term) As Boolean
        Dim termControl As Term

        '遍历结构体数组中所有的元素，如果控件文本为空，则进行相应提示
        For Each termControl In arrayControl
            If TypeOf termControl.ControlSub Is TextBox Then
                If termControl.ControlSub.Text.Trim = " " Then
                    MessageBox.Show(termControl.strText & "不能为空", "", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
                    termControl.ControlSub.Focus()
                    Return True
                    Exit Function
                End If

            ElseIf TypeOf termControl.ControlSub Is ComboBox Then
                If termControl.ControlSub.Text.Trim = " " Then
                    MessageBox.Show(termControl.strText & "不能为空", "", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
                    termControl.ControlSub.Focus()
                    Return True
                    Exit Function
                End If

            End If

        Next

        Return False  '如果不为空，返回False

    End Function


    '清空所有内容
    Public Function AllEmpty(arrayControl() As Term) As Boolean
        Dim termControl As Term

        For Each termControl In arrayControl

            If TypeOf termControl.ControlSub Is TextBox Or TypeOf termControl.ControlSub Is ComboBox Then
                termControl.ControlSub.Text = ""

            End If
        Next
        Return True  '如果为空返回 True

    End Function

End Module

然后在需要清空的方法里面写上如下代码

 '初始化term类型的结构体数组
    Private Sub Rdim()
        ReDim Preserve arrayControl(4) '重新定义数组维数
        '初始化数组
        arrayControl(0) = New Term(txtCardNo, "卡号"
                                  )
        arrayControl(1) = New Term(txtStudentNo, "学号")
        arrayControl(2) = New Term(combType, "类型")
        arrayControl(3) = New Term(combStatue, "状态")
        arrayControl(4) = New Term(TxtCash, "充值金额")

    End Sub

    Private Sub btnCancel_Click(sender As Object, e As EventArgs) Handles btnCancel.Click
        '调用模块中的清空方法
        Call Rdim()
        If AllEmpty(arrayControl) Then
            Exit Sub
        End If
    End Sub