Wie definiere ich ein Lookup-Feld für eine TQuery?

[marabu]

Ich habe leider kein D2 zum Testen parat, aber unter D7 habe ich mir ein kleines Testprojekt erstellt, bei dem ich die Anrede (Herr oder Frau) über eine Lookup-Tabelle auswähle. Die Lookup-Tabelle und auch die Query sind zu Beginn inaktiv und werden erst nach der Erstellung des Lookup-Feldes aktiviert.

Delphi-Quellcode:

procedure TDataForm.FormCreate(Sender: TObject);
begin
  CreateLookupField;
  Database.Connected := true;
  Anreden.Open;
  QKontakte.Open;
end;

procedure TDataForm.CreateLookupField;
var
  f: TStringField;
begin
  f := TStringField.Create(QKontakte);
  with f do
  begin
    Name := QKontakte.Name + FieldName;
    Size := 50;
    DisplayLabel := 'Anrede';
    DisplayWidth := 21;
    FieldName := 'ANREDE';
    FieldKind := fkLookup;
    LookupDataSet := Anreden;
    KeyFields := 'ANR_ID';
    LookupKeyFields := 'ID';
    LookupResultField := 'PHRASE';
    DataSet := QKontakte; // Feld in Feldliste aufnehmen
    Index := 2; // Feld an gewünschte Stelle verschieben
  end;
end;

Ich habe den thread erst jetzt genau durchgelesen. Andreas hat klar erkannt, wenn du die Query dynamisch erstellst, dann müssen alle Felder per Code persistent gemacht werden. Ohne eine Routine wie CreateAllFields() kannst du gar nicht anfangen zu testen.

Nachtrag: Wahrscheinlich ist es nur ein ganz kleiner Fehler im Code von Andreas - vor dem Aufruf vom FieldDefs.Update muss noch FieldDefs.Updated auf false gesetzt werden - der dir den Erfolg verweigert. Und ganz zum Schluss wirst du die Schlüsselfelder noch verstecken wollen.

marabu

[MPirnstill]

Zitat von marabu:

Ich habe den thread erst jetzt genau durchgelesen. Andreas hat klar erkannt, wenn du die Query dynamisch erstellst, dann müssen alle Felder per Code persistent gemacht werden. Ohne eine Routine wie CreateAllFields() kannst du gar nicht anfangen zu testen.

marabu

Hallo Marabu,

du hast jetzt in deinem Beispiel diese 'CreateAllFields()' auch nicht verwendet.

Ich habe jetzt jedenfalls mal versucht dein Beispiel in mein Programm einzubauen. Wenn ich dann den 'Open' für meine Query ausführe, bekomme ich die Fehlermeldung

Zitat:

Feld 'ID_Mitglied' nicht gefunden.

So heißt mein 'KeyField' in 'FQry'. Und da ich mit '*' selektiere müßte es eigentlich da sein.

Ist dies jetzt z.B. so ein Fall, daß die anderen Felder nicht mit 'CreateAllFields' erzeugt wurden?

Ich habe beim Testen vorm 'Open' nachgesehen, in der FieldDefs-Liste sind alle 16 Spalten meiner Tabelle, aber in der Fields-Liste steht nur das Lookup-Feld. Wenn ich das jetzt richtig interpretiere, muß ich vorm erzeugen des Lookup-Feldes noch

Zitat:

- vor dem Aufruf vom FieldDefs.Update muss noch FieldDefs.Updated auf false gesetzt werden -

Die Eigenschaft 'FieldDefs.Updated' kennt Delphi unter 2.0 anscheined noch nicht, hab mal einfach

Delphi-Quellcode:

FQry.FieldDefs.Clear;
FQry.FieldDefs.Update;

probiert, aber der Erfolg bzw. Mißerfolg bleibt derselbe. Mein KeyField 'ID_Mitglied' kennt Delphi nicht.

Gruß

[MPirnstill]

Hallo nochmal!

Wie komme ich denn jetzt an diese Methoden (DestroyFields, CreateFields) des TDataSet.

Zitat:

Ohne eine Routine wie CreateAllFields() kannst du gar nicht anfangen zu testen.

Ich habe, wie gesagt, in der Unit DB.PAS nachgesehen, dort sind die unter Delphi 2.0 leider in Private deklariert und nicht in Protected. Kann ich die einfach verschieben oder würde das böse viel durcheinander bringen?

Gruß

[shmia]

Zitat von MPirnstill:

Ich habe, wie gesagt, in der Unit DB.PAS nachgesehen, dort sind die unter Delphi 2.0 leider in Private deklariert und nicht in Protected. Kann ich die einfach verschieben oder würde das böse viel durcheinander bringen?

Du kannst die Unit in dein Projektverzeichnis kopieren und zum Projekt hinzufügen.
Danach kannst du DB.PAS ändern.
Von der Orginalen Datei würde ich die Finger lassen !
Auf die Verwendung von Packages musst du dann aber verzichten.
Hat Delphi 2 überhaupt schon Packages ? Lange her...

[MPirnstill]

Hallo shmia,

hab die Unit DB.PAS rüberkopiert in mein Projektverzeichnis und meinem Projekt hinzugefügt.
Die 'uses'-Anweisung in meiner Source bleibt aber unverändert, oder?

Hab die beiden Methoden in der Interface-Section von Private nach Protected verschoben, aber der Delphi-Compiler meckert nach wie vor, das DestroyFields und CreateFields undefinierte Bezeichner sind. Das mit dem TDatasetCracker hab ich auch noch so in meiner Source wie du es in deinem Beispiel geschrieben hast.

Ich glaub bald ich bin zu blöd für diese Welt.

Hast du noch Vorschläge was ich machen könnte, das der Delphi-Compiler die Methoden erkennt, oder evtl. einen anderen Weg?

Gruß

[MPirnstill]

Bin jetzt noch mal einen Schritt weiter gegangen und habe die beiden Methoden sogar unter Public verschoben, aber der gleiche Fehler. Ich glaube fast, daß Delphi sich immer noch die Original Unit DB.PAS zieht.

Gruß

[MPirnstill]

Tja, irgendwie hab ich das Gefühl ich bin wieder allein mit meinem Problem!

Es funzt zwar nich, aber trotzdem vielen Dank an euch. Muß ich mir irgendwie was anderes einfallen lassen.

Gruß

[marabu]

Hallo Micha,

ich war im Keller und habe D2 gefunden. Installiert habe ich es dann auch noch. Das Demo-Projekt im Anhang ist dabei heraus gekommen. Die Quintessenz ist - es geht, aber anders als wir dachten. D2 ist halt nicht D5 oder D7.

Grüße vom marabu

[MPirnstill]

Zitat von marabu:

Hallo Micha,

ich war im Keller und habe D2 gefunden. Installiert habe ich es dann auch noch. Das Demo-Projekt im Anhang ist dabei heraus gekommen. Die Quintessenz ist - es geht, aber anders als wir dachten. D2 ist halt nicht D5 oder D7.

Grüße vom marabu

Hallo marabu,

ich bin der Meinung:

Zitat:

Das war Spitze!

um das mal mit den Worten eines längst verstorbenen Showmasters zu sagen.

Ich hatte gestern Nachmittag eine ähnliche, aber sehr unelegante, Lösung funden. Ich hatte mir die Felddefinitionen im Programm definiert um die persistenten Felder anzulegen und das ist ja doppelt-gemoppelt und außerdem eine große Fehlerquelle falls man mal die Tabelle ändern sollte.

Das du extra noch mal den Dinosaurier, welche ich hier tagtäglich quäle (oder er mich), aus dem Keller gekrammt und installiert hast, ist einfach Wahnsinn. Ich komme davon (D2) leider nicht los, da dieses alte Projekt an dem ich hier arbeit sehr viele Quickreports hat und deswegen die Umstellung zu aufwendig wäre (bekomme einfach nicht die Zeit dafür). Sonst würde ich ja auch mit eine neueren Version arbeiten.

Super-spitzenmäßig! Tausend Dank, nochmal!