实例——设置应用处理范围.txt

冒泡排序延时请认真阅读您的文件包然后写出其具体功能(至少要20个字)。尽量不要让站长把时间都花费在为您修正说明上。压缩包解压时不能有密码。系统会自动删除debug和release目录

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；