Aplikační formulář Přehled palet
Přehled palet - Rezervace palety pro vybraný materiál
 Tisk

Přehled palet - Rezervace palety pro vybraný materiál

Rezervace materiálu

Naprogramujeme událost tlačítka btnRezervace, která se spustí při kliknutí. Umožníme vybrat ze seznamu materiál. Událost vložíme do regiónu #Region "Navigace" - #Region "Ridici tlacitka".


Private Sub btnRezervace_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnRezervace.Click

        'umozni se vybrat material, ktery se bude skladovat v palete

        Me.pnlNavig.Enabled = False

        Me.pnlEdit.Enabled = False

        Me.pnlStav.Enabled = False

        Me.pnlPrirad.Enabled = False

        Me.btnZavrit.Enabled = False

        Me.dgvTblPalety.Enabled = False


        Me.pnlPotvrdit.Visible = True


        Me.cmbCislo_Mat.Enabled = True

        Me.cmbCislo_Mat.DropDownStyle = ComboBoxStyle.DropDownList   'umoznuje vybrat poze ze seznamu


        TblPaletyBindingSource.Current("Cislo_Mat") = DsPaletyMaterial.tblMaterial(0).Item("Cislo_Mat") 'zajisti, ze datova polozka bude obsahovat prvni material v seznamu


        Me.cmbCislo_Mat.Focus()


    End Sub


Přehled volných palet

Vytvoříme nový formulář v okně Solution Explorer a to ve složce Forms. Formulář nazveme frmVolnePalety. Na formulář přetáhneme tabulku tblPalety z datasetu dsData. Tabulku najdeme v okně Data Sources.

Formulář

Nastavíme následující vlastnosti:

Smažeme v horní části formuláře objekt TblPaletyBindingNavigator.


Upravíme událost Load. Nastavíme filtr zobrazovaných záznamů tak, že chceme zobrazit pouze záznamy, kde Cislo_Mat is NULL. Navíc setřídíme záznamy podle Adr_Ulo.

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

        '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)

        Me.TblPaletyBindingSource.Filter = "Cislo_Mat is NULL"

        Me.TblPaletyBindingSource.Sort = "Adr_Ulo"


    End Sub


DataGridView

Zobrazení přehledu volných palet

Naprogramujeme událost tlačítka btnVolnePalety, která se spustí při kliknutí. Událost vložíme do regiónu #Region "Navigace" - #Region "Ridici tlacitka".

    Private Sub btnVolnePalety_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnVolnePalety.Click

        'zobrazi se fomular, kde bude seznam volnych palet

        Dim frmVolnePaletyPom As New frmVolnePalety

        frmVolnePaletyPom.ShowDialog()

    End Sub