Delphi 3 и создание приложений баз данных


8.4.3. Методы SetRangeStart, SetRangeEnd, ApplyRange


Эти методы (см. п.8.4.1) являются альтернативой методу SetRange, который объединяет в себе функциональность трех указанных методов.

В частности, рассмотренная в предыдущем примере фильтрация по начальному и конечному номеру группы может быть реализована таким образом:

procedure TForm1.CheckBoxIClick(Sender: TObject);

var GrNumTrnp1, GrNumTmp2 : Integer;

begin

IF CheckBox1.Checked THEN

begin

WITH Tablel do begin

CancelRange;

SetRangeStart ;

Table1. FieldByName ('GrNum') . Aslnteger: = GrNumTnpl ;

SetRangeEnd;

Tablel. FieldByName ('GrNum') .Aslnteger := GrMumTmp2 ;

ApplyRange;

END; {with}

end {then}

ELSE

Tablel.CancelRange;

end;




Начало  Назад  Вперед



Книжный магазин