组合查询——如何使用窗体的继承达到事半功倍？

2024-05-25 14:08
文章标签 使用 组合 查询 继承 窗体 事半功倍 达到

本文主要是介绍组合查询——如何使用窗体的继承达到事半功倍？，希望对大家解决编程问题提供一定的参考价值，需要的开发者们随着小编来一起学习吧！

  一个优秀的程序员就是要尽可能减少自己的代码量。我们日常的工作或者学习中都有可能遇到多个窗体结构类似，或者大同小异的情况，这时候如果在每个窗体都写一遍代码，或者纯粹的复制粘贴就太水了。想要偷懒的时候正是我们发现和创造的机会，我们的祖先也是这么过来的。

我在做机房收费系统个人重构版的时候，就遇到了基本数据维护、查看上机状态、上机信息统计和操作员工作记录四个窗体都组要用到组合查询而且窗体结构一致。

四个窗体中除了字段名不一致，其他的内容都一样，这种情况下我们用窗体的继承最合适了。在父窗体中写好公共的部分，不一致的地方可以写一个虚方法，然后让子类重写父类的虚方法。这样我们只需要一个U层，一个B层，一个接口，一个抽象工厂，一个D层然后子类重写虚方法就可以实现四个窗体各自的功能了。

U层主要判断一下控件是否为空，给实体参数和B层方法传值传值，以及定义转换数据库字段的虚方法和获取表名的虚方法，这些虚方法在不同的子类中被重写以实现不同功能。

'************************************************* 
'作者：邵鸿鑫
'小组：  
'说明：组合查询模板
'创建日期：2014.7.9
'版本号：
'**********************************************/
Public Class frmGroupQueryPublic thisgroupquery As New Entity.GroupQueryEnpty '定义一个实体参数Private Sub Button1_Click_1(sender As Object, e As EventArgs) Handles btnQuery.Click'第一行组合关系为空If cmbRelation1.Text = "" Then'判断第一行控件内容是否为空If cmbField1.Text = "" ThenMsgBox("请输入字段名")ElseIf cmbOperation1.Text = "" ThenMsgBox("请输入操作符")ElseIf txtContent1.Text = "" ThenMsgBox("请输入要查询的内容")End IfEnd If' 当第一个组合关系不为空时  If cmbRelation1.Text <> "" ThenIf cmbField1.Text = "" ThenMsgBox("请输入字段名")ElseIf cmbOperation1.Text = "" ThenMsgBox("请输入操作符")ElseIf txtContent1.Text = "" ThenMsgBox("请输入要查询的内容")ElseIf cmbField2.Text = "" ThenMsgBox("请输入字段名")ElseIf cmbOperation2.Text = "" ThenMsgBox("请输入操作符")ElseIf txtContent2.Text = "" ThenMsgBox("请输入要查询的内容")End IfEnd If' 当第二个组合关系不为空时  If cmbRelation2.Text <> "" ThenIf cmbField1.Text = "" ThenMsgBox("请输入字段名")ElseIf cmbOperation1.Text = "" ThenMsgBox("请输入操作符")ElseIf txtContent1.Text = "" ThenMsgBox("请输入要查询的内容")ElseIf cmbField2.Text = "" ThenMsgBox("请输入字段名")ElseIf cmbOperation2.Text = "" ThenMsgBox("请输入操作符")ElseIf txtContent2.Text = "" ThenMsgBox("请输入要查询的内容")ElseIf cmbField3.Text = "" ThenMsgBox("请输入字段名")ElseIf cmbOperation3.Text = "" ThenMsgBox("请输入操作符")ElseIf txtContent3.Text = "" ThenMsgBox("请输入要查询的内容")End IfEnd If'给实体层传参Dim thisgroupquery As New Entity.GroupQueryEnptythisgroupquery.cmbField1_text = GetDBName(cmbField1.Text.Trim())thisgroupquery.cmbField2_text = GetDBName(cmbField2.Text.Trim())thisgroupquery.cmbField3_text = GetDBName(cmbField3.Text.Trim())thisgroupquery.cmbOperation1_text = cmbOperation1.Text.Trim()thisgroupquery.cmbOperation2_text = cmbOperation2.Text.Trim()thisgroupquery.cmbOperation3_text = cmbOperation3.Text.Trim()thisgroupquery.txtContent1_text = txtContent1.Text.Trim()thisgroupquery.txtContent2_text = txtContent2.Text.Trim()thisgroupquery.txtContent3_text = txtContent3.Text.Trim()thisgroupquery.cmbRelation1_text = GetDBName(cmbRelation1.Text.Trim())thisgroupquery.cmbRelation2_text = GetDBName(cmbRelation2.Text.Trim())thisgroupquery.GetTable = GetTable()'给B层GroupQuery方法传递参数Dim db As New BLL.GroupQueryBLLIf db.GroupQuery(thisgroupquery) Is Nothing ThenMsgBox("没有记录，请重新设置查询条件", vbOKOnly, vbExclamation)DataGridView1.DataSource = NothingElseDataGridView1.DataSource = db.GroupQuery(thisgroupquery)End IfEnd Sub' 定义虚函数GetDBName,获取不同数据库的字段名  Protected Overridable Function GetDBName(ByVal control As String) As StringReturn ""End Function' 定义虚函数GetDBName,获取不同数据库的表名  Protected Overridable Function GetTable() As StringReturn ""End FunctionPrivate Sub Button2_Click_1(sender As Object, e As EventArgs) Handles btnExit.ClickMe.Hide()End Sub'组合关系一不为空后，显示第二行查询条件Private Sub cmbRelation1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cmbRelation1.SelectedIndexChangedcmbField2.Enabled = TruecmbOperation2.Enabled = TruecmbRelation2.Enabled = TruetxtContent2.Enabled = TrueEnd Sub'组合关系二不为空后，显示第三行查询条件Private Sub cmbRelation2_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cmbRelation2.SelectedIndexChangedcmbField3.Enabled = TruecmbOperation3.Enabled = TruetxtContent3.Enabled = TrueEnd Sub
End Class

  B层写法跟以前分层写法一样，引用工厂和接口返回查询到的表。

<span style="font-family:KaiTi_GB2312;font-size:18px;">'************************************************* 
'作者：邵鸿鑫
'小组：  
'说明：组合查询B层
'创建日期：2014.7.17
'版本号：
'**********************************************/
Imports IDAL
Imports Entity
Public Class GroupQueryBLLPublic Function GroupQuery(ByVal queries As Entity.GroupQueryEnpty) As DataTableDim factory As New Factory.GroupQueryFactoryDim igroupquery As IGroupQuery = factory.GroupQueryDim table = igroupquery.GroupQuery(queries)'检查D层返回的数据表中是否有数据If table.Rows.Count = 0 ThenReturn NothingElseReturn tableEnd IfEnd Function
End Class</span>

  D层实现接口，调用存储过程实现对数据库的访问。 

<span style="font-family:KaiTi_GB2312;font-size:18px;">'************************************************* 
'作者：邵鸿鑫
'小组：  
'说明：组合查询D层
'创建日期：2014.7.17
'版本号：
'**********************************************/
Imports System.Data.SqlClient
Imports IDAL
Public Class SqlserverGroupQueryDAL : Implements IGroupQueryFunction GroupQuery(ByVal queries As Entity.GroupQueryEnpty) As DataTable Implements IGroupQuery.GroupQueryDim strSQL As String = "PROC_GroupQuery" '调用存储过程Dim prams As SqlParameter() = {New SqlParameter("@cmbField1", queries.cmbField1_text),New SqlParameter("@cmbField2", queries.cmbField2_text),New SqlParameter("@cmbField3", queries.cmbField3_text),New SqlParameter("@cmbOperation1", queries.cmbOperation1_text),New SqlParameter("@cmbOperation2", queries.cmbOperation2_text),New SqlParameter("@cmbOperation3", queries.cmbOperation3_text),New SqlParameter("@txtContent1", queries.txtContent1_text),New SqlParameter("@txtContent2", queries.txtContent2_text),New SqlParameter("@txtContent3", queries.txtContent3_text),New SqlParameter("@cmbRelation1", queries.cmbRelation1_text),New SqlParameter("@cmbRelation2", queries.cmbRelation2_text),New SqlParameter("@tableName", queries.GetTable)} '设置参数Dim helper As New SqlHelperDim table As New DataTabletable = helper.GetDataTable(strSQL, CommandType.StoredProcedure, prams)Return tableEnd Function
End Class</span>

  存储过程

<span style="font-family:KaiTi_GB2312;font-size:18px;">-- =============================================
-- Author:		邵鸿鑫
-- Create date: 20140719
-- Description:	组合查询
-- =============================================
ALTER PROCEDURE [dbo].[PROC_GroupQuery]-- Add the parameters for the stored procedure here@cmbField1 varchar(10),@cmbOperation1 varchar(10),@txtContent1 varchar(10),@cmbField2 varchar(10),@cmbOperation2 varchar(10),@txtContent2 varchar(10),@cmbField3 varchar(10),@cmbOperation3 varchar(10),@txtContent3 varchar(10),@cmbRelation1 varchar(10),@cmbRelation2 varchar(10),@tableName varchar(20)
ASdeclare @TempSql varchar(500)--临时存放sql语句  
BEGINSET @TempSql='SELECT * FROM '+@tableName +' WHERE ' +@cmbField1 +@cmbOperation1+char(39) + @txtContent1 + char(39)  if @cmbRelation1 != ''BEGIN  SET @TempSql=@TempSql+@cmbRelation1+CHAR(32)+@cmbField2 +@cmbOperation2+CHAR(39)+@txtContent2+CHAR(39)  if @cmbRelation2!= ''BEGIN  SET @TempSql=@TempSql+@cmbRelation2+CHAR(32)+@cmbField3+@cmbOperation3+CHAR(39)+@txtContent3+CHAR(39)  END  END  
EXECUTE(@TempSql) 
END</span>

  抽象工厂应用配置文件，实现灵活更换数据库。 

<span style="font-family:KaiTi_GB2312;font-size:18px;">'************************************************* 
'作者：邵鸿鑫
'小组：  
'说明：组合查询抽象工厂
'创建日期：2014.7.17
'版本号：
'**********************************************/
Imports System.Reflection
Imports System.Configuration
Imports IDAL
Public Class GroupQueryFactoryPrivate Shared ReadOnly AssemblyName As String = "DAL" '声明程序集名称Private Shared ReadOnly db As String = ConfigurationManager.AppSettings("DB") '读取配置文件到dbPublic Function GroupQuery() As IGroupQueryDim className As String = AssemblyName + "." + db + "GroupQueryDAL"Dim igroupquery As IGroupQueryigroupquery = CType(Assembly.Load(AssemblyName).CreateInstance(className), IGroupQuery)Return igroupqueryEnd Function
End Class
</span>

  子类代码以操作员工作记录为例，首先添加继承窗体

然后选择被继承的窗体

之后就是重写父类的虚方法

<span style="font-family:KaiTi_GB2312;font-size:18px;">'************************************************* 
'作者：邵鸿鑫
'小组：  
'说明：查询操作员工作记录U层
'创建日期：2014.7.18
'版本号：
'**********************************************/
Public Class frmworklog'重写转换成数据库字段方法Protected Overrides Function GetDBName(ByVal control As String) As StringSelect Case (control)Case "教师"Return "userName"Case "上班日期"Return "loginTime"Case "上班时间"Return "loginTime"Case "下班日期"Return "offTime"Case "下班时间"Return "offTime"Case "机器号"Return "computer"Case "与"Return "and"Case "或"Return "or"Case ElseReturn ""End SelectEnd Function'重写获得表名方法Protected Overrides Function GetTable() As Stringthisgroupquery.GetTable = "Work_info"Return thisgroupquery.GetTableEnd FunctionPublic Sub frmworklog_load(sender As Object, e As EventArgs) Handles MyBase.Load'给字段赋初值cmbField1.Items.Add("教师")cmbField1.Items.Add("上班日期")cmbField1.Items.Add("上班时间")cmbField1.Items.Add("下班日期")cmbField1.Items.Add("下班时间")cmbField1.Items.Add("机器号")cmbField2.Items.Add("教师")cmbField2.Items.Add("上班日期")cmbField2.Items.Add("上班时间")cmbField2.Items.Add("下班日期")cmbField2.Items.Add("下班时间")cmbField2.Items.Add("机器号")cmbField3.Items.Add("教师")cmbField3.Items.Add("上班日期")cmbField3.Items.Add("上班时间")cmbField3.Items.Add("下班日期")cmbField3.Items.Add("下班时间")cmbField3.Items.Add("机器号")End Sub
End Class</span>
  为了避免用户不按顺序组合查询条件，把第二行和第三行查询条件以及第二个组合关系设的属性置为不可用，只有第一个组合关系不为空时第二行查询条件和第二个组合关系才能使用，同理第二个组合关系不为空时第三行组合条件才能使用。

  言归正传这一切的一切都是为了减少我们的工作量，人类的进步其实就是一次次为了“偷懒”而不断探索的过程。文章中有不足之处还请大神们批评指正，希望能对大家有所帮助。

这篇关于组合查询——如何使用窗体的继承达到事半功倍？的文章就介绍到这儿，希望我们推荐的文章对编程师们有所帮助！


http://www.chinasem.cn/article/1001722。

相关文章

Java使用ANTLR4对Lua脚本语法校验详解

Java使用ANTLR4对Lua脚本语法校验详解

《Java使用ANTLR4对Lua脚本语法校验详解》ANTLR是一个强大的解析器生成器,用于读取、处理、执行或翻译结构化文本或二进制文件,下面就跟随小编一起看看Java如何使用ANTLR4对Lua脚本... 目录什么是ANTLR？第一个例子ANTLR4 的工作流程Lua脚本语法校验准备一个Lua Gramm
阅读更多...
Java Optional的使用技巧与最佳实践

Java Optional的使用技巧与最佳实践

《JavaOptional的使用技巧与最佳实践》在Java中,Optional是用于优雅处理null的容器类,其核心目标是显式提醒开发者处理空值场景,避免NullPointerExce... 目录一、Optional 的核心用途二、使用技巧与最佳实践三、常见误区与反模式四、替代方案与扩展五、总结在 Java
阅读更多...
使用Java将DOCX文档解析为Markdown文档的代码实现

使用Java将DOCX文档解析为Markdown文档的代码实现

《使用Java将DOCX文档解析为Markdown文档的代码实现》在现代文档处理中,Markdown（MD）因其简洁的语法和良好的可读性,逐渐成为开发者、技术写作者和内容创作者的首选格式,然而,许多文... 目录引言1. 工具和库介绍2. 安装依赖库3. 使用Apache POI解析DOCX文档4. 将解析
阅读更多...
Qt中QUndoView控件的具体使用

Qt中QUndoView控件的具体使用

《Qt中QUndoView控件的具体使用》QUndoView是Qt框架中用于可视化显示QUndoStack内容的控件,本文主要介绍了Qt中QUndoView控件的具体使用,具有一定的参考价值,感兴趣的... 目录引言一、QUndoView 的用途二、工作原理三、 如何与 QUnDOStack 配合使用四、自
阅读更多...
C++使用printf语句实现进制转换的示例代码

C++使用printf语句实现进制转换的示例代码

《C++使用printf语句实现进制转换的示例代码》在C语言中,printf函数可以直接实现部分进制转换功能,通过格式说明符（formatspecifier）快速输出不同进制的数值,下面给大家分享C+... 目录一、printf 原生支持的进制转换1. 十进制、八进制、十六进制转换2. 显示进制前缀3. 指
阅读更多...
使用Python构建一个Hexo博客发布工具

使用Python构建一个Hexo博客发布工具

《使用Python构建一个Hexo博客发布工具》虽然Hexo的命令行工具非常强大,但对于日常的博客撰写和发布过程,我总觉得缺少一个直观的图形界面来简化操作,下面我们就来看看如何使用Python构建一个... 目录引言Hexo博客系统简介设计需求技术选择代码实现主框架界面设计核心功能实现1. 发布文章2. 加
阅读更多...
SQL表间关联查询实例详解

SQL表间关联查询实例详解

《SQL表间关联查询实例详解》本文主要讲解SQL语句中常用的表间关联查询方式,包括：左连接（leftjoin）、右连接（rightjoin）、全连接（fulljoin）、内连接（innerjoin）、... 目录简介样例准备左外连接右外连接全外连接内连接交叉连接自然连接简介本文主要讲解SQL语句中常用的表
阅读更多...
shell编程之函数与数组的使用详解

shell编程之函数与数组的使用详解

《shell编程之函数与数组的使用详解》：本文主要介绍shell编程之函数与数组的使用,具有很好的参考价值,希望对大家有所帮助,如有错误或未考虑完全的地方,望不吝赐教... 目录shell函数函数的用法俩个数求和系统资源监控并报警函数函数变量的作用范围函数的参数递归函数shell数组获取数组的长度读取某下的
阅读更多...
使用Python开发一个带EPUB转换功能的Markdown编辑器

使用Python开发一个带EPUB转换功能的Markdown编辑器

《使用Python开发一个带EPUB转换功能的Markdown编辑器》Markdown因其简单易用和强大的格式支持,成为了写作者、开发者及内容创作者的首选格式,本文将通过Python开发一个Markd... 目录应用概览代码结构与核心组件1. 初始化与布局 (__init__)2. 工具栏 (setup_t
阅读更多...
Python虚拟环境终极(含PyCharm的使用教程)

Python虚拟环境终极(含PyCharm的使用教程)

《Python虚拟环境终极(含PyCharm的使用教程)》：本文主要介绍Python虚拟环境终极(含PyCharm的使用教程),具有很好的参考价值,希望对大家有所帮助,如有错误或未考虑完全的地方,... 目录一、为什么需要虚拟环境？二、虚拟环境创建方式对比三、命令行创建虚拟环境（venv）3.1 基础命令3
阅读更多...

Copyright China编程 23002807@qq.com

沪ICP备2023033072号-2