Problem mit zugriff auf dbf Dateien und bearbeiten.

[Duffy Duck]

Hallo Leute

Ich habe ein neues Projekt und zwar habe ich eine *.dbf Datei die ich mit Delphi öffnen im DBGrid anzeigen sowie editieren möchte.
Nun, soweit habe ich mit TDBF und eine eine TDataSource eine verbindung aufgebaut, mit DBGrid kann ich die Tabelle auch schön anzeigen lassen

Nun die frage: Wieso kann ich keine änderungen an der Tabelle vornehmen? um diese natürchlich wieder zu speichern...? Habe festgestellt dass "TableLevel" auf 3 steht... dieser Wert lässt sich leider nicht ändern.

Kann mir da jemand behilflich sein? Schon mal besten Dank

PS: Zum Projekt, Ziel ist es die dbf Datei aufzurufen, bearbeiten und wieder zu Speichern. Wenn in der Tabelle z.B. 100 Kunden drin stehen, so soll ein Wert von Kunde bis Kunde bearbeitet werden, zugleich soll es möglich sein z.B. ende Monat von Kunde bis Kunde (also 1-100) den Wert (Guthaben) wieder zu löschen.

[nahpets]

Meine bisherige Erfahrung mit TDBF ist, dass das von Dir Beschriebene problemlos funktioniert.

Der Tabellenlevel hat nichts damit zu tuen, ob man schreiben darf oder nicht, das ist (soweit ich weiß) nur eine Info zu der verwendeten dBase-Version der Tabelle.

Zeig' uns bitte mal die Eigenschaften der Komponente, wie Du sie in der IDE eingestellt hast, eventuell kann man daran was erkennen.
Ansonsten hänge hier bitte mal den Quelltext und die DFM an.

[haentschman]

[OT]
...der übliche Hinweis.

Zitat:

Ich habe ein neues Projekt und zwar habe ich eine *.dbf Datei

...ist ein Widerspruch in sich. Bei neuen Projekten ist ein "modernes" DBMS die bessere Wahl.

[Duffy Duck]

sowas?

Code:

unit WinArtikel;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, Grids, DBGrids, dbf, ExtCtrls, DBCtrls, Menus, StdCtrls,
  DBTables, DirOutln, jpeg, Mask;

type
  TForm1 = class(TForm)
    Dbf1: TDbf;
    DBGrid1: TDBGrid;
    DataSource1: TDataSource;
    DBNavigator1: TDBNavigator;
    MainMenu1: TMainMenu;
    Datei1: TMenuItem;
    Oeffnen1: TMenuItem;
    Save1: TMenuItem;
    OpenDialog1: TOpenDialog;
    SaveDialog1: TSaveDialog;
    Exit1: TMenuItem;
    GroupBox1: TGroupBox;
    Dbf1KUNR: TIntegerField;
    Dbf1KUNAM: TStringField;
    Dbf1KUERTRAG: TFloatField;
    Dbf1KUSALDO: TFloatField;
    Dbf1KULIMIT: TLargeintField;
    Dbf1KUTAGUMS: TFloatField;
    procedure Schliessen1Click(Sender: TObject);
    procedure Save1Click(Sender: TObject);
    procedure Oeffnen1Click(Sender: TObject);
    procedure Exit1Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Schliessen1Click(Sender: TObject);
begin
  close;
end;

procedure TForm1.Save1Click(Sender: TObject);
begin
     saveDialog1.Execute;
end;

procedure TForm1.Oeffnen1Click(Sender: TObject);
begin
   if OpenDialog1.Execute then

   //ShowMessage(OpenDialog1.FileName);

   //showmessage ('Daten wurden erfolgreich eingelesen.... oder auch nicht');

end;

procedure TForm1.Exit1Click(Sender: TObject);
begin
    close;
end;


end.

[joachimd]

Zitat von Duffy Duck:

snip viel code

Vom Code her sehe ich auf den ersten Blick keinen Grund, warum es nicht gehen sollte. Ist vielleicht die DBF-Datei selbst schreibgeschützt?

[Duffy Duck]

Hallo Joachim

die dbf datei ist nicht schreibgeschützt, denn wenn ich es mit dem Formular-Experte eine verbindung aufbaue, dann klappt es mit den ändern...

ich probiere gleich nochmal mit Tdbf eine komplett neue Verbindung herzustellen...

Edit:

Das gleiche problem.. die Einträge lassen sich nicht verändern...

Hier nochmals den Code (Falls es was bringt den Code zu posten):

Delphi-Quellcode:

unit Main;

interface

uses
  SysUtils, Windows, Messages, Classes, Graphics, Controls,
  Forms, Dialogs, StdCtrls, Buttons, ExtCtrls, Menus, ComCtrls, DB, Grids,
  DBGrids, dbf, DBTables;

type
  TMainForm = class(TForm)
    MainMenu: TMainMenu;
    FileNewItem: TMenuItem;
    FileOpenItem: TMenuItem;
    FileSaveItem: TMenuItem;
    FileSaveAsItem: TMenuItem;
    FilePrintItem: TMenuItem;
    FilePrintSetupItem: TMenuItem;
    FileExitItem: TMenuItem;
    EditUndoItem: TMenuItem;
    EditCutItem: TMenuItem;
    EditCopyItem: TMenuItem;
    EditPasteItem: TMenuItem;
    StatusLine: TStatusBar;
    OpenDialog: TOpenDialog;
    SaveDialog: TSaveDialog;
    PrintDialog: TPrintDialog;
    PrintSetupDialog: TPrinterSetupDialog;
    DataSource1: TDataSource;
    Dbf1: TDbf;
    DBGrid1: TDBGrid;
    Dbf1KUNR: TIntegerField;
    Dbf1KUNAM: TStringField;
    Dbf1KULIMIT: TLargeintField;
    procedure FormCreate(Sender: TObject);
    procedure ShowHint(Sender: TObject);
    procedure FileNew(Sender: TObject);
    procedure FileOpen(Sender: TObject);
    procedure FileSave(Sender: TObject);
    procedure FileSaveAs(Sender: TObject);
    procedure FilePrint(Sender: TObject);
    procedure FilePrintSetup(Sender: TObject);
    procedure FileExit(Sender: TObject);
    procedure EditUndo(Sender: TObject);
    procedure EditCut(Sender: TObject);
    procedure EditCopy(Sender: TObject);
    procedure EditPaste(Sender: TObject);
  end;

var
  MainForm: TMainForm;

implementation

{$r *.dfm}

procedure TMainForm.FormCreate(Sender: TObject);
begin
  Application.OnHint := ShowHint;
end;

procedure TMainForm.ShowHint(Sender: TObject);
begin
  StatusLine.SimpleText := Application.Hint;
end;

procedure TMainForm.FileNew(Sender: TObject);
begin
  { Code zur Erzeugung einer neuen Datei hinzufügen }
end;

procedure TMainForm.FileOpen(Sender: TObject);
begin
  if OpenDialog.Execute then
  begin
    //ShowMessage(OpenDialog1.FileName);

   //showmessage ('Daten wurden erfolgreich eingelesen.... oder auch nicht');
    { Code zum Öffnen von OpenDialog.FileName hinzufügen }
  end;
end;

procedure TMainForm.FileSave(Sender: TObject);
begin
   { Code zum Speichern der aktuellen Datei unter aktuellem Namen hinzufügen }
end;

procedure TMainForm.FileSaveAs(Sender: TObject);
begin
  if SaveDialog.Execute then
  begin
    { Code zum Speichern von SaveDialog.FileName  hinzufügen }
  end;
end;

procedure TMainForm.FilePrint(Sender: TObject);
begin
  if PrintDialog.Execute then
  begin
    { Code zum Drucken von aktueller Datei hinzufügen }
  end;
end;

procedure TMainForm.FilePrintSetup(Sender: TObject);
begin
  PrintSetupDialog.Execute;
end;

procedure TMainForm.FileExit(Sender: TObject);
begin
  Close;
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;

end.

[joachimd]

Zitat von haentschman:

Zitat:

Ich habe ein neues Projekt und zwar habe ich eine *.dbf Datei

...ist ein Widerspruch in sich. Bei neuen Projekten ist ein "modernes" DBMS die bessere Wahl.

nicht zwingend...vielleicht ist die DBF auch vorgegeben (weil zB ein anderes, in einer Xbase Sprache entwickeltes Programm dies schon seit Jahren so nutzt) und er soll etwas drumherum bauen. Du solltest mal sehen, wieviele DBF-Dateien noch im Umlauf sind