Aplikační formulář Přehled materiálu
Přehled materiálu - řazení
 Tisk

Přehled materiálu - řazení

Na formulář si dolů přidáme GroupBox, který bude obsahovat volby řazení materiálu, buď podle čísla materiálu, nebo podle názvu materiálu. Přidaný GroupBox bude mít následující vlastnosti :

Do grbRazeni vložíme dva RadioButton , který budou mít následující vlastnosti:

Skupina radiových přepínačů má tu vlastnost, že může být aktivní jen jedno tlačítko. Při klepnutí se programově zjistí, které je aktivní a podle toho se nastaví řadící klíč. Vytvoříme obsluhu události klepnutí . Obnoví se zobrazení obrazovky a nastaví se fokus na mřížku s materiálem.

#Region "grbRazeni"


    Private Sub rdbRaditCislaMat_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles rdbRaditCislaMat.CheckedChanged

        If rdbRaditCislaMat.Checked Then

            Me.TblMaterialBindingSource.Sort = "Cislo_Mat"

            Me.dgvTblMaterial.Focus()

        End If

    End Sub


    Private Sub rdbRaditNazevMat_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles rdbRaditNazevMat.CheckedChanged

        If rdbRaditNazevMat.Checked Then

            Me.TblMaterialBindingSource.Sort = "Nazev_Mat"

            Me.dgvTblMaterial.Focus()

        End If

    End Sub

#End Region


Jak je z obr. patrné, tak jsme událost formuláře Load vložili do regiónu #Region "Udalosti formulare". Upravíme událost formuláře Load tak, že přidáme nastavení řadit podle čísla materiálu. Výsledná událost Load bude vypadat následovně:

#Region "Udalosti formulare"

    Private Sub frmPrehMat_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Me.Cursor = Cursors.WaitCursor

        'TODO: This line of code loads data into the 'DsData.tblPalety' table. You can move, or remove it, as needed.

        Me.TblPaletyTableAdapter.Fill(Me.DsData.tblPalety)

        'TODO: This line of code loads data into the 'DsData.tblMaterial' table. You can move, or remove it, as needed.

        Me.TblMaterialTableAdapter.Fill(Me.DsData.tblMaterial)


        'radit podle cisla materialu

        rdbRaditCislaMat.Checked = True


        Me.Cursor = Cursors.Default

    End Sub

#End Region