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
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.
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
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