Verwaltung & Überwachung von Pflichtpfeldern einer o. mehrerer DB-Tabellen

[Sir Rufo]

Haben deine Datenklassen direkten Zugriff auf die Datenbank oder über einen Service?

Ich lasse das alles von einem DatenService abtüten:

Delphi-Quellcode:

TDataService = class
public
  function Validate( ASubject : TSubject ) : Boolean;
  function Update( ASubject : TSubject ) : Boolean;
  function Retrieve( ASubject : TSubject; AID : Variant ) : Boolean;
end;

function TDataService.Update( ASubject : TSubject ) : Boolean;
begin
  if not Validate( ASubject ) then
    Exit( False );
  ...
end;

Der entscheidet dann auch, ob die Prüfung lokal oder auf dem Server erfolgt

[shmia]

Wenn man "ganz normal" mit Datasets arbeitet (also ohne abgehobene Konzepte) dann kann man
im Event [TDataset].BeforePost eine Schleife über alle Felder ausführen:

Delphi-Quellcode:

for i := 0 to Dataset.Fields.Count-1 do
begin
  f := Dataset.Fields[i];
  if f.Required and not f.ReadOnly and (f.IsNull or (Trim(f.AsString)='')) then
  begin
    f.FocusControl;
    raise Exception.CreateFmt('Feld <%s> muss einen Inhalt haben', [f.DisplayName]);
  end;
end;