Dbf (Run Time error)

[Dirk]

Hallo an alle

Ich habe ein Dbf eine Datasource und DbGrid mit einnader verbunden ich hoffe richtig
wenn ich Dbf Activ auf True setze kommt fehler meldung Run Time error 202
und ich weiss nicht wo der fehler liegt denn unter windows 32 leuft es aber unter wince nicht

Code: Alles auswählen

implementation
 
{ TForm1 }
 
 
procedure TForm1.AOpenExecute(Sender: TObject);
begin
   With OpenDialog1  do
    if Execute then
      OpenTable(FileName);
      Dbf1.Insert;
end;
 
procedure TForm1.NewExecute(Sender: TObject);
begin
  With SaveDialog1 do
    If Execute then
      CreateTable(FileName);
end;
 
 
procedure TForm1.CreateTable(AFileName : String);
 
begin
  With Dbf1 do
    begin
    Close;
    with FieldDefs do
      begin
      Clear;
      Add('Datum',ftString,10);
      Add('Kommt',ftString,10);
      Add('Geht',ftString,10);
      Add('Div',ftString,10);
      Add('AZK',ftString,30);
      end;
    TableName:=AFileName;
    CreateTable;
    Exclusive := true;
    Open;
    AddIndex('Datum', 'Kommt', []);
    end;
end;
 
procedure TForm1.MIQuitClick(Sender: TObject);
begin
 
end;
 
procedure TForm1.DBCheckBox1Click(Sender: TObject);
begin
 DBedit2.Text:= '6:00';
 DBEdit3.Text:= '14:00';
 DBCheckBox2.TabStop:=False;
 DBCheckBox3.TabStop:=False;
 end;
 
procedure TForm1.ACloseExecute(Sender: TObject);
begin
 
end;
 
procedure TForm1.DBCheckBox2Click(Sender: TObject);
begin
 DBedit2.Text:= '14:00';
 DBEdit3.Text:= '22:00';
end;
 
procedure TForm1.DBCheckBox3Click(Sender: TObject);
begin
 DBedit2.Text:= '22:00';
 DBEdit3.Text:= '6:00';
end;
 
procedure TForm1.DBCheckBox4Click(Sender: TObject);
begin
 DBedit2.Text:= 'Urlaub';
 DBEdit3.Text:= 'Urlaub';
end;
 
procedure TForm1.DBCheckBox5Click(Sender: TObject);
begin
 DBedit2.Text:= 'AZK';
 DBEdit3.Text:= 'AZK';
end;
 
procedure TForm1.OpenTable(AFileName : String);
 
begin
  With Dbf1 do
    begin
     Close;
    TableName:=AFileName;
    Open;
    end;
end;
 
 
 
procedure TForm1.AQuitExecute(Sender: TObject);
begin
  Close;
end;
 
procedure TForm1.DataOpen(Sender: TObject);
begin
  With Dbf1 do
    (Sender as Taction).Enabled:=Active;
end;
 
procedure TForm1.DBNavigator1Click(Sender: TObject; Button: TDBNavButtonType);
begin
 
end;
 
procedure TForm1.DoDataAction(Sender: TObject);
begin
  Case (Sender as TAction).Tag of
    0 : Dbf1.First;
    1 : Dbf1.Prior;
    2 : Dbf1.Next;
    3 : Dbf1.Last;
    4 : Dbf1.Insert;
    5 : Dbf1.Delete;
    6 : Dbf1.Edit;
    7 : Dbf1.Post;
    8 : Dbf1.Cancel;
    9 : Dbf1.Refresh;
  end;
end;
 
procedure TForm1.FormClose(Sender: TObject; var CloseAction: TCloseAction);
begin
  Dbf1.Close;
end;
initialization
  {$I Unit1.lrs}
 
end.

[Christian]

Ohne jetzt deinen Fehler suchen zu wollen, klingeln da bei mir alle Alarmglocken.
TDbf hat bei mir schonmal einen massiven Datenbestand vernichtet und auf mich machts nicht den Eindruck als obs massiv weiterentwickelt worden ist.
Würd die SQLite ans herz legen wollen da bist du 1. sicher das deine Daten recht gut behütet sind 2. dass es auf allen Plattformen läuft.