Abfrage per Eingabe

[Stevie]

Zitat von abi:

Hallo Stevie
des hab ich mir auch gedacht aber da kommt dann nichts.

Leider.

Delphi-Quellcode:

procedure TForm1.Edit1Change(Sender: TObject);
begin
  // mit Trim werden Leerzeichen gelöscht, wenn also im Edit nix drinsteht, wird der Filter geleert und die Funktion beendet
  if Trim(Edit1.Text) = '' then
  begin
    DBGrid1.DataSource.DataSet.Filter := '';
    Exit;
  end;
  if GeberBezeichnung2.Checked then DBGrid1.DataSource.DataSet.Filter := 'Geber_Bezeichnung = ''' +Edit1.Text+ '*''';
  if DeviceName2.Checked       then DBGrid1.DataSource.DataSet.Filter := 'Device_Name = ''' +Edit1.Text+ '*''';
  if Seriennummer2.Checked     then DBGrid1.DataSource.DataSet.Filter := 'Seriennummer = ''' +Edit1.Text+ '*''';
  if Auflsung2.Checked         then DBGrid1.DataSource.DataSet.Filter := 'Auflösung = ''' +Edit1.Text+ '*''';
  if DatumUhrzeit2.Checked     then DBGrid1.DataSource.DataSet.Filter := 'Datum_Uhrzeit = ''' +Edit1.Text+ '*''';
  if Arbeiter2.Checked         then DBGrid1.DataSource.DataSet.Filter := 'Arbeiter = ''' +Edit1.Text+ '*''';
  if Abteilung2.Checked        then DBGrid1.DataSource.DataSet.Filter := 'Abteilung = ''' +Edit1.Text+ '*''';
  if HardwareVersion2.Checked  then DBGrid1.DataSource.DataSet.Filter := 'Hardware_Version = ''' +Edit1.Text+ '*''';
  if SoftwareVersion2.Checked  then DBGrid1.DataSource.DataSet.Filter := 'Software_Version = ''' +Edit1.Text+ '*''';
end;

Btw: Dir ist aber schon klar, dass wenn mehrere Checkboxen angehakt sind, die letzte "gewinnt"?