Разработка баз данных в Delphi. 11 Уроков



         

 TQuery и Параметры - часть 3


          После того, как Вы вызывали Prepare, и после того, как присвоили необходимые значения переменной Params, Вы должны вызвать Open, чтобы закончить привязку переменных и получить желаемый DataSet. В нашем случае, DataSet должен включать записи где в поле “Name” стоит “Argentina”.

          Рассмотрим работу с параметрами на примере (программа PARAMS.DPR).           Для создания программы, разместите на форме компоненты TQuery, TDataSource, TDBGrid и TTabSet.  Соедините компоненты и  установите в свойстве TQuery.DatabaseName псевдоним DBDEMOS. См. рис.2

Рис.2 : Программа PARAMS  во время дизайна.

В обработчике события для формы OnCreate напишем код, заполняющий закладки для TTabSet, кроме того, здесь подготавливается запрос:

procedure TForm1.FormCreate(Sender: TObject);

var

  i : Byte;

begin

  Query1.Prepare;

  for i:=0 to 25 do

    TabSet1.Tabs.Add(Chr(Byte('A')+i));

end;

Текст SQL запроса в компоненте Query1:

select * from employee where LastName like :LastNameStr

Запрос выбирает записи из таблицы EMPLOYEE, в которых поле LastName похоже (like) на значение параметра :LastNameStr. Параметр будет передаваться в момент переключения закладок:

procedure TForm1.TabSet1Change(Sender: TObject;

 NewTab: Integer;

 var AllowChange: Boolean);

begin

  with Query1 do begin

    Close;

    Params[0].AsString:=

        '"'+TabSet1.Tabs.Strings[NewTab]+'%"';

    Open;

  end;

end;

Рис.3: Программа PARAMS во время выполнения.




Содержание  Назад  Вперед