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

Глава 7

Средства работы с данными

7.1. Организация ввода данных, их поиска и редактирования

Работа с данными в Visual FoxPro Работа с данными в Microsoft Access

7.2. Создание SQL-запросов

Запросы выборки

=SQLEXEC(lhandle,"INSERT fuel oil (name fuel oil) ; VALUES (Дизельное топливо)")

&& Заполнение таблицы Tyre

=SQLEXEC(lhandle,"INSERT tyre (name tyre) VALUES (4.5 ; J)")

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

=SQLEXEC(lhandle,"INSERT body (name body) VALUES ; (Хэтчбек)")

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

=SQLEXEC(lhandle,"INSERT model ; (name model,key firm,swept volume, ;

quantity drum,key fuel oil,key tyre,key body) VALUES ; (145 1.4,1,1351,4,3,3,1)")

* Заполнение таблицы Automobile passenger car

=SQLEXEC(lhandle,"INSERT automobile passenger car ; (key model,date issue,cost); VALUES (1,7/7/94,10000)")

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

=SQLEXEC(lhandle,"INSERT customer ; (name customer,address,tel, ; first name,juridical) ;

VALUES (Общество национальных героев,CПб ; ул М Маклая,77710,Юлиан,1)")

* Заполнение таблицы Sale =SQLEXEC(lhandle,"INSERT sale

(account ,date sale,sum ) ; VALUES (101,5/1/96,10000)")

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

=SQLEXEC(lhandle,"INSERT account ; (account ,key customer,key auto, ; date write,selled,sum ) VALUES ; (101,1,1,1/1/96,1,10000)")

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

=SQLEXEC(lhandle,"INSERT salesman ; (last name,first name,patronymic) ; VALUES (Ажуров,Аристарх,Ариевич)")

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

=SQLEXEC(lhandle,"INSERT order ; (key customer,key model,key salman) ;

VALUES (1,1,1)")

* Создание привилегий (прав) доступа к полям таблиц БД

=SQLEXEC(lhandle,"USE auto store") =SQLEXEC(lhandle,"GRANT insert, delete ON model ; TO ruben") =SQLEXEC(lhandle,"GRANT update,select ON model ; TO ruben, karina, lena, elena, ira")

=SQLEXEC(lhandle,"REVOKE update,select ON customer ; (comment) ; FROM karina, lena")

* Разрываем соединение с источником данных ODBC

=SQLDISCONNECT(lhandle) ELSE

WAIT WIND "Связаться с сервером не удается !"

ENDIF