Теперь ограничим выборку поставщиков по значению поля 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.