technologysearch.vb

本软件设计为在"采购部""工程部""财务部""总经理"等部门之间的采购审核流转等事宜

        Me.Controls.Add(Me.DateTimePicker1)
        Me.Controls.Add(Me.TextBox6)
        Me.Controls.Add(Me.TextBox5)
        Me.Controls.Add(Me.TextBox4)
        Me.Controls.Add(Me.TextBox3)
        Me.Controls.Add(Me.TextBox2)
        Me.Controls.Add(Me.TextBox1)
        Me.Controls.Add(Me.GroupBox1)
        Me.Controls.Add(Me.GroupBox2)
        Me.MaximizeBox = False
        Me.Name = "technologysearch"
        Me.Text = "工程信息综合查询"
        Me.GroupBox1.ResumeLayout(False)
        Me.GroupBox2.ResumeLayout(False)
        CType(Me.DataGrid1, System.ComponentModel.ISupportInitialize).EndInit()
        Me.GroupBox3.ResumeLayout(False)
        Me.ResumeLayout(False)

    End Sub

#End Region
    Dim astr As String 'textbox1
    Dim bstr As String 'textbox2
    Dim ccstr As String 'textbox3
    Dim dstr As String 'textbox4
    Dim estr As String 'textbox5
    Dim fstr As String 'textbox6
    Dim gstr As String 'DateTimePicker1
    Dim hstr As String 'DateTimePicker1

    '双击搜索要查的内容
    Private Sub PictureBox1_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles PictureBox1.DoubleClick
        Dim mysqlstr As String
        '根据工程编号查询
        If Me.CheckBox1.Checked = True Then
            Dim a As String = Me.TextBox1.Text.Trim
            If a = "" Then
                MsgBox("请在工程编号中输入内容，或者不要选择工程编号！", MsgBoxStyle.Information, "提示！")
                Exit Sub
            End If
            astr = " 工程编号 like  " + Chr(39) + "%" + a + "%" + Chr(39) + " and"
        Else
            astr = ""
        End If
        '根据工程名称查询
        If Me.CheckBox2.Checked = True Then
            Dim b As String = Me.TextBox2.Text.Trim
            If b = "" Then
                MsgBox("请在工程名称中输入内容，或者不要选择工程名称！", MsgBoxStyle.Information, "提示！")
                Exit Sub
            End If
            bstr = " 工程名称 like " + Chr(39) + "%" + b + "%" + Chr(39) + " and"
        Else
            bstr = ""
        End If
        '根据工程地址查询
        If Me.CheckBox3.Checked = True Then
            Dim c As String = Me.TextBox3.Text.Trim
            If c = "" Then
                MsgBox("请在工程地址中输入内容，或者不要选择工程编地址！", MsgBoxStyle.Information, "提示！")
                Exit Sub
            End If
            ccstr = " 工程地址 like  " + Chr(39) + "%" + c + "%" + Chr(39) + " and"
        Else
            ccstr = ""
        End If
        '根据项目经理进行查询
        If Me.CheckBox5.Checked = True Then
            Dim d As String = Me.TextBox4.Text.Trim
            If d = "" Then
                MsgBox("请在项目经理中输入内容，或者不要选择项目经理！", MsgBoxStyle.Information, "提示！")
                Exit Sub
            End If
            dstr = "  项目经理 like  " + Chr(39) + "%" + d + "%" + Chr(39) + "  and"
        Else
            dstr = ""
        End If
        '根据工程负责人查询
        If Me.CheckBox8.Checked = True Then
            Dim ee As String = Me.TextBox5.Text.Trim
            If ee = "" Then
                MsgBox("请在工程负责人中输入内容，或者不要选择工程负责人！", MsgBoxStyle.Information, "提示！")
                Exit Sub
            End If
            estr = " 工程负责人 like  " + Chr(39) + "%" + ee + "%" + Chr(39) + "  and"
        Else
            estr = ""
        End If
        '根据设计师查询
        If Me.CheckBox6.Checked = True Then
            Dim f As String = Me.TextBox6.Text.Trim
            If f = "" Then
                MsgBox("请在设计师中输入内容，或者不要选择设计师！", MsgBoxStyle.Information, "提示！")
                Exit Sub
            End If
            fstr = " 设计师 like  " + Chr(39) + "%" + f + "%" + Chr(39) + "  and"
        Else
            fstr = ""
        End If

        '如果施工开始时间都被选中，那么比较所选时间是否确当，
        If CheckBox4.Checked = True And CheckBox7.Checked = True Then
            If DateTimePicker2.Value < DateTimePicker1.Value Then
                MsgBox("时间选择范围有误，请从新选择！", MsgBoxStyle.Information, "提示！")
                Exit Sub
            End If
        End If
        '根据工程开始时间段查询（大于）
        If Me.CheckBox4.Checked = True Then
            Dim g As String = Me.DateTimePicker1.Value.Date
            If g = "" Then
                MsgBox("请在施工开始时间大于中输入内容，或者不要选择设计师！", MsgBoxStyle.Information, "提示！")
                Exit Sub
            End If
            gstr = " 施工开始时间>= " + Chr(39) + g + Chr(39) + " and"
        Else
            gstr = ""
        End If

        '根据工程开始时间段查询（小于）
        If Me.CheckBox7.Checked = True Then
            Dim h As String = Me.DateTimePicker2.Value.Date
            If h = "" Then
                MsgBox("请在施工开始时间小于中输入内容，或者不要选择设计师！", MsgBoxStyle.Information, "提示！")
                Exit Sub
            End If
            hstr = " 施工开始时间 <=  " + Chr(39) + h + Chr(39) + "  and"
        Else
            hstr = ""
        End If







        '判断是否有查询项，
        If Me.CheckBox1.Checked = False And CheckBox2.Checked = False And CheckBox3.Checked = False And CheckBox4.Checked = False And CheckBox5.Checked = False And Me.CheckBox6.Checked = False And CheckBox7.Checked = False And CheckBox8.Checked = False Then
            MsgBox("请选择要查询项！", MsgBoxStyle.Information, "提示！")
            Exit Sub
        End If



        '得到查询的内容字符段
        Dim str As String
        str = astr + bstr + ccstr + dstr + estr + fstr + gstr + hstr '还有时间控件没有加呢，过会再加哦！

        '修正字符串
        Dim strlong As Integer = str.Trim.Length
        If Microsoft.VisualBasic.Right(str, 1) = "d" Then

            str = Mid(str, 1, (strlong - 3))
        End If
        '得到查询的sql字符段
        mysqlstr = "select * from technologyInf where" + str


        '查询数据库，得到查询结果
        Dim mydataset As New DataSet
        mydataset = GetDataFromDB(mysqlstr)
        Me.DataGrid1.DataSource = mydataset
        mydataset.Dispose()
    End Sub
    '本窗体的load 事件
    Private Sub technologysearch_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.TextBox1.Enabled = False
        TextBox1.Text = ""
        Me.TextBox2.Enabled = False
        TextBox2.Text = ""
        Me.TextBox3.Enabled = False
        TextBox3.Text = ""
        Me.TextBox4.Enabled = False
        TextBox4.Text = ""
        Me.TextBox5.Enabled = False
        TextBox5.Text = ""
        Me.TextBox6.Enabled = False
        TextBox6.Text = ""
        DateTimePicker1.Enabled = False
        DateTimePicker2.Enabled = False
    End Sub
    '当DataGrid当前单元格变化的时候响应事件
    Private Sub DataGrid1_CurrentCellChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles DataGrid1.CurrentCellChanged
        Me.TextBox1.Enabled = False

        Me.TextBox2.Enabled = False

        Me.TextBox3.Enabled = False

        Me.TextBox4.Enabled = False

        Me.TextBox5.Enabled = False

        Me.TextBox6.Enabled = False
        DateTimePicker1.Enabled = False
        DateTimePicker2.Enabled = False
        Me.CheckBox1.Checked = False
        Me.CheckBox2.Checked = False
        Me.CheckBox3.Checked = False
        Me.CheckBox4.Checked = False
        Me.CheckBox5.Checked = False
        Me.CheckBox6.Checked = False
        Me.CheckBox7.Checked = False
        Me.CheckBox8.Checked = False
        
        'Textbox1显示的是匹配码
        TextBox1.Text = DataGrid1.Item(DataGrid1.CurrentCell.RowNumber, 0)
        'Textbox2显示的是项目名称
        TextBox2.Text = DataGrid1.Item(DataGrid1.CurrentCell.RowNumber, 1)
        TextBox3.Text = DataGrid1.Item(DataGrid1.CurrentCell.RowNumber, 2)
        DateTimePicker1.Value = DataGrid1.Item(DataGrid1.CurrentCell.RowNumber, 3)
        DateTimePicker2.Value = DataGrid1.Item(DataGrid1.CurrentCell.RowNumber, 4)
        TextBox4.Text = DataGrid1.Item(DataGrid1.CurrentCell.RowNumber, 5)
        TextBox5.Text = DataGrid1.Item(DataGrid1.CurrentCell.RowNumber, 6)
        TextBox6.Text = DataGrid1.Item(DataGrid1.CurrentCell.RowNumber, 7)


    End Sub

    Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged
        If CheckBox1.Checked = True Then
            Me.TextBox1.Enabled = True
        Else
            Me.TextBox1.Enabled = False
        End If
    End Sub

    Private Sub CheckBox6_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox6.CheckedChanged
        If CheckBox6.Checked = True Then
            Me.TextBox6.Enabled = True
        Else
            Me.TextBox6.Enabled = False
        End If
    End Sub

    Private Sub CheckBox2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox2.CheckedChanged
        If CheckBox2.Checked = True Then
            Me.TextBox2.Enabled = True
        Else
            Me.TextBox2.Enabled = False
        End If
    End Sub

    Private Sub CheckBox3_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox3.CheckedChanged
        If CheckBox3.Checked = True Then
            Me.TextBox3.Enabled = True
        Else
            Me.TextBox3.Enabled = False
        End If
    End Sub

    Private Sub CheckBox5_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox5.CheckedChanged
        If CheckBox5.Checked = True Then
            Me.TextBox4.Enabled = True
        Else
            Me.TextBox4.Enabled = False
        End If
    End Sub

    Private Sub CheckBox8_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox8.CheckedChanged
        If CheckBox8.Checked = True Then
            Me.TextBox5.Enabled = True
        Else
            Me.TextBox5.Enabled = False
        End If
    End Sub

    Private Sub CheckBox4_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox4.CheckedChanged
        If CheckBox4.Checked = True Then
            Me.DateTimePicker1.Enabled = True
        Else
            Me.DateTimePicker1.Enabled = False
        End If
    End Sub

    Private Sub CheckBox7_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox7.CheckedChanged
        If CheckBox7.Checked = True Then
            Me.DateTimePicker2.Enabled = True
        Else
            Me.DateTimePicker2.Enabled = False
        End If
    End Sub





    
   

    
End Class