100分问一个小问题

Question

如果我要用自己的按钮一一对应地代替DBNavigator的功能，那么每个按钮对应的Click事件该怎么写？先送出100分，分不够再开帖望高手指教！

Answer 1

第一條:  DataSet.First;
上一條:  DataSet.Prior;
下一條:  DataSet.Next;
末一條:  DataSet.Last;
涮新:  dataset.refresh;
新建:  dataset.new;
存盤:  dataset.post;
取消:  dataset.cancel;
刪除:  dataset.delete;

Answer 2

可以看看使用QUERY的FIRST,NEXT和其他的属性，查询的可以做单循环。不难。

Answer 3

第一條:  DataSet.First;
上一條:  DataSet.Prior;
下一條:  DataSet.Next;
末一條:  DataSet.Last;
涮新:  dataset.refresh;
新建:  dataset.new;
存盤:  dataset.post;
取消:  dataset.cancel;
刪除:  dataset.delete;
同意：JensiaTsang(桶哥) ( )

Answer 4

新建不对
你可以参照DBNavigator的visiblebuttons属性，去掉nb就是你想要的

Answer 5

对 JensiaTsang(桶哥) 补充编辑：dataset.edit;

Answer 6

你可以多放几个DBNavigator 然后进行组合

Answer 7

第一条:  DataSet.First;
上一条:  DataSet.Prior;
下一条:  DataSet.Next;
末一条:  DataSet.Last;
刷新:  dataset.refresh;
新建:  dataset.Insert; //Or DataSet.Append;
存盘:  dataset.post;//缓存更新 Dataset.ApplyUpdates; DataSet.CommitUpdates;
取消:  dataset.cancel;
刪除:  dataset.delete;

Answer 8

如果用ADO控件以上地方法是否可以？

Answer 9

用ADO组件，刷新要用ADOQ.CLOSE;
ADOQ.OPEN;
其他的一样

Answer 10

补充。
在bde中下一个：
if not a.Eof then
  a.Next;上一个：
if not a.Bof then
  a.Prior;

Answer 11

第一条:  adotable.First;
上一条:  adotable.Prior;
下一条:  adotable.Next;
末一条:  adotable.Last;
刷新:  adotable.refresh;
插入:  adotable.Insert; 
增加： adotable.Append;
存盘:  adotable.post;
取消:  adotable.cancel;
刪除:  adotable.delete;

Answer 12

上面写得很对了，只是在实际程序中还要有一些简单代码，比如判断当按“上一条”到记录首时，还要将该Button的Enabel设为False等。