Карта сайтаСсылкиКонтакты

Фильтрация таблицы при помощи метода SetRange

PDF Печать
Статьи

Метод 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.


 

Добавить комментарий


Защитный код
Обновить