В СВОЙСТВе SQL.

Для решения подобных задач как раз и используются параметры. В этом случае текст запроса будет выглядеть следующим образом:

SELECT PartDat, ItemNo, ItemCount, InputPrice FROM Parts

WHERE PartEat>= :PD1 AND PartEat<= : PD2

Двоеточие перед именами pdi И PD2 означает, что это параметры. Имя параметра выбирается произвольно. В списке свойства Params первым идет тот параметр, который расположен первым по тексту запросу.

После ввода в свойстве SQL текста запроса для каждого параметра автоматически создается объект TParam. Эти объекты доступны в специализированном редакторе, который вызывается при щелчке на кнопке свойства Params в Инспекторе объектов (рис. 12.2). Для каждого параметра требуется установить тип данных, который должен согласовываться с типом данных соответствующего поля.

Программирование в Delphi 7

Рис. 12.2. Специализированный редактор параметров запроса

Теперь для задания текущих ограничений по дате поступления можно использовать СВСЖТЮ Params:

procedure TForml.RunBtnClick(Sender: TObject); begin with Queryl do

begin Close;
Params[0].AsDateTime := StrToDate(DatelEdit.Text);
Paramsfl].AsDateTime := StrToDate(Date2Edit.Text);
Open;
end;
end;

При щелчке на кнопке RunBtn при помощи параметров в запрос передаются текущие значения ограничений дат.

Значения параметров запроса можно задать и из другого набора данных. Для этого применяется свойство DataSource компонента набора данных. Указанный в свойстве компонент TDataSource должен быть связан с набором данных, значения полей которого требуется передать в параметры. Названия параметров должны соответствовать названиям полей этого набора данных, тогда свойство DataSource начнет работать. При перемещении по записям набора данных текущие значения одноименных параметров полей автоматически передаются в запрос.

Для иллюстрации работы этого свойства рассмотрим простой пример, главная форма которого представлена на рис. 12.3. Этот проект не имеет ни одной строки написанного вручную программного кода.

Программирование в Delphi 7

Рис. 12.3. Главная форма проекта DemoQueryParams

Верхний компонент TDBGrid отображает данные из таблицы Orders базы данных DBDEMOS и связан через компонент ordersSource типа TDataSource с компонентом запроса OrdersQuery. Текст запроса выглядит так:

SELECT * FROM Orders

Нижний компонент TDBGrid отображает данные о покупателе и через компонент CustSource типа TDataSource связан С запросом CustSource, свойство SQL которого имеет следующий вид:

SELECT * FROM Customer WHERE CustNce: CustNo

Обратите внимание, что название параметра соответствует названию поля номера покупателя из таблицы Orders.

Свойство DataSource компонента custQuery указывает на компонент

OrdersSource.

Как только оба набора данных открываются, текущее значение из поля custNo набора данных orders автоматически передается в параметр запроса компонента CustQuery.

Благодаря этому, для двух наборов данных реализована связь "один-к-од-ному" по полю номера поставщика.

И в завершение разговора о параметрах запросов рассмотрим свойства и методы класса TParams, составляющего СВОЙСТВО Params, И Класса TParam, инкапсулирующего отдельный параметр.


⇐ Предыдущая страница| |Следующая страница ⇒

Программирование в Delphi 7



Новости за месяц

  • Июнь
    2017
  • Пн
  • Вт
  • Ср
  • Чт
  • Пт
  • Сб
  • Вс