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



         

 Использование фильтров для ограничения числа записей в DataSet - часть 2


procedure TForm1.ApplyRangeBtnClick(Sender: TObject);

begin

  Table1.SetRangeStart;

  if RangeStart.Text <> '' then

    Table1. Fields[0].AsString := RangeStart.Text;

  Table1.SetRangeEnd;

  if RangeEnd.Text <> '' then

    Table1.Fields[0].AsString := RangeEnd.Text;

 Table1.ApplyRange;

end;

Сначала вызывается процедура SetRangeStart, которая переводит таблицу в режим диапазона (range mode). Затем Вы должны определить начало и конец диапазона. Обратите внимание, что Вы используете свойство Fields для определения диапазона:

Table1.Fields[0].AsString := RangeStart.Text;

          Такое использование свойства Fields - это специальный случай, так как синтаксис, показанный здесь, обычно используется для установки значения поля. Этот специальный случай имеет место только после того, как Вы перевели таблицу в режим диапазона, вызвав SetRangeStart.

          Заключительный шаг в процедуре показанной выше - вызов ApplyRange. Этот вызов фактически приводит ваш запрос в действие. После вызова ApplyRange, TTable больше не в находится в режиме диапазона, и свойства Fields функционирует как обычно.

          Обработчик события нажатия кнопки ‘CancelRange’:

procedure TForm1.CancelRangeBtnClick(Sender: TObject);

begin

  Table1.CancelRange;

end;




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