Vergiss die Controls.
Plausiprüfungen müssen anhand des Datasets stattfinden.
Delphi-Quellcode:
procedure TForm_Erfassung.Table_ArtikelBeforePost(DataSet: TDataSet);
begin
// Beispiel:
if DataSet.FieldByName('
StartWert').AsInteger >= DataSet.FieldByName('
EndWert').AsInteger
then
raise Exception.Create('
Startwert muss kleiner als Endwert sein');
if DataSet.FieldByName('
Anzahl').IsEmpty
then
raise Exception.Create('
Anzahl muss angegeben werden');
if not DataSet.FieldByName('
P1').IsEmpty
and DataSet.FieldByName('
P2').IsEmpty
then
raise Exception.Create('
Wenn "P1" vorgegeben, dann muss auch "P2" angegeben werden');
end;
Der Benutzer erhält evtl. eine der obigen Exceptions angezeigt und kann dann
entweder: abbrechen oder korrigieren und erneut speichern