【房费制】抽象

是空的？我开始与isnull 推断来逐个，但这个地方确实是非常重。我们拿着反复抓必要的抽象原则，同时相似有不同的实现功能。今天被认为是一个概要。开胃菜，希望大家多多提出宝贵意见。

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

推断username是否存在

 这能够单独写一个方法或是小类。

推断是否为空

下面是參照高晓青师傅的博客写的。

''' <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 + +"   " + "请输入数字", vbOKOnly, "提示")
                    ConObject.Focus()
                    flag = False
                    Return flag
                    Exit Function
                End If
            End If
        Next
        Return flag
    End Function

 

这样一个类，能循环推断全部的控件是否为空，或是否为数字。

当然，细致看了上面一个代码你就会了解到，我们还须要在设计空间的时候，将每一个空间写上它们自己的名字，方便给出精准的提示。

这个类直接放在U层就可以。

那我们看看它的client调用时这种。

        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), GETDATE(), 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

 

房费制。这是我们自己的个人生活，使一个系统。这让我先感谢写了许多其他的思维程序。我们有一个非常大的空间去思考如何使我们的代码更灵活，更强大的。我们从代码农民开始，它会越走越远。

再次。希望本文能抛砖引玉，你的房间，您是如何抽象和优化？欢迎您留下意见。