Tvorba sestav - DataReport
Nyní si navrhneme naší první sestavu - Seznam míst a jejich PSČ. Takto by to mělo vypadat, až skončíme:
Do sekce Report Header umístíme nadpis celé sestavy. Tento nadpis bude pouze na první straně. Použil jsem prvek RptLabel, Caption = "Seznam míst a jejich PSČ", Font = Arial Bold 16, Alignment = 2-rptJustifyCenter a ForeColor je nastavena na červenou.
Na každé stránce by bylo dobré mít nadpis sloupců. místíme je tedy do sekce Page Header. Použité prvky jsou opět RptLabel, jejich Caption vidíte sami, Font je Arial Bold 8 a ForeColor je modrá. Navíc jsou podtrženy čarou - RptLine, kdy čára začíná i končí jeden bod mřížky od okrajů tiskové plochy.
Do sekce Detail nyní umístíme dva objekty, které budou vypisovat naše data z Recordsetu. Oba jsou to objekty RptTextBox a jejich nastavení co se vzhledu týče jsem nechal původní. Důležité je nastavit zdroj dat a pole, ze kterého mají načítat data.
Nejprve je nutné nastavit vlastnost DataMember. V combu, ze kterého si vybíráte RecordSet, by měl být vidět právě ten RecordSet, který byl nastaven pro celý DataReport. Po jeho výběru je možné nastavit vlastnost DataField, v jejímž combu je již nyní načtena struktura polí na základě zdrojového SQL dotazu v RecordSetu.
Na
formulář, který se Vám automaticky založil při tvorbě projektu přidejte
tlačítko a na jeho událost Click zapište:
Private Sub Command1_Click()
rptRep1.Show vbModal
End Sub
Nyní projekt spusťte a klikněte na tlačítko. Otevře se Váš první report. Jen nebuďte nervózní, že to trvá trochu déle - v databázi je cca 20000 záznamů.