設置應用處理範圍

procedure TForm1.Set_Range_BtnClick(Sender: TObject)；
begin
with RenYuan do
//使用人員表
begin
  EditRangeStart；
  //調用數據集的EditRangeStart方法
  FieldByName('錄用日期').AsString := Edit1.Text；
  //根據編輯框的內容設置開始日期
  EditRangeEnd；
  FieldByName('錄用日期').AsString := Edit2.Text；
  //根據編輯框的內容設置最後日期
  ApplyRange；
  //調用數據集的ApplyRange方法，使得設置的範圍生效
End；
End；