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

本文主要是介绍模板方法模式——【VB.NET机房收费系统（组合查询）】，希望对大家解决编程问题提供一定的参考价值，需要的开发者们随着小编来一起学习吧！

友情回顾

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

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

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

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

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

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

'//*******************************************************
'** 作者： 徐露
'** 创始时间：2014-9-1
'** 小组：
'** 完成时间：2014-10-31
'** 描述：个人机房重构
'** 项目说明：   组合查询父类   
'**********************************************************
Imports ChargeSystem.Entity
Imports ChargeSystem.BLL
Public Class from1Public eGroupQuery As New Entity.EGroupQueryPrivate Sub btnQuery_Click(sender As Object, e As EventArgs) Handles btnQuery.ClickDGV.DataSource = Nothing'组合关系A 为空时If cboRelationA.Text = "" ThenDim arrayControl() As Windows.Forms.ControlReDim Preserve arrayControl(2)arrayControl(0) = cboFieldAarrayControl(1) = cboOperatorAarrayControl(2) = txtContentAIf PublicInfo.IsSomeEmptyText(arrayControl) ThenExit SubEnd IfEnd If'组合关系A 不为空时If cboRelationA.Text <> "" ThenDim arrayControl() As Windows.Forms.ControlReDim Preserve arrayControl(5)arrayControl(0) = cboFieldAarrayControl(1) = cboOperatorAarrayControl(2) = txtContentAarrayControl(3) = cboFieldBarrayControl(4) = cboOperatorBarrayControl(5) = txtContentBIf PublicInfo.IsSomeEmptyText(arrayControl) ThenExit SubEnd IfEnd If'组合关系B 不为空时If cboRelationB.Text <> "" ThenDim arrayControl() As Windows.Forms.ControlReDim Preserve arrayControl(8)arrayControl(0) = cboFieldAarrayControl(1) = cboOperatorAarrayControl(2) = txtContentAarrayControl(3) = cboFieldBarrayControl(4) = cboOperatorBarrayControl(5) = txtContentBarrayControl(6) = cboFieldCarrayControl(7) = cboOperatorCarrayControl(8) = txtContentCIf PublicInfo.IsSomeEmptyText(arrayControl) ThenExit SubEnd IfEnd If'定义一个实体Dim eGroupQuery As New EGroupQueryeGroupQuery.cboFieldA = GetDBName(cboFieldA.Text.Trim)eGroupQuery.cboFieldB = GetDBName(cboFieldB.Text.Trim)eGroupQuery.cboFieldC = GetDBName(cboFieldC.Text.Trim)eGroupQuery.cboOperatorA = cboOperatorA.Text.TrimeGroupQuery.cboOperatorB = cboOperatorB.Text.TrimeGroupQuery.cboOperatorC = cboOperatorC.Text.TrimeGroupQuery.cboRelationA = GetDBName(cboRelationA.Text.Trim)eGroupQuery.cboRelationB = GetDBName(cboRelationB.Text.Trim)eGroupQuery.txtContentA = txtContentA.Text.TrimeGroupQuery.txtContentB = txtContentB.Text.TrimeGroupQuery.txtContentC = txtContentC.Text.TrimeGroupQuery.GetTable = tablename()Dim BGroupQuery As New GroupQueryBLLDim dt As DataTableCall DView(eGroupQuery)End Sub'定义虚函数，获取不同数据库表中的字段名Protected Overridable Function GetDBName(ByVal Str As String) As StringReturn ""End Function'定义虚函数，获取不同数据库表名Protected Overridable Function tablename() As StringReturn ""End FunctionProtected Overridable Sub DView(ByVal eGroupQuery As EGroupQuery)End SubPrivate Sub btnExit_Click(sender As Object, e As EventArgs) Handles btnExit.ClickMe.Close()End SubPrivate Sub cboRelationA_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cboRelationA.SelectedIndexChangedIf cboRelationA.Text <> "" ThencboFieldB.Enabled = TruecboOperatorB.Enabled = TruetxtContentB.Enabled = TruecboRelationB.Enabled = TrueEnd IfEnd SubPrivate Sub cboRelationB_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cboRelationB.SelectedIndexChangedIf cboRelationB.Text <> "" ThencboFieldC.Enabled = TruecboOperatorC.Enabled = TruetxtContentC.Enabled = TrueEnd If       End SubProtected 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 = FalsecboOperatorB.Enabled = FalsetxtContentB.Enabled = FalsecboRelationB.Enabled = FalsecboFieldC.Enabled = FalsecboOperatorC.Enabled = FalsetxtContentC.Enabled = FalseEnd SubPrivate Sub btnCancel_Click(sender As Object, e As EventArgs) Handles btnCancel.ClickCall Rdim()If AllEmpty(arrayControl) ThenExit SubEnd IfDGV.DataSource = NothingEnd SubPrivate Sub Rdim()'Dim arrayControl() As Windows.Forms.ControlReDim 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相似，都是定义了方法的执行的骨架。（本内容最好对照《大话设计模式》课本）
           它们究竟还有什么不同呢？小编认为，在实现方法的骨架层次上，建造者模式中使用的是组合的方式，而模板方法模式采用的是继承的方式，我们都知道，组合优于继承，所以我认为建造者更灵活，而且也可以避免由继承而引发的各种问题，如代码膨涨，责任过大，难以维护等。

 

         学习是……相互关联的

 

这篇关于模板方法模式——【VB.NET机房收费系统（组合查询）】的文章就介绍到这儿，希望我们推荐的文章对编程师们有所帮助！

---