DBLookup und Insert / Append

[rokli]

Moin,
ich habe seid ewigen Zeit mal wieder einige DBLookUpComboBoxen auf einer Form verwendet, um Daten aus einer Tabelle mit Schlüsseln aus einer anderen Tabelle anzuzeigen.

Beispiel:
Als Beispiel dient eine mini Adressverwaltung

Tabelle tAdresse:
Name
Vorname
Strasse
Plz

tAdresse enthält das (Schlüssel-)Feld PLZ

Tabelle tPlzOrt
Plz
Ortsname

tPLZOrt.Plz ist die Referenz auf tAdresse.Plz

Über die DBLookUpComboBox wird aufgrund des PLZ Feldes auf der Maske der Ort korrekt angezeigt.
Die anderen (Edit-)Felder werden aus tAdresse gefüllt.


Problem:
Wenn ich einen neuen Datensatz in tAdresse einfügen möchte, leere ich die Edit-Felder. Wenn dann in der DbComboLookUpComboBox die zugehörige PLZ für den neuen Datensatz ausgewählt wird, wird (quasi rückwärts) der Satzzeiger der tAdresse verändert und damit ist die Neueingabe in den Feldern weg, da die Edit-Felder mit den Inhalten des "gefunden" Datensatzes gefüllt werden.

Kann man das Verhalten abschalten, oder ist TDbComboLookupBox dafür nicht geeignet?

[Uwe Raabe]

Zitat von rokli:

Wenn dann in der DbComboLookUpComboBox die zugehörige PLZ für den neuen Datensatz ausgewählt wird, wird (quasi rückwärts) der Satzzeiger der tAdresse verändert

Das sollte nicht sein und ist es in der Regel auch nicht. Kannst du ein kleines Beispiel deiner Controls und ihrer Eigenschaften erstellen, aus dem die Eigenschaften und Verlinkungen der Controls ersichtlich sind?

[rokli]

Hier ist mal einer der Objektinspektoren in der Anlage.

Besser wird es, wenn ich beim Insert die Verbindung zur Tabelle tAdresse im DBLookupComboBox trenne:

tAdresse.DataSource := nil;

Dann kann ich den INSERT durchführen und trotzdem aus den DBLookupComboboxen die ID über nehmen und durchs INSERT in den neuen Satz eintragen.
Danach mit

tAdresse.DataSource := dsqAdresse;

wieder einschalten.

[Uwe Raabe]

Heißen das verknüpfende Feld in beiden Tabelle iKtoArt?

Hast du noch irgendwelche Events in den DataSets verdrahtet?

Solche Probleme sind in der Regel nicht zu analysieren, wenn man die vermeintliche Ursache (hier TDBLookupComboBox) isoliert betrachtet. Meistens liegt es an irgendwas drumherum. Deswegen meine immer wiederkehrenden Fragen nach mehr Kontext.

[Neumann]

PLZ Ort ist auch nie eine eindeutige Beziehung. Viele Orte haben mehrere PLZ; auch gibt es dann noch eine Plz für mehrere Orte. Vielleicht wird bei Lookup dann ein schon vorhandener Datensatz aktiviert?

[rokli]

Hallo und sorry, dass ich jetzt erst schreibe .. war viel zu tun.

Die Referenzen in den Tabellen bekommen immer gleiche Namen. iKtoArt (Ertragkonto = 1, Aufwandskonto = 2 und Neutralkonto =3) wird sowohl in der Tabelle tKtoArt (Kontoarten-Tabelle) und tKonto (Konto-Tabelle) verwendet.

Auf der Form:
Es gibt neben den DBLookUpComboBoxen noch ein Grid, was den Inhalt von tAdressen (um beim Beispiel zu bleiben) anzeigt. Daneben gits einige Edit-Felder, die DB-Inhalte anzeigen und über Buttons <neuer Satz>, <speichern> und <löschen> die Software bedienbar machen.
(Ja ich programmiere noch einzelne Daten-Edit-Felder und keine Universal-Grids, in den alles abgewickelt wird.)

Also im DataSource.OnDataChange der Tabelle tAdressen wird das füllen der Edit-Felder ausgelöst. Damit erreiche ich ja, wenn der Satzzeiger im DbGrid bewegt wird, dass die Edit-Felder auf der Maske aktualisiert werden; der Inhalt der DBComboLookUpBoxen kommen ja "von selbst".

@Neumann: Keine DB-Tabelle sieht bei mir tatsächlich wie in tAdresse und tPLZOrt beschrieben aus. Das Beispiel mit PLZ würde ich so, in real, nie ausführen. Daher Beispiel.

[Uwe Raabe]

Wie schon gesagt, das passiert in der Regel nicht. Ich kann aber anhand der bisherigen Informationen so nicht sehen, was der Auslöser dafür ist.

Zitat von rokli:

Also im DataSource.OnDataChange der Tabelle tAdressen wird das füllen der Edit-Felder ausgelöst.

Sind das denn keine datensensitiven Controls? Bei denen wäre das ja nicht nötig.

[rokli]

das ist korrekt, dass sind TEdit Felder, die über eine Procedure mit Edit1.Text := qryAdressen.FieldByName('Name').AsString z. B. gefüllt werden.

Ich werde das mal auf TDbEdit Felder umbauen und ausprobieren.

Danke, Uwe.

[Uwe Raabe]

Ich glaube aber nicht, dass das irgendwas mit dem Problem zu tun hat. War nur eine generelle Frage.

[Jumpy]

Zitat von rokli:

das ist korrekt, dass sind TEdit Felder, die über eine Procedure mit Edit1.Text := qryAdressen.FieldByName('Name').AsString z. B. gefüllt werden.

Ich werde das mal auf TDbEdit Felder umbauen und ausprobieren.

Wäre es nicht sinnvoller die TDBLookupCombobox in eine gewöhnliche umzubauen oder so?