Aplikační formulář Přehled palet
Přehled palet - programový kód - Navigace
 Tisk

Přehled palet - programový kód - Navigace

Předtím, než napíšeme programový kód navigace, upravíme událost formuláře Load. Programový kód bude vypadat následovně:

#Region "Udalosti formulare"

    Private Sub frmPrehPalet_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 'DsPaletyMaterial.tblTyp_Pa' table. You can move, or remove it, as needed.

        Me.TblTyp_PaTableAdapter.Fill(Me.DsPaletyMaterial.tblTyp_Pa)

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

        Me.TblMaterialTableAdapter.Fill(Me.DsPaletyMaterial.tblMaterial)

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

        Me.TblPaletyTableAdapter.Fill(Me.DsPaletyMaterial.tblPalety)

        Me.Cursor = Cursors.Default

    End Sub

#End Region


Nyní již můžeme naprogramovat základní navigační tlačítka První, Poslední a Zavřít.

#Region "Navigace"

#Region "Ridici tlacitka"

    Private Sub btnZavrit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnZavrit.Click

        'zavrit tento formular

        Me.Cursor = Cursors.WaitCursor

        Dim frmRidici As New frmRidici

        frmRidici.MdiParent = MyFrmHlavni

        frmRidici.Show()


        Me.Close()


        Me.Cursor = Cursors.Default

    End Sub


    Private Sub btnPrvni_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnPrvni.Click

        'najit prvni zaznam

        Me.TblPaletyBindingSource.MoveFirst()

        Me.dgvTblPalety.Focus()

    End Sub


    Private Sub btnPosledni_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnPosledni.Click

        'najit posledni zaznam

        Me.TblPaletyBindingSource.MoveLast()

        Me.dgvTblPalety.Focus()

    End Sub


#End Region

#End Region


Dále připravíme obsluhu tlačítka Najít.


#Region "Hledani"


    Private Sub btnNajit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnNajit.Click

        Me.pnlNavig.Enabled = False

        Me.pnlEdit.Enabled = False

        Me.pnlStav.Enabled = False

        Me.pnlPrirad.Enabled = False

        Me.pnlZmenaObsahuPalety.Enabled = False

        Me.btnZavrit.Enabled = False


        Me.lblCislo.Visible = True

        Me.pnlNajit.Visible = True

        Me.txtNajit.Text = ""

        Me.txtNajit.Focus()

        'Me.Refresh()


    End Sub


    Private Sub btnNajitAno_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnNajitAno.Click

        Me.pnlNavig.Enabled = True

        Me.pnlEdit.Enabled = True

        Me.pnlStav.Enabled = True

        Me.pnlPrirad.Enabled = True

        Me.pnlZmenaObsahuPalety.Enabled = True

        Me.btnZavrit.Enabled = True


        'Nastavení na hledání podle části klíče

        Dim foundIndex As Integer

        foundIndex = SearchRows(Me.TblPaletyBindingSource, "Cislo_Pa", Me.txtNajit.Text)

        If foundIndex > -1 Then

            Me.TblPaletyBindingSource.Position = foundIndex

        End If


        'zneviditelneni zadavaciho pole

        Me.lblCislo.Visible = False

        Me.pnlNajit.Visible = False

        Me.txtNajit.Text = ""

    End Sub


    Private Sub btnNajitZrušit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnNajitZrušit.Click

        'zpristupneni tlacitek

        Me.pnlNavig.Enabled = True

        Me.pnlEdit.Enabled = True

        Me.pnlStav.Enabled = True

        Me.pnlPrirad.Enabled = True

        Me.btnZavrit.Enabled = True


        'zneviditelneni zadavaciho pole

        Me.lblCislo.Visible = False

        Me.pnlNajit.Visible = False

        Me.txtNajit.Text = ""

    End Sub


#End Region