[求助]delphi如何实现翻页浏览

我想根据卡单号来进行“上一页”、“下一页”的翻页浏览：就是说，单击“上一页”，显示出前一个卡单号底下的所有信息
如果是当天的还好说，只要： sqlstr:='select * from gylc where gylckdh='''+FloatToStr(StrToFloat(EditNum.Text)-1)+''''
就可以了
但是，如果上一个单号是前一天的，那我就搞不定了，请高手们指教
其中，卡单号是这样的：年（4位）月（2位）日（2位）＋序号（3位），如20070611001