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

[MPirnstill]

Hi Leute!

Ich versuche mein Problem mal neue zu beschreiben, da es bei meinem letzten Thread leider nicht zum Erfolg geführt hat.

Problem:
Ich versuche ein Lookup-Feld für eine TQuery (wird auch zur Laufzeit erzeugt) während der Laufzeit zu erzeugen.

Query ist zu diesem Zeitpunkt bereits erzeugt, dann

Delphi-Quellcode:

with FQry do
begin
  if State <> dsInactive then
    close;
  RequestLive := True;
  ParamByName('Verfahren').asInteger := FVerfahren;
  ParamByName('Pruef_ID').asString   := FPruef_ID;  
  Open;
  .
  .

Jetzt weise ich noch ein DisplayFormat zu. So weit, so gut. Und dann möchte ich ein Lookup-Feld zu erzeugen

Delphi-Quellcode:

  TBooleanField(FieldByName('Vorsitz')).DisplayValues := 'V.; ';
  FieldDefs.Add('myLookupFeld', ftString, 50, False);
  .
  .

Bis hier scheint es auch zu funktionieren. Ich konnte mir beim debuggen, den Eintrag in FieldDefs anzeigen lassen.

Delphi-Quellcode:

  TStringField(FieldByName('myLookupFeld')).OnGetText := myLookupFeldGetText;

Wenn ich jetzt versuche, mit vorstehender Anweisung die Daten bereit zu stellen (bei onGetText Zugriff auf andere Query), kennt Delphi 'myLookupFeld' nicht.

Was mache ich hier falsch? Oder besser wie kann ich es richtig machen?
Ich möchte keinen JOIN in meiner SQL-Anweisung verwenden, da ich die Query update-fähig haben möchte.

Gruß

[shmia]

Mit FieldDefs liegst du falsch. Du musst das Property Fields[] um ein Feld erweitern.

Delphi-Quellcode:

type
   TDataSetCracker = class(TDataSet); // Zugriff auf protected Member ermöglichen
function AddLookupField(ADataSet: TDataSet; AFieldClass: TFieldClass; const AFieldName: string; const AFieldSize: Integer = 0): TField;
   procedure CreateAllFields(DS: TDataSet);
   begin
      with TDataSetCracker(DS) do
      begin
         DestroyFields;
         FieldDefs.Update;
         CreateFields;
      end;
   end;
begin
   Result := nil;

   // Falls keine Felder im DataSet sind werden alle vorhandenen Felder angelegt.
   // Falls Felder vorhanden sind, so darf "CreateAllFields" nicht aufgerufen
   // werden, da die vorhandenen Felder nicht mehr gelöscht werden dürfen.
   if ADataSet.FieldCount = 0 then
      CreateAllFields(ADataSet);

   // Falls das LU Field schon existiert wird nix mehr gemacht.
   if ADataSet.FindField(AFieldName) <> nil then
      Exit;

   // LU Field anlegen, wenn weitere Eigenschaften des Feldes gesetzt
   // werden sollen, kann dies über den Rückgabewert gemacht werden.
   Result := AFieldClass.Create(ADataSet);
   Result.Name := ADataSet.Name + Copy(AFieldClass.ClassName,2,666) + AFieldName;
   Result.FieldName := AFieldName;
   Result.Size := AFieldSize;
   Result.FieldKind := fkLookup;
   Result.DataSet := ADataSet;
end;

Nach dem Öffnen der Query:

Delphi-Quellcode:

with AddLookupField(Fqry, TStringField, 'Landname', 35) do
begin
   LookupDataset := FqryLookup;
   LookupKeyfields := 'LandId';
   LookupResultField := 'Landname_deutsch';
end;

[MPirnstill]

Zitat:

Zitat von shmia

Delphi-Quellcode:

function AddLookupField(ADataSet: TDataSet; AFieldClass: TFieldClass; const AFieldName: string; const AFieldSize: Integer = 0): TField;
   procedure CreateAllFields(DS: TDataSet);
   begin
      with TDataSetCracker(DS) do
      begin
         DestroyFields;
         FieldDefs.Update;
         CreateFields;
      end;
   end;
begin
.
.
end;

Hey! Vielen Dank für deine Antwort!

Ich wollte es gleich ausprobieren, aber beim übertragen fiel mir "TDataSetCracker" auf. Was ist das für ein Type? :?:
Bei Delphi 2.0 (auch bei D7) finde ich darüber nichts in der Hilfe und aus deinem Code-Snipet kann ich leider auch nicht erkennen was für ein Typ dies ist.

Gruß

[shmia]

Zitat:

Zitat von MPirnstill

Ich wollte es gleich ausprobieren, aber beim übertragen fiel mir "TDataSetCracker" auf. Was ist das für ein Type? :?:

Tja, hatte ich vergessen; ist nun aber oben nachgetragen. :|

[MPirnstill]

@shmia

Ich habe das jetzt eingebaut, aber bei der Anweisung:

Delphi-Quellcode:

  Result.DataSet := ADataSet;

bekomme ich immer die Fehlermeldung:

Zitat:

Operation bei geöffneter Datenmenge nicht ausführbar

Hat ja auch recht, "with AddLookupField .. do"
wird ja erst nach dem öffnen von "FQry" ausgeführt.

Mache ich da noch etwas falsch?

Ach ja, "CreateAllFields" habe ich erstmal auskomentiert, da die die Befehle "DestroyFields" und "CreateFields" unbekannt sind. Irgendwie scheint das mit dem Zugriff auf die Protected-Methoden von TDataSet noch nicht zu funktionieren. Vielleicht kennt TDataset diese Methoden unter Delphi 2.0 noch nicht oder sie heißen anders.
Aber hier dran kann der o.a. Fehler doch nicht liegen, oder?

Gruß

[shmia]

Zitat:

Zitat von MPirnstill

Ach ja, "CreateAllFields" habe ich erstmal auskomentiert, da die die Befehle "DestroyFields" und "CreateFields" unbekannt sind. Irgendwie scheint das mit dem Zugriff auf die Protected-Methoden von TDataSet noch nicht zu funktionieren. Vielleicht kennt TDataset diese Methoden unter Delphi 2.0 noch nicht oder sie heißen anders.
Aber hier dran kann der o.a. Fehler doch nicht liegen, oder?

Doch, das scheint mir das Problem zu sein. :-(
Wenn du den Sourcecode hast, kannst du ja nachprüfen, ob es in Unit db.pas die virtuellen
Methoden TDataSet.CreateFields und TDataSet.DestroyFields gibt. (sie müssten protected sein)
Mein Sourcecode ist mit Delphi 5 getestet.

[MPirnstill]

Die stehen bei Delphi 2.0 leider unter "Private".

[MPirnstill]

Aber ich kann mir nicht vorstellen, daß das Problem sein soll. Wenn ich es im Debug-Modus durch gehe, ist

Delphi-Quellcode:

aDataSet.FieldCount > 0

und deshalb wird diese interne Prozedur garnicht aufgerufen.

[marabu]

Hallo Micha,

wenn du sonst keine Probleme mit dem Code hast, dann würde ich die Funktion CreateAllFields() einfach komplett weglassen. Damit hast du dann wieder das Verhalten, welches auch der Feld-Editor zeigt: du musst selbst entscheiden, ob du alle oder nur ausgewählte Felder persistent machen möchtest. Borland ist übrigens der Meinung, dass persistente Felder grundsätzlich im Feld-Editor erzeugt werden sollten. Keine Ahnung warum das für dich inakzeptabel ist.

Grüße vom marabu

[MPirnstill]

Zitat:

Zitat von marabu

Hallo Micha,

wenn du sonst keine Probleme mit dem Code hast, dann würde ich die Funktion CreateAllFields() einfach komplett weglassen. Damit hast du dann wieder das Verhalten, welches auch der Feld-Editor zeigt: du musst selbst entscheiden, ob du alle oder nur ausgewählte Felder persistent machen möchtest. Borland ist übrigens der Meinung, dass persistente Felder grundsätzlich im Feld-Editor erzeugt werden sollten. Keine Ahnung warum das für dich inakzeptabel ist.

Grüße vom marabu

Das ist für mich nicht inakzeptabel, aber meine Query wird in einer von mir geschriebenen Klasse dynamisch erzeugt. Ich versuche lediglich, anstatt einer Adress-ID einen Namen anzuzeigen, dabei aber die Update-Fähigkeit der Query zu erhalten, was ja bedeutet, daß nur eine Tabelle in der SQL-Anweisung angesprochen werden darf.

Wenn du einen einfacheren Weg weiß, teile mir diesen doch bitte mit. Ich bin für neue Vorschläge offen.

Das weglassen von "CreateAllFields" ist ja auch nicht das Problem, aber das was ich unter #5 beschrieben hab. und das kann ich nicht so einfach weglassen.

Gruß