banksearch.vb

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

        Me.Controls.Add(Me.GroupBox3)
        Me.Controls.Add(Me.TextBox6)
        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.Controls.Add(Me.DataGrid1)
        Me.MaximizeBox = False
        Me.Name = "bankSearch"
        Me.Text = "银行信息综合查询"
        Me.GroupBox3.ResumeLayout(False)
        Me.GroupBox1.ResumeLayout(False)
        Me.GroupBox2.ResumeLayout(False)
        CType(Me.DataGrid1, System.ComponentModel.ISupportInitialize).EndInit()
        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

    '双击搜索要查的内容
    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 Me.CheckBox1.Checked = False And CheckBox2.Checked = False And CheckBox3.Checked = False And CheckBox5.Checked = False And Me.CheckBox6.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

        '修正字符串
        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 bankInf where" + str


        '查询数据库，得到查询结果
        Dim mydataset As New DataSet
        mydataset = GetDataFromDB(mysqlstr)
        Me.DataGrid1.DataSource = mydataset
        mydataset.Dispose()
    End Sub


    '当DataGrid当前单元格变化的时候响应事件
    Private Sub DataGrid1_CurrentCellChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles DataGrid1.CurrentCellChanged
        Me.TextBox1.ReadOnly = True

        Me.TextBox2.ReadOnly = True

        Me.TextBox3.ReadOnly = True

        Me.TextBox4.ReadOnly = True

        Me.TextBox5.ReadOnly = True

        Me.TextBox6.ReadOnly = True

        Me.CheckBox1.Checked = False
        Me.CheckBox2.Checked = False
        Me.CheckBox3.Checked = False

        Me.CheckBox5.Checked = False
        Me.CheckBox6.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)

        TextBox4.Text = DataGrid1.Item(DataGrid1.CurrentCell.RowNumber, 3)
        TextBox5.Text = DataGrid1.Item(DataGrid1.CurrentCell.RowNumber, 4)
        TextBox6.Text = DataGrid1.Item(DataGrid1.CurrentCell.RowNumber, 5)


    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.ReadOnly = False
        Else
            Me.TextBox1.ReadOnly = True
        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.ReadOnly = False
        Else
            Me.TextBox6.ReadOnly = True
        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.ReadOnly = False
        Else
            Me.TextBox2.ReadOnly = True
        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.ReadOnly = False
        Else
            Me.TextBox3.ReadOnly = True
        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.ReadOnly = False
        Else
            Me.TextBox4.ReadOnly = True
        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.ReadOnly = False
        Else
            Me.TextBox5.ReadOnly = True
        End If
    End Sub




    '本窗体的load 事件
    Private Sub ownersearch_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.TextBox1.ReadOnly = True
        TextBox1.Text = ""
        Me.TextBox2.ReadOnly = True
        TextBox2.Text = ""
        Me.TextBox3.ReadOnly = True
        TextBox3.Text = ""
        Me.TextBox4.ReadOnly = True
        TextBox4.Text = ""
        Me.TextBox5.ReadOnly = True
        TextBox5.Text = ""
        Me.TextBox6.ReadOnly = True
        TextBox6.Text = ""
    End Sub

    
End Class