Студопедия

Главная страница Случайная страница

Разделы сайта

АвтомобилиАстрономияБиологияГеографияДом и садДругие языкиДругоеИнформатикаИсторияКультураЛитератураЛогикаМатематикаМедицинаМеталлургияМеханикаОбразованиеОхрана трудаПедагогикаПолитикаПравоПсихологияРелигияРиторикаСоциологияСпортСтроительствоТехнологияТуризмФизикаФилософияФинансыХимияЧерчениеЭкологияЭкономикаЭлектроника






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






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

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

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

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

 

 

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






© 2023 :: MyLektsii.ru :: Мои Лекции
Все материалы представленные на сайте исключительно с целью ознакомления читателями и не преследуют коммерческих целей или нарушение авторских прав.
Копирование текстов разрешено только с указанием индексируемой ссылки на источник.