设置应用处理范围

niochen

于 2009-02-20 10:18:00 发布

阅读量316

点赞数

CC 4.0 BY-SA版权

分类专栏： Delphi

本文链接：https://blog.youkuaiyun.com/jfree5200/article/details/3913082

Delphi 专栏收录该内容

95 篇文章

订阅专栏

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；