K zobrazení tiskové sestavy použijeme formulář. Vytvoříme nový formulář frmReportMaterialPalety ve složce Forms.
Otevřeme formulář frmRidici. Poklepeme myší na tlačítko btnReportMaterialPalety (TISKOVÉ SESTAVY) .
Do vytvořené prázdné procedury btnReportMaterialPalety_Click vložíme následující kód, který vložíme do regiónu #Region "Tlacitka" - #Region "Tiskove sestavy":
#Region "Tiskove sestavy"
Private Sub btnReportMaterialPalety_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnReportMaterialPalety.Click
Cursor.Current = Cursors.WaitCursor
Dim frmPom As New frmReportMaterialPalety
frmPom.MdiParent = MyFrmHlavni
frmPom.Dock = DockStyle.Fill
frmPom.Show()
Me.Close()
Cursor.Current = Cursors.Default
End Sub
#End Region
Nastavíme následující vlastnosti:
Vložíme TableLayoutPanel na formulář frmReportMaterialPalety. Odebereme poslední sloupec z TableLayoutPanel přes trojúhelník v pravém horním rohu tohoto objektu. Upravíme vlastnosti sloupců pomocí Edit Rows and Columns (stejně jako na formuláři frmReportMaterial).
Vložíme ReportViewer do horní buňky TableLayoutPanel. Nastavíme vlastnost Dock na Fill.
Vybereme report Sklad.rptMaterialPalety.rdlc .
Smažeme dsDataBindingSource z formuláře. Do spodní buňky v TableLayoutPanel1 vložíme Panel a nastavíme vlastnost Dock na Fill.
Vybereme jakékoliv datové pole z dotazu qryMaterialPaleta nacházející se v datasetu dsData (okno Data Sources) a přetáhneme např. Cislo_Pa na formulář do vloženého panelu v předchozím kroku.
Z formuláře smažeme QryMaterialPaletaBindingNavigator nacházející se v horní části formuláře. Také smažeme vložený TextBox Cislo_PaTextBox a Label Cislo_PaLabel. Formulář bude vypadat tak, jak je znázorněno na obr. .
Nyní je zapotřebí ReportViewer přiřadit zdroj dat. Klikneme na ReportViewer a pomocí trojúhelníku v pravém horním rohu se zobrazí menu, kde vybereme Choose Data Sources. Vybereme do Data Source Instance - QryMaterialPaletaBindingSource . Po tomto kroku se již data zobrazí při spuštění tiskové sestavy.
Nakonec vložíme tlačítko btnZavrit .
Tlačítko:
- (Name) - btnZavrit
- Anchor - Bottom, Right
- Text - Zavřít
- Size - 68; 27 - (šířka; výška)
Programový kód tlačítka:
Private Sub btnZavrit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnZavrit.Click
Me.Cursor = Cursors.WaitCursor
'zavrit tento formular
Dim frmRidici As New frmRidici
frmRidici.MdiParent = MyFrmHlavni
frmRidici.Show()
Me.Close()
Me.Cursor = Cursors.Default
End Sub
Výsledný stav aplikace si můžete stáhnout zde .