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);經修正後導航標的位置正確 :
本人压根不用TDBNavigator,而是自己编写一个。