Создание базы данных для автопарка (“Машины”, “Механик”, “Ремонт”), страница 3

 form_q1.TextCap.value = arr[6]

 form_q1.TextExpl.value = arr[7]

Список ListNames содержит марки автомобилей. При выборе одной из них производится запись свойств этой машины в массив, элементы которого записываются в свойство value элементов управления типа ListBox

Вывод отсортированных сведений о машинах

Для вывода отсортированных сведений о машинах используется форма form_q2(рис. 12)

Рис. 12. Форма для вывода отсортированных сведений о машинах

Функция Click кнопки “Показать” (form_q2.Command1):

do case form_q2.optiongroup1.option1.value = 1

              select cars.manuf_year as Год_выпуска, cars.variety as Марка, cars.exploitation as Срок_эксплуатации,;

              cars.manuf_place as Страна_изготовитель,;

              cars.cost as Цена, cars.speed as Скорость,  cars.capacity as Вместимость, car_types.car_type as Тип;

              from cars inner join car_types on cars.car_type_id = car_types.car_type_id;

              order by manuf_year

case form_q2.optiongroup1.option2.value = 1

              select cars.variety as Марка, cars.manuf_year as Год_выпуска, cars.exploitation as Срок_эксплуатации,;

              cars.manuf_place as Страна_изготовитель,;

              cars.cost as Цена, cars.speed as Скорость,  cars.capacity as Вместимость, car_types.car_type as Тип;

              from cars inner join car_types on cars.car_type_id = car_types.car_type_id;

              order by variety

case form_q2.optiongroup1.option3.value = 1

              select cars.cost as Цена, cars.variety as Марка, cars.manuf_year as Год_выпуска,;

              cars.exploitation as Срок_эксплуатации, cars.manuf_place as Страна_изготовитель,;

              cars.speed as Скорость,  cars.capacity as Вместимость, car_types.car_type as Тип;

              from cars inner join car_types on cars.car_type_id = car_types.car_type_id;

              order by cost

case form_q2.optiongroup1.option4.value = 1

              select cars.exploitation as Срок_эксплуатации, cars.cost as Цена, cars.variety as Марка,;

              cars.manuf_year as Год_выпуска, cars.manuf_place as Страна_изготовитель,;

              cars.speed as Скорость,  cars.capacity as Вместимость, car_types.car_type as Тип;

              from cars inner join car_types on cars.car_type_id = car_types.car_type_id;

              order by exploitation

case form_q2.optiongroup1.option5.value = 1

              select repairs.cost as Цена_ремонта,;

              cars.exploitation as Срок_эксплуатации, cars.cost as Цена, cars.variety as Марка,;

              cars.manuf_year as Год_выпуска, cars.manuf_place as Страна_изготовитель,;

              cars.speed as Скорость,  cars.capacity as Вместимость, car_types.car_type as Тип;

              from cars inner join car_types on cars.car_type_id = car_types.car_type_id;

              inner join repairs on cars.car_id=repairs.car_id;

              order by repairs.cost

case form_q2.optiongroup1.option6.value = 1

              select repair_types.rep_type as Вид_ремонта,;

              cars.exploitation as Срок_эксплуатации, cars.cost as Цена, cars.variety as Марка,;

              cars.manuf_year as Год_выпуска, cars.manuf_place as Страна_изготовитель,;

              cars.speed as Скорость,  cars.capacity as Вместимость, car_types.car_type as Тип;

              from repairs inner join (mechanics inner join repair_types on mechanics.rep_id=repair_types.rep_id);

                                            on repairs.mech_id=mechanics.mech_id;

                                            inner join (cars inner join car_types on cars.car_type_id = car_types.car_type_id);

                                            on repairs.car_id=cars.car_id order by repair_types.rep_type

endcase

Поиск доли старых машин