Ein Navigator für mehrere Datenmengen
Nach oben zu Datensensitive Steuerelemente - Index
Wie bei allen datensensitiven Steuerelementen bezeichnet auch beim Navigator die Eigenschaft DataSource die Datenquelle, die das Steuerelement mit einer Datenmenge verbindet. Diese Eigenschaft kann zur Laufzeit geändert werden. Dadurch ist es möglich, mit einem einzigen Navigator die Datensatznavigation und -bearbeitung für mehrere Datenmengen zu implementieren.
Angenommen, ein Formular enthält zwei DBEdit-Steuerelemente, die über die Datenquellen CustomersSource und OrdersSource mit den Datenmengen CustomersTable bzw. OrdersTable verknüpft sind. Wenn nun ein Benutzer auf das mit CustomersSource verbundene DBEdit-Steuerelement klickt, soll der Navigator auf diese Datenmenge umschalten. Klickt der Benutzer dagegen auf das mit OrdersSource verbundene Steuerelement, soll der Navigator eben zu dieser Datenmenge wechseln. Sie können für eines der DBEdit-Steuerelemente eine Ereignisbehandlungsroutine für Vcl.Controls.TWinControl.OnEnter schreiben und diese auch dem anderen Steuerelement zuweisen. Beispiel:
procedure TForm1.CustomerCompanyEnter(Sender :TObject);
begin
if Sender = CustomerCompany then
DBNavigatorAll.DataSource := CustomerCompany.DataSource
else
DBNavigatorAll.DataSource := OrderNum.DataSource;
end;
void __fastcall TForm1::CustomerCompanyEnter(TObject *Sender)
{
if (Sender == (TObject *)CustomerCompany)
DBNavigatorAll->DataSource = CustomerCompany->DataSource;
else
DBNavigatorAll->DataSource = OrderNum->DataSource;
}