Query SQL

[ilse2005]

Hallo,
ich habe ein Problem mit der TADOQuery Komponene von Delphi 7.
Mit folgender Procedure setze ich das Query:

Delphi-Quellcode:

procedure TFormMain.QuerySetzen();
var
  Query : TADOQuery;
begin
  Query := DataModule2.ADOQueryBuch;
  Query.Close;
  Query.SQL.Clear;
  Query.SQL.Add('SELECT  Buch.Titel, Buch.Autor, Buch.Beschreibung, Buch.Bild, Buch.Gelesen, Buch.Benutzer, Buch.Monat, Buch.Jahr, Buch.Test ');
  Query.SQL.Add('FROM');
  Query.SQL.Add('Buch');



  Query.SQL.Add('Order by Jahr,Monat');
  Query.Open;
end;

Das Problem ist nun, wenn ich dies im OnFormCreate Event aufrufe werden die Felder "Beschreibung" und "Test" nicht geladen.
Wennn ich die gleiche procedur aber z.b durch einen Button aufrufe funktionier alles wunderbar.
Wo liegt das Problem?

[Satty67]

DataModule2 wird erst nach OnFormCreate richtig initialisiert, weshalb dann DataModule2.ADOQueryBuch keine korrekten Connection-Werte hält?

Bei Delphi7 gibt es noch kein Form.OnLoaded, evtl. statt OnFormCreate das Ereignis OnActivate verwenden. Da muss man einmalige Sachen allerdings Steuern (Wird ja u.U. mehrmals aufgerufen):

Form private (member) FFirstRun : Boolean; // im OnFormCreate auf true setzen .


und im OnActivate

Delphi-Quellcode:

if FFirstRun then
begin
  FFirstRun := false;
  // Init Code
end;

[Sir Rufo]

Zitat von Satty67:

Bei Delphi7 gibt es noch kein Form.OnLoaded

Bei Delphi 2010 auch nicht ... oder überlese ich das konsequent?

[Satty67]

Ups, hab' da wohl was vermischt. Macht ja nix, für D7 bleibt es ja gleich.

Ist eine Variante für C#, die in OnLoad Application.Idle einem OnLoaded Handler zuweist (und dort gleich wieder entfernt). Bei Delphi wäre das wohl in etwa der erste Aufruf eines ActionList-Update. Denke aber für Delphi passt die alte Variante noch besser.

[hoika]

Hallo,

das FFirstRun kann man sich spoaren,
wenn man als letzten Befehl in FormActivate einfach

OnActivate:= NIL; schreibt.


Heiko

[mkinzler]

Zitat von Sir Rufo:

Zitat von Satty67:

Bei Delphi7 gibt es noch kein Form.OnLoaded

Bei Delphi 2010 auch nicht ... oder überlese ich das konsequent?

Die Methode heisst auch .Loaded()

[toms]

Zitat von hoika:

Hallo,

das FFirstRun kann man sich spoaren,
wenn man als letzten Befehl in FormActivate einfach

OnActivate:= NIL; schreibt.

Gute Idee ... aber natürlich nur dann, wenn das OnActivate Ereignis später nicht mehr gebraucht wird.