【房费制】抽象

 

是空的？我开始与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

 

 

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

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