Primer uporabe dogodka "OnBeforePrint"
Primer uporabe dogodka "OnBeforePrint"
Za prikaz tega dogodka ustvarite poročilo, ki predstavlja seznam strank. To poročilo bo vključevalo le tiste podjetja, katerih ime se začne z črko "A".
Ustvarimo nov projekt, postavimo komponento "TfrxDlDBTable" na obrazec in nastavimo te lastnosti:
UserName = 'Predmeti'
Odprite oblikovalnik poročil in ustvarite poročilo, kot je to:
Izberite podatkovni pas in preklopite na zavihek "Dogodki" v inšpektorju objektov:
Za ustvarjanje obdelovalca dogodka "OnBeforePrint" (kar je za nas najbolj primerno) dvokliknite na prazno polje desno od imena dogodka:
To doda praznega obdelovalca v skripto in oblikovalnik preklopi na zavihek "Koda".
Vse, kar je zdaj potrebno, je, da v telo obdelovalca vnesete naslednjo kodo:
if Copy(<Subjects."acSubject">, 1, 1) = 'A' then
MasterData1.Visible := True
else
MasterData1.Visible := False;
Zaženite poročilo in se prepričajte, da skripta deluje pravilno:
Razložimo več stvari. En obdelovalec lahko dodelimo dogodkom več kot enega objekta - parameter "Sender" prikazuje, kateri objekt je sprožil dogodek. Da dodelite obstoječega obdelovalca dogodku, ga bodisi neposredno vnesite v inšpektor objektov, bodisi ga izberite s spustnega seznama:
Povezavo do obdelovalca je enostavno izbrisati - izberite dodeljenega obdelovalca v inšpektorju objektov in pritisnite tipko "Izbriši".
 |
Če je obdelovalec dogodka izbrisan, koda še vedno ostane v poročilu, vendar se ne uporablja. Če ostane le obdelovalec dogodka, se tudi nobena koda ne izvede in ne pride do napake.
|