ator3 = cmbOperator3.Text.Trim()
groupcheck.txtContent1 = txtContent1.Text.Trim()
groupcheck.txtContent2 = txtContent2.Text.Trim()
groupcheck.txtContent3 = txtContent3.Text.Trim()
groupcheck.cmbRelation1 = GetDBName(cmbRelations1.Text.Trim())
groupcheck.cmbRelation2 = GetDBName(cmbRelations2.Text.Trim())
'给外观层方法传递参数
Dim dt As New DataTable
Dim Ugroupcheck As New Facade.GroupCheckFacade
dt = Ugroupcheck.FGroupCheck(groupcheck)
If (dt.Rows.Count = 0) Then
MsgBox("没有符合条件的记录！请重新设置查询条件！", , "提示")
DataGridView1.DataSource = Nothing
Else
'DataGridView1.DataSource = dt
Call Todatagridview()
End If
End Sub
'当第一个组合关系框的内容发生改变时对第二行查询框是否可用进行判断
Private Sub cmbRelations1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cmbRelations1.SelectedIndexChanged
cmbFiled2.Enabled = True
cmbOperator2.Enabled = True
txtContent2.Enabled = True
cmbRelations2.Enabled = True
End Sub
'当第二个组合关系框的内容发生改变时对第二行查询框是否可用进行判断
Private Sub cmbRelations2_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cmbRelations2.SelectedIndexChanged
'对控件选择进行限定
cmbFiled3.Enabled = True
cmbOperator3.Enabled = True
txtContent3.Enabled = True
End Sub
''' ''' 定义虚函数GetDBName，获取不同数据库的字段名 '''
'''
'''
Public Overridable Function GetDBName(ByVal control As String) As String
Return ""
End Function
'定义虚函数GetTable，获取不同数据库的表名
Protected Overridable Function GetTable() As String
Return ""
End Function
''' ''' 把表显示到datagridview中 '''
'''
Protected Overridable Sub Todatagridview()
DataGridView1.AutoSizeColumnsMode = DataGridViewAutoSizeColumnMode.AllCells
End Sub
''' ''' 调用模块中的方法，导出Excel表 '''
'''
'''
'''
Private Sub GroupBox1_Enter(sender As Object, e As EventArgs)
Call ExportExcel(DataGridView1)
End Sub
Private Sub btnExcel_Click(sender As Object, e As EventArgs) Handles btnExcel.Click
Call ExportExcel(DataGridView1)
End Sub
B层
'/*****************************************
'类 名 称：GroupCheckBLLvb
'命名空间：JFBLL
'创建时间：2015/7/27 16:46:57
'作 者：邢玉
'小 组：
'修改时间：
'修 改 人：
'版 本 号：v1.0.0
’******************************************
Imports IDAL
Imports JFEntity
Public Class GroupCheckBLLvb
''' 实现工厂和接口的方法 ''' 组合查询，父窗体 '''
'''
'''
'''
Public Function GroupCheck(ByVal group As JFEntity.GroupEntity) As DataTable
Dim Igroupcheck As IDAL.IGroupCheckDAL
Dim table As New DataTable
Igroupcheck = Factory.LoginFactory.GroupCheck
table = Igroupcheck.IGroupCheck(group)
If table.Rows.Count = 0 Then
' Return Nothing
'Else
Return table
End If
Return table
End Function
End Class
D层：
?
?
'/*****************************************
'类 名 称：SqlGroupCheckDAL
'命名空间：JFDAL
'创建时间：2015/7/27 16:42:43
'作 者：邢玉
'小 组：
'修改时间：
'修 改 人：
'版 本 号：v1.0.0
’******************************************
Imports System.Data.SqlClient
Imports IDAL
Public Class SqlGroupCheckDAL : Implements IGroupCheckDAL
'实例化sqlHelper
Private SqlHelper As SQLHelper.sqlHelper = New SQLHelper.sqlHelper()
Public Function IGroupCheck(ByVal groupcheck As JFEntity.GroupEntity) As DataTable Implements IGroupCheckDAL.IGroupCheck
Dim sqlparam As SqlParameter() = {New SqlParameter("@cmbFiled1", groupcheck.cmbField1),
New SqlParameter("@cmbFiled2", groupch |