DATENSATZ vergleichen

[marabu]

Herzlich willkommen in der Delphi-PRAXiS, EddieMcCool.

Du kannst mit der Methode Locate() deiner Table überprüfen, ob der entsprechende Datensatz bereits existiert:

Delphi-Quellcode:

 procedure TForm2.BitBtn2Click(Sender: TObject);
begin
  with Form3.Table1 do
  begin
    if Locate('Datum;Stunde;Haus;Raum', VarArrayOf([
        DBEdit2.Text, DBLookupComboBox3.Text, DBLookupComboBox1.Text, DBLookupComboBox2.Text]), []) 
      then Edit
      else Insert;
    FieldValues['Datum'] := dbedit2.text;
    FieldValues['Stunde'] := DBLookupComboBox3.text;
    FieldValues['Haus'] := DBLookupComboBox1.text;
    FieldValues['Raum'] := DBLookupComboBox2.text;
    FieldValues['Klassenstufe'] := DBLookupComboBox4.text;
    FieldValues['Klasse'] := DBLookupComboBox5.text;
    FieldValues['Fach'] := DBLookupComboBox6.text;
    FieldValues['Materialien'] := DBLookupComboBox7.text;
    FieldValues['Lehrer'] := dbedit1.text;
    Post;
  end;
end;

Getippt und nicht getestet.

Freundliche Grüße vom marabu

PS: Coole Namen haben deine Komponenten - DBEdit2, ...