07.Rozdział 06 (2)

[ Pobierz całość w formacie PDF ]
.Silverrun kontroluje różnorodne aspekty modelu i pozwalaz dużym prawdopodobieństwem określić, czy może on już posłużyć jako podstawado wygenerowania skryptu SQL.Generowanie poleceń DDLPolecenia SQL, służące do tworzenia lub definiowania obiektów, określane sąmianem poleceń DDL (ang.Data Definition Language, język definicji danych).Pozakończeniu prac nad modelem przychodzi pora na jego fizyczną implementację.Aby wygenerować skrypt SQL, który na podstawie modelu utworzy odpowiednieobiekty, należy:1.Wybrać opcję menu Schema\Generate DDL.2.W oknie dialogowym, które pojawi się na ekranie, uaktywnić przycisk opcjiCoded Name.3.Kliknąć przycisk Generate.4.Program spyta teraz o nazwę pliku.Należy podać nazwę, opisującąpodstawową funkcję modelu, uzupełnioną rozszerzeniem SQL.Dla przykładu,omawianego w tym rozdziale, odpowiednią nazwą będzie LAEASE.SQL.Listing 6.1 przedstawia zawartość skryptu SQL, który powinien zostaćautomatycznie wygenerowany.Polecenia DDL, wygenerowane przez Silverrun, sązgodne z dialektem InterBase SQL, gdyż rozpoczynając pracę nad modelemzadeklarowano użycie właśnie systemu InterBase.Listing 6.1.Skrypt LEASE.SQL wygenerowany przez programSilverrun-RDM.CONNECT E_R_Diagram_for_Lease_Process USER PASSWORD ;CREATE DOMAIN TAddition AS CHARACTER(20) NOT NULL CHECK(VALUE IN ('Deerfield', 'Firewheel', 'Legacy Hills',�' 'Switzerland Estates', 'Sherwood', 'Rockknoll'));CREATE DOMAIN TAddress AS CHARACTER(30) NOT NULL;CREATE DOMAIN TCity AS CHARACTER(30) NOT NULL CHECK Projektowanie baz danych w modelu klient/serwer 209(VALUE IN ('Oklahoma City', 'Norman', 'Edmond', 'Dallas',�' 'Richardson', 'Plano'));CREATE DOMAIN TComments AS VARCHAR(80);CREATE DOMAIN TPhone AS CHARACTER(13) NOT NULL;CREATE DOMAIN TPropertyNo AS INTEGER NOT NULL;CREATE DOMAIN TRent AS NUMERIC(5, 2) NOT NULL;CREATE DOMAIN TRooms AS INTEGER NOT NULL CHECK(VALUE IN (0, 1, 2, 3, 4, 5));CREATE DOMAIN TSchoolDistrict AS CHARACTER(20) NOT NULL CHECK(VALUE IN ( Putnam City , Oklahoma City , Richardson ,�' Edmond , Garland , Dallas , Plano ));CREATE DOMAIN TState AS CHARACTER(2) NOT NULL CHECK(VALUE IN ( OK , TX ));CREATE DOMAIN TTenantNo AS INTEGER NOT NULL;CREATE DOMAIN TYesNo AS CHAR(1) NOT NULL CHECK(VALUE IN ( Y , N , T ,F ));CREATE DOMAIN TZip AS CHARACTER(10) NOT NULL;CREATE TABLE PROPERTY(.Property_Number TPropertyNo NOT NULL,.Address TAddress NOT NULL,.City TCity NOT NULL,.State TState NOT NULL,.Zip TZip NOT NULL,.Addition TAddition NOT NULL,.SchoolDistrict TSchoolDistrict NOT NULL,.Rent TRent NOT NULL,.Deposit TRent NOT NULL,.LivingAreas TRooms NOT NULL,.BedRooms TRooms NOT NULL,.BathRooms TRooms NOT NULL,.GarageType TRooms NOT NULL,.CentralAir TYesNo NOT NULL,.CentralHeat TYesNo NOT NULL,.GasHeat TYesNo NOT NULL,.Refigerator TYesNo NOT NULL,.Range TYesNo NOT NULL,.DishWasher TYesNo NOT NULL,.PrivacyFence TYesNo NOT NULL,.LastLawnDate DATE NOT NULL,210 Część I.LastSprayDate DATE NOT NULL,PRIMARY KEY (Property_Number));CREATE TABLE TENANT( Tenant_Number TTenantNo NOT NULL,Name CHARACTER(30) NOT NULL,Employer CHARACTER(30) NOT NULL,EmployerAddress TAddress NOT NULL,EmployerCity TCity NOT NULL,EmployerState TState NOT NULL,EmployerZip TZip NOT NULL,HomePhone TPhone NOT NULL,WorkPhone TPhone NOT NULL,ICEPhone TPhone NOT NULL,Comments TComments,PRIMARY KEY (Tenant_Number));CREATE TABLE CALL( Call_Number INTEGER NOT NULL,Call_Date DATE NOT NULL,CallTime CHARACTER(11),Description CHARACTER(30) NOT NULL,Property_Number TPropertyNo,PRIMARY KEY (Call_Number),CONSTRAINT FK_PROPERTY1FOREIGN KEY (Property_Number)REFERENCES PROPERTY);CREATE TABLE LEASE( Lease_Number INTEGER NOT NULL,BeginDate DATE NOT NULL,EndDate DATE NOT NULL,MovedInDate DATE NOT NULL,MovedOutDate DATE NOT NULL,Rent TRent NOT NULL,Deposit TRent NOT NULL,PetDeposit TRent NOT NULL,RentDueDay SMALLINT NOT NULL,LawnService TYesNo NOT NULL,Comments TComments,Property_Number TPropertyNo NOT NULL,Tenant_Number TTenantNo NOT NULL,PRIMARY KEY (Lease_Number),CONSTRAINT FK_PROPERTY2FOREIGN KEY (Property_Number)REFERENCES PROPERTY,CONSTRAINT FK_TENANT3FOREIGN KEY (Tenant_Number)REFERENCES TENANT); Projektowanie baz danych w modelu klient/serwer 211UWAGA:Kolejność kolumn w tabeli PROPERTY została nieco zmodyfikowana i jest terazbardziej logiczna.Encja PROPERTY tworzona była automatycznie przez ekspertanormalizacji ERX - stąd przypadkowa kolejność kolumn.Narzucenie kolejnościkolumn zgodnej z naturalnym tokiem myślenia i skojarzeń ułatwia obsługę tabelii tworzenie aplikacji, operujących na niej.Skrypt rozpoczynają polecenia, tworzące obiekty domen Interbase.Odpowiadająone logicznym domenom, zdefiniowanym dla modelu.Utworzone domenywykorzystywane są następnie w definicjach tabel bazy danych.Jest to bardzokorzystne rozwiązanie.Reguły logiki aplikacji ujęte są w definicjach domen,z których można dowolnie korzystać w przyszłości, np.przy tworzeniu nowychkolumn.Gdyby na przykład zaszła potrzeba dodania kolumny, zawierającejwartości typu Yes/No (Tak/Nie), możliwe będzie ponowne użycie domenyTYesNo.Możliwość taka istnieje dzięki ujęciu reguł logiki aplikacji w domenach,a nie wprost w definicjach kolumn.W wygenerowanym skrypcie zauważyć można jedną usterkę: pierwsze, dziwnepolecenie CONNECT, które prawdopodobnie nie uaktywni bazy danych naserwerze InterBase.W charakterze nazwy bazy danych użyto nazwy modelu.Jednym z rozwiązań tego problemu byłaby zmiana nazwy modelu, tak aby mogłabyć użyta również jako poprawna nazwa bazy danych InterBase.Istnieje jednaklepszy sposób.Model został utworzony w wyniku odpowiedniego przekształcenia diagramu E-R,dlatego zachował tytuł, pochodzący z modułu ERX.Zmienimy teraz ten tytuł, takaby lepiej opisywał gotowy, relacyjny model danych.W tym celu należy wybraćopcję menu Schema\Schema Description i zmienić zawartość pola Local Name(Nazwa lokalna), wpisując w nim: Relacyjny model danych dla procesu wynajmu(Lease).Następnie w polu Coded Name (Nazwa kodowa) należy wpisać poprawnąnazwę bazy danych InterBase, np.C:\DATA\RENTMAN\RENTMAN.GDB; wewskazanej bazie danych przechowywane będą obiekty, utworzone przez skryptDDL.Na rysunku 6.29 przedstawiono okno dialogowe Schema Description (Opisdiagramu).212 Część IRysunek 6.29.Nazwę modeluokreśla się w okniedialogowymSchemaDescription.UWAGA:Należy pamiętać o zapisaniu utworzonego modelu, gdyż będzie on ponowniewykorzystywany w dalszej części książki, w sekcji Samouczek.Autor zapisałswój projekt jako LEASE.RDM.Po zmianie nazwy, której program RDM użyje przy generowaniu poleceń DDL,należy zlecić ponowne utworzenie całego skryptu LEASE.SQL.Ponownie posłużydo tego polecenie Schema\Generate DDL.Należy pamiętać o uaktywnieniu opcjiCoded Names.Polecenie CONNECT w nowym pliku przyjmie postać zbliżoną doponiższej:CONNECT C:\DATA\RENTMAN\RENTMAN.GDB USER PASSWORD ;Plik ze skryptem można zmodyfikować, uzupełniając polecenie CONNECTodpowiednim hasłem i identyfikatorem użytkownika.Oto przykład, w którymużyto identyfikatora użytkownika SYSDBA i jego domyślnego hasła:CONNECT C:\DATA\RENTMAN\RENTMAN.GDB USER SYSDBA PASSWORD�' masterkey ;Skrypty SQL można z powodzeniem edytować w środowisku Delphi [ Pobierz całość w formacie PDF ]

Wątki