Лабораторная работа: База данных "Автосервис" в среде Borland Delphi 6.0.
FROM "OrderWork.DB" Orderwork
GROUP BY CodeWork
3) Query3 – запрос, с помощью которого определяется промежуточная стоимость заказа (стоимость работ, произведенных для данного заказа):
SELECT SUM( Kindofwork.CostWork ), Orderwork.OrderNum
FROM "OrderWork.DB" Orderwork
INNER JOIN "KindOfWork.DB" Kindofwork
ON (Kindofwork.CodeWork = Orderwork.CodeWork)
GROUPBYOrderwork.OrderNum
Кроме указанных выше, также присутствуют и другие аналогичные запросы, с помощью которых производятся различные вычисления, осуществляется параметризованный поиск и т.п.
Все операции с таблицами и запросами необходимо искать в DateModule в соответствующих обработчиках событий. Для правильного функционирования программы необходимо перед первым запуском создать псевдоним БД с именем Autoservice, настроить его на каталог с файлами таблиц, выбрать драйвер PARADOX (сделать это можно, например, с помощью программы BDE Administrator). Для поддержки целостности данных при создании связей между таблицами было включено каскадное удаление и обновление.
4. Инструкция пользователю
При загрузке базы данных «Автосервис» открывается главная форма, с помощью которой осуществляется полный контроль над базой данных и перемещение по ней.
Диаграмма-отчет о востребованности услуг, предоставляемых автосервисом, для проведения соответствующих расчетов и получения информации для размышления как для владельцев автосервиса, так и для его клиентов.
Аналогичная диаграмма, но по устанавливаемым на автомобили запчастям.
Просмотр и печать прайс-листа «Услуги автосервиса». Функция необходима как для владельцев автосервиса, так и для его клиентов. Прайс-лист приведен в приложении к данному отчету.
Аналогично прайс-листу «Услуги автосервиса», но по новым автозапчастям.
Занесение информации о новом владельце, ранее не пользовавшимся услугами автосервиса.
Регистрация нового автомобиля, до сей поры не замеченного в автосервисе.
Оформление нового заказа с занесением всей необходимой информации.
|
Здесь же есть возможность зарегистрировать новый автомобиль, нового владельца, напечатать отчет по данному заказу (чек), выполнить поиск заказов за определенный интервал времени и т.п.
Просмотр, редактирование и внесение новых компонентов в список услуг, которые предоставляет автосервис.
Аналогично услугам, но по новым автозапчастям.
5 . Исходные тексты
unit Unit2;
interface