用AdoQuery查询数据,在按钮里写事件判断bof是否为空。就是在按钮里写<上一条>和<下一条>事件。
但实际中数据库已经到头了,再点一次按钮时bof才为真。该如何解决,谢谢! if Not AqApplyOrder.Bof then
begin
AqApplyOrder.Prior;
ShowCardMakedInfo(Dm.AqPublic,edtBillNum.Text);
end
else
begin
btnPrior.Enabled := False;
btnNext.Enabled := True;
end;
但实际中数据库已经到头了,再点一次按钮时bof才为真。该如何解决,谢谢! if Not AqApplyOrder.Bof then
begin
AqApplyOrder.Prior;
ShowCardMakedInfo(Dm.AqPublic,edtBillNum.Text);
end
else
begin
btnPrior.Enabled := False;
btnNext.Enabled := True;
end;
AdoQuery1.First;
AdoQuery1.Prior;
AdoQuery1.Next;
AdoQuery1.Last;
如果說到盡頭,給出提示或返回上一筆或下一筆即可...