Primer s tabelo in vnosnim poljem

Tabele in poizvedbe

Primer s tabelo in vnosnim oknom

Ogledali si bomo primer izpisa šifranta držav, kateremu bomo dali pogoje v oknu, ki se bo odprlo pred prikazom izpisa. Najprej odpremo izpis 03B, ki je v programu v meniju Nastavitve | Subjekti | Države, in naredimo kopijo, na kateri bomo delali.

 
Slika 1 - Zavihek Data z objektom za povezavo s tabelo


Na izpis damo na zavihek Data objekt za povezavo s tabelo in mu nastavimo lastnosti Filtered na True, OrderFields na acCountry in TableName na dbo.vHE_SetCountry.


 
Slika 2 - Zavihek Page1 z zamenjanim poljem v pasu Detail


Na zavihku Page1 nastavimo lastnost pasu Detail na DlDBTable1 in vsem poljem v tem pasu zamenjamo ime dataseta iz qReportIzpis v DlDBTable1. V meniju File | NewDialog  izberemo novo pogovorno okno. Nanj damo tekstovni objekt z besedilom »Država«, vnosno polje in gumb. Gumbu določimo lastnost ModalResult na mrOk in priredimo dogodek OnClick. Vanj napišemo:

  procedure Button1OnClick(Sender: TfrxComponent);
  begin
    DlDBTable1.Filter := 'acCountry = ''' + UpperCase(Edit1.Text)+'%';
  end;

Zdaj se nam bodo izpisovale samo države, ki ustrezajo vpisanemu pogoju.



Slika 3 - Vnosno okno našega izpisa