如何更改 TDBNavigator 组件的行为？

Question

我想更改标准 DBNavigator 栏上插入按钮的行为，从数据集插入到追加。

我可以在 BeforeAction 事件中捕获按钮单击，执行附加操作等； 然后在 OnClick 事件中中止原始插入，但这似乎有点黑客。 还有更好的想法吗？ 我正在使用 D6（已行驶 500,000 公里，并且仍然强劲......）。

感谢您的任何建议

问候，

PhilW。

Answer 1

在大多数数据库中，插入和追加之间没有区别。 进行实际的物理插入意味着实际上移动所有数据，从插入新行的位置开始，减小一行的大小，然后将该新行写入新打开的位置。 由于所有磁盘活动，这将非常慢。

相反，数据库执行追加操作，将数据写入物理文件的末尾，索引顺序控制行在文件中正确位置的显示方式。

因此，对于大多数意图和目的，您可能已经获得了附加而不是插入，无论您使用哪种方法或 DBNavigator 上的按钮显示什么。 是索引让它看起来不一样。

您可以通过创建一个没有索引的数据库来检查其有效性，并尝试执行几次插入和追加，并在每次操作后仔细检查数据。

Answer 2

@TOndrej：太棒了！ 我不欣赏这种技术。 谢谢！

@Ken White：我理解你的观点，但在视觉上对我的用户来说它是有区别的 - DBNavigator 控制 DBGrid，在大多数情况下，网格中有大量未使用的行。 让新记录出现在网格底部而不是出现在当前记录所在位置的上方似乎更加一致。 但谢谢你的回答。

问候，
菲尔W.

Answer 3

您可以从 TDBNavigator 派生您自己的类并重写 BtnClick 方法。
或者，为了快速而肮脏的修复，您可以在运行时更改插入按钮的单击处理程序，例如：

type
  THackDBNavigator = class(TDBNavigator);

procedure TForm1.DBNavigatorInsertClick(Sender: TObject);
var
  DBNavigator: TDBNavigator;
begin
  DBNavigator := ((Sender as TControl).Parent as TDBNavigator);
  if Assigned(DBNavigator.DataSource) and (DBNavigator.DataSource.State <> dsInactive) then
  begin
    if Assigned(DBNavigator.BeforeAction) then
      DBNavigator.BeforeAction(DBNavigator, nbInsert);

    DBNavigator.DataSource.DataSet.Append;

    if Assigned(DBNavigator.OnClick) then
      DBNavigator.OnClick(DBNavigator, nbInsert);
  end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  THackDBNavigator(DBNavigator1).Buttons[nbInsert].OnClick := DBNavigatorInsertClick;
end;