Курсовая работа: Информационная система оптимизации работы сотрудников по прокату кино и видео фильмов

QUERY1.open;

При нажатии на кнопку «Суммарная протяженность» появляется форма «Суммарное расстояние». Этот запрос осуществляет расчет суммарной протяженности маршрутов, осуществленных каждым автобусом.

SQL для этого запроса выглядит следующим образом:

Select distinct a.model,sum(PROT) from A,V,m,R

where a.NOMER_V=V.NOMER_V and M.NOMER_M=R.NOMER_M and a.NOMER_a=R.NOMER_a group by model

Выбрав запрос "маршруты определенного водителя или контролера" появляется соответствующая форма. Этот запрос осуществляет выборку сведений о маршрутах, осущественных определенным водителем или контролером. Необходимо ввести фамилии и нажать на кнопку «Просмотр».

SQL для этого запроса выглядит следующим образом:

Select M.NAZVAN, R.DATAOTPR, K.FAMILIA , v.familia from M,R,K, v,a

where M.NOMER_M=R.NOMER_M and

K.nomer_k=R.NOMER_K and a.nomer_a=r.NOMER_a and a.nomer_v=a.NOMER_a

and v.familia like :fv and k.familia like :fk

SQL для этого кнопки выглядит следующим образом:

procedure TForm12.Button1Click(Sender: TObject);

begin

QUERY1.CLOSE;

QUERY1.ParamByName('fk').value:=Edit1.Text+'%';

QUERY1.ParamByName('fv').value:=Edit2.Text+'%';

QUERY1.open;

end;

SQL для этого кнопки выглядит следующим образом:

procedure TForm12.FormActivate(Sender: TObject);

begin

QUERY1.CLOSE;

QUERY1.ParamByName('fk').value:='%';

QUERY1.ParamByName('fv').value:='%';

QUERY1.open;

end;

Выбрав запрос "прохождение ТО определенным автобусом" появляется соответствующая форма. Этот запрос осуществляет выборку сведений об автобусе, введенном с клавиатуры. Необходимо ввести модель автобуса и нажать на кнопку «Просмотр».

Результат запроса выглядит следующим образом