Roz21 (2)

[ Pobierz całość w formacie PDF ]
.Pola obliczane są szczególnieprzydatne w przypadku tych danych, które musimy wyświetlać, lecz których niemusimy przechowywać.Aby utworzyć pole obliczane, trzeba wykonać dwie podstawowe czynności:1.Zdefiniować pole w Edytorze pól (Fields Editor) dla danego komponentuDataSet.2.Przypisać polu wartości w procedurze OnCalcFields komponentuDataSet.A oto kroki, które trzeba wykonać przy tworzeniu pola obliczanego:1.Wyświetl Edytor pól dla danego komponentu DataSet, klikając komponentdwukrotnie.2.Kliknij prawym klawiszem myszy listę pól i z menu kontekstowego wybierzNew field.3.W oknie dialogowym New Field wpisz nazwę, jaką chcesz nadać nowemu poluobliczanemu, wybierz jego typ (Type) danych i w grupie pól opcji Field typekliknij pole Calculated.4.Zakończ definiowanie klikając OK.Po powrocie do Edytora pól powinniśmyw Inspektorze obiektów Delphi zobaczyć wylistowane właściwości nowegopola.Zauważmy, że właściwość Calculated ustawiona jest na True.5.Po zdefiniowaniu pola można już zaprogramować zdarzenie OnCalcFieldsdla naszego DataSet, które nowemu polu przypisuje wartość.Oto przykładtakiego przypisania:taORDERSOrderDateTime.Value := Now;Powyzsza linia kodu przypisuje polu obliczanemu o nazwie taORDERSOrderDateTime wartość dostępnej w Delphi funkcji Now, czyli bieżącą datę i czas.Pola obliczane są szczególnie użyteczne przy wykonywaniu ustalonych obliczeńobejmujących kolumny tabeli.Pola obliczanego moglibyśmy na przykład użyć dozakodowania kwoty pieniędzy, jaką instytucja wypłaca za przebyta mile wtedy,gdy pracownik używa prywatnego samochodu w sprawach służbowych.Podobniedo zdarzenie OnCalcFields można by wbudować prowizję, którą firma płacizwykle swym handlowcom.Możliwości są tu nieograniczone.Ważną rzeczą,o której należy przy tym pamiętać, jest konieczność maksymalnego ograniczaniaRozdział 21 Reguły logiki aplikacji w aplikacjach Delphi 637ilości obliczeń, aby aplikacji nie spowolnić więcej, niż jest to bezwzględniekonieczne.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 ]

Archiwum