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