Problem mit zugriff auf dbf Dateien und bearbeiten.

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