procedure TForm1.MovePositionBtnClick(Sender: TObject); var i: Integer; begin RenYuan.Open; //打开人员表RenYuan with MovePosProgressBar do //使用TprogressBar组件显示移动的进程 begin Min := 0; //设置TprogressBar组件Min和Max属性,以确定进程的范围 Max := RenYuan.RecordCount; //获取人员表RenYuan的记录总数,以作为循环控制变量的终值 RenYuan.First; //将记录指针一移到第一个记录的位置上 for i := Min to Max do //本循环移动表的指针,从开始一直移到到最后 begin Position := i; //设置TprogressBar组件的Position属性,确定进程条的显示位置 RenYuan.Next; //将表的记录指针移到下一个记录的位置上 End; End; End;
移动记录指针并在进程条中显示移动过程
最新推荐文章于 2021-11-21 08:39:19 发布