Как изменить поведение компонента TDBNavigator?
-
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, где в большинстве случаев в сетке имеется множество неиспользуемых строк.Кажется более последовательным, чтобы новые записи появлялись внизу сетки, а не чуть выше того места, где в данный момент находится текущая запись.Но спасибо за ваш ответ.
С уважением, Фил.