Jak zmienić zachowanie komponentu TDBNavigator?

Question

Chciałbym zmienić zachowanie przycisku wstawiania na standardowym pasku DBNavigator, z wstawki zestawu danych do dołączenia.

Mogę przechwycić kliknięcie przycisku w zdarzeniu BeforeAction, zrobić załącznik, itp .; a następnie w zdarzeniu OnClick przerwać oryginalną wstawkę, ale wydaje się to trochę hack. Jakieś lepsze pomysły? Używam D6 (500 000 km na zegarze, i wciąż mam siłę ...).

Dzięki za wszelkie rady

Pozdrawiam,

PhilW.

Answer 1

Można wyprowadzić własną klasę z TDBNavigator i zastąpić metodę BtnClick. Albo, dla szybkiego i brudne fix, można zmienić kliknij przycisk Wstaw obsługi w czasie wykonywania, np .:

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; 

Answer 2

Nie ma różnicy w większości baz danych pomiędzy wkładką i dołączyć. Wykonanie rzeczywistej wkładki fizycznej oznaczałoby rzeczywiste przeniesienie wszystkich danych, zaczynając od miejsca, w którym nowy wiersz zostanie wstawiony, w dół o rozmiar jednego rzędu, a następnie zapisując ten nowy wiersz w nowo otwartym miejscu. Byłoby to bardzo powolne ze względu na całą aktywność dysku.

Bazy danych zamiast tego zawierają załącznik, który zapisuje dane na końcu pliku fizycznego, a kolejność indeksu kontroluje sposób wyświetlania wiersza w odpowiednim miejscu w pliku.

Tak więc dla większości celów i celów, prawdopodobnie już dostajesz załącznik zamiast wstawki, niezależnie od tego, z której metody korzystasz lub jaki przycisk w DBNavigator mówi. To indeks sprawia, że ​​wygląda inaczej.

Można sprawdzić, czy dla ważności, tworząc bazę danych bez indeksu, i spróbować kilka razy wstawić i dopisać, dokładnie sprawdzając dane po każdej operacji.

Answer 3

@TOndrej: Świetnie! Nie doceniałem tej techniki. Dzięki!

@Ken White: Rozumiem twój punkt, ale wizualnie dla moich użytkowników to robi różnicę - DBNavigator kontroluje DBGrid, gdzie w większości przypadków jest mnóstwo nieużywanych wierszy w siatce. Wydaje się, że bardziej spójne jest, aby nowe zapisy pojawiły się na dole siatki, a następnie tuż nad miejscem, w którym obecnie znajduje się aktualny rekord. Ale dziękuję za odpowiedź.

Pozdrawiam, PhilW.