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:

markieren

Delphi-Quellcode:

procedure TFormHaupt.BitBtnAusrichterClick(Sender: TObject);
begin
  FormAusrichter.ShowModal;
end;

Code AusrichterForm:

zusammenfalten · markieren

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.

Sollte eigentlich automatisch geschehen (wenn innerhalb der selben Transkation)