WHERE type = U AND name = country);

DROP TABLE country )

* Создаем таблицу Сountry cr country=SQLEXEC(lhandle, ;

CREATE TABLE country (key country smallint ; IDENTITY(1,1) ; PRIMARY KEY CLUSTERED, name country varchar(20) ; NOT NULL, times timestamp) )

* Проверка наличия таблицы Firm на сервере, и, если она

* существует мы ее удаляем =SQLEXEC(lhandle, IF EXISTS (SELECT name ;

FROM sysobjects WHERE type = U AND name = firm) ;

DROP TABLE firm )

* Создаем таблицу Firm

cr firm=SQLEXEC(lhandle, ;

CREATE TABLE firm (key firm smallint IDENTITY(1,1) ;

PRIMARY KEY CLUSTERED, name firm varchar(20) NOT NULL, ; key country smallint REFERENCES country(key country), ; times timestamp) )

* Проверка наличия таблицы Fuel oil на сервере,

* и, если она существует, мы ее удаляем =SQLEXEC(lhandle, IF EXISTS (SELECT name ;

FROM sysobjects WHERE type = U AND name = fuel oil) ; DROP TABLE fuel oil )

* Создаем таблицу fuel oil

cr fuel=SQLEXEC(lhandle, ;

CREATE TABLE fuel oil (key fuel oil smallint ; IDENTITY(1,1) ;

PRIMARY KEY CLUSTERED, name fuel oil varchar(20) NOT NULL,; times timestamp) )

* Проверка наличия таблицы Tyre на сервере, и, если она

* существует, мы ее удаляем =SQLEXEC(lhandle, IF EXISTS (SELECT name ;

FROM sysobjects WHERE type = U AND name = tyre) ; DROP TABLE tyre )

* Создаем таблицу Tyre cr tyre=SQLEXEC(lhandle, ;

CREATE TABLE tyre (key tyre smallint IDENTITY(1,1) ;

PRIMARY KEY CLUSTERED, name tyre varchar(20) NOT NULL, ; times timestamp) )

* Проверка наличия таблицы Body на сервере, и, если она

* существует, мы ее удаляем =SQLEXEC(lhandle, IF EXISTS (SELECT name ;

FROM sysobjects WHERE type = U AND name = body) ; DROP TABLE body )

* Создаем таблицу body

cr body=SQLEXEC(lhandle,;

CREATE TABLE body (key body smallint IDENTITY(1,1) ;

PRIMARY KEY CLUSTERED, name body varchar(20) NOT NULL, ; times timestamp) )

* Проверка наличия таблицы Model на сервере, и, если она

* существует, мы ее удаляем =SQLEXEC(lhandle, IF EXISTS (SELECT name ;

FROM sysobjects WHERE type = U AND name = model) ; DROP TABLE model )

* Создаем таблицу Model cr model1=SQLEXEC(lhandle, ;

CREATE TABLE model (key model smallint IDENTITY(1,1) ;

PRIMARY KEY CLUSTERED, name model varchar(20) NOT NULL, ; key firm smallint DEFAULT 1 REFERENCES firm(key firm), ;

swept volume numeric(5) DEFAULT 1 CHECK ; (swept volume>>1) NULL) )

cr model2=SQLEXEC(lhandle, ;

ALTER TABLE model ADD quantity drum numeric(2) ;

DEFAULT 1 ;

CHECK (quantity drum>> = 1) NULL, capacity numeric(5,1) NULL, torgue numeric(5,1) NULL, key fuel oil ;

smallint DEFAULT 1 ;

REFERENCES fuel oil(key fuel oil), top speed numeric(5,1) NULL ) cr model3=SQLEXEC(lhandle, ; ALTER TABLE model ADD starting numeric(4,1) NULL, ; key tyre smallint DEFAULT 1 REFERENCES tyre(key tyre), ; key body smallint DEFAULT 1 REFERENCES body(key body), ;

quantity door numeric(1) NULL, ;

quantity sead numeric(2) NULL ) cr model4=SQLEXEC(lhandle, ;

ALTER TABLE model ADD length numeric(5) NULL, ;

width numeric(4) NULL, height numeric(4) NULL, ; expense 90 ; numeric(4,1) NULL, expense 120 numeric(4,1) NULL, ; expense town numeric(4,1) NULL, times timestamp )

* Проверка наличия таблицы Automobile passenger car

* на сервере, и, если она существует, мы ее удаляем =SQLEXEC(lhandle, IF EXISTS (SELECT name ;

FROM sysobjects ; WHERE type = U AND name = automobile passenger car) ; DROP TABLE automobile passenger car )

* Создаем таблицу Automobile passenger car

cr auto=SQLEXEC(lhandle, ;

CREATE TABLE automobile passenger car ;

(key auto smallint IDENTITY(1,1) PRIMARY KEY CLUSTERED, ;

key model smallint REFERENCES model(key model), ;

date issue datetime, cost numeric(10,2), times ; timestamp) )

* Проверка наличия таблицы Customer на сервере, и, если

* она существует, мы ее удаляем =SQLEXEC(lhandle, IF EXISTS (SELECT name ;

FROM sysobjects WHERE type = U AND name = customer) ;

DROP TABLE customer )

* Создаем таблицу customer cr customer1=SQLEXEC(lhandle, ;

CREATE TABLE customer (key customer smallint IDENTITY(1,1) ;

PRIMARY KEY CLUSTERED, name customer varchar(30) ; NOT NULL, address varchar(30), tel varchar(12), ; fax varchar(12), ; last name varchar(17), first name varchar(17)) ) ; cr customer2=SQLEXEC(lhandle, ;

ALTER TABLE customer ADD patronymic varchar(17), juridical bit, comment text, times timestamp )

* Проверка наличия таблицы Sale на сервере, и, если она

* существует, мы ее удаляем =SQLEXEC(lhandle, IF EXISTS (SELECT name ;

FROM sysobjects WHERE type = U AND name = sale) ; DROP TABLE sale )

&& Создаем таблицу sale

cr sale=SQLEXEC(lhandle,;

CREATE TABLE sale (account smallint ;

PRIMARY KEY CLUSTERED, date sale datetime, ; sum numeric(10,2), times timestamp) )

* Проверка наличия таблицы Account на сервере, и, если она

* существует, мы ее удаляем =SQLEXEC(lhandle, IF EXISTS (SELECT name ;

FROM sysobjects WHERE type = U AND name = account) ; DROP TABLE account )

* Создаем таблицу Account

cr account1=SQLEXEC(lhandle, ;

CREATE TABLE account (number record smallint ; IDENTITY(1,1) ;

PRIMARY KEY CLUSTERED, account smallint REFERENCES ;

sale(account ), key customer smallint REFERENCES ;

customer(key customer), key auto smallint REFERENCES ;

automobile passenger car(key auto)) )

cr account2=SQLEXEC(lhandle, ;

ALTER TABLE account ADD date write datetime, selled ;

bit, sum numeric(10,2), times timestamp )

* Проверка наличия таблицы Salesman на сервере, и, если

* она существует, мы ее удаляем =SQLEXEC(lhandle, IF EXISTS (SELECT name ;

FROM sysobjects WHERE type = U AND name = salesman) ;

DROP TABLE salesman )

* Создаем таблицу Salesman cr salesman=SQLEXEC(lhandle, ;

CREATE TABLE salesman (key salman smallint ; IDENTITY(1,1) ;

PRIMARY KEY CLUSTERED, last name varchar(17), ;

first name varchar(17), patronymic varchar(17), ; times timestamp) )

* Проверка наличия таблицы Order на сервере, и, если

* она существует, мы ее удаляем =SQLEXEC(lhandle, IF EXISTS (SELECT name ;

FROM sysobjects WHERE type = U AND name = order) ;

DROP TABLE order )

* Создаем таблицу Order cr order=SQLEXEC(lhandle, ;

CREATE TABLE order (key order smallint IDENTITY(1,1) ;

PRIMARY KEY CLUSTERED, key customer smallint REFERENCES ; customer(key customer), key model smallint REFERENCES ; model(key model), key salman smallint REFERENCES ; salesman(key salman), times timestamp) )

ELSE

WAIT WIND Не могу создать базу данных !

ENDIF ELSE

WAIT WIND Не могу создать устройство ! + CHR(13)+ ; возможные причины: +CHR(13)+ - нет места на диске +CHR(13)+ ; - нет полномочий на данную операцию +CHR(13)+ ; - путь указан неверно

ENDIF

* Регистрация

=SQLEXEC(lhandle, USE auto store )

* Проверка наличия группы Piter group на сервере, и, если

* она существует, мы ее удаляем =SQLEXEC(lhandle, sp dropgroup piter group )

* Создаем группу piter group addg=SQLEXEC(lhandle, sp addgroup piter group )

* Если процесс создания группы прошел успешно IF addg>>0

* Последовательно создаем процедуры регистрации с

* именами login lev1, * login lev2,

* login lev3, login lev4, login lev5 и соответствующими

* им паролями lev1,

* lev2, lev3, lev4, lev5 для БД Auto store =SQLEXEC(lhandle, sp addlogin login lev1, lev1, ; auto store ) =SQLEXEC(lhandle, sp addlogin login lev2, lev2, ; auto store ) =SQLEXEC(lhandle, sp addlogin login lev3, lev3, ; auto store ) =SQLEXEC(lhandle, sp addlogin login lev4, lev4, ; auto store ) =SQLEXEC(lhandle, sp addlogin login lev5, lev5, ; auto store )

* Последовательно создаем пользователей с именами Ruben, Karina, Lena, Elena и Ira для группы Piter group

=SQLEXEC(lhandle, sp adduser login lev1, Ruben, ; piter group ) =SQLEXEC(lhandle, sp adduser login lev2, Karina, ; piter group ) =SQLEXEC(lhandle, sp adduser login lev3, Lena, ; piter group ) =SQLEXEC(lhandle, sp adduser login lev4, Elena, ; piter group ) =SQLEXEC(lhandle, sp adduser login lev5, Ira, ; piter group )

ELSE

WAIT WIND Группу PITER GROUP создать невозможно

ENDIF

* Заполнение таблиц БД

=SQLEXEC(lhandle, USE auto store )

* Заполнение таблицы Country

=SQLEXEC(lhandle, INSERT country (name country) VALUES ; (Италия) ) =SQLEXEC(lhandle, INSERT country (name country) VALUES ; (Япония) )

* Заполнение таблицы Firm

=SQLEXEC(lhandle, INSERT firm (name firm,key country) ; VALUES (Alfa Romeo,1) ) && Заполнение таблицы Fuel oil