初学没几天，想问一条查询语句

Question

大家好，如果是当翻到数据库第一条记录，就提示第一条记录，这样的语句如何写呢？
  是不是query1.prior这样翻，那翻到第一条记录。怎么提示showmessage!
还是
  query1.prior
   with query1 do
    begin
     close;
     sql.clear;
     sql.add(第一条记录如何写？）
     open;
      showmessage('第一条记录')另外，还想问一下，怎么让toolbar上面的按钮，图标和字体平行呢？我用了一个imagelist的了，是16X16的，可是图标却在字体的上面！

Answer 1

ADOTable1.prior;
  if ADOTable1.RecNo =1 then
    ShowMessage('第一条记录');

Answer 2

谢谢，那么如果我需要的是，点上页这个按钮，翻到第一条记录的时候，不提示，等用户在点击上一页的时候，才提示showmessage(‘第一条)，那么这个要如何做？

Answer 3

ADOTable1.prior;
  if ADOTable1.Bof then
    ShowMessage('第一条记录');

Answer 4

不对呀，这样不行的呀！
点上页这个按钮，翻到第一条记录的时候，不提示，等用户再次点击上页按钮的时候，才提示showmessage(‘已经第一条)，那么这个要如何做？

Answer 5

我第二次给你回的是if ADOTable1.Bof then我第一次给你回的是if ADOTable1.RecNo =1 then 
不一样的。

Answer 6

toolbar 把flat设为true就可以了。

Answer 7

delphi5的ado有bug的，有时候bof和eof都不为真，很奇怪的