Form schliesst nicht !

[bundy]

Hallo , ein Hilferuf.

Ich habe ein Form1 (Hauptform) und Form2 .

Am Form1:

DB Grid
Datasources (auf MYSQL)

Am Form2
Dropdown
Edit
Speedbutton

Mein Problem:
Wenn ich das Form2 über das Form1 aufrufe, und im Form 2 den MYSQLQUERY activiere (Suchkriterium) dann passiert folgendes:
Der Computer ladet alle Datensätzt in Form2, aber das Form2 sollte nach beendigung wieder schliessen, welches es nicht tut.

Sosse Form2 Buttonclick

Delphi-Quellcode:

procedure TAuftrag_suchen_form.SpeedButton1Click(Sender: TObject);
begin
DataModule_Kunden.mySQLQuery1.Active:=false;
        DataModule_Kunden.mySQLQuery1.SQL.Text:='';
        DataModule_Kunden.mySQLQuery1.SQL.Text:='select * from kunden where Installationsfirma="'+ComboBox1.Text+'" and Terminisiert="false"';
        DataModule_Kunden.mySQLQuery1.Active:=true;
close;
end;

Warum schliesst Form2 nicht ??
PS: zum laden der Datensätze benötigt er ca 2 Min.
danke im Voraus

[fkerber]

Hi!

Schreib vielleicht mal:

Auftrag_suchen_form.Close; Ciao fkerber

[bundy]

Ich prbiers mal .

[bundy]

Nein das geht auch nicht .

Aber fogendes:

Wenn ich das Prog. in Delphi ausführe dann funktioniert es.

Wenn ich es compil. dann bleibt das Fenster offen.

[fkerber]

Hi!

Kannst du das ganze mal als Zip oder so anhängen?

Ciao fkerber

[bundy]

Das geht leider nicht, das ist eine Prog das auf eine Kundendatenbank zugreift, ca 30.000 Kunden.(Datenschutz)
Sorry.

Warum geht das in delphi und nachher nicht mehr ?

Wenn ich weniger Datensätze lade funktioniert es (kurze ladezeit);
Soll ich die Abfrage vieleicht in eine eigene procedure ausgliedern ?

[fkerber]

Hi!

Kenne mich mit MySQL nicht so aus, aber vielleicht musst du noch ne Verbindung beenden oder so!
Warum das mit Delphi so iss? Keine Ahnung!

Ich häng mal eine einfache Demo dran, das es geht!

Ciao fkerber

[bundy]

hy habe jezt die procedure in eine andere Unit ausgegliedert funzt trozdem nicht.

Delphi-Quellcode:

procedure Auftrag_suchen_offen;
begin

Auftrag_suchen_form.close;  //  <---------------------- Das passiert nicht[/size]Sleep(3000)
DataModule_Kunden.mySQLQuery1.Active:=false;
        DataModule_Kunden.mySQLQuery1.SQL.Text:='';
        DataModule_Kunden.mySQLQuery1.SQL.Text:='select * from kunden where Installationsfirma="'+Auftrag_suchen_form.ComboBox1.Text+'" and Terminisiert="false"';
        DataModule_Kunden.mySQLQuery1.Active:=true;
end;

Der macht das Form nicht zu

[fkerber]

Wird das irgendwie im Zusammenhang mit dem Öffnen des 2. Fensters aufgerufen?

Ruft man das ....Close nämlich z.B. im Create oder show oder activate auf, so hat es keine Wirkung!


Ciao fkerber