logo
ВОПРОСЫ

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

 

Теперь ограничим выборку поставщиков по значению поля State. Для этого добавим к форме следующие компоненты StateEdit типа TEdit c вкладки Standard, QueryButton типа TButtonc вкладки 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;

 

Программа готова.