Hallo,
ich hätte da mal folgende Frage an alle Datenbank Experten...
Mit dieser Prozedur wird eine Neue Klasse in meiner Tabelle angelegt, jetzt würde ich gerne prüfen ob die klasse schon vorhanden ist und wenn ja eine Meldung ausgeben. Würdet ihr das mit Table.Locate machen oder wie macht man das am besten??
Delphi-Quellcode:
procedure THauptForm.Klasse1Click(Sender: TObject);
var
Klasse : String;
begin
Klasse := InputBox('Neue Klasse anlegen', 'Klasse:','');
if Klasse <> '' then
begin
//Prüfen ob der eintrag nicht schon vorhanden ist!!
TblKlassen.Insert;
TblKlassen.FieldByName('Klassenname').AsString := Klasse;
TblKlassen.Post;
TblKlassen.First;
end;
end;
Gruß Phil