Как изменить поведение компонента TDBNavigator?

StackOverflow https://stackoverflow.com/questions/536382

  •  22-08-2019
  •  | 
  •  

Вопрос

Я хотел бы изменить поведение кнопки вставки на стандартной панели DBNavigator: с вставки набора данных на добавление.

Я мог бы перехватить нажатие кнопки в событии BeforeAction, выполнить добавление и т. д.;а затем в событии OnClick прервать исходную вставку, но это кажется хаком.Есть идеи получше?Я использую D6 (500 000 км на часах, и все еще работает...).

Спасибо за любой совет

С уважением,

Фил В.

Это было полезно?

Решение

Вы можете получить свой собственный класс от 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;

Другие советы

В большинстве баз данных нет разницы между вставкой и добавлением.Выполнение фактической физической вставки означало бы фактическое перемещение всех данных, начиная с места, где будет вставлена ​​​​новая строка, вниз на размер одной строки, а затем запись этой новой строки в новое открытое место.Это будет очень медленно из-за всей активности диска.

Вместо этого базы данных выполняют добавление, которое записывает данные в конец физического файла, а порядок индекса определяет, как строка будет располагаться в правильном месте в файле.

Таким образом, для большинства намерений и целей вы, вероятно, уже получаете добавление вместо вставки, независимо от того, какой метод вы используете или что говорит кнопка в DBNavigator.Именно индекс заставляет это выглядеть иначе.

Вы можете проверить это на достоверность, создав базу данных без индекса и попытавшись выполнить вставку и добавление несколько раз, тщательно проверяя данные после каждой операции.

@TOndrej:Большой!Я не оценил эту технику.Спасибо!

@Кен Уайт:Я понимаю вашу точку зрения, но для моих пользователей это имеет значение визуально — DBNavigator управляет DBGrid, где в большинстве случаев в сетке имеется множество неиспользуемых строк.Кажется более последовательным, чтобы новые записи появлялись внизу сетки, а не чуть выше того места, где в данный момент находится текущая запись.Но спасибо за ваш ответ.

С уважением, Фил.

Лицензировано под: CC-BY-SA с атрибуция
Не связан с StackOverflow
scroll top