Fehlerbehandlung bei Datenbanken

[Flash68]

Hallo zusammen,

ich möchte eine Fehlerbehandlung in meine Programe einbauen die folgendermaßen aussieht:

Delphi-Quellcode:

procedure TFRM_Main.But_SpeichernClick(Sender: TObject);
begin
  try
    DM_Buecher.ADS_Buecher.Post;
    DM_Buecher.ADS_Buecher.Edit;
    setButtons(1)
  except
    DM_Buecher.ADS_Buecher.Cancel;
    DM_Buecher.ADS_Buecher.Edit;
    setButtons(1);
    MessageDlg('Es wurden nicht alle Felder ausgefüllt!',MtWarning,[mbOK],0)
  end;
end;

Allerdings wird im dem Fall das ein Feld das benötigt wird nicht ausgefüllt ist trotzdem ein neuer leerer Eintrag vorgenommen bzw. eine ID wird für den Versuch benutzt.

Kann mir jemand helfen wie ich die Fehlerbehandlung programmiere ohne das ein leerer Eintrag vorgenommen wird.

Gruß

Flash

[p80286]

Was spricht dagegen dies so zu machen wie es seit Jahrzenten bekannt ist:

Delphi-Quellcode:

function FelderPrüfen:boolean;
begin
  if not(Feld1ok) then result:=false;
  if result then
    if not(Feld2ok) then result:=false;
  if result then
    if not(Feld3ok) then result:=false;
end;

if FelderPrüfen then speichern
else Fehlermeldung;

Du könntest natürlich auch einen Fehlercode generieren, von dem Deine Fehlernachricht und die weitere Verarbeitung abhängig sind.
Deiner Creativität sind da keine Gerenzen gesetzt.

Übrigens vor ein paar Monaten hier im Forum:
"bekannte Fehlerzustände sind keine Ausnahme"
(leider nicht von mir)

Gruß
K-H

[Flash68]

Das hat mir schon mal gut weiter geholfen.

Allerdings weiß ich nicht wie ich überprüfe ob in einem DBEdit-Feld Text während der Append-Phase eingegeben wurde oder nicht.

Zusätzlich müsste ich auch noch prüfen ob in einer DBLookupCombobox ein Wert ausgewählt wurde.

[pmoegenb]

Entweder bei Post, im Ereignis BeforePost z. B.:

If FieldByName('Field1').IsNull oder durch Abfrage der Länge der Eingabe z. B.:

If Length(DBEdit1.Text) = 0

[Flash68]

Kann das erste denn funktionieren?

Werden denn die Daten nicht erst nach dem post übertragen?

[Flash68]

Ich hab jetzt die lösung zw. es zum laufen gebracht.

Delphi-Quellcode:

procedure TDM_Buecher.ADS_BuecherBeforePost(DataSet: TDataSet);
begin
  If   trim(FRM_Main.dbe_Titel.text) ='' then raise Exception.Create('Titel muss angegeben werden'); {abort}
end;

Allerding müsste ich jetzt noch eine DBLookupComboBox abfragen, kann mir jemand sagen was ich überprüfen muß um festzustellen das aus der zweiten Tabelle was ausgewählt wurde?