机房重构之模版方法模式-组合查询

最新推荐文章于 2021-06-18 20:45:18 发布
最新推荐文章于 2021-06-18 20:45:18 发布
阅读量2.6k 收藏
点赞数 2
分类专栏： 机房收费系统 设计模式 设计模式 vb.net及实例应用 文章标签： 机房重构 组合查询 设计模式 模版模式 vb.NET
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/u010168160/article/details/40395957
版权

       机房收费系统中，一个比较让人纠结功能就是组合查询，不仅仅是代码比较多，而且大多都是重复的代码，也正是因为如此，才比较适合模版方法模式。

       一、基本介绍

            模版方式模式是定义一个操作中的算法的骨架，而将步骤延迟到子类中。

          模板方法使得子类可以不改变一个算法的结构即可重定义算法的某些特定步骤。

类图

　　

       二、具体实现

         1、建立模板父窗体

            添加Windows窗体，设计模板界面（如下图），并在模板窗体里写入抽象出来的类和方法的代码。



'*************************************************   
'作者：崔晓光  
'小组：    
'说明：组合查询模板  
'创建日期：2014.9.9  
'版本号：  
'**********************************************/ 
Imports Entity
Imports Microsoft.Office.Interop.Excel
Imports Microsoft.Office.Interop
Imports System.Data
Imports System.IO
'组合查询父窗体
Public Class FrmComQueryParent
    '实例化一个组合查询的实体
    Protected comQueryEntity As New ComQueryEntity
    ’加载
    Protected Sub FrmComQueryParent_Load(sender As Object, e As EventArgs) Handles MyBase.Load

        '将参数传递给实体，赋初值

        '字段名
        comQueryEntity.CmbName1 = ""
        comQueryEntity.CmbName2 = ""
        comQueryEntity.CmbName3 = ""

        '操作符
        cmbMark1.Items.Add(">")
        cmbMark1.Items.Add("<")
        cmbMark1.Items.Add("=")
        cmbMark1.Items.Add("<>")

        cmbMark2.Items.Add(">")
        cmbMark2.Items.Add("<")
        cmbMark2.Items.Add("=")
        cmbMark2.Items.Add("<>")

        cmbMark3.Items.Add(">")
        cmbMark3.Items.Add("<")
        cmbMark3.Items.Add("=")
        cmbMark3.Items.Add("<>")

        '关系
        cmbRelation1.Items.Add("与")
        cmbRelation1.Items.Add("或")

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

        '窗体加载后，后两组查询默认不能用
        cmbName2.Enabled = False
        cmbName3.Enabled = False
        cmbMark2.Enabled = False
        cmbMark3.Enabled = False

        cmbRelation2.Enabled = False
        txtContent2.Enabled = False
        txtContent3.Enabled = False

        Dim i As Integer
        For i = 0 To dgvRecord.Columns.Count - 1
            dgvRecord.Columns(i).Width = DataGridViewAutoSizeColumnMode.AllCells   '调整列宽为根据内容自动调整
        Next
    End Sub
    '查询
    Private Sub btQuery_Click(sender As Object, e As EventArgs) Handles btQuery.Click

        Try
            '判断组合框不为空
            If cmbRelation1.Text = "" Then
                If cmbName1.Text = "" Or cmbMark1.Text = "" Or txtContent1.Text = "" Then
                    MsgBox("第一行查询条件不能为空，请完善查询信息！", CType(vbOKOnly + MsgBoxStyle.Exclamation, MsgBoxStyle), "提示")
                    Exit Sub
                End If
            End If

            If cmbRelation1.Text <> "" Then
                If cmbName1.Text = "" Or cmbMark1.Text = "" Or txtContent1.Text = "" Or cmbName2.Text = "" Or cmbMark2.Text = "" Or txtContent2.Text = "" Then
                    MsgBox("所输入的查询条件不能为空，请完善查询信息！", CType(vbOKOnly + MsgBoxStyle.Exclamation, MsgBoxStyle), "提示")
                    Exit Sub
                End If
            End If

            If cmbRelation2.Text <> "" Then
                If cmbName1.Text = "" Or cmbMark1.Text = "" Or txtContent1.Text = "" Or cmbName2.Text = "" Or cmbMark2.Text = "" Or txtContent2.Text = "" Or cmbName3.Text = "" Or cmbMark3.Text = "" Or txtContent3.Text = "" Then
                    MsgBox("所输入的查询条件不能为空，请完善查询信息！", CType(vbOKOnly + MsgBoxStyle.Exclamation, MsgBoxStyle), "提示")
                    Exit Sub
                End If
            End If

            '将参数传给实体
            comQueryEntity.DbName = GetdbName()
            comQueryEntity.CmbName1 = ToEnglish(cmbName1.Text)
            comQueryEntity.CmbName2 = ToEnglish(cmbName2.Text)
            comQueryEntity.CmbName3 = ToEnglish(cmbName3.Text)

            comQueryEntity.CmbMark1 = cmbMark1.Text.Trim
            comQueryEntity.CmbMark2 = cmbMark2.Text.Trim
            comQueryEntity.CmbMark3 = cmbMark3.Text.Trim

            '在查询时非数字要加上''
            If IsNumeric(txtContent1.Text) Then
                comQueryEntity.TxtContent1 = txtContent1.Text.Trim
            Else
                comQueryEntity.TxtContent1 = "'" & txtContent1.Text.Trim & "'"
            End If
            If IsNumeric(txtContent2.Text) Then
                comQueryEntity.TxtContent2 = txtContent2.Text.Trim
            Else
                comQueryEntity.TxtContent2 = "'" & txtContent2.Text.Trim & "'"
            End If
            If IsNumeric(txtContent3.Text) Then
                comQueryEntity.TxtContent3 = txtContent3.Text.Trim
            Else
                comQueryEntity.TxtContent3 = "'" & txtContent3.Text.Trim & "'"
            End If

            '前者还是后者  
            comQueryEntity.CmbRelation1 = ToEnglish(cmbRelation1.Text)
            comQueryEntity.CmbRelation2 = ToEnglish(cmbRelation2.Text)


            Dim dt As New Data.DataTable
            Dim facadeGeneral As New Facade.Facade.FacadeGeneral

            ' 把表显示到datagridview中  
            Call Todgv(comQueryEntity)

        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    End Sub

    ''' <summary>  
    ''' 模板方法，定义虚函数ToEnglish，查询字段转化为数据库字段  
    ''' </summary>  
    ''' <param name="cmbName"></param>  
    ''' <returns></returns>  
    ''' <remarks></remarks>  
    Public Overridable Function ToEnglish(cmbName As String) As String
        Return ""

    End Function
    ''' <summary>  
    ''' 获得数据库表名  
    ''' </summary>  
    ''' <returns></returns>  
    ''' <remarks></remarks>  
    Protected Overridable Function GetdbName() As String
        Return ""
    End Function

    ''' <summary>  
    ''' 把表显示到datagridview中  
    ''' </summary>  
    ''' <remarks></remarks>  
    Protected Overridable Sub Todgv(ByVal comQueryEntity As ComQueryEntity)

    End Sub

    ''' <summary>  
    ''' 拼接字符串  
    ''' </summary>  
    ''' <param name="frm"></param>  
    ''' <returns></returns>  
    ''' <remarks></remarks> 
    Public Function Query(frm As FrmComQueryParent, ByVal comQueryEntity As ComQueryEntity) As String

        Dim cmdText As String = "" & frm.ToEnglish(frm.cmbName1.Text) & frm.cmbMark1.Text & "" & comQueryEntity.TxtContent1 & ""

        '非组合查询
        If frm.cmbRelation1.Text = "" Then
            cmdText = cmdText
            '关系2为空，关系1不为空
        ElseIf frm.cmbRelation2.Text = "" Then
            cmdText = cmdText & frm.ToEnglish(frm.cmbRelation1.Text) & "" & frm.ToEnglish(frm.cmbName2.Text) & frm.cmbMark2.Text & "" & comQueryEntity.TxtContent2 & ""
        Else
            '关系1，2都不为空
            cmdText = cmdText & frm.ToEnglish(frm.cmbRelation1.Text) & "" & _
                        frm.ToEnglish(frm.cmbName2.Text) & frm.cmbMark2.Text & "'" & comQueryEntity.TxtContent2 & "'" & "" & _
                        frm.ToEnglish(frm.cmbRelation2.Text) & "" & _
                        frm.ToEnglish(frm.cmbName3.Text) & frm.cmbMark3.Text & "'" & comQueryEntity.TxtContent3 & "'"
        End If

        Return cmdText

    End Function


    ''' <summary>  
    ''' 第一个组合关系是否为空  
    ''' </summary>  
    ''' <param name="sender"></param>  
    ''' <param name="e"></param>  
    ''' <remarks></remarks>  

    Private Sub cmbRelation1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cmbRelation1.SelectedIndexChanged

        If cmbRelation1.Text = "" Then
            cmbName2.Enabled = False
            cmbName3.Enabled = False
            cmbMark2.Enabled = False
            cmbMark3.Enabled = False

            cmbRelation2.Enabled = False
            txtContent2.Enabled = False
            txtContent3.Enabled = False
        Else
            cmbName2.Enabled = True
            cmbMark2.Enabled = True
            cmbRelation2.Enabled = True
            txtContent2.Enabled = True
        End If
    End Sub

    ''' <summary>  
    ''' 第二个组合关系是否为空  
    ''' </summary>  
    ''' <param name="sender"></param>  
    ''' <param name="e"></param>  
    ''' <remarks></remarks>  
    Private Sub cmbRelation2_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cmbRelation2.SelectedIndexChanged

        If cmbRelation2.Text = "" Then
            cmbName3.Enabled = False
            cmbMark3.Enabled = False
            txtContent3.Enabled = False
        Else
            cmbName3.Enabled = True
            cmbMark3.Enabled = True
            txtContent3.Enabled = True
        End If

    End Sub
    ''' <summary>
    ''' 关闭该窗体
    ''' </summary>
    ''' <param name="sender"></param>
    ''' <param name="e"></param>
    ''' <remarks></remarks>
    Private Sub btCancel_Click(sender As Object, e As EventArgs) Handles btCancel.Click
        Me.Close()
    End Sub


    '导出为Excel
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

         '要先添加引用才能用到 Microsoft.Office.Interop.Excel.Application()
        Dim MyExcel As New Microsoft.Office.Interop.Excel.Application()
        MyExcel.Application.Workbooks.Add(True)
        MyExcel.Visible = True

        '去除dgvRecord的编号列（这里也可以不要）
        Dim m As Integer
        For m = 0 To dgvRecord.ColumnCount - 1
            MyExcel.Cells(1, m + 1) = Me.dgvRecord.Columns(m).HeaderText
        Next m

        '往excel表里添加数据
        Dim i As Integer
        For i = 0 To Me.dgvRecord.RowCount - 1
            Dim j As Integer
            For j = 0 To dgvRecord.ColumnCount - 1
                If Me.dgvRecord(j, i).Value Is System.DBNull.Value Then

                    MyExcel.Cells(i + 2, j + 1) = ""
                Else
                    MyExcel.Cells(i + 2, j + 1) = dgvRecord(j, i).Value.ToString

                End If
            Next j
        Next i
    End Sub

End Class

      2、建立子窗体

         如下图建立子窗体，选择继承创建的父窗体模板，然后就可以得到一模一样的子窗体了。通过在子窗体里重写一些方法和类，以实现不同的功能就可以了。

    

    

    实现上机学生查询的代码如下：

'*************************************************   
'作者：崔晓光  
'小组：    
'说明：学生上机组合查询 
'创建日期：2014.9.9  
'版本号：  
'**********************************************/ 

Imports Entity.Entity
Imports Entity

'学生正在上机查询
Public Class FrmComQueryStudentOn

    ''' <summary>  
    ''' 加载combo的item  
    ''' </summary>  
    ''' <param name="sender"></param>  
    ''' <param name="e"></param>  
    ''' <remarks></remarks>  
    Private Sub FrmComQueryStudentOn_Load(sender As Object, e As EventArgs) Handles MyBase.Load

        cmbName1.Items.Add("卡号")
        cmbName1.Items.Add("上机日期")
        cmbName1.Items.Add("上机时间")
        cmbName1.Items.Add("机器名")

        cmbName2.Items.Add("卡号")
        cmbName2.Items.Add("上机日期")
        cmbName2.Items.Add("上机时间")
        cmbName2.Items.Add("机器名")

        cmbName3.Items.Add("卡号")
        cmbName3.Items.Add("上机日期")
        cmbName3.Items.Add("上机时间")
        cmbName3.Items.Add("机器名")

    End Sub

    ''' <summary>  
    ''' 把加载的汉字转换成数据库的字段  
    ''' </summary>  
    ''' <param name="cmbName"></param>  
    ''' <returns></returns>  
    ''' <remarks></remarks>  
    Public Overrides Function ToEnglish(cmbName As String) As String

        Select Case cmbName
            Case "卡号"
                ToEnglish = "cardId"
            Case "上机日期"
                ToEnglish = "onDate"
            Case "上机时间"
                ToEnglish = "onTime"
            Case "机器名"
                ToEnglish = "local"
            Case "与"
                ToEnglish = " and "
            Case "或"
                ToEnglish = " or "
            Case Else
                ToEnglish = ""
        End Select

    End Function

    ''' <summary>  
    ''' 传数据库表名  
    ''' </summary>  
    ''' <returns></returns>  
    ''' <remarks></remarks>  
    Protected Overrides Function GetdbName() As String
        Return "LineRecord_Info"
    End Function

    ''' <summary>  
    ''' 查询并把数据显示到datagridview中  
    ''' </summary>  
    ''' <remarks></remarks>  
    Protected Overrides Sub Todgv(ByVal comQueryEntity As ComQueryEntity)

        Dim returnList As New List(Of LineRecordEntity)        '实例化集合，用来返回实体类
        Dim frmComQueryParent As New FrmComQueryParent         '实例化父窗体
        Dim facadeComQuery As New Facade.FacadeComQuery        '实例化外观

        Try
            comQueryEntity.SqlString = frmComQueryParent.Query(Me, comQueryEntity)   '获得拼接字符串
            returnList = facadeComQuery.QueryStudentOn(comQueryEntity)           '调用外观进行查询
            '取出返回的实体
            Dim lineRecordEntity As LineRecordEntity
            Dim dataTable As New Data.DataTable

            dataTable.Columns.Add("卡号")          '自动创建列
            dataTable.Columns.Add("上机日期")
            dataTable.Columns.Add("上机时间")
            dataTable.Columns.Add("机器名")
            Dim dataNewRow As DataRow   '声明一个新行
            For i = 0 To returnList.Count - 1
                lineRecordEntity = returnList.Item(i)
                dataNewRow = dataTable.NewRow()
                '显示数据
                dataNewRow.Item(0) = lineRecordEntity.CardId
                dataNewRow.Item(1) = lineRecordEntity.OnDate
                dataNewRow.Item(2) = lineRecordEntity.OnTime
                dataNewRow.Item(3) = lineRecordEntity.Local

                dataTable.Rows.Add(dataNewRow)           '将新行插入到表中
            Next

            '绑定数据源
            dgvRecord.AutoGenerateColumns = True           '自动创建列
            dgvRecord.AllowUserToAddRows = False
            Me.dgvRecord.DataSource = dataTable              '显示信息
            Me.dgvRecord.Refresh()

        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    End Sub
End Class

        3.DAL层，具体的查询

          我们虽然传的是实体，但实际上是一个字符串，所以在D层，只要将字符串拼接起来就行

        ''' <summary>
        ''' 从表中查询学生上机信息,组合查询
	''' </summary>
        ''' <param name="comQueryEntity">上机记录实体</param>
        Public Function QueryOn(ByVal comQueryEntity As Entity.ComQueryEntity) As List(Of Entity.Entity.LineRecordEntity) Implements ILineRecord.QueryOn

            Try
                strSql = "select * from (select * from LineRecord_Info where offStatus='正在上机')as LineRecord_Info where " & comQueryEntity.SqlString.Trim

                dataTable = sqlHelper.ExecSelectNo(CommandType.Text, strSql)

                Dim returnList As New List(Of LineRecordEntity)
                Dim lineRecordEntity As New LineRecordEntity

                '封装查到的实体
                For i = 0 To dataTable.Rows.Count - 1
                    lineRecordEntity.CardId = dataTable.Rows(i).Item(0).ToString
                    lineRecordEntity.OnDate = dataTable.Rows(i).Item(1).ToString
                    lineRecordEntity.OnTime = dataTable.Rows(i).Item(2).ToString
                    lineRecordEntity.Local = dataTable.Rows(i).Item(8).ToString

                    returnList.Add(lineRecordEntity)
                Next
                Return returnList
            Catch ex As Exception
                Throw
            End Try
        End Function

       三、总结

       自此，模版方法模式已经做完。这里注意的是组合查询的查询语句的方式，详见 

机房收费系统 之 组合查询BUG。

        模版方法的核心就是将整体架构抽象到父类中，具体的时间情况由子类拓展。在我们学习生活中也是，学者去抽象，去总结，这样才能提升层次。


小兀哥
关注
专栏目录
HCIE-Cloud题库
stqer的博客
08-09 3817
⒉.使用华为BCManagerbAckup进行数据备份并采用LAN-Free组网模式，当用户备份一台虚拟机时，生产存储会执行什么操作?A.向备份存储发送备份数据（正确答案）B.向备份服务器发送备份数据C.向虚拟化环境发送备份数据D.向备份代理发送备份数据4.FusionCompute与FusionSphereOpenStack对接的，FusionCompute的管理网络必须与FusionSphereOpenStack的哪个网络互通?A.external om（正确答案）.........
【机房重构】——模板方法解决组合查询
Jack 架构师之路
01-07 1873
引言   在机房重构再次遇到组合查询的时候非常的兴奋，这是因为在学习VB.NET的时候写guo
机房重构——组合查询
weixin_30532759的博客
04-05 77
机房重构，组合查询也算是一个大难关，组合查询到底应该怎么做呢？我不能再很原来一样再敲三个窗体吧，这就必须采取措施来改变这种想法，经过我不断摸索终于找到了解决方法，模板方法，我们只需要建一个模板窗体，其他各窗体继承父窗体就可以满足我的要求。那究竟怎么来实现呢？ 接下来来详细论述。我认为模板方法，就跟我们平时制作月饼一样，做一个模子，接下来只要依葫芦画...
机房重构之组合查询
郭凯 廊坊师范学院信息技术提高班 十三期
12-24 261
机房重构的时候我们需要使用设计模式，而由于组合查询的很多内容都是相似的，所以我们可以使用模板方法，建立一个模板。
C#机房重构：组合查询+模板方法（上）
Marshallren的博客
05-24 312
前言：果然每次一到组合查询，对于我来说都是一道坎：每次都要结合其他新的知识点进行下去，难免会卡人一段时间。好在自己在经历了好几天的无助后，终于解决了这个大难点。 第一次的学生管理系统上，组合查询并没有太多的陌生知识点，只是当时自己对SQL语句并不熟悉；第二次的机房收费系统，由于界面的复杂性，导致逻辑难度也提高了一些，不过自己在敲完后好歹是对里面的SQL语句有了较为清晰的认识；这次的重构则是...
设计模式学习资料（持续更新）
锐意工作室
06-18 521
文章目录设计模式资料（持续更新）前言图书设计模式分类设计模式目录什么时候需要用到设计模式参考文档 设计模式资料（持续更新） 前言 本文汇总了设计模式的一些常用资料，用于快速查找。 图书 《设计模式 - 可复用面向对象软件的基础》 《Head First - 设计模式》 《Java设计模式及实践》 设计模式分类 设计模式根据其目的分为： 创建型（creational patterns) - 与对象的创建有关 结构型（structural patterns）- 处理类和对象的组合 行为型（behavior
架构解密的读书笔记
知行合一 止于至善
09-17 3502
治辉的架构解密的第2版，上周在去北京的路上一边读一边做了一些笔记，涉猎广泛，由浅入深，循序渐进，非常推荐一读。
C#机房重构之组合查询
Aran
08-16 834
  经过重重困难终于把机房重构的三大难点之一的组合查询给解决了，今天小编和大家分享一下组合查询过程中的难点和需要注意的地方。   首先我们来了解一下什么是‘组合查询’，所谓查询我们都知道，就是通过sql语句通过DAL层传递的参数查找数据并返回。这是简单的查询，而组合查询的意思就如字面所知，将我要查询的条件组合起来，组合成我们需求的查询语句再去查询。   至此，我们可以了解到这里的难点包括（条件...
【机房重构】组合查询
apr_su
01-06 534
实体层 public class GroupFindtemplate { private string _cboField1; private string _cboField2; private string _cboField3; private string _cboMark1; private string _cboMark2; privat...
机房重构—组合查询&模板方法
挑灯夜行
02-21 969
设计模式虽然学了一遍，但也仅限于纸上谈兵，在机房重构中还是不知道如何去用，而且感觉刻意去套模式还麻烦，但是使用模板方法的好处确是实实在在，显而易见的啊，既大大减少了代码量还省去了绘制窗体界面的麻烦，给一个大大的赞~~        模板方法       先是定义一个顶级算法的骨架，将代码提炼，而将一些步骤延迟到子类；而子类可重定义算法的某些步骤，实现父类所定义的抽象方法。
机房重构--模板方法
放荡不羁爱自由
06-02 371
模板方法自己摸索了很久，还很傻的把一个使用的窗体当做父窗体给继承了，所以大家一定要把组合查询相似的东西抽象出来写一个父窗，父窗体就是所以子窗体的都有的功能空白的没有赋值的窗体。 父窗体 UI层父窗体中的部分代码 ''实例化组合查询的实体 Protected GroupInquiryInfo As New Entity.LineStateEntity ''' &amp;amp;l...
机房重构模板方法
一个程序员的一些碎碎念
02-27 845
在做机房组合查询这块是，有伙伴们说用模板方法去实现，十分好用，代码也简单。下面是模板方法          定义：模板方法定义了算法的大概骨架，把一些细节的可变部分移交给子类。从而简化代码，使代码完美复用。我认为：模板方法就是定义了实现一个功能的大概流程，而这个功能和其他的功能有很多的类似点，仅有少许部分是变化的，那么就可以把那些不变化的部分给封装了在父类里，可变化的部分用虚方法定义，在子类里
机房重构——组合查询（模板应用）
z-xiaoyao
02-20 1012
在机房收费系统中有三个地方用到了组合查询，分别是查看学生信息，产看上机信息，查看工作记录。这三个窗体中有大量重复的代码，只有少量的代码是不同的，鉴于此种情况，这次是重构了，就不要再向第一次那样复制粘贴了，这里我们可以用到一个设计模式——模板方法模式。     怎么用？     我们把三个窗体共性的东西抽象出一个窗体作为模板窗体，让其他三个窗体继承这个模板窗体，再分别加上自己个性化的东西就可以了
机房重构之模板方法模式
帆布鞋也能走猫步
08-26 2160
我的机房重构比较晚，在
机房建设标准与规范解析-关注节能与环保
本文主要探讨了电子信息系统机房的建设要点，着重介绍了相关的国家标准以及施工与验收规范。机房是保障信息系统的稳定运行和数据安全的重要设施，其建设必须遵循严格的标准。 1. 机房相关的国家标准 - 《数据中心...
评论 40
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值