Создание базы данных «Фотоаппараты», страница 3

Структура таблицы "фотоаппараты" (tb_foto.dbf)

Рис. 6.3. Таблица «фотоаппараты»

Где

model_id – идентификатор модели для связи с таблицей tb_model

cost – цена фотоаппарата

date_prod – дата выпуска фотоаппарата

date_sell – дата продажи фотоаппарата

distrib_id – идентификатор поставщика для связи с таблицей tb_distrib

break – наличие брака

Структура таблицы "запчасти" (tb_foto_stuff.dbf)

Рис. 6.4. Таблица «запчасти»

Где

stuff_id – идентификатор запчасти

model_id – идентификатор модели фотоаппарата

distr_id – идентификатор поставщика запчастей

cost – цена запчасти

Структура таблицы "модели" (tb_model.dbf)

Рис. 6.5. Таблица «модели»

Где

dnm_id – идентификатор модели для связки  с другими таблицами

model – название модели фотоаппарата

producer_id – идентификатор производителя для связи с таблицей tb_prod

Структура таблицы "производители" (tb_prod.dbf)

Рис. 6.6. Таблица «производители»

Где

dnm_id – идентификатор производителя

name_prod – название производителя

country_id – идентификатор страны производителя

Структура таблицы "сами_запчасти" (tb_stuff.dbf)

Рис. 6.7. Таблица «сами_запчасти»

Где

dnm_id – идентификатор запчасти

name_stuff – название запчасти

class_id – идентификатор вида запчасти

Структура таблицы "виды_запчастей" (tb_stuff_class.dbf)

Рис. 6.8. Таблица «виды_запчастей»

Где

dnm_id – идентификатор вида поставщика

name_class – название вида запчастей

Тексты программ

1.  «Вся информация о фотоаппаратах»

select ;

      tb_prod.name_prod as производитель,;

      tb_model.model as модель,;

      tb_foto.cost as цена,;

      tb_foto.date_prod as дата_изготовления,;

      tb_foto.date_sell as дата_продажи,;

      tb_distrib.name_co as дистрибьютор,;

      tb_country.name_country as страна,;

      tb_foto.break as брак;

 from tb_foto, tb_distrib, tb_model, tb_prod, tb_country;

 where tb_foto.distrib_id=tb_distrib.dnm_id ;

      and tb_foto.model_id=tb_model.dnm_id ;

      and tb_model.producer_id=tb_prod.dnm_id ;

      and tb_prod.country_id=tb_country.dnm_id

Рис. 7.1. Результат запроса «вся информация о фотоаппаратах»

2.  «Сортировка по"

if thisform.Choose1.value=1

      select ;

            tb_model.model as модель, ;

            tb_foto.cost as цена, ;

            tb_foto.date_prod as дата_изготовления, ;

            tb_foto.date_sell as дата_продажи, ;

            tb_foto.break as брак ;

      from db!tb_foto, db!tb_model ;

      where  ;

            tb_foto.model_id=tb_model.dnm_id ;

            and tb_model.model=Thisform.list1.value ;

      order by tb_foto.date_prod ASC

endif

if thisform.Choose1.value=2

      select ;

            tb_distrib.name_co as поставщик, ;

            tb_model.model as модель, ;

            tb_foto.cost as цена ;

      from db!tb_foto, db!tb_model, db!tb_distrib ;

      where  ;

            tb_foto.model_id = tb_model.dnm_id ;

            and tb_foto.distrib_id = tb_distrib.dnm_id ;

            and tb_model.model = Thisform.list1.value ;

      order by tb_foto.date_prod ASC

endif

if thisform.Choose1.value=3

      select ;

            tb_prod.name_prod as производитель,;

            tb_model.model as модель, ;

            tb_foto.date_prod as дата_изготовления, ;

            tb_foto.date_sell as дата_продажи, ;

            tb_foto.cost as цена, ;

            tb_foto.break as брак ;

      from db!tb_foto, db!tb_model, db!tb_prod ;

      where  ;

            tb_foto.model_id=tb_model.dnm_id ;

            and tb_model.producer_id=tb_prod.dnm_id ;

            and tb_model.model=Thisform.list1.value ;

      order by tb_foto.cost ASC

endif

if thisform.Choose1.value=4

      select ;

            tb_model.model as модель, ;

            tb_foto.cost as цена, ;

            tb_foto.date_prod as дата_изготовления, ;

            tb_foto.date_sell as дата_продажи, ;

            tb_foto.break as брак ;

      from db!tb_foto, db!tb_model ;

      where  ;

            tb_foto.model_id=tb_model.dnm_id ;

            and tb_model.model=Thisform.list1.value ;

      order by tb_foto.date_sell ASC

endif

Рис. 7.2. Форма «Сортировка по»