@DeddyH
ich weiß doch wie das Programm ablaufen soll da brauch ich keinen Programmablauf o.O.
Datum von: (DateBeginSucheEdit)
Datum bis: (DateEndSucheEdit)
1. Fall
Eingabe von DateBeginSucheEdit; DateEndSucheEdit keine Eingabe
=> Zeigt alle Datensätze mit Datum von Eingabe DatebeginSucheEdit an,
DateEndSucheEdit bekommt Caption von Eingabe DateBeginSucheEdit
2. Fall
2. Eingabe von DateEndSuchEdit; DateBeginSucheEdit keine Eingabe
=> Zeigt alle Datensätze mit Datum von Eingabe DatebeginSucheEdit an,
DateBeginSucheEdit bekommt Caption von Eingabe DateEndSucheEdit
3. Fall
3. Eingabe von DateBeginSucheEdit und DateEndSucheEdit
=> Zeigt alle Datensätze an die zwischen DateBeginSuchEdit und DateEndSucheEdit stehen
Delphi-Quellcode:
if DateBeginSucheEdit.text <> '' then
begin
if DateEndSucheEdit.Text <> '' then
begin
SmartQuery1.SQL.Add('and datum >= :ANFANG and datum <= :ENDE');
SmartQuery1.ParamByName('ANFANG').Value := StrToDate(DateBeginSucheEdit.Text);
SmartQuery1.ParamByName('ENDE').Value := StrToDate(DateEndSucheEdit.Text);
end
else
begin
SmartQuery1.SQL.Add('and datum = :ANFANG');
DateEndSucheEdit.Text := DateBeginSucheEdit.Text;
SmartQuery1.ParamByName('ANFANG').Value := StrToDate(DateBeginSucheEdit.Text);
end
end;
SmartQuery1.open;
end;
Dieser Quellcode zeigt mir Fall 1. und 3. an.. ich weiß nur nicht wie ich den 2. Fall unterbekomme.