Tiskové sestavy
Formulář pro sestavu s materiálem
 Tisk

Formulář pro sestavu s materiálem

K zobrazení tiskové sestavy použijeme formulář. Vytvoříme nový formulář frmReportMaterial ve složce Forms.

Otevření formuláře frmReportMaterial z frmRidici

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


Formulář frmReportMaterial

Nastavíme následující vlastnosti:


TableLayoutPanel

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.


ReportViewer

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:

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