Kundendatenbank

[DeddyH]

Solange Du mit einer Tabelle auskommst, aber wann hat man das schon?

[Furtbichler]

Na ja. Eine Kundenliste, Adressenliste, Vereinsmitglieder, sowas eben. Es muss ja nicht immer 3NF sein.

übrigens hat man in fast jedem Datastore eine Tabelle. Nur ein "wenig" mehr Records eben.

[DeddyH]

Nur brauche ich dann keine "Datenbank", sondern kann das auch mit z.B. typisierten Dateien und Recordlisten lösen. Das mag im Einzelfall ja auch Sinn machen, aber bei Kundendatenbank (Kunde, Kundenkontakte etc.) denke ich an andere Anwendungsfälle.

[Furtbichler]

Zitat von DeddyH:

Nur brauche ich dann keine "Datenbank", sondern kann das auch mit z.B. typisierten Dateien und Recordlisten lösen. ...

Datensensitive Steuerelemente, RAD, klick-fertig-app... usw.

Aber bei einer "Datenbank" denke ich auch an etwas anderes. Das ist so wie wenn man beim Wort "Kartoffel" an ein feines 5-Gänge Menü denkt. Oder eben nicht

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