K zobrazení tiskové sestavy použijeme formulář. Vytvoříme nový formulář frmReportPalety ve složce Forms.
Otevřeme formulář frmRidici. Poklepeme myší na tlačítko btnReportPalety (TISKOVÉ SESTAVY) .
Do vytvořené prázdné procedury btnReportPalety_Click vložíme následující kód, který vložíme do regiónu #Region "Tlacitka" - #Region "Tiskove sestavy":
#Region "Tiskove sestavy"
Private Sub btnReportPalety_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnReportPalety.Click
Cursor.Current = Cursors.WaitCursor
Dim frmPom As New frmReportMaterial
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ář frmReportPalety. 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.rptPalety.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 tabulky tblPalety 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 TblPaletyBindingNavigator 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 - TblPaletyBindingSource . 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