Tvorba sestav - DataReport

Představte si případ, kdy chcete například zobrazit na reportu, který již máte vytvořen filtrovaná data. Není nutné vytvářet nový RecordSet a sestavu. můžeme použít to co již máme vytvořeno, jenom trochu upravíme datový zdroj, ze kterého si DataReport načítá data.

Otevřete formulář, na kterém máme tlačítko pro zobrazení sestavy a zobrazte kód, který je na události Click tlačítka. Řekněme, že chceme zobrazit všechna místa, jejichž PSČ začíná dvojčíslím 36. Upravíme tedy kód následovně:

Private Sub Command1_Click()

   If DE.rssRep1.State = 1 Then
      DE.rssRep1.Close
   End If
   DE.rssRep1.Source = "Select * From PSC Where PSC Like '36%' _
      Order by Misto"
   DE.rssRep1.Open
   rptRep1.Show vbModal

End Sub

Nyní zkuste projekt spustit a otevřít sestavu. V sestavě by nyní měly být zobrazeny pouze ty místa, která mají PSČ začínající dvojčíslím 36.

Jak vidíte, toto je poměrně příjemná vlastnost DataReportu, která ušetří spoustu času a urychlí vývoj Vašich aplikací. Stačí si jen modifikovat RecordSet a pak na něj aplikovat sestavu. Je ovšem nutné, aby byl RecordSet před voláním sestavy již otevřený, protože jinak si jej DataReport bude inicializovat znovu !

Zpět Další