Статьи
|
Метод 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 .
|