1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:

procedure TJP_Main.Datenloeschen(Wert, Feld: string);
begin
  begin
    DM.JPQuery.SQL.Text := 'SELECT * FROM JP WHERE ' + feld + '=' +wert;
    DM.JPQuery.Open;
    DM.JPQuery.First;
    while not DM.JPQuery.EOF do begin
      with DM.JPQuery do begin
        edit;
        delete;
        next;
        edit;
        delete;
      end;
    end;
    DM.JPQuery.SQL.Text :=('Select * From JP Where NOT (Archiv = (''JA'') OR Papierk = (''JA'') OR Vermittelt = (''JA'')) order by Name');
    DM.JPQuery.Open;
  end;
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

procedure TJP_Main.PKLEOSCHClick(Sender: TObject);
Var wert,feld :String;
begin
    feld:='papierk';
    Wert:='JA';
   if MessageDlg('ACHTUNG! Sollen alle Datensätze im Papierkorb unwiederruflich gelöscht werden?', mtConfirmation, [mbOK, mbCancel], 0) = mrOK
    then
    Datenloeschen(Feld,Wert)
  else
    show;
end;                    

1:

DM.JPQuery.SQL.Text := 'SELECT * FROM JP WHERE  papierk = ''JA'' order by name';                    

1:
2:
3:

  DM.JPQuery.SQL.Text :=('Select * From JP Where NOT (Archiv = (' + #39 + 'JA' + #39 + ') 
    OR Papierk = (' + #39 + 'JA' + #39 + ') 
    OR Vermittelt = (' + #39 + 'JA' + #39 + ')) order by Name');                    

1:

DM.JPQuery.SQL.Text := ('Select * From JP Where NOT (Archiv = (''JA'') OR Papierk = (''JA'') OR Vermittelt = (''JA'')) order by Name');                    

1:

procedure TJP_Main.Datenloeschen(Wert, Feld: string);                    

1:

SELECT * FROM JP WHERE papierk = JA                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:

function Datenloeschen(xTabelle, xFeld, xWert : String) : boolean;
const
  cLoeschSql = 'Delete from %s where %s = ''%s''';
  cLeseSql   = 'Select * from %s where %s = ''%s''';
begin
  Result := False;
  DM.JpQuery.Sql.Add(Format(cLoeschSql, [xTabelle, xFeld, xWert]); // Löschbefehl aufbereiten
  DM.JPQuery.Open; // Löschen
  DM.JPQuery.Sql.Clear; 
  DM.JPQuery.Sql.Add(Format(cLeseSql, [xTabelle, xFeld, xWert]); // Lesebefehl aufbereiten
  DM.JPQuery.Open;
  Result := DM.JPQuery.Bof and DM.JPQuery.Eof; // Rückgabe, ob Lesebefehl leere Datenmenge ergeben hat
end;