Problem mit zugriff auf dbf Dateien und bearbeiten.

[Jumpy]

da fehlt eine "else" würde ich mal behaupten, versuchs mal so:

Delphi-Quellcode:

 if FilterText='' then
   begin  
   showmessage('Bitte Gast von/bis Nr. eingegeben!');
   end
 else
   begin
   dbf1.Filter := FilterText
   dbf1.Filtered := true;
   end;

Delphi-Quellcode:

function FilterText:String;
begin
  Result:='';
  if (Trim(vonGast.Text)<>'') and (Trim(bisGast.Text)<>'') then
    if IstEineZahl(vonGast.Text) and IstEineZahl(bisGast.Text) then
      Result:='KUNR > ' + vonGast.Text + ' and KUNR < ' + bisGast.Text;
end;

//IstEineZahl ist eine weiter Funktion, in der du evtl. TryStrToInt oder sowas verwenden könntest.

Ist jetzt immer noch nicht wirklich sauber, aber vielleicht ein erster Schritt.

[joachimd]

und Filter zurücksetzen nicht vergessen

Delphi-Quellcode:

 if FilterText='' then
   begin  
   dbf1.Filter := '';
   dbf1.Filtered := false; //<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
   showmessage('Bitte Gast von/bis Nr. eingegeben!');
   end
 else
   begin
   dbf1.Filter := FilterText;
   dbf1.Filtered := true;
   end;

[Duffy Duck]

Ich habs jetzt mal so gemacht:

Code:

procedure TMainForm.BtnFilterClick(Sender: TObject);
//Ausführen des Filter im dbgrid
begin
   dbf1.Filtered := false;
  // Prüfen der Edits..

   if vonGast.text='' then showmessage('Bitte von Gast Nr. eingegeben!')
else
   begin
    dbf1.Filter := 'KUNR > ' + vonGast.Text + ' and KUNR < ' + bisGast.Text;
    dbf1.Filtered := true;
  end;

soweit funktioniert es auch
Nur das mit dem Filter zurücksetzen habe ich nicht so ganz verstanden...

[nahpets]

Zitat von Duffy Duck:

Nur das mit dem Filter zurücksetzen habe ich nicht so ganz verstanden...

dbf1.Filtered := false;

[Jumpy]

Zitat von Duffy Duck:

Nur das mit dem Filter zurücksetzen habe ich nicht so ganz verstanden...

Die Idee dahinter ist folgende:
Du hast deine Datenmenge gefilter, z.B. Gast 3-8.
Nun willst du nochmal alles sehen. Wie machst du das, wenn du den Filter nicht mehr rausnehmen kannst.

Denn wenn beide Edits leer sind und man den Filter-Button drückt würde man erwarten, dass wieder alle Daten ungefiltert angezeigt werden. Stattdessen kommt bei dir nur die Showmessage und nichts passiert.

[Duffy Duck]

Bitte Entschuldigt
jetzt sehe ich den Wald vor lauter Bäume nicht mehr...

@Jumpy
Du hast völlig recht, es geht noch weiter... Wenn das bisGast leer lasse und ich den Filter anwende, dann stürzt es ab...
Was setze ich nun wo ein?

Mit diesem Code bekomme ich es gar nicht gebacken...:

Code:

 if FilterText='' then
   begin
   showmessage('Bitte Gast von/bis Nr. eingegeben!');
   end
 else
   begin
   dbf1.Filter := FilterText
   dbf1.Filtered := true;
   end;


function FilterText:String;
begin
  Result:='';
  if (Trim(vonGast.Text)<>'') and (Trim(bisGast.Text)<>'') then
    if IstEineZahl(vonGast.Text) and IstEineZahl(bisGast.Text) then
      Result:='KUNR > ' + vonGast.Text + ' and KUNR < ' + bisGast.Text;
end;

//IstEineZahl ist eine weiter Funktion, in der du evtl. TryStrToInt oder sowas verwenden könntest.

[nahpets]

Zitat von Duffy Duck:

Bitte Entschuldigt
jetzt sehe ich den Wald vor lauter Bäume nicht mehr...

@Jumpy
Du hast völlig recht, es geht noch weiter... Wenn das bisGast leer lasse und ich den Filter anwende, dann stürzt es ab...
Was setze ich nun wo ein?

Mit diesem Code bekomme ich es gar nicht gebacken...:

Code:

 if FilterText='' then
   begin
   showmessage('Bitte Gast von/bis Nr. eingegeben!');
   end
 else
   begin
   dbf1.Filter := FilterText
   dbf1.Filtered := true;
   end;


function FilterText:String;
begin
  Result:='';
  if (Trim(vonGast.Text)<>'') and (Trim(bisGast.Text)<>'') then
    if IstEineZahl(vonGast.Text) and IstEineZahl(bisGast.Text) then
      Result:='KUNR > ' + vonGast.Text + ' and KUNR < ' + bisGast.Text;
end;

//IstEineZahl ist eine weiter Funktion, in der du evtl. TryStrToInt oder sowas verwenden könntest.

Der Filter wird mit dbf1.Filtered := false; aufgehoben.

Delphi-Quellcode:

  // Filter aufheben
  dbf1.Filtered := false; 
  // Neuen Filter zuweisen.
  dbf1.Filter   := FilterText; 
  // Wenn ein Filter vorhanden ist, diesen aktivieren.
  dbf1.Filtered := dbf1.Filter <> ''; 
  // Ist kein Filter vorhanden, dann 'ne Meldung ausgeben.
  if Not dbf1.Filtered then showmessage('Bitte Gast von/bis Nr. eingegeben!');

[Duffy Duck]

Ok perfekt, das ist jetzt soweit klar
Danke für die ausführliche erklärung

Soll ich nun den inhalt von resp. die bezeichnung FilterText und IstEineZahl mit welchen Werte ersetzten?