Программирование Delphi

Метод SetRange устанавливает начало и конец диапазона значений в базе данных. Чтобы сделать это, выполните следующее:

Добавьте следующие компоненты на форму:

• TDBGrid (по имени dbgrdCustomer)
• TTable (по имени tblCustomer)
• TDataSource (по имени dtsCustomer)
• TButton (по имени Button1)
• Установите свойство DatabaseName управления TTable в DBDEMOS и свойство TableName управления TTable в CUSTOMER.DB
• Установите свойство DataSet управления TDataSource в tblCustomer
• Установите свойство DataSource управления TDBGrid в dtsCustomer

Добавьте следующий код в события OnCreate и OnDestroy.

begin 
  tblCustomer.Open; 
end;


procedure TForm1.FormDestroy(Sender: TObject); 
begin 
  tblCustomer.Close; 
end; 

... и добавьте этот код в событие OnClick кнопки и запустите проект:

procedure TForm1.Button1Click(Sender: TObject); 
begin 
  tblCustomer.SetRangeStart; 
  tblCustomer[ 'CustNo' ] := 2300; 
  tblCustomer.SetRangeEnd; 
  tblCustomer[ 'CustNo' ] := 3200; 
  tblCustomer.ApplyRange; 
end;

Теперь, после фильтрации, Вы увидите номера Customer от 2300 до 3200.