AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Programmierung allgemein Datenbanken Delphi Problem mit zugriff auf dbf Dateien und bearbeiten.
Thema durchsuchen
Ansicht
Themen-Optionen

Problem mit zugriff auf dbf Dateien und bearbeiten.

Ein Thema von Duffy Duck · begonnen am 26. Jan 2016 · letzter Beitrag vom 16. Feb 2016
Antwort Antwort
HolgerX

Registriert seit: 10. Apr 2006
Ort: Leverkusen
989 Beiträge
 
Delphi 6 Professional
 
#1

AW: Problem mit zugriff auf dbf Dateien und bearbeiten.

  Alt 11. Feb 2016, 03:37
Hmm..

In Filter musst Du einen zusammengebauten string packen...

Delphi-Quellcode:
  dbf1.Filtered := false;
  // Prüfen der Edits..

  if PruefungOK then begin
    dbf1.Filter := 'KUNR > ' + vonGast.Text + ' and KUNR < ' + bisGast.Text;
    dbf1.Filtered := true;
  end;
Bitte vorher die Eingaben auf Gültigkeit prüfen, sprich dass es sich um Zahlen handelt und die Eingabefelder nicht leer sind..
  Mit Zitat antworten Zitat
Duffy Duck

Registriert seit: 22. Feb 2005
56 Beiträge
 
Delphi 7 Enterprise
 
#2

AW: Problem mit zugriff auf dbf Dateien und bearbeiten.

  Alt 11. Feb 2016, 10:27
Ok klappt fast...

habs mal so eingefügt:

Code:
 if vonGast.text='' then showmessage('Bitte Gast Nr. eingegeben!');
   begin
    dbf1.Filter := 'KUNR > ' + vonGast.Text + ' and KUNR < ' + bisGast.Text;
    dbf1.Filtered := true;
  end;
Wenn ich auf Filtern klicke, dann funktioniert es auch. Sobald ich aber die Zahl aus dem vonGast.Text oder aus dem bisGast.Text rausnehme und nochmals Filter klicke, erscheint auch die showmessage danach stürzt das Programm aber leider ab...

oh mann was habe ich nun wieder falsch gemacht?
Angehängte Grafiken
Dateityp: jpg Aufnahme8.jpg (87,1 KB, 14x aufgerufen)
  Mit Zitat antworten Zitat
Jumpy

Registriert seit: 9. Dez 2010
Ort: Mönchengladbach
1.740 Beiträge
 
Delphi 6 Enterprise
 
#3

AW: Problem mit zugriff auf dbf Dateien und bearbeiten.

  Alt 11. Feb 2016, 10:40
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.
Ralph
  Mit Zitat antworten Zitat
Benutzerbild von joachimd
joachimd

Registriert seit: 17. Feb 2005
Ort: Weitingen
685 Beiträge
 
Delphi 12 Athens
 
#4

AW: Problem mit zugriff auf dbf Dateien und bearbeiten.

  Alt 11. Feb 2016, 10:48
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;
Joachim Dürr
Joachim Dürr Softwareengineering
http://www.jd-engineering.de
  Mit Zitat antworten Zitat
Duffy Duck

Registriert seit: 22. Feb 2005
56 Beiträge
 
Delphi 7 Enterprise
 
#5

AW: Problem mit zugriff auf dbf Dateien und bearbeiten.

  Alt 11. Feb 2016, 13:47
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...
  Mit Zitat antworten Zitat
nahpets
(Gast)

n/a Beiträge
 
#6

AW: Problem mit zugriff auf dbf Dateien und bearbeiten.

  Alt 11. Feb 2016, 14:05
Nur das mit dem Filter zurücksetzen habe ich nicht so ganz verstanden...
dbf1.Filtered := false;
  Mit Zitat antworten Zitat
Jumpy

Registriert seit: 9. Dez 2010
Ort: Mönchengladbach
1.740 Beiträge
 
Delphi 6 Enterprise
 
#7

AW: Problem mit zugriff auf dbf Dateien und bearbeiten.

  Alt 11. Feb 2016, 15:09
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.
Ralph
  Mit Zitat antworten Zitat
Duffy Duck

Registriert seit: 22. Feb 2005
56 Beiträge
 
Delphi 7 Enterprise
 
#8

AW: Problem mit zugriff auf dbf Dateien und bearbeiten.

  Alt 11. Feb 2016, 17:22
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.
  Mit Zitat antworten Zitat
Antwort Antwort

 

Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 19:55 Uhr.
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz