Problem mit zugriff auf dbf Dateien und bearbeiten.

[nahpets]

Entweder TDBF oder TQuery (BDE).
Gemischt geht nicht.
TDBF kann kein SQL.
Filter mit TDBF funktionieren.
Wie sieht Dein (weiter oben angedeuteter) Versuch, mit Filter zu arbeiten, aus?
(Quelltext? - Dann könnte man eventuell Hilfestellung geben, damit eine grundsätzlich gegebene Funktionalität auch von Dir umgesetzt werden kann.)

Wie Du die Abfrage öffnest, steht in meinem letzten Post!

Query.Active = True funktioniert nur, wenn Du vorher ein SQL-Statement zugewiesen hast.

Grundsätzlich:

Wenn Du eine Frage hast, die auf eine "Fehlfunktion" des Quelltextes hindeuten könnte, dann poste bitte jedesmal den dann aktuellen Quelltext.

Wie soll man ohne diesen denn jetzt feststellen, warum bei Dir der übernommenen Quelltext nicht funktioniert?

Hier ist gerade sehr diesiges, verregnetes Wetter, deshalb reicht meine nicht aus, um die eventuell vorhandenen Probleme auf unbekannte Entfernung erkennen zu können

[Duffy Duck]

Natürlich, Du hast recht mache gleich ein Copy/Paste...

Sooo is drin, ein wenig lang...
Hoffe Du findest etwas

Delphi-Quellcode:

unit Main;

interface

uses
  SysUtils, Windows, Messages, Classes, Graphics, Controls,
  Forms, Dialogs, StdCtrls, Buttons, ExtCtrls, Menus, ComCtrls, DB, Grids,
  DBGrids, dbf, DBTables, XPMan, jpeg, ToolWin, RpRender, RpRenderPDF,
  RpDefine, RpRave, RpCon, RpConDS, ImgList, FMTBcd, SqlExpr;

type
  TMainForm = class(TForm)
    MainMenu: TMainMenu;
    FileExitItem: TMenuItem;
    EditUndoItem: TMenuItem;
    EditCutItem: TMenuItem;
    EditCopyItem: TMenuItem;
    EditPasteItem: TMenuItem;
    DataSource1: TDataSource;
    DBGrid1: TDBGrid;
    Edit3: TEdit;
    Button1: TButton;
    Dbf1: TDbf;
    XPManifest1: TXPManifest;
    Edit4: TEdit;
    Button4: TButton;
    GroupBox1: TGroupBox;
    Label3: TLabel;
    Label4: TLabel;
    vonGast: TEdit;
    bisGast: TEdit;
    Button2: TButton;
    GroupBox2: TGroupBox;
    Label5: TLabel;
    Label6: TLabel;
    Timer1: TTimer;
    StatusBar1: TStatusBar;
    OpenDialog1: TOpenDialog;
    Oeffnen1: TMenuItem;
    RvRenderPDF1: TRvRenderPDF;
    RvDataSetConnection1: TRvDataSetConnection;
    RvCustomConnection1: TRvCustomConnection;
    RvProject1: TRvProject;
    Drucken1: TMenuItem;
    PrintDialog1: TPrintDialog;
    Dbf1KUNR: TIntegerField;
    Dbf1KUNAM: TStringField;
    Dbf1KUANRED: TStringField;
    Dbf1KUFIRMA: TStringField;
    Dbf1KUSALDO: TFloatField;
    Dbf1KULIMIT: TLargeintField;
    ImageList1: TImageList;
    Query1: TQuery;
    procedure FormCreate(Sender: TObject);
    procedure FileExit(Sender: TObject);
    procedure EditUndo(Sender: TObject);
    procedure EditCut(Sender: TObject);
    procedure EditCopy(Sender: TObject);
    procedure EditPaste(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure Oeffnen1Click(Sender: TObject);
    procedure Drucken1Click(Sender: TObject);
    procedure Edit3KeyPress(Sender: TObject; var Key: Char);
    procedure vonGastChange(Sender: TObject);
    procedure Edit3Change(Sender: TObject);
    procedure Button2Click(Sender: TObject);

end;

var
  MainForm: TMainForm;

implementation

{$r *.dfm}

procedure TMainForm.FormCreate(Sender: TObject);
begin
  Statusbar1.Panels[1].Text:=TimeToStr (now);
  Statusbar1.Panels[2].Text:=DateToStr (now);
end;

procedure TMainForm.FileExit(Sender: TObject);
begin
  dbf1.active := false;
  dbf1.Close;
  application.Terminate;
end;

procedure TMainForm.EditUndo(Sender: TObject);
begin
  { Code zur Durchführung von Bearbeiten Rückgängig hinzufügen }
end;

procedure TMainForm.EditCut(Sender: TObject);
begin
  { Code zur Durchführung von Bearbeiten Ausschneiden hinzufügen }
end;

procedure TMainForm.EditCopy(Sender: TObject);
begin
  { Code zur Durchführung von Bearbeiten Kopieren hinzufügen }
end;

procedure TMainForm.EditPaste(Sender: TObject);
begin
  { Code zur Durchführung von Bearbeiten Einfügen hinzufügen }
end;

procedure TMainForm.Button1Click(Sender: TObject);
begin
      dbf1.First;
  while not dbf1.EoF do begin
    dbf1.Edit;
    dbf1.FieldByName('KULimit').AsString := edit3.Text;
    dbf1.Post;
    dbf1.Next;
  end;
end;
procedure TMainForm.Button4Click(Sender: TObject);
begin
    dbf1.First;
  while not dbf1.EoF do begin
    dbf1.Edit;
    dbf1.FieldByName('KULimit').AsString := edit4.Text;
    dbf1.Post;
    dbf1.Next;
  end;
end;

procedure TMainForm.Timer1Timer(Sender: TObject);
begin
  Statusbar1.Panels[1].Text:=DateToStr (now);
  Statusbar1.Panels[2].Text:=TimeToStr (now);
end;

procedure TMainForm.Oeffnen1Click(Sender: TObject);
begin
   dbf1.active := false;
   DataSource1.DataSet := dbf1;
   OpenDialog1.execute;
   dbf1.active := true;
end;

procedure TMainForm.Drucken1Click(Sender: TObject);
begin
   RvProject1.Open;
   RvProject1.Execute;
end;

procedure TMainForm.Edit3KeyPress(Sender: TObject; var Key: Char);
begin
     if NOT (Key in [#08, '0'..'9']) then
    Key := #0;
end;

procedure TMainForm.vonGastChange(Sender: TObject); //Filter Button wird eingeschaltet
begin
      button2.Enabled:=true;
end;

procedure TMainForm.Edit3Change(Sender: TObject); //OK Button wird eingeschaltet
begin
      button1.Enabled:=true;
  end;

procedure TMainForm.Button2Click(Sender: TObject);
begin
    query1.Close;
    query1.sql.text := 'select * from Kunden limit ' + vonGast.Text + ', ' + bisGast.Text;
    query1.Open;
  end;

end.

[nahpets]

Zitat von Duffy Duck:

Delphi-Quellcode:

procedure TMainForm.FileExit(Sender: TObject);
begin
  dbf1.active := false;
  dbf1.Close;
  application.Terminate;
end;

Das ist nicht wirklich klever.
Active := false; schließt die Tabelle, das folgende Close ist dann überflüssig.
Das Programm beenden geht auch eleganter durch das Schließen des Formulares.

Delphi-Quellcode:

procedure TMainForm.FileExit(Sender: TObject);
begin
  dbf1.Close;
  Close;
end;

Gibt den Buttons bitte Namen, an denen man erkennen kann, welche Funktion sie ausüben sollen (z. B. statt Button1 btnKuLimitSetzen).
Den Editfeldern gib bitte Namen, die auf ihren Inhalt schließen lassen (z. B. statt edit1 edKuLimit).

Und wenn Du dann noch jeder Prozedur einen Kommentar verpasst, was ihre Aufgabe sein soll, so könnte das durchaus hilfreich sein.
Man kann dann ggfls. aus Vergleich von Kommentar und Quelltext auf eventuelle Probleme schließen bzw. Widersprüche zwischen "Theorie und Praxis" erkennen.
Und wenn man ein Programm nach Jahren nochmal pflegen muss, dann reicht es den Kommentar zu lesen und nicht erst mehr oder weniger Quelltext, aus dem man dann auf die (vermutete) Aufgabe schließen muss.

Was soll denn hier jetzt passieren?
Für alle Datensätze KULimit auf einen einheitlichen Wert setzen?

Delphi-Quellcode:

procedure TMainForm.Button1Click(Sender: TObject);
begin
  dbf1.First;
  while not dbf1.EoF do begin
    dbf1.Edit;
    dbf1.FieldByName('KULimit').AsString := edit3.Text;
    dbf1.Post;
    dbf1.Next;
  end;
end;

oder war das der Versuch für die gefilterten Sätze KULimit zu setzen?
Dann könnte eventuell dashier hilfreich sein:

Delphi-Quellcode:

procedure TMainForm.btnKULimitClick(Sender: TObject);
// Für alle Datensätze mit KUNR im Bereich vonGast - bisGast 
// KULimit auf den Wert aus edKULimit setzen.
begin
  dbf1.Filtered := false;
  dbf1.Filter   := Format('KUNR >= %s and KUNR <= %s', [vonGast.Text, bisGast.Text]);
  dbf1.Filtered := true;
  dbf1.First;
  while not dbf1.EoF do begin
    dbf1.Edit;
    dbf1.FieldByName('KULimit').AsString := edKULimit.Text;
    dbf1.Post;
    dbf1.Next;
  end;
  dbf1.Filtered := false;
  dbf1.Filter := '';
  dbf1.First;
end;

Dashier würd' ich auch anpassen (wenn ich denn den Sinn verstehen würde).
Unklar ist z. B., was hier denn geöffnet werden soll, das Ergebnis des OpenDialogs wird doch überhauptnicht ausgewertet.

Delphi-Quellcode:

procedure TMainForm.Oeffnen1Click(Sender: TObject);
begin
   dbf1.active := false;
   DataSource1.DataSet := dbf1;
   OpenDialog1.execute;
   dbf1.active := true;
end;

Die bisherige Funktion entspricht:

Delphi-Quellcode:

procedure TMainForm.Oeffnen1Click(Sender: TObject);
begin
  dbf1.Close;
  dbf1.Open;
end;

Soll hier eventuell eine Datei ausgewählt werden?
Dann könnte dashier eventuell eine Lösung sein:

Delphi-Quellcode:

procedure TMainForm.Oeffnen1Click(Sender: TObject);
begin
   dbf1.Close
   if OpenDialog1.Execute then begin
     dbf1.TableName := OpenDialog1.FileName;
   end;
   dbf1.Open;
end;

[Duffy Duck]

Oooooh woooow
Is ja der Hammer, da merkt man den unterschied...

ich werde mich mal an die Arbeit machen und alles so anpassen wie Du mir empfohlen hast...

Muss jetzt leider zur Arbeit, werde aber sobald als möglich mein vorhaben hier nochmals schildern...

[Duffy Duck]

Hallo Leute

nach ein paar Tagen abwesenheit melde ich mich wieder
Bin im meinem Projekt ein wenig weiter gekommen. Habe es so wie mir "nahpets" empfohlen hat meinen Code bereinigt und den Buttons und Editfelder mit Namen versehen

Jetzt zum eigentlichem, nahpets Du hast doch auf Seite 2 doch ein Miniprogramm geschreiben vo die Tabelle gefiltert wird. Das ist doch genau das was ich brauche...
Was ich jetzt nicht verstehe ist, im Editfeld (bei mir vonGast) hast Du im Objektinspektor bei Text folgendes reingeschrieben:
KUNR > 1 and KUNR < 4

wie bekomme ich es nun hin, genau diesen befehl über die Editfelder (vonGast und bisGast) zu Steuern?
Genaugenommen sollte nicht ein "fester Wert" drin stehen, sondern ich möchte eine Eingabe machen z.B. vonGast 3 bisGast 7...

bin so Frei und poste den Code nochmals:

Danke

Code:

unit Main;

interface

uses
  SysUtils, Windows, Messages, Classes, Graphics, Controls,
  Forms, Dialogs, StdCtrls, Buttons, ExtCtrls, Menus, ComCtrls, DB, Grids,
  DBGrids, dbf, DBTables, XPMan, jpeg, ToolWin, RpRender, RpRenderPDF,
  RpDefine, RpRave, RpCon, RpConDS, ImgList, FMTBcd, SqlExpr;

type
  TMainForm = class(TForm)
    MainMenu: TMainMenu;
    FileExitItem: TMenuItem;
    DataSource1: TDataSource;
    DBGrid1: TDBGrid;
    EdLimitMax: TEdit;
    BtnOK: TButton;
    Dbf1: TDbf;
    XPManifest1: TXPManifest;
    EdLimitNull: TEdit;
    BtnLoeschen: TButton;
    GroupBox1: TGroupBox;
    LabvonGast: TLabel;
    LabbisGast: TLabel;
    vonGast: TEdit;
    bisGast: TEdit;
    BtnFilter: TButton;
    GroupBox2: TGroupBox;
    LabLoeschen: TLabel;
    LabEintragen: TLabel;
    Timer1: TTimer;
    StatusBar1: TStatusBar;
    OpenDialog1: TOpenDialog;
    Oeffnen1: TMenuItem;
    RvRenderPDF1: TRvRenderPDF;
    RvDataSetConnection1: TRvDataSetConnection;
    RvCustomConnection1: TRvCustomConnection;
    RvProject1: TRvProject;
    Drucken1: TMenuItem;
    PrintDialog1: TPrintDialog;
    Dbf1KUNR: TIntegerField;
    Dbf1KUNAM: TStringField;
    Dbf1KUANRED: TStringField;
    Dbf1KUFIRMA: TStringField;
    Dbf1KUSALDO: TFloatField;
    Dbf1KULIMIT: TLargeintField;
    ImageList1: TImageList;
    Query1: TQuery;
    procedure FormCreate(Sender: TObject);
    procedure FileExit(Sender: TObject);
    procedure BtnOKClick(Sender: TObject);
    procedure BtnLoeschenClick(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure Oeffnen1Click(Sender: TObject);
    procedure Drucken1Click(Sender: TObject);
    procedure EdLimitMaxKeyPress(Sender: TObject; var Key: Char);
    procedure vonGastChange(Sender: TObject);
    procedure EdLimitMaxChange(Sender: TObject);
    procedure BtnFilterClick(Sender: TObject);
    procedure bisGastChange(Sender: TObject);

end;

var
  MainForm: TMainForm;

implementation

{$r *.dfm}

procedure TMainForm.FormCreate(Sender: TObject);
// Datum und Uhrzeit in der Statusleiste
begin
  Statusbar1.Panels[1].Text:=TimeToStr (now);
  Statusbar1.Panels[2].Text:=DateToStr (now);
end;

procedure TMainForm.FileExit(Sender: TObject);
// Programm beenden
begin
  dbf1.Close;
  application.Terminate;
end;

procedure TMainForm.BtnOKClick(Sender: TObject);
// Guthaben für alle Gäste auf einmal setzen
begin
    dbf1.First;
  while not dbf1.EoF do begin
    dbf1.Edit;
    dbf1.FieldByName('KULimit').AsString := edlimitMax.Text;
    dbf1.Post;
    dbf1.Next;
 end;
end;
procedure TMainForm.BtnLoeschenClick(Sender: TObject);
//Guthaben für alle Gäste auf einmal löschen
begin
    dbf1.First;
  while not dbf1.EoF do begin
    dbf1.Edit;
    dbf1.FieldByName('KULimit').AsString := edLimitNull.Text;
    dbf1.Post;
    dbf1.Next;
  end;
end;

procedure TMainForm.Timer1Timer(Sender: TObject);
//Timer für Datum und Uhrzeit
begin
  Statusbar1.Panels[1].Text:=DateToStr (now);
  Statusbar1.Panels[2].Text:=TimeToStr (now);
end;

procedure TMainForm.Oeffnen1Click(Sender: TObject);
begin
   dbf1.Close;
   if OpenDialog1.Execute then begin
     dbf1.TableName := OpenDialog1.FileName;
   end;
   dbf1.Open;
end;

procedure TMainForm.Drucken1Click(Sender: TObject);
//Tabelle Drucken über Rave Reports
begin
   RvProject1.Open;
   RvProject1.Execute;
end;

procedure TMainForm.EdLimitMaxKeyPress(Sender: TObject; var Key: Char);
//Guthabenfeld nur Zahlen möglich
begin
     if NOT (Key in [#08, '0'..'9']) then
    Key := #0;
end;

procedure TMainForm.vonGastChange(Sender: TObject);
//Filter Button wird eingeschaltet sobald Zahl in vonGast Feld eingegeben wird
begin
      btnFilter.Enabled:=true;
end;

procedure TMainForm.EdLimitMaxChange(Sender: TObject);
//OK Bestätigen Button wird eingeschaltet sobald im EdLimitMaxfeld eine Eingabe erfolgt
begin
      btnOk.Enabled:=true;
  end;

procedure TMainForm.BtnFilterClick(Sender: TObject);
//Ausführen des Filter im dbgrid
begin
    dbf1.Filter :=vonGast.Text;
    dbf1.Filter :=bisGast.Text;
    dbf1.Filtered := not dbf1.Filtered;
end;

procedure TMainForm.bisGastChange(Sender: TObject);
begin

end;

end.

[HolgerX]

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..

[Duffy Duck]

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?