Hallo,
ich beschäftige mich gerade damit, automatische Datensatz-Eingabemasken zu erzeugen. Wie wir alle wissen, erscheint in der Delphi Datenbankoberfläche je nach Anzahl der Datenfelder in der konkreten Datenbankdatei immer die richtige Anzahl Eingabefelder für den Datensatz. Dies war im guten alten DBase zu DOS Zeiten genauso. Je nach Anzahl der Datenfelder hatten wir die richtige Anzahl Eingabefelder auf dem Bildschirm. Das will ich nun mit Delphi auch haben, noch dazu mit für den jeweiligen Feld-Datentyp passenden Eingabefeldern. Für ein Boolean Feld zum Beispiel eine TCheckBox für einen Bild-Datentyp ein TImage, ...
Mein Ansatz ist folgender:
- ich habe zunächst eine
Unit gebaut mit einer TCustomInputmask-Klasse, die von TScrollBox abstammt.
- Diese Inputmask stellt Methoden bereit, die später die Datenfelder erzeugen.
- Eine nachfolgende TInputmask Klasse kann für Pascal Records dieselbe Aufgabe erfüllen.
- Es folgt eine weitere
Unit für die DBInputmask. Hier kommen die Daten von einer TDataSource Komponente. Die Eingabefelder hängen nun vom Datentyp des konkreten Feldes in DataSource.DataSet.Field.DataType ab.
Verbesserungsvorschläge sind jederzeit willkommen. Das Ganze soll
GPL werden und somit OpenSource.