Курсовая работа: Проектирование базы данных "Автовокзал"
else
begin
if RadioGroup1. ItemIndex=3 then
begin
table3. Filtered: =true;
Table3. Filter: ='Nomer_voditelya='+ComboBox2. Text; end
else
begin
if RadioGroup1. ItemIndex=4 then
begin
table3. Filtered: =true;
Table3. Filter: ='Nomer_avtobysa='+ComboBox3. Text; end
else
Table3. Filtered: =False;
end;
end; end;
end;
Для формирования поставленных в задании запросов воспользуемся языком запросов SQL.
1. Выдать информацию о наличии свободного билета на рейс.
select distinct nomer_reisa, kolichestvo_mest, prodannie_mesta
from reis, avtobys
where (avtobys. nomer_avtobysa=reis. nomer_avtobysa)
and (kolichestvo_mest-prodannie_mesta) >0
2. Вывести список рейсов в один и тот же город с указанием времени пути и стоимости билета.
select distinct nomer_reisa, pynkt_naznacheniya, stoimost, vremya_v_pyti
from reis, bilet
where (bilet. nomer_reisa=reis. nomer_reisa)
and pynkt_naznacheniya='+''''+Edit14. Text+''''
Во втором запросе я воспользовалась дополнительно компонентом Edit для того, чтобы пользователь мог выбрать необходимый пункт назначения и получить необходимую информацию об этом рейсе.