VCL 自帶的數據庫導航 TDBNavigator 控件短小精幹算實用...但是...打從 Delphi 與 C++Builder 問世以來就存在著操作上的不協調......在使用鼠標或鍵盤操作表格控件時...當移動位置至首筆(第一行)時...First 與 Prior 導航按鈕不應該處在 Enable 可按的情形...而移動位置至末筆(最後一行)時...Next 與 Last 導航按鈕也不應該處在 Enable 可按的情形...這在別的數據庫之表格或導覽控件並未見過 :實際上 Bof 與 Eof 的邏輯位置在隔線上而非框格上...所以 Vcl.DBCtrls.pas 之 TDBNavigator 原代碼...將 Bof 與 Eof 當作物理位置來識別並不正確...必須做修正以符合實際上的操作 :
{ TODO -oxuware -c導航按鈕列 : 001 校正首筆末筆按鈕邏輯 }
//UpEnable := Enabled and FDataLink.Active and not FDataLink.DataSet.BOF;
UpEnable := Enabled and FDataLink.Active and (FDataLink.DataSet.RecNo <> 1);
//DnEnable := Enabled and FDataLink.Active and not FDataLink.DataSet.EOF;
DnEnable := Enabled and FDataLink.Active and
(FDataLink.DataSet.RecNo <> FDataLink.DataSet.RecordCount);經修正後導航標的位置正確 :
{ TODO -oxuware -c導航按鈕列 : 001 校正首筆末筆按鈕邏輯 }
//UpEnable := Enabled and FDataLink.Active and not FDataLink.DataSet.BOF;
UpEnable := Enabled and FDataLink.Active and (FDataLink.DataSet.RecNo <> 1);
//DnEnable := Enabled and FDataLink.Active and not FDataLink.DataSet.EOF;
DnEnable := Enabled and FDataLink.Active and
(FDataLink.DataSet.RecNo <> FDataLink.DataSet.RecordCount);經修正後導航標的位置正確 :
解决方案 »
- 我的程序无法在WindowsXP中编译
- 怎么样将不同ip段的红警联网呢?
- 如何在TreeView或ListView上显示叠加图标
- 有关水晶报表再D6上安装的问题
- 关于LookUp字段问题,在线等!
- 如何用比较简单的方法实现所见即所得的打印?就像office那样。。。
- 高手指教:在MDI中怎样使一个子窗口总是在其它子窗口的前面,而不是showmodal出来?
- 关于打印控件
- 关于COM的RPC调用的问题!请COM的高手赐教!不然我要下岗了!拜托!拜托!拜托!拜托!拜托!
- Delphi的CodeEdit中为什麽Ctrl+C,Ctrl+V都无效?
- 关于自助缴费机的开发
- 用TIDIMAP4读取中文文件夹乱码
本人压根不用TDBNavigator,而是自己编写一个。