模板方法模式——【VB.NET机房收费系统(组合查询)】

前端之家收集整理的这篇文章主要介绍了模板方法模式——【VB.NET机房收费系统(组合查询)】前端之家小编觉得挺不错的,现在分享给大家,也给大家做个参考。

友情回顾

学习是一个反复的过程……

当我们要完成在某一细节层次一致的一个过程或一系列步骤,但其个别步骤在更详细的层次上的实现可能不同时,模板方法登场了。个人通俗的理解,模板方法把共同的不变行为抽出(拿出)到一个抽象类,那么子类中的重复代码大大减少,很好的体现了代码复用性。看看模板方法模式的UML


机房收费系统中的模板模式

主要思路是建立一个空的窗体作为父窗体,而其余有具体执行内容的窗体作为子窗体,这样我们在编码过程中只需要对子窗体中不同执行过程的方法进行重写就可以了。

小编就本人就自己的习惯,展示一下我对机房收费系统的组合查询部分的理解和代码的诠释。(红框中的父类模板窗体)




父类窗体中的代码,则是我们一贯抽象出的共同部分

'//*******************************************************
'** 作者: 徐露
'** 创始时间:2014-9-1
'** 小组:
'** 完成时间:2014-10-31
'** 描述:个人机房重构
'** 项目说明:   组合查询父类   
'**********************************************************
Imports ChargeSystem.Entity
Imports ChargeSystem.BLL
Public Class from1
    Public eGroupQuery As New Entity.EGroupQuery
    Private Sub btnQuery_Click(sender As Object,e As EventArgs) Handles btnQuery.Click
        DGV.DataSource = Nothing

        '组合关系A 为空时
        If cboRelationA.Text = "" Then
            Dim arrayControl() As Windows.Forms.Control
            ReDim Preserve arrayControl(2)
            arrayControl(0) = cboFieldA
            arrayControl(1) = cboOperatorA
            arrayControl(2) = txtContentA
            If PublicInfo.IsSomeEmptyText(arrayControl) Then
                Exit Sub
            End If
        End If

        '组合关系A 不为空时
        If cboRelationA.Text <> "" Then
            Dim arrayControl() As Windows.Forms.Control
            ReDim Preserve arrayControl(5)
            arrayControl(0) = cboFieldA
            arrayControl(1) = cboOperatorA
            arrayControl(2) = txtContentA
            arrayControl(3) = cboFieldB
            arrayControl(4) = cboOperatorB
            arrayControl(5) = txtContentB
            If PublicInfo.IsSomeEmptyText(arrayControl) Then
                Exit Sub
            End If
        End If

        '组合关系B 不为空时
        If cboRelationB.Text <> "" Then
            Dim arrayControl() As Windows.Forms.Control
            ReDim Preserve arrayControl(8)
            arrayControl(0) = cboFieldA
            arrayControl(1) = cboOperatorA
            arrayControl(2) = txtContentA
            arrayControl(3) = cboFieldB
            arrayControl(4) = cboOperatorB
            arrayControl(5) = txtContentB
            arrayControl(6) = cboFieldC
            arrayControl(7) = cboOperatorC
            arrayControl(8) = txtContentC
            If PublicInfo.IsSomeEmptyText(arrayControl) Then
                Exit Sub
            End If
        End If

        '定义一个实体
        Dim eGroupQuery As New EGroupQuery
        eGroupQuery.cboFieldA = GetDBName(cboFieldA.Text.Trim)
        eGroupQuery.cboFieldB = GetDBName(cboFieldB.Text.Trim)
        eGroupQuery.cboFieldC = GetDBName(cboFieldC.Text.Trim)
        eGroupQuery.cboOperatorA = cboOperatorA.Text.Trim
        eGroupQuery.cboOperatorB = cboOperatorB.Text.Trim
        eGroupQuery.cboOperatorC = cboOperatorC.Text.Trim
        eGroupQuery.cboRelationA = GetDBName(cboRelationA.Text.Trim)
        eGroupQuery.cboRelationB = GetDBName(cboRelationB.Text.Trim)
        eGroupQuery.txtContentA = txtContentA.Text.Trim
        eGroupQuery.txtContentB = txtContentB.Text.Trim
        eGroupQuery.txtContentC = txtContentC.Text.Trim
        eGroupQuery.GetTable = tablename()

        Dim BGroupQuery As New GroupQueryBLL
        Dim dt As DataTable
        Call DView(eGroupQuery)
    End Sub
    '定义虚函数获取不同数据库表中的字段名
    Protected Overridable Function GetDBName(ByVal Str As String) As String
        Return ""
    End Function
    '定义虚函数获取不同数据库表名
    Protected Overridable Function tablename() As String
        Return ""
    End Function

    Protected Overridable Sub DView(ByVal eGroupQuery As EGroupQuery)

    End Sub
    Private Sub btnExit_Click(sender As Object,e As EventArgs) Handles btnExit.Click
        Me.Close()
    End Sub

    Private Sub cboRelationA_SelectedIndexChanged(sender As Object,e As EventArgs) Handles cboRelationA.SelectedIndexChanged
        If cboRelationA.Text <> "" Then
            cboFieldB.Enabled = True
            cboOperatorB.Enabled = True
            txtContentB.Enabled = True
            cboRelationB.Enabled = True
        End If
    End Sub

    Private Sub cboRelationB_SelectedIndexChanged(sender As Object,e As EventArgs) Handles cboRelationB.SelectedIndexChanged

        If cboRelationB.Text <> "" Then
            cboFieldC.Enabled = True
            cboOperatorC.Enabled = True
            txtContentC.Enabled = True
        End If       
    End Sub

    Protected Sub from1_Load(sender As Object,e As EventArgs) Handles MyBase.Load

        '加载窗体控件的名称
        eGroupQuery.cboFieldA = ""
        eGroupQuery.cboFieldB = ""
        eGroupQuery.cboFieldC = ""


        cboOperatorA.Items.Add("<")
        cboOperatorA.Items.Add(">")



        cboOperatorB.Items.Add("<")
        cboOperatorB.Items.Add(">")



        cboOperatorC.Items.Add("<")
        cboOperatorC.Items.Add(">")


        cboRelationA.Items.Add("与")
        cboRelationA.Items.Add("或")

        cboRelationB.Items.Add("与")
        cboRelationB.Items.Add("或")

        cboFieldB.Enabled = False
        cboOperatorB.Enabled = False
        txtContentB.Enabled = False

        cboRelationB.Enabled = False
        cboFieldC.Enabled = False
        cboOperatorC.Enabled = False
        txtContentC.Enabled = False

    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
        DGV.DataSource = Nothing

    End Sub

    Private Sub Rdim()
        'Dim arrayControl() As Windows.Forms.Control
        ReDim Preserve arrayControl(9)
        arrayControl(0) = New Term(txtContentA,"要查询内容")
        arrayControl(1) = New Term(txtContentB,"要查询内容")
        arrayControl(2) = New Term(txtContentC,"要查询内容")
        arrayControl(3) = New Term(cboFieldA,"选择字段")
        arrayControl(4) = New Term(cboFieldB,"选择字段")
        arrayControl(5) = New Term(cboFieldC,"选择字段")
        arrayControl(6) = New Term(cboOperatorA,"选择操作符")
        arrayControl(7) = New Term(cboOperatorB,"选择操作符")
        arrayControl(8) = New Term(cboOperatorC,"选择操作符")
    End Sub
End Class
这仅仅是UI层中的代码,其他层的代码就不一一展示了,实在还有不理解者大可参考其他人士的代码。与此同理,我们的子类窗体的代码就大大减少了


多看你一眼___建造者模式

建造者模式(将一个复杂对象的构建与它的表示分离,使得同样的构建过程可以创建不同的表示)
题外话:在我校食堂和大神吃饭的时候,大神问:看人吃热干面,我也想吃,不知道好不好?我来了一句:那决定与拌热干面的师傅了,他心情好估计就好吃,心情不好的话…咳咳,我就吃了几次,味道不一样的。然后大神说:你说,这不是咱学过的那个设计模式来着?“是……命令?”“是……什么来这……

就这样小编再次翻开《大话设计模式》,越看越有意思,越看越和模板方法有的一拼

建造者模式同样体现着模板方法,因为Builder类中定义好了ConcreteBuilder必须要重写或要有的方法也就是说Builder中已定义好了要有的方法,这些方法可以在Builder类中实现,也可以把它推迟到子类中实现。模板方法中Abstract2类的重要函数TemplateMethod与建造者模式中的Director类中的函数Build相似,都是定义了方法的执行的骨架。(本内容最好对照《大话设计模式》课本)
它们究竟还有什么不同呢?小编认为,在实现方法的骨架层次上,建造者模式中使用的是组合的方式,而模板方法模式采用的是继承的方式,我们都知道,组合优于继承,所以我认为建造者更灵活,而且也可以避免由继承而引发的各种问题,如代码膨涨,责任过大,难以维护等。

学习是……相互关联的

原文链接:https://www.f2er.com/vb/257727.html

猜你在找的VB相关文章