Kundendatenbank

[kamel08]

MyBase-Dateien lassen sich auch als DBClient.dfBinary - Typ speichern, sind dann wesentlich kleiner und schneller zum Bearbeiten. Suche nach Einträgen ist kein Problem.

Delphi-Quellcode:

// nur ein Beispiel, nicht getestet:
Const
      {$IfDef Test}
      SUFFIX = '.XML';
      {$Else}
      SUFFIX = '.CDS';
Procedure TForm1.INIT_KundenTabelle(Dateiname:String);
begin
     KundenTabelle.FileName := Dateiname + SUFFIX;
     If FileExists(KundenTabelle.FileName) then KundenTabelle.Open else
     // KundenTabelle neu anlegen
     begin
          with KundenTabelle.FieldDefs do
          begin
               Clear;
               Add('Firma', ftString, 50, FALSE);
               Add('VorName', ftString, 50, FALSE);
               Add('NachName', ftString, 50, FALSE);
               Add('Titel', ftString, 50, FALSE);
               Add('Strasse', ftString, 50, FALSE);
               Add('Hausnummer', ftInteger, 0, FALSE);
          end;
          KundenTabelle.CreateDataSet;
          KundenTabelle.SaveToFile(KundenTabelle.FileName, DBClient.dfBinary);
     end;
end;