Mal wieder Datenbanken ;-(

[Gustav.R]

Möchte für eine Freundin eine möglichst recht einfach zu bedienende Datenbank schreiben. Die "einfache Bedienung" liegt natürlich an mir, ist schon klar.

Die "Datenbank" soll nur lokal mit einem Benutzer - der Freundin - laufen.

Geschätzte Ausmaße der Datenbank:

< 5.000 Datensätze
< 50 Datenfelder

DatenFeldtypen:

- viele Strings < 255 Zeichen mit Umlauten und Pfadangaben
- mehrere Booleans


Habe hier ein paar alte, brauchbare Komponenten für eine dBase III-Datenbank unter Delphi5. dBase III ist aber wohl nicht mehr so ganz up-to-date ;-)

Ich möchte das Projekt mit Delphi7 personal (dem keine Datenbankkomponenten beiliegen) verwirklichen.

Habt ihr irgendwelche Empfehlungen, die nicht auf XML hinauslaufen?

GG

[Furtbichler]

Textdatei, CSV-Format. Es handelt sich ja nur um eine einzige Tabelle. Textformat ist besser, weil man auch manuell lesen/editieren kann.

Du baust dir einen Record mit deinen Daten und zunächst eine Lese- und eine Schreibroutine, die den Record in einen String schreiben und wieder zurück lesen kann. Dafür gibt es hier im Forum die 'Explode' Routine.

So, nun kannst Du dir einen Array of TDatenRecord aufbauen und dann erstmal lesen und schreiben implementieren.

Wenn das gut funktioniert, tippelst Du dir ein paar Testdaten zusammen (Lustig, auch EXCEL liest/schreibt 'CSV' Dateien).

Dann nur noch die Visualisierung, also dein Programm drüberbuppeln und fettisch is die Kiste.

[Gustav.R]

Danke Furtbichler,

aber CSV finde ich nicht so prickelnd, wenn die 50 Strings (eines Datensatzes) aneinandergehängt werden sollen. In Textdateien bekommt man oft Ärger mit den Zeilenumbrüchen :-(

Hat jemand andere Vorschläge?

GG

[Sir Rufo]

Jop, Synopse mORMot Framework

Da werkelt im Untergrund ein SQLite3

[Furtbichler]

Zitat:

Zitat von Gustav.R (Beitrag 1136359)

Danke Furtbichler,

aber CSV finde ich nicht so prickelnd, wenn die 50 Strings (eines Datensatzes) aneinandergehängt werden sollen. In Textdateien bekommt man oft Ärger mit den Zeilenumbrüchen :-(

Hat jemand andere Vorschläge?

GG

Na dann nimm halt ein anders Format zum speichern, so eine Art INI-Datei ginge auch. Pro Sektion ein Record. Hier gibs irgendwo eine sehr schnelle TBigIni-Klasse.

Wenn Du natürlich gleich etwas dazulernen willst, nimm ne richtige DB... Geht mormot auch mit D7P?

[joachimd]

Zitat:

Zitat von Gustav.R (Beitrag 1136359)

aber CSV finde ich nicht so prickelnd, wenn die 50 Strings (eines Datensatzes) aneinandergehängt werden sollen. In Textdateien bekommt man oft Ärger mit den Zeilenumbrüchen :-(

Hat jemand andere Vorschläge?

SuperObject von http://www.progdigy.com/?page_id=6 ... das ganze in einer Objekt/Array-Struktur ablegen und dann als JSON speichern. Wie XML, aber einiges übersichtlicher.

[Sir Rufo]

Zitat:

Zitat von Furtbichler (Beitrag 1136366)

Wenn Du natürlich gleich etwas dazulernen willst, nimm ne richtige DB... Geht mormot auch mit D7P?

Ja, der Entwickler programmiert das mit Delphi 7 und es werden keinerlei zusätzlichen DB-Komponenten benötigt.

Zitat:

Zitat von joachimd (Beitrag 1136367)

Zitat:

Zitat von Gustav.R (Beitrag 1136359)

aber CSV finde ich nicht so prickelnd, wenn die 50 Strings (eines Datensatzes) aneinandergehängt werden sollen. In Textdateien bekommt man oft Ärger mit den Zeilenumbrüchen :-(

Hat jemand andere Vorschläge?

SuperObject von http://www.progdigy.com/?page_id=6 ... das ganze in einer Objekt/Array-Struktur ablegen und dann als JSON speichern. Wie XML, aber einiges übersichtlicher.

mORMot tauscht die Daten im JSON-Format aus.

Allerdings hat man beim Einsatz von mORMot relativ wenig mit der Datenbank, noch mit dem JSON-Format was so wirklich was am Hut.
Man ist ja Delphi-Entwickler, also bleibt man schön bei Delphi und um das ganze Geraffel drumherum kümmert sich das Framework.

Ein Beispiel gibt es hier im Forum

ach ja, bevor hier gleich das Gebrülle losgeht "ich will aber keinen Server":
Im Client statt:

Delphi-Quellcode:

TmORMotClientHttp

das hier nehmen

Delphi-Quellcode:

TmORMotClientLocal

und einfach keine Server-App schreiben ;)

andersherum kann man ebenso fix aus einer reinen Standalone-Lösung eine Client-Server-Anwendung bauen ;)

[Furtbichler]

Zitat:

Zitat von Sir Rufo (Beitrag 1136369)

Man ist ja Delphi-Entwickler, also bleicht man schön bei Delphi und um das ganze Geraffel drumherum kümmert sich das Framework.

Pruhuuust. :lol:

[Sir Rufo]

Zitat:

Zitat von Furtbichler (Beitrag 1136370)

Zitat:

Zitat von Sir Rufo (Beitrag 1136369)

Man ist ja Delphi-Entwickler, also bleicht man schön bei Delphi und um das ganze Geraffel drumherum kümmert sich das Framework.

Pruhuuust. :lol:

manchmal verarscht mich der Mac mit seiner Rechtschreibkorrektur ;)

EDIT: hmmm, bei den vielen Stunden am Rechner bleicht aber doch ganz schön :mrgreen:

[p80286]

Also wenn man sich an die RFC hält, dann sollte ASCII delimited bzw CSV eigentlich kein Problem sein, auch bei Zeilenumbrüchen.

Gleiches gilt für XML. Eine weitere Möglichkeit wäre es mit mit einem File of Record zu arbeiten. Statt mit Strings arbeitet man mit einem Array of Char. Ist zwar ein wenig umständlich aber geht unter D7P und ohne Fremdkomponenten.
Nur die Möglichkeit mit einem normalen Texteditor daran zu fummeln wäre etwas eingeschränkt.

Gruß
K-H

[himitsu]

Delphi-Quellcode:

array of char

?
Oder doch einfach den

Delphi-Quellcode:

ShortString

, da eh alles weniger als 256 Zeichen haben soll, bzw. einen ShortString mit Längenangabe (maximal), also

Delphi-Quellcode:

String[123]

.

Char wäre für eine Speicherung eh das Schlimmste, denn wenn man mal das Delphi erneuert, war's das erstmal.
> AnsiChar, WideChar oder eben den ShortString, welcher immer ANSI ist/bleibt.

[Furtbichler]

Ich glaube, der Fragesteller meint, das man zwar Text-Dateien mit 12345 Zeichen pro Zeile editieren kann, aber einige blöde Programme (NOTEPAD) bei falscher Einstellung die Zeilen umbrechen. Delphi macht das doch auch.

Hier meine Rangliste, sortiert nach Einfachheit in der Umsetzung.
1. "File Of TMyRecord" (mit reinen Shortstrings).
2. CSV
3. XML
4. morMot (aber nur wegen der anfänglichen Lernkurve, sonst weiter oben)
5. DBase
6. SQLLite
7. Alles andere an RDBMS

Nach Eleganz wäre dieses mORMot wohl an erster Stelle, ganz klar.

[Bernhard Geyer]

Zitat:

Zitat von Furtbichler (Beitrag 1136410)

Hier meine Rangliste, sortiert nach Einfachheit in der Umsetzung.
1. "File Of TMyRecord" (mit reinen Shortstrings).
2. CSV
3. XML
4. morMot (aber nur wegen der anfänglichen Lernkurve, sonst weiter oben)
5. DBase
6. SQLLite
7. Alles andere an RDBMS

1 ist nicht Unicodefähig und bei 5 holt man sich u.U. die BDE rein.
6+7 ist eigentlich gleichwertig.

[Furtbichler]

Jo. Hast Recht. Bei SQLLite käme noch das DLL-Gedöns dazu, aber der Fragesteller hat ja eh D7P, womit er sowieso irgend etwas installieren müsste.

Ach, eine kbMemTable wäre noch was, aber er hat ja keine TDBGrid, TDBEdits etc.

[DeddyH]

http://www.delphi-treff.de/tutorials/datenspeicherung/
Das könnte man einmal durcharbeiten und sich dann entscheiden. Bei dem zu erwartenden Datenaufkommen sollte eine typisierte Datei IMO eigentlich völlig ausreichen, aber man kann natürlich auch etwas anderes nehmen.

[Sir Rufo]

Zitat:

Zitat von DeddyH (Beitrag 1136419)

http://www.delphi-treff.de/tutorials/datenspeicherung/
Das könnte man einmal durcharbeiten und sich dann entscheiden. Bei dem zu erwartenden Datenaufkommen sollte eine typisierte Datei IMO eigentlich völlig ausreichen, aber man kann natürlich auch etwas anderes nehmen.

Für ein pures IO reicht das bestimmt aus ... aber jedes gewünschte "Mehr" erkauft man sich durch einen sehr hohen Programmier-Aufwand (filtern, sortieren, nur bestimmte Werte lesen).

Somit sehe ich da einen klaren Vorteil für den Einsatz von mORMot.

Der Implementierungs-Aufwand ist bei beiden Verfahren gleich und bei der Datenstruktur (Record <-> TSQLRecord) sogar sehr ähnlich.

[DeddyH]

Es kommt eben darauf an, was genau der TE erreichen will. Soll das Programm ohne weitere Bibliotheken auskommen, dann eben eine flache Datenstruktur und Funktionalitäten selbst implementieren, soll es etwas bequemer sein, dann eben andere Lösungen. Mein Vorschlag war ja, sich auf der verlinkten Seite zunächst einen Überblick zu verschaffen, entscheiden kann man sich dann immer noch.

[scrat1979]

ich werfe - wie so oft - Absolute Database von ComponentAce in die Runde :-) Für privaten Gebraucht im Single-User Betrieb kostenlos...

[DeddyH]

Kann man denn auch mit der Personal darauf zugreifen? Wenn da TDataset-Abkömmlinge enthalten sein sollten stelle ich mir das schwierig vor.

[Gustav.R]

Vielen Dank für die Anregungen :thumb:

Werde mir mal Sir Rufos Synopse-Tipp zu Gemüte führen.

LG
Gustav

[p80286]

Zitat:

Zitat von himitsu (Beitrag 1136408)

Delphi-Quellcode:

array of char

?
Oder doch einfach den

Delphi-Quellcode:

ShortString

, da eh alles weniger als 256 Zeichen haben soll, bzw. einen ShortString mit Längenangabe (maximal), also

Delphi-Quellcode:

String[123]

.

Char wäre für eine Speicherung eh das Schlimmste, denn wenn man mal das Delphi erneuert, war's das erstmal.
> AnsiChar, WideChar oder eben den ShortString, welcher immer ANSI ist/bleibt.

Nun nimm den "Char" doch nicht so wörtlich! Ich wollte auf die alte Kompatibilität von "String" und "array of Char" hinaus. Wobei der Array eben eine feste Länge hat, während der String sich da variabler verhält. Was bei der DatenSpeicherung mit festen Satzlängen eher hinderlich ist.

Je nach gewünschter Datenspeicherung muß natürlich AnsiChar oder WideChar genutzt werden.

Gruß
K-H

[Perlsau]

Also ich hatte vor ca 4 Jahren, als ich noch nicht über ein kommerzielles Delphi verfügte, für einen Künstler-Verein eine komplette Veranstaltungsverwaltung mit Delphi 7 Personal geschrieben, und zwar auf Basis folgender Records:

Delphi-Quellcode:

TYPE
    STR002   = STRING[  2];
    STR005   = STRING[  5];
    STR010   = STRING[ 10];
    STR012   = STRING[ 12];
    STR020   = STRING[ 20];
    STR030   = STRING[ 30];
    STR040   = STRING[ 40];
    STR050   = STRING[ 50];
    STR100   = STRING[100];
    STR150   = STRING[150];
    STR200   = STRING[200];
    STR255   = STRING[255];
    ZEICHEN  = ARRAY[0..255] OF CHAR;

PERSON     = RECORD
                 Anrede   : INTEGER;
                 Name     : STR030;
                 Vorname  : STR020;
                 GebDat   : TDate;
                 GebOrt   : STR050;
                 PLZ      : INTEGER;
                 Ort      : STR050;
                 Strasse  : STR050;
                 Land     : INTEGER;
                 Vorwahl  : LONGINT;
                 TelPriv  : STR020;
                 TelAtel  : STR020;
                 TelHand  : STR030;
                 Fax      : STR020;
                 Email    : STR050;
                 Homepage : STR100;
                 Ak       : BOOLEAN;
                 Bk       : BOOLEAN;
                 Dk       : BOOLEAN;
                 Fv       : BOOLEAN;
                 Li       : BOOLEAN;
                 Mu       : BOOLEAN;
                 Kf       : BOOLEAN;
                 Eintritt : TDate;
                 Austritt : TDate;
                 Mark     : BOOLEAN;
                 Datei    : STR255;
                 END;

    VERANSTALT = RECORD
                 Titel  : STR200;
                 Beginn : TDate;
                 Ende   : TDate;
                 Art    : WORD;
                 Ort    : WORD;
                 Verni  : WORD;
                 Finni  : WORD;
                 Mitt   : WORD;
                 Donn   : WORD;
                 Frei   : WORD;
                 Sams   : WORD;
                 Sonn   : WORD;
                 Mark   : BOOLEAN;
                 END;

    TextZeilen = ARRAY[1..20] OF STR200;

    MEDIUM     = RECORD
                 Name   : STR050;       {Dateiname}
                 Typ    : STR010;       {Dateityp}
                 Size   : Int64;        {Dateigröße}
                 Datum  : TDate;        {Dateidatum}
                 Zeit   : TTime;        {Dateiuhrzeit}
                 Text   : TextZeilen;   {Beschreibung der Datei}
                 END;

    VERTRAG    = RECORD
                 Titel     : STR100;
                 Preis     : LONGINT;
                 Jahr      : WORD;
                 Datum     : TDate;
                 Breite    : INTEGER;
                 Hoehe     : INTEGER;
                 Kuenstler : STR050;
                 Kaufer    : STR050;
                 Adress    : STR100;
                 END;

Wichtig ist hier, in Records keine reinen Strings zu verwenden, sondern ausschließlich selbstdefinierte Shortstrings mit einer festen Größe.