Tiskové sestavy
Formulář pro sestavu materiál s paletami
 Tisk

Formulář pro sestavu materiál s paletami

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


Otevření formuláře frmReportMaterial z frmRidici

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


Formulář frmReportMaterialPalety

Nastavíme následující vlastnosti:


TableLayoutPanel

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

ReportViewer

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:

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á aplikace

Výsledný stav aplikace si můžete stáhnout zde .