Подбор путевки по параметрам.

Этот пункт меню позволяет провести анализ всех имеющихся туристических маршрутов и вывести в таблицу только те, цена которых находится в заданных пределах.

Выбор страны для подбора маршрута производится из ниспадающего списка. Нижняя и верхняя границы цен вводятся в текстовые поля. При нажатии кнопки ОК вызывается процедура модуля данных, которая инициирует выполнение соответствующего запроса.

//процедура главной формы

procedure TForm2.btOKClick(Sender: TObject);

begin

DataModule1.SelectPass(edMinPrice.text, edMaxPrice.text,

AnsiUpperCase(countryname.Text));

end;

//процедура модуля данных

procedure TDataModule1.SelectPass(MinPrice, MaxPrice: STRING; countryname: string);

begin

qSelectPass.Active: =False;

qSelectPass.ParamByName

('CountryName').AsString: = countryname;

qSelectPass.ParamByName

('MinPrice').AsInteger: = sTRtOiNT(MinPrice);

qSelectPass.ParamByName

('MaxPrice').AsInteger: = StrToInt(MaxPrice);

DataModule1.qSelectPass.Active: = True;

end;

Код SQL-запроса:

select routecode, duration, route.price, hotel.name as HotelName, sity

from route join country on route.COUNTRYCODE=country.COUNTRYCODE

join hotel on route.HOTELCODE=hotel.HOTELCODE

where country.name =: countryname and route.price between: minprice and: maxprice

Результат выполнения: