Abend zusammen,
Ich programmier schon länger an einer Auftragsverwaltungssoftware für unseren Betrieb.
Funktioniert eigentlich recht gut.
In einer
SQL Datenbank werden diverse Infos zu jedem Auftrag gespeichert (AuftragsID, Auftraggeber, Fall, Datum, Status etc...)
Ich hätte jetzt gerne eine Funktion bzw Button der mir in meiner Listview anzeigt 'Heutiges Datum + 5 Tage'. Also alle Fälle die einen Termin in 5 oder weniger Tagen haben.
Beim Auftragseingang wird das Datum in die
SQL gespeichert.
Mach ich das ganze schon bevor ich es in die Listbox lade? Also das Datum mit StrToDate ins Datumsformat bringen und vom aktuellen Datum abziehen?
Hat mir evt jemand einen Tipp der mich in die richtige Richtung leitet?
Soweit sieht mein Code jetzt aus:
Code:
procedure TForm7.Button_Datum(Sender: TObject);
var
ID,a,p,e,s,v,pan :string;
datumop, datumheute :TDate;
begin
datumheute := date;
ListView1.Items.Clear;
SQLTransaction1.commit;
SQLQuery1.Close;
SQLQuery1.SQL.Text := 'SELECT * FROM Print_Auftrag WHERE Fertig = :Fertig';
SQLQuery1.Params.ParamByName('Fertig').AsString := ?????????;
SQLQuery1.Open;
while not SQLQuery1.Eof do
begin
ID:=((SQLQuery1.Fields[0].AsString));
a :=((SQLQuery1.Fields[2].AsString));
p:=((SQLQuery1.Fields[3].AsString));
e:=((SQLQuery1.Fields[9].AsString));
s:=((SQLQuery1.Fields[15].AsString));
v:=((SQLQuery1.Fields[11].AsString));
pan:=((SQLQuery1.Fields[19].AsString));
with ListView1.Items.Add do begin
Caption:=ID;
SubItems.Add(a);
SubItems.Add(p);
SubItems.Add(e);
SubItems.Add(s);
SubItems.Add(v);
SubItems.Add(pan);
end;
SQLQuery1.Next;
end;
Label7.Caption := IntToStr(ListView1.Items.Count);
end;
Gruß Tim