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;
设置应用处理范围
Delphi 数据范围设置
最新推荐文章于 2025-03-19 23:41:39 发布
24万+

被折叠的 条评论
为什么被折叠?



