Kundendatenbank

[mb1996]

Hallo Leute,
ich möchte ein Programm programmieren, dass eine Kundendatenbank darstellt (Datenbank offline). Ich dachte sofort an MyBase, aber ist das für große Datenbanken das richtige?

Die Datenbank muss umbedingt eine Suchfunktion unterstützen:!:

[mkinzler]

Was verstehst du unter einer großen Datenbank?

[DeddyH]

Ich würde so etwas nicht mit MyBase anfangen. Stattdessen böten sich IMO z.B. SQLite oder Firebird an, die kommen zur Not auch ohne Server aus (Embedded-Varianten).

[mb1996]

Was ist denn der Nachteil?

[mkinzler]

Die Speicherung als XML-Datei ist weder optimal noch performant

[Furtbichler]

Na, ein paar 1000 Datensätze wirst Du schon performant genug laden und speichern können.

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

Zitat von DeddyH (Beitrag 1141952)

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;