Datenbankeintrag über Editfelder

[marabu]

Hi Scuby,

in Feldnamen (Straße) solltest du besser keine Sonderzeichen verwenden. Außerdem solltest du deinen Komponenten und der Form einen aussagefähigen Namen geben. Dann solltest du deinen Code besser organisieren, damit er leichter zu lesen ist. Was ist der Primärschlüssel deiner Tabelle? Wenn du die Tabellen-Struktur für ein Insert benötigst, warum holst du dann alle Datensätze aus der Tabelle? Wenn du im Feld Kurs etwas eingeben willst, warum fehlt dann dieses Feld in deiner Abfrage? Bist du sicher, dass deine Prüfbedingung und die Meldung in Ordnung sind?

Beachte bitte meine Änderungen am Quellcode:

Delphi-Quellcode:

function TTeilnehmerDialog.EingabeOK: boolean;
begin
  Result := not (
    (NameEdit.Text = '') or ... or (VornameEdit.Text = '')
  );
end;

procedure TTeilnehmerDialog.SaveButtonClick(Sender: TObject);
const
  SQL_SELECT 
    = 'SELECT name, vorname, gebdat, strasse, hausnr, plz, ort, tel, fahrschule, kurs '
    + 'FROM teilnehmer WHERE 1 = 0';
begin
  if not EingabeOK then begin
    ShowMessage('Bitte füllen Sie alle Felder mit einem " * " aus!');
    Exit;
  end;

  with Query1 do begin
    Sql.Text := SQL_SELECT;
    Open;
    Insert;
    FieldByName('Name').AsString := NameEdit.Text;
    ...
    FieldByName('Vorname').AsString := VornameEdit.text;
    Post;
  end;
end;

Grüße vom marabu