Пример использования параметров запроса

Теперь ограничим выборку поставщиков по значению поля State. Для этого добавим к форме следующие компоненты StateEdit типа TEdit c вкладки Standard, QueryButton типа TButton c вкладки Standard

Изменим запрос в MasterSQL на

select VendorNo, VendorName, Country, City, State, Preferred

from vendors

where State = :StateID

:StateID – параметр, вместо которого при выполнении подставляется значение.

Добавим так же обработчик события OnClick в QueryButton следующего содержания

procedure TForm1.QueryButtonClick(Sender: TObject);

begin

MasterSQL.Active := False;

DetailSQL.Active := False;

MasterSQL.Parameters.ParamByName('StateID').Value := StateEdit.Text;

MasterSQL.Active := True;

DetailSQL.Active := True;

end;

Программа готова. Этот пример можно найти в директории Param.

Содержание раздела