DVD selection

dvd.vb

Public Class frmDvd

    Private myParent As frmMain

    Private Sub frmCustomer_Activated(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Activated
        Dim idx As Integer
        Dim panel As ToolStripStatusLabel

        idx = myParent.searchForPanel("DVDs")
        If idx <> -1 Then
            panel = myParent.sbrMain.Items(idx)
            panel.BorderStyle = Border3DStyle.Sunken
            panel.BackColor = Color.White
        End If
    End Sub

    Private Sub frmCustomer_Deactivate(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Deactivate
        Dim idx As Integer
        Dim panel As ToolStripStatusLabel

        idx = myParent.searchForPanel("DVDs")
        panel = myParent.sbrMain.Items(idx)
        panel.BorderStyle = Border3DStyle.Raised
        panel.BackColor = Me.BackColor
    End Sub

    Private Sub frmCustomer_HandleDestroyed(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.HandleDestroyed
        With myParent
            .mnuDvds.Enabled = True
            .tbrbDvd.Enabled = True
            .removePanel("DVDs")
            .HandleClose()
        End With
    End Sub

    Private Sub frmCustomer_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        myParent = Me.MdiParent

        dvdQuery = "SELECT * FROM " & dvdtable
        retrieveTable(dvdQuery, dtDvds)

        dgv_DVD.DataSource = dtDvds
        dgv_DVD.AutoResizeColumns()


    End Sub

    Private Sub mnuViewGenre_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles mnuViewGenre.Click
        Dim search As String
		
        search = InputBox("Please enter a Genre", "Genre", "ALL")

        If search = "ALL" Or "all" Or "All" Then

            dvdQuery = "SELECT * FROM " & dvdtable

        Else

            dvdQuery = "SELECT * FROM " & dvdtable & " WHERE Genre = """ & search & """";
			
        End If

        retrieveTable(dvdQuery, dtDvds)
		
        dgv_DVD.DataSource = dtDvds
        dgv_DVD.AutoResizeColumns()

    End Sub
End Class