Projektvorschlag Automatische Datenbank Eingabemasken

[jobo]

Zitat:

Zitat von Jumpy (Beitrag 1269096)

Zitat:

Zitat von jobo (Beitrag 1269073)

In meiner Lieblings-IDE zu meiner Lieblings DB bekomme ich FK Felder automatisch als Lookup angezeigt, wenn ich auf die bloße Tabelle zugreife und im Edit Mode bin.

Das klingt ja fast nach Access :-D

Wir haben mal tolle Sachen mit access gemacht, aber das ist lange her, das war access 97. Hatte ich aber fast nichts mit zu tun.

Meine Lieblingsdb ist Oracle.

Wir verwenden übrigens auch dynamisch erstellte Formulare. Das ist vor allem kostengünstig und ermöglicht eine sehr hohe Umsetzungsgeschwindigkeit. Schön ist ein anderes Thema. Aber das kann der Kunde sich ja aussuchen.
Lookups erstellen wir dabei allerdings nicht anhand von FK Constraints automatisch, sondern gezielt deklarativ, so wie sie benötigt werden.

[delphifan2004]

Hallo,

hier ist die Nachfolgeversion meines Eingabemasken Generators. Keyfelder sind noch nicht berücksichtigt, aber die Erzeugung der Feldtypabhängigen Eingabe-Controls dagegen schon.

Überschrieben werden nur noch die Methoden DoCreateXXXX.

Zum Beispiel DoCreateDBEdit, DoChreateDBCheckBox, ...

Jetzt geht es weiter.

Es gibt eine Methode Adjust(Control), wie folgt definiert:

Delphi-Quellcode:

procedure TInputmask.Adjust(AControl: TControl);
begin
  case FLabAlignmt of
   alLabelLeft: FCurrentLeft := FCurrentLeft + FHorSpacing;
   alLabelRight: FCurrentLeft := FCurrentLeft + FHorSpacing + FEdtSpacing;
   alLabelTop: FCurrentTop := FCurrentTop + AControl.Height + FVertSpacing;
  end;
end;

//FCurrentLeft,FCurrentTop werden in den DoCreateXXXX Methoden angepasst.

//Hier ist mein Testformular:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, UDBInputMask, DB, DBTables, DBClient;

type
  TForm1 = class(TForm)
    DataSource1: TDataSource;
    Bezeichnung: TClientDataSet;            
    BezeichnungBezeichnung: TStringField;   //Mit MyBase -> TClientDataSet -> Feld Bezeichnung
    BezeichnungMenge: TIntegerField;        //Mit MyBase -> TClientDataSet -> Feld Menge
    BezeichnungBestellt: TBooleanField;     //Mit MyBase -> TClientDataSet -> Feld Bestellt
    BezeichnungBeschreibung: TMemoField;    //Mit MyBase -> TClientDataSet -> Feld Beschreibung
    procedure FormCreate(Sender: TObject);
  private
    { Private-Deklarationen }
    FMask: TDBInputMask;
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}


procedure TForm1.FormCreate(Sender: TObject);
begin
  FMask := TDBInputMask.Create(self);
  FMask.DataSource := DataSource1;
  FMask.LabelSpacing := 3;
  FMask.Left   := 3;
  FMask.Top    := 8;
  FMask.Width  := ClientWidth - 6;
  FMask.Height := ClientHeight - 56;
  FMask.CreateMask;
  FMask.Parent := self;
end;

end.

Leider kann ich meinen ersten Beitrag nicht mehr bearbeiten, das heißt, den Text ändern geht, aber ich kann keine Dateianhänge nizufügen, deshalb die neue Version hier.

.

[mkinzler]

Bitte bearbeite den 1. Beitrag:
-Entferne die Sourcen (aus Beitrag)
-Übersicht über Projekt
-Versions/Änderungsübersicht

und hänge die neue Version(en) an diesen Beitrag an.

Danke.

[delphifan2004]

Sourcen sind raus aus dem ersten Beitrag, Neue Dateien als Anhang dranhängen kann ich nicht, leider, dazu fehlt das Büroklammernsymbol, auf das ich sonst hierzu klicke. Ich kriege dieses Projekt nicht bezahlt und werde deshalb nicht in den Tiefen der Menüs der DP diese Funktion suchen, wie ich das als bezahlter Programmierer vielleicht tun müsste. So bleibt die neue Version meiner Inputmask Units jetzt in diesem neuen Beitrag oder einer von Euch transferiert die in meinen ersten Beitrag. In diesem Eingabememo hier ist oben das Büroklammersymbol zu sehen, das ich zum Anhängen von Dateien anklicken muss, beim Editieren meines ersten Beitrages nicht mehr. Sorry. Habe jetzt noch andere Termine.

[mkinzler]

Dies ist nur im erweiterten Beitragseditor möglich. In diesem gelangt man, in dem man bearbeiten doppelklickt (statt einfach) oder im einfachen Editor in den erweiterten wechselt

[joehd]

Ich suche eigentlich so was auch wenn der Beitrag schon älter ist gibt es da eine Anleitung wie das gemacht werden soll das die Eingabemaske erzeugt wird ? Danke schon mal
Grüße joe

[hoika]

Hallo,
also ich baue mir meine Eingabefelder selbst zusammen.

[joehd]

Zitat:

Zitat von hoika (Beitrag 1432557)

Hallo,
also ich baue mir meine Eingabefelder selbst zusammen.

Das mache ich ja auch so aber es wäre doch cool wenn man eine Hand voll eingabekomponenten gemäß der Datenbank ggf SQL Source schon automatisch hätte. Zb. Anlegen eines Records, anlegen der Eingabefelder, Löschen der Eingaben, Löschen des Records , aufruf und abspeicherfunktionen . Das ist immer viel geschreibsel und wehe eine Kleinigkeit ist falsch ...