Roz21

Podstrony

[ Pobierz całość w formacie PDF ]
.OnValidateInna droga do ustanowienia reguł logiki aplikacji w TField wiedzie poprzezzdarzenie OnValidate.Każdy TField ma związane ze sobą zdarzenieOnValidate, którego można użyć do weryfikacji jego wartości.Kod, który sięw nim znajdzie, może zrobić praktycznie wszystko - może porównać wartości, jakapole otrzymuje, ze stałymi, innymi polami lub rezultatami zapytania.Jeślistwierdzimy, że wartość, którą pole otrzymuje, jest nieprawidłowa, po prostugenerujemy wyjątek.Powoduje to wyświetlenie komunikatu o błędziei uniemożliwia zatwierdzenie wiersza.Możemy tworzyć nasze własne, pochodnetypy wyjątków lub korzystać tylko z tych, których dostarcza Delphi.OnExitInnym powszechnie wykorzystywanym miejscem implementowania bazujących napolach reguł logiki aplikacji jest zdarzenie OnExit w skojarzonych z danymi(data-aware) komponentach, takich jak DBEdit.Do zdarzenie OnExit możemydołączyć kod, który będzie się wykonywać w momencie, gdy użytkownik zaczniewychodzić z danej kontrolki.Kod ten może przypisywać wartości innym polom(na przykład, przypisywać datę zakończenia w oparciu o dostarczoną datęrozpoczęcia), dokonywać sprawdzenia wartości lub też uwidaczniać albo ukrywaćinne komponenty na formularzu w zależności od wprowadzonych wcześniejwartościZbiory danych a reguły logiki aplikacjiNastępnym poziomem, na którym konstruować można reguły logiki aplikacjiaplikacji, jest poziom zbiorów danych (DataSet).W klasie komponentówDataSet (której pochodnymi są wszystkie komponenty Table, Queryi StoredProc) występują trzy zdarzenia, które zasługują na specjalną uwagę:OnNewRecord, BeforeDelete i BeforePost.Odpowiadają one z grubszaprocedurom zdarzeń INSERT, DELETE I UPDATE, które można podłączać dotabel bazy danych.OnNewRecordZdarzenie OnNewRecord zachodzi za każdym razem, gdy do tabeli dodawanyjest nowy rekord.Można go wykorzystać do nadawania wartości kolumnom tabeli.A oto próbka kodu, dostarczająca domyślnych wartości kolumnom PetDepositi LawnService z tabeli LEASE, wykorzystywanej w sekcji Tutorial książki:638 Część IVprocedure TForm1.taLEASENewRecord(DataSet: TDataSet);begintaLEASEPetDeposit.Value:=0;taLEASELawnService.Value:=True;end;BeforeDeleteZdarzenie BeforeDelete, jak sama nazwa wskazuje, poprzedza kasowaniewiersza.Zdarzenia BeforeDelete można użyć do sprawdzenia poprawnościusuwania wiersza zanim zostanie ono wykonane.Na przykład można jewykorzystać aby zapobiec usunięciu wiersza, który jest powiązany z wierszamiinnej tabeli.Jeśli w trakcie obsługi tego zdarzenia wygenerujemy wyjątek,usuwanie zostaje przerwane.Poniżej podajemy próbkę kodu używającego tabelLEASE i PROPERTY z części drugiej tej książki:taLEASE.IndexName:= Propery_Number ;If taLEASE.FindKey([taPROPERTYProperty_Number.AsInteger]) thenraise EDatabaseError.Create( Property_Number is in use - deletefailed );Ten fragment programu zabezpiecza przed usunięciem wierszy tabeli PROPERTYktóre posiadają odwołanie do wierszy w tabeli LEASE.BeforePostZdarzenie BeforePost, jak sama nazwa wskazuje, zachodzi tuż przedzapisaniem wiersza w jego rodzimej tabeli.Zdarzenia BeforePost można użyćdo sprawdzenia poprawności wartości w nowym wierszu lub zmian dokonanychw wierszu istniejącym.Jeśli w trakcie obsługi tego zdarzenia wygenerujemywyjątek, zatwierdzanie zostaje przerwane.Poniżej podajemy próbkę koduzapewniającą, że chronologicznie data LeaseEndDate wypadnie zawsze podacie LeaseBeginDate:procedure TForm1.taLEASEBeforePost(DataSet: TDataSet);beginIf (taLEASELeaseBeginDate.AsDateTime >�' taLEASELeaseEndDate.AsDateTime) thenraise EDatabaseError.Create( Lease ending date m.�' ust come after its beginning date );end;Istnieje kilka innych specjalnych zdarzeń DataSet, które można wykorzystać doimplementowania bazujących na programie reguł logiki aplikacji.Tabela 21.1Rozdział 21 Reguły logiki aplikacji w aplikacjach Delphi 639zawiera listę zdarzeń dostępnych w klasie komponentów DataSet, które majązwiązek z projektowaniem reguł logiki aplikacji.Tabela 21.2.Metody DataSet, które mogą się przydać przy implementowaniubazujących na aplikacji reguł biznesowych.Zdarzenie Czynnik wywołującyAfterCancelZachodzi po CancelAfterCloseZachodzi po zamknięciu DataSetAfterDeleteZachodzi po DeleteAfterEditZachodzi po EditAfterInsertZachodzi po Insert lub AppendAfterOpenZachodzi po otwarciu DataSetAfterPostZachodzi po PostBeforeCancelZachodzi przed CancelBeforeCloseZachodzi przed zamknięciem DataSetBeforeEditZachodzi przed EditBeforeInsertZachodzi przed Insert lub AppendBeforeOpenZachodzi przed otwarciem DataSetOnCalcFieldZachodzi gdy pole obliczane potrzebuje wartościOnDeleteErrorZachodzi gdy przy kasowaniu rekordu pojawia sięproblemOnEditErrorZachodzi gdy przy redagowaniu rekordu pojawia sięproblemOnFilterRecordZachodzi gdy filtrowanie jest uaktywnione i DataSetpotrzebuje wiersza [ Pobierz całość w formacie PDF ]

zanotowane.pl

doc.pisz.pl

pdf.pisz.pl

bezglutenowo.pev.pl