【机房收费系统】抽象

是否为空？一开始我是用的isnull 来逐个判断的，但是重复的地方的确很多。我们秉着一个重复就要努力抽象的原则，同时争取相似的功能用不同的实现方式。今天算是做个小结，抛砖引玉，希望大家多多的提宝贵意见。

抽象，是为了实现更好的代码复用，也便于日后的维护。希望在做合作版的时候，能对这些问题有一个更加深刻的理解。

判断用户名是否存在

这可以单独写一个方法或是小类。

判断是否为空

以下是参照高晓青师傅的博客写的。

''' <summary>
''' 判断窗体上所有控件是否为空  
''' </summary>
''' <remarks>Boolean</remarks>

Public Class IsRight
    Public Function isNull(log As Windows.Forms.Control.ControlCollection) As Boolean
        Dim ConObject As New Control
        Dim flag As Boolean
        flag = True  '默认所有控件内部都有值
        For Each ConObject In log
            '利用TypeOf 查看空间类型
            If TypeOf (ConObject) Is TextBox Then
                If ConObject.Text.Trim = "" Then 'Tag代表当前为空的控件
                    MsgBox(ConObject.Tag.ToString + "不能为空，请输入完整",vbOKOnly,"提示")
                    ConObject.Focus()
                    flag = False
                    Return flag
                    Exit Function
                End If
            End If
        Next
        Return flag
    End Function

    ''' <summary>
    ''' 判断是否为数字
    ''' </summary>
    ''' <param name="log"></param>
    ''' <returns></returns>
    ''' <remarks>Boolean</remarks>
    Public Function IsNumberic(log As Windows.Forms.Control.ControlCollection) As Boolean
        Dim ConObject As New Control
        Dim flag As Boolean
        flag = True  '默认所有控件内部都有值
        For Each ConObject In log
            '利用TypeOf 查看空间类型
            If TypeOf (ConObject) Is TextBox Then
                If IsNumeric(ConObject.Text) = False Then 'Tag代表当前为空的控件
                    MsgBox(ConObject.Tag.ToString + +"   " + "请输入数字","提示")
                    ConObject.Focus()
                    flag = False
                    Return flag
                    Exit Function
                End If
            End If
        Next
        Return flag
    End Function

这样一个类，能循环判断所有的控件是否为空，或是否为数字。当然，仔细看了上面一个代码你就会了解到，我们还需要在设计空间的时候，将每个空间写上它们自己的名字，方便给出精准的提示。

这个类直接放在U层即可。

那我们看看它的客户端调用时这样的。

        Dim MyObject As New IsRight
        Dim MyObjectNum As New IsRight

        If MyObject.isNull(Controls) = False Then
            Exit Sub
        End If
        If MyObjectNum.IsNumberic(Controls) = False Then
            Exit Sub
        End If

获取数据库时间

U层

Public Class GetTime
    Shared Function GetDate() As Date
        Dim getDate1 As New BLL.TimeBLL
        Return getDate1.GetDate
    End Function

    Shared Function GetTime() As Date
        Dim getTime1 As New BLL.TimeBLL
        Return getTime1.GetTime
    End Function
End Class

B层只是个传递，并无实质性内容。我们看看D层的代码。你能一眼找到关键的两句么

    ''' <summary>
    ''' 获取日期
    ''' </summary>
    ''' <returns></returns>
    ''' <remarks></remarks>
    Public Function GetDate() As Date Implements ITime.GetDate
        Dim sql As String '定义字符串变量sql 用于存放要执行的语句
        sql = "Select CONVERT(varchar(100),GETDATE(),23)  " '获取日期的代码
        Dim cmdType As CommandType = CommandType.Text 'commandType 指定如何解释命令字符串
        Dim sqlHelper As New Global.sqlHelper.sqlHelper '实例化sqlHelper这个类的对象
        Dim dt As New DataTable
        Dim sqlDate As String
        dt = sqlHelper.ExecSelectNo(sql,CommandType.Text)
        sqlDate = dt.Rows(0)(0).ToString
        Return sqlDate
    End Function

    ''' <summary>
    ''' 获取时间
    ''' </summary>
    ''' <returns></returns>
    ''' <remarks></remarks>
    Public Function GetTime() As Date Implements ITime.GetTime
        Dim sql As String '定义字符串变量sql 用于存放要执行的语句
        sql = "Select CONVERT(varchar(100),24)  "
        Dim cmdType As CommandType = CommandType.Text 'commandType 指定如何解释命令字符串
        Dim Parameter As sqlParameter() 'sqlParameter表示 sqlCommand 的参数，也可以是它到 DataSet 列的映射
        Parameter = {}
        Dim sqlHelper As New Global.sqlHelper.sqlHelper '实例化sqlHelper这个类的对象
        Dim dt As New DataTable
        Dim sqlTime As Date
        dt = sqlHelper.ExecSelectNo(sql,CommandType.Text)
        sqlTime = dt.Rows(0)(0).ToString
        Return sqlTime
    End Function
End Class

机房收费系统，是我们自己亲自赋予生命的一个系统。感谢它让我开始对敲代码有了更多的思考。我们有了很大的空间去思考如何让我们的代码更灵活和更健壮。我们从码农开始，会走的越来越远。还是那句话，希望本文能抛砖引玉，你的机房，你是怎么抽象和优化的呢？欢迎各位留下宝贵意见。