Private Sub btnSearch_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSearch.Click
'Create the panel containing the DataGridView
PnlDataGrid = New System.Windows.Forms.Panel
With PnlDataGrid
.location = New Point(12, 146)
.width = 1077
.height = 456
.name = "PnlDataGrid"
.BorderStyle = BorderStyle.FixedSingle
End With
DtgResult = New System.Windows.Forms.DataGridView 'Create the datagridview
With DtgResult
.Location = New System.Drawing.Point(0, 0)
.Name = "DtgResult"
.Size = New System.Drawing.Size(1077, 456)
.TabIndex = 6
'.ColumnCount = 7
.EditMode = DataGridViewEditMode.EditProgrammatically
.AutoSizeRowsMode = _
DataGridViewAutoSizeRowsMode.DisplayedCellsExceptHeaders
.ColumnHeadersBorderStyle = _
DataGridViewHeaderBorderStyle.Raised
.CellBorderStyle = _
DataGridViewCellBorderStyle.Single
.GridColor = SystemColors.ActiveBorder
.RowHeadersVisible = False
.SelectionMode = DataGridViewSelectionMode.FullRowSelect
.MultiSelect = False
.Dock = DockStyle.Fill
End With
Me.PnlDataGrid.Controls.Add(DtgResult)
Me.Controls.Add(PnlDataGrid)
'Get result from database
Dim Choice1 As String = Nothing
Dim Choice2 As String = Nothing
Dim Choice3 As String = Nothing
Dim Choice4 As String = Nothing
Dim choice5 As String = Nothing
Dim Choice6 As String = Nothing
Dim DSTable As String = "Eleves"
If TypeOf (PnlGroup2) Is Panel _
And SearchRef2.Text <> "" Then ' check if panel 2 exist
If Not SearchRef2.Text Is "" _
And Not SearchRef1.Text Is "" _
And Not Me.Form_searchBy.Text Is "" Then
Select Case SearchRef2.Text
Case "Art martial"
choice5 = Searchbox5.text
Case "Nom"
choice5 = Searchbox5.text
Choice6 = Searchbox6.text
Case "Dojo"
choice5 = Searchbox5.text
Case "Degré"
choice5 = Searchbox5.text
Case "Date de renouvellement"
choice5 = Searchbox5.text
Case Else
MsgBox("Le choix que vous avez entré dans la deuxieme boîte de raffinement de la recherche est invalide")
ClearCheck3(Me.PnlGroup2)
Me.PnlDataGrid.DtgResult.controls.remove()
Me.PnlDataGrid.controls.remove()
Me.Update()
End Select
Select Case SearchRef1.Text
Case "Art martial"
Choice3 = Searchbox3.text
Case "Nom"
Choice3 = Searchbox3.text
Choice4 = Searchbox4.text
Case "Dojo"
Choice3 = Searchbox3.text
Case "Degré"
Choice3 = Searchbox3.text
Case "Date de renouvellement"
Choice3 = Searchbox3.text
Case Else
MsgBox("Le choix que vous avez entré dans la première boîte de raffinement de la recherche est invalide")
Me.PnlDataGrid.DtgResult.controls.remove()
Me.PnlDataGrid.controls.remove()
Me.Update()
End Select
Select Case Form_searchBy.Text
Case "Art martial"
Choice1 = "Cour1 = " & Searchbox1.text & " OR Cour2 = " & Searchbox1 & " OR Cour3 = " & Searchbox1
Case "Nom"
Choice1 = Searchbox1.text
Choice2 = Searchbox2.text
Case "Dojo"
Choice1 = Searchbox1.text
Case "Degré"
Choice1 = Searchbox1.text
Case "Date de renouvellement"
Choice1 = Searchbox1.text
Case Else
MsgBox("Le choix que vous avez entré dans la boîte de recherche est invalide")
ClearCheck(Me.TopLevelControl)
End Select
End If
ElseIf TypeOf (PnlGroup1) Is Panel _
And SearchRef1.Text <> "" _
And Me.Form_searchBy.Text <> "" Then ' check if panel 1 exist and that second ComboBox is not empty
Select Case SearchRef1.Text
Case "Art martial"
Choice3 = "Cour1 = " & Searchbox3.text & " OR Cour2 = " & Searchbox3 & " OR Cour3 = " & Searchbox1
Case "Nom"
Choice3 = Searchbox3.text
Choice4 = Searchbox4.text
Case "Dojo"
Choice3 = Searchbox3.text
Case "Degré"
Choice3 = Searchbox3.text
Case "Date de renouvellement"
Choice3 = Searchbox3.text
Case Else
MsgBox("Le choix que vous avez entré dans la première boîte de raffinement de la recherche est invalide")
ClearCheck2(Me.PnlGroup1)
Me.Controls.Remove(DtgResult)
Me.Controls.Remove(PnlDataGrid)
Me.Update()
End Select
Select Case Form_searchBy.Text
Case "Art martial"
Choice1 = "Cour1 = " & Searchbox1.text & " OR Cour2 = " & Searchbox1.text & " OR Cour3 = " & Searchbox1.text
Case "Nom"
Choice1 = Searchbox1.text
Choice2 = Searchbox2.text
Case "Dojo"
Choice1 = Searchbox1.text
Case "Degré"
Choice1 = Searchbox1.text
Case "Date de renouvellement"
Choice1 = Searchbox1.text
Case Else
MsgBox("Le choix que vous avez entré dans la boîte de recherche est invalide")
ClearCheck(Me.TopLevelControl)
Me.Controls.Remove(DtgResult)
Me.Controls.Remove(PnlDataGrid)
Me.Update()
End Select
ElseIf Not Me.Form_searchBy.Text Is "" Then
Select Case Form_searchBy.Text
Case "Art martial"
Choice1 = "Cour1 = '" & Searchbox1.text & "' OR Cour2 = '" & Searchbox1.text & "' OR Cour3 = '" & Searchbox1.text & "'"
Case "Nom"
Choice1 = Searchbox1.text
Choice2 = Searchbox2.text
Case "Dojo"
Choice1 = Searchbox1.text
Case "Degré"
Choice1 = Searchbox1.text
Case "Date de renouvellement"
Choice1 = Searchbox1.text
Case Else
MsgBox("Le choix que vous avez entré dans la boîte de recherche est invalide")
ClearCheck(Me.TopLevelControl)
End Select
Else
MsgBox("Vous devez sélectionner au moins un critère de recherche")
End If
Dim SQLString As String = "SELECT N°,Nom, Prenom, Cour1, Cour2, Cour3, ArtGrade, Lieu, DateRenouvellement from " & DSTable & " WHERE " & Choice1 ' fetch data from the DB
Dim dsReturn As DataSet = DataModule.DBDataAcess(SQLString, DSTable)
DataModule.DBDataAcess(SQLString, DSTable)
With DtgResult ' Populate the DataGridView From the returned DataSet
.DataSource = dsReturn.Tables(0)
.Update()
.Refresh()
End With
End Sub
Private Sub btnReset_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnReset.Click
ClearCheck(Me.TopLevelControl) 'reset the form
End Sub
Private Sub DtgResult_CellMouseDoubleClick(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellMouseEventArgs) Handles DtgResult.CellMouseDoubleClick
' Open the detailed view of the selected row on doubleclick event
Dim invId As Object = DtgResult.Rows(e.RowIndex).Cells(0).Value
Profil_Etudiant.DSEleve = Convert.ToString(invId)
Profil_Etudiant.Show()
End Sub
End Class