欢迎您访问程序员文章站本站旨在为大家提供分享程序员计算机编程知识!
您现在的位置是: 首页  >  IT编程

.NET下,利用二维数组“组合”查询之优化

程序员文章站 2022-05-21 14:51:05
至于界面层,这里就不再贴图了,和链接博客中的一样。在这里说明一下:下拉列表中的所有汉字不用在frmWorkRecord_Load中定义了,而是通过将下拉列表中的汉字放到ComboB...

至于界面层,这里就不再贴图了,和链接博客中的一样。在这里说明一下:下拉列表中的所有汉字不用在frmWorkRecord_Load中定义了,而是通过将下拉列表中的汉字放到ComboBox的Item属性里。

.NET下,利用二维数组“组合”查询之优化
下面就是U层代码了
[vb]
Imports Entity 
Imports BLL 
 
Public Class form1 
 
    '定义一个二维数组,使得下拉列表中的汉字与英文对应 
    Dim strArr(2, 7) As String 
 
    Private Sub frmWorkRecord_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load 
        '使用二维数组,避免了之前的select  case语句 
        '实现“教师”和“UserID”、“上机日期”和“OnDate“.....的一一对应 
        strArr(0, 0) = "UserID" 
        strArr(0, 1) = "OnDate" 
        strArr(0, 2) = "OnTime" 
        strArr(0, 3) = "OffDate" 
        strArr(0, 4) = "OffTime" 
        strArr(0, 5) = "Computer" 
 
        '实现“与”和“and”、“或”和“or”的一一对应 
        strArr(1, 0) = "and" 
        strArr(1, 1) = "or" 
 
    End Sub 
 
    Private Sub cmdOk_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdOk.Click 
        Dim arrTeacherE As TeacherE() = {New TeacherE(), New TeacherE(), New TeacherE(), New TeacherE(), New TeacherE(), New TeacherE(), New TeacherE(), New TeacherE(), New TeacherE(), New TeacherE(), New TeacherE()} 
 
        '“字段”下拉列表中与汉字对应英文赋值到arrTeacherE数组中 
        arrTeacherE(0).Name = strArr(0, cbxName1.SelectedIndex) 
        'ComboBox控件在页面加载时,默认SelectedIndex=-1,而数组下标不能出现负数,故需要进行判断 
        If cbxName2.Text = "" Then 
            arrTeacherE(1).Name = "" 
        Else 
            arrTeacherE(1).Name = strArr(0, cbxName2.SelectedIndex) 
        End If 
 
        If cbxName3.Text = "" Then 
            arrTeacherE(2).Name = "" 
        Else 
            arrTeacherE(2).Name = strArr(0, cbxName3.SelectedIndex) 
        End If 
 
        '将“操作符”赋值到arrTeacherE数组中 
        arrTeacherE(3).Operation = cbxOperation1.Text 
        arrTeacherE(4).Operation = cbxOperation2.Text 
        arrTeacherE(5).Operation = cbxOperation3.Text 
 
        '将“查询条件”赋值到arrTeacherE数组中 
        arrTeacherE(6).txtName = txtName1.Text 
        arrTeacherE(7).txtName = txtName2.Text 
        arrTeacherE(8).txtName = txtName3.Text 
 
        '“组合关系”下拉列表中与汉字对应英文赋值到arrTeacherE数组中 
        If cbxCompone1.Text = "" Then 
            arrTeacherE(9).Compone = "" 
        Else 
            arrTeacherE(9).Compone = strArr(1, cbxCompone1.SelectedIndex) 
        End If 
        '这里的If语句作用同上面的If语句 
        If cbxCompone2.Text = "" Then 
            arrTeacherE(10).Compone = "" 
        Else 
            arrTeacherE(10).Compone = strArr(1, cbxCompone2.SelectedIndex) 
        End If 
 
        Dim mybll As New TeacherBLL 
        Dim dt As New DataTable 
        dt = mybll.test(arrTeacherE) 
        If dt.Rows.Count() > 0 Then 
            DataGridView1.DataSource = dt 
        Else 
            MessageBox.Show("没有记录") 
        End If 
    End Sub 
End Class 

而对于B层,这个功能的业务逻辑不是很复杂,只是调用D层相应的方法,然后返回一个DataTable就可以了(不太符合三层,哈哈)

下面就是D层的代码了,这里用到了SqlHelper,相信大家对SqlHelper很熟悉了,这里就不再赘述了,只是在这里调用一下。
[vb] 
Imports Entity 
Imports System.Data.SqlClient 
 
Public Class OnDutyTeacher 
 
    Function test(ByVal arrTeacherE() As TeacherE) As DataTable 
        Dim strSqlText As String = "select * from Teacher_Info where " & arrTeacherE(0).Name & arrTeacherE(3).Operation & " " & "@txtName1" & arrTeacherE(9).Compone & " " & arrTeacherE(1).Name & arrTeacherE(4).Operation & " " & "@txtName2" & " " & arrTeacherE(10).Compone & " " & arrTeacherE(2).Name & " " & arrTeacherE(5).Operation & "@txtName3" & " " 
 
        Dim param() As SqlParameter 
        Dim intInfluencedRecord As Integer 
 
        param = New SqlParameter() {New SqlParameter("@txtName1", SqlDbType.Char, 10), New SqlParameter("@txtName2", SqlDbType.Char, 10), New SqlParameter("@txtName3", SqlDbType.Char, 10)} 
 
        param(0).Value = arrTeacherE(6).txtName.ToString() 
        param(1).Value = arrTeacherE(7).txtName.ToString() 
        param(2).Value = arrTeacherE(8).txtName.ToString() 
 
 
        intInfluencedRecord = SQLHelper.SQLHelper.ExecuteNoQuery(strSqlText, CommandType.Text, param) 
        If intInfluencedRecord > 0 Then 
            Return True 
        Else 
            Return False 
        End If 
    End Function 
End Class 

这种方法避免了对“组合关系”字段的判断,然后在拼接字符串。当然,这里说的不是很全面,还需要在界面对控件添加一些判断:如果“组合关系”第一个控件不为空,那么它后面的“字段”、“操作符”、“查询条件”这三个控件也不能为空,相应的“组合关系”第二控件若不为空,那么所有的控件都不能为空,不然在D层的SQL语句不全,会报错。