1:
2:
3:
4:
5:
6:
7:

SELECT Schmuck.snummer, Schmuck.ver_preis, Schmuck.lieferant, Kassenbericht.Datum
FROM Schmuck, Kassenbericht
WHERE STR_TO_DATE( Kassenbericht.Datum, "%d.%m.%Y" ) 
BETWEEN STR_TO_DATE( "01.03.2009", "%d.%m.%Y" ) 
AND STR_TO_DATE( "31.03.2009", "%d.%m.%Y" ) 
AND Schmuck.snummer = Kassenbericht.snummer
ORDER BY Kassenbericht.id					

1:

Datumsfeld BETWEEN "2010-01-01" AND "2010-12-31"					

1:
2:
3:
4:
5:
6:
7:

SELECT Schmuck.snummer, Schmuck.ver_preis, Schmuck.lieferant, Kassenbericht.Datum
FROM Schmuck, Kassenbericht
WHERE Kassenbericht.Datum
BETWEEN "2009-03-01"
AND "2009-03-31"
AND Schmuck.snummer = Kassenbericht.snummer
ORDER BY Kassenbericht.id					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:

  SQL.Close;
  SQL.SQL.Clear;
  s := 'select b.aus,a.rechnungsdatum,c.anzahl,b.preis,d.artikelname,e.nachname,e.firma,';
  s := s + 'e.land,b.id from rechnung a,rechnung_t b,auftrag_t c,artikel d,kunde e where a.id=b.rechnung_id and ';
  s := s + 'a.kunde_id=e.id and (a.storniert=0 or isnull(a.storniert)) and b.auftragt_id=c.id and ';
  s := s + 'c.artikel_id=d.id and d.artikelname like :p1 and a.rechnungsdatum >= :p2 and ';
  s := s + 'a.rechnungsdatum <= :p3 and e.land like :p4 order by 2';
  SQL.SQL.Append(s);
  s1 := DateFormat(datetostr(d_begin.value));
  s2 := DateFormat(datetostr(d_end.value));
  SQL.ParamByName('p1').AsString := '%' + aname.Text + '%';
  SQL.ParamByName('p2').AsString := s1;
  SQL.ParamByName('p3').AsString := s2;
  SQL.ParamByName('p4').AsString := '%' + land.Text + '%';
  SQL.Open;


Function TForm32.DateFormat(date : String): string;
var
 rechnungsdatum,m,d,y,s : string;
 begin
  s := date;
  d := Copy(s,1,Pos('.',s)-1);
  Delete(s,1,Pos('.',s));
  m := Copy(s,1,Pos('.',s)-1);
  Delete(s,1,Pos('.',s));
  y := Copy(s,1,Length(s));
  rechnungsdatum := y+'-'+m+'-'+d;
  result := rechnungsdatum;
end;