Hallo Flo,
den abgebildeten Code fügst du in die Methode ein, die auf ein Doppelklick des OnClick Events des gewünschten Schalters erzeugt wird. Das "Open" der
Query Komponente führt letztlich die Abfrage aus.
Zum Code vom APP:
Du solltest ihn wie folgt ändern:
Delphi-Quellcode:
WITH Query1
DO
BEGIN
Close;
WITH SQL DO
BEGIN
Clear;
Add('
SELECT * ');
{ Tabellenname ohne Punkt, sonst muss er in
Anführungszeichen gestzt werden }
Add('
FROM kosten');
Add('
WHERE abteilung = ' + CHR(39) + Edit1.Text + CHR(39));
{ falls reihe und Nr Zahlenfelder sind, muss das Chr(39)
weggelassen werden }
Add('
AND reihe = ' +edit2.Text);
Add('
AND Nr <= ' +edit3.text);
END;
Query1.Active := True;
Open;
END;