K zobrazení tiskové sestavy použijeme formulář. Vytvoříme nový formulář frmReportMaterial ve složce Forms.
Otevřeme formulář frmRidici. Poklepeme myší na tlačítko btnReportMaterial (TISKOVÉ SESTAVY) .
Do vytvořené prázdné procedury btnReportMaterial_Click vložíme následující kód, který vložíme do regiónu #Region "Tlacitka" - #Region "Tiskove sestavy":
#Region "Tiskove sestavy"
Private Sub btnReportMaterial_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnReportMaterial.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ář frmReportMaterial. 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 .
Nastavíme vlastnost Dock na Fill.
Vložíme ReportViewer do horní buňky TableLayoutPanel .
Nastavíme vlastnost Dock na Fill.
Vybereme report Sklad.rptMaterial.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 tblMaterial nacházející se v datasetu dsData (okno Data Sources) a přetáhneme např. Cislo_Mat na formulář do vloženého panelu v předchozím kroku .
Z formuláře smažeme TblMaterialBindingNavigator nacházející se v horní části formuláře. Také smažeme vložený TextBox Cislo_MatTextBox a Label Cislo_MatLabel. 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 - TblMaterialBindingSource . 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