Hallo,
ich habe zwei Tabellen (logo bei eimer DBLookupComboBox-Kompo), eine mit Veranstaltungsdaten und eine mit den Ausrichtern. Ist ein Ausrichter nicht in der Tabelle vorhanden, soll er neu angelegt werden. Dazu habe ich neben der DBLookupComboBox-Kompo einen Button, welcher ein Form öffnet, in das ich dann den Ausrichter mit Daten füllen kann.
Beim Verändern der Daten mit dem ButtonOK übernimmt die DBLookupComboBox-Kompo die geänderten Daten auch, beim Neuanlegen eines Datensatzes mit dem ButtonNew und anschließendem ButtonOK zum Übernehmen ist dies nicht der Fall. Ich hätte aber gern, dass die DBLookupComboBox-Kompo den neu angelegten Datensatz anzeigt.
Code HauptForm:
Delphi-Quellcode:
procedure TFormHaupt.BitBtnAusrichterClick(Sender: TObject);
begin
FormAusrichter.ShowModal;
end;
Code AusrichterForm:
Delphi-Quellcode:
procedure TFormAusrichter.ButtonOKClick(Sender: TObject);
begin
DMMain.IBDataSetAusrichter.Edit;
DMMain.IBDataSetAusrichter.Post;
Close;
end;
procedure TFormAusrichter.ButtonCancelClick(Sender: TObject);
begin
Close;
end;
procedure TFormAusrichter.ButtonNewClick(Sender: TObject);
begin
DMMain.IBDataSetAusrichter.Insert;
end;
procedure TFormAusrichter.FormClose(Sender: TObject; var Action: TCloseAction);
begin
// Datenbankverbindung herstellen
DMMain.IBDataSetAusrichter.Active := false;
DMMain.IBDataSetAusrichter.Active := true;
end;
end.