Hallöle...
...dieses Projekt ist nur aus Eigennutz entstanden um Datenbanktabellen in eine Klasse zu gießen.
Was macht das Projekt:
Wie ihr wisst, arbeite ich nicht mit DataSets sondern mit Klassen. Eine Tabelle als Klasse aufzubauen ist nicht das Schwerste...ist nur Fleißarbeit.
Plötzlich stieß ich an die Grenzen der Fleißarbeit/Strafarbeit.
Eine Tabelle mit 300 Feldern. (fragt nicht warum...nicht meine
). Nach 5 Stunden Tipparbeit war ich, gefühlt, nicht weit. Das muß automatisch gehen!
Nun erzeugt das Programm nicht nur die Properties sondern auch die Zuweisungen von/nach der Klasse und die Statements (INSERT/UPDATE) für meinen
SQL Creator
https://www.delphipraxis.net/190316-...e-creator.html oder einfach klassisch im QT.
Das Programm nimmt eine Tabelle aus der Tabellenliste und erzeugt:
1. die public Properties für die Klasse
2. die Zuweisungen aus der
Query an die Klasse
3. die Zuweisungen aus der Klasse an die
Query
4. das Insert Statement mit Parametern
5. das Update Statement mit Parametern
Da die Parameternamen mit jedem Lauf neu erzeugt werden, sind die Ergebnisse jedesmal anders aber in sich stimmig.
Alle Zeilen müssen per Copy/Paste in den QT übernommen werden. Aber es erleichtert die Schreibarbeit ungemein...
Am Ende
kann man die Ergebnisse in Dateien speichern.
Alle Felder der 300 Feldertabelle sind in 0.5 Sekunden konvertiert...
Voraussetzungen
* FireDAC (siehe Todo)
* SynEdit
eure Todos
* evt. Austausch des Datenbankzugriffes auf euer bevorzugtes System
* evt. Austausch SynEdit in TMemo
* Anpassungen der Zuordnung der FeldTypen auf eure Bedürfnisse
* Fehlerbehandlung wenn ihr wollt...
* was ihr sonst so noch wollt...
Viel Spaß...