Primer korišćenja "OnBeforePrint" događaja

Primer korišćenja "OnBeforePrint" događaja

Da bismo demonstrirali ovaj događaj, kreirajte izveštaj koji predstavlja listu klijenata. Ovaj izveštaj će uključivati samo one kompanije čije ime počinje sa slovom "A".

Kreirajmo novi projekat, postavite "TfrxDlDBTable" komponentu na formu i postavite ove osobine:

KorisničkoIme = 'Predmeti'

Otvorite dizajner izveštaja i kreirajte izveštaj poput ovog:

Izaberite podatkovni bend i prebacite se na karticu “Događaji” u inspektoru objekata:

Da biste kreirali "OnBeforePrint" handler (koji je najprikladniji za nas), dvaput kliknite na prazno polje desno od imena događaja:

Ovo dodaje prazan handler u skriptu i dizajner se prebacuje na karticu “Kod”.

Sve što je sada potrebno je da otkucate sledeći kod u telu handler-a:

if  Kopiraj(<Predmeti."acSubject">, 1, 1) = 'A' onda

  MasterData1.Visible := True

inače

  MasterData1.Visible := False;

Pokrenite izveštaj i uverite se da skripta radi ispravno:

Objasnimo nekoliko stvari. Jedan handler može biti dodeljen događajima više od jednog objekta - parametar “Sender” pokazuje koji objekat je inicirao događaj. Da biste dodelili postojeći handler događaju, ili ga otkucajte direktno u inspektoru objekata, ili ga izaberite iz padajuće liste:

Veza na handler može se lako obrisati - izaberite dodeljeni handler u inspektoru objekata i pritisnite taster “Delete”.

Ako je handler događaja obrisan, kod i dalje ostaje u izveštaju, ali se ne koristi. Samo handler događaja ostaje, tako da se nijedan kod ne izvršava i ne javlja se greška.