Forum: Object-Pascal / Delphi-Language
Delphi
by youuu,
15. Jul 2009
Function StatusCustomer (Customer_Number: String): Boolean;
Begin
result:= false;
FormMain.QueryUpdate.Params.ParamValues := Customer_Number;
FormMain.QueryUpdate.Params.ParamValues := Date();
FormMain.QueryUpdate.Open;
Try
result := (FormMain.QueryUpdate.FieldByName('Anzahl').AsInteger > 0);
Finally
FormMain.QueryUpdate.Close;
Forum: Object-Pascal / Delphi-Language
Delphi
by youuu,
14. Jul 2009
Für Verbeserungsvorschläge bin ich imer offen ;)
Ich wüsste nicht wie ich dies in einer Tabelle unterbingen sollte, da jeder Kunde mehrere Positionen(Rechnungen) haben kann.
Ansonsten noch Ideen für die Beschleunigung oder soll ich gar lieber eine Art Splashscreen mit dem Status laufen lassen?
Forum: Object-Pascal / Delphi-Language
Delphi
by youuu,
14. Jul 2009
Dadurch wird aber die Abfrage nicht schneller gestaltet oder?
Trotz der Schleifen Änderung, bin ich bei den momentanen 670 Kunden und 1400 Positionen schon bei knapp 1 Minute Wartezeit.
Forum: Object-Pascal / Delphi-Language
Delphi
by youuu,
14. Jul 2009
Stimmt habe nun nur noch:
Function StatusCustomer (Customer_Number: String): Boolean;
Var
Status: TStringlist;
i: Integer;
Begin
Status:= TStringlist.Create;
result:= false;
Forum: Object-Pascal / Delphi-Language
Delphi
by youuu,
14. Jul 2009
Hi,
ich habe ein Problem, am Anfang meines Programms Teste ich den Status einzellner Einträge.
Ausgangssituation.
2 Tabellen
--> Tabelle 1 Kunde
--> Tabelle 2 Positionen (mehrere Einträge möglich pro Kundennummer)