SchuBi

[MrSpock]

Hallo Kuckuckskind,

wie DKamps schon erwähnt hat, sind Schlüssel eine Möglichkeit. Du solltest dir erst überlegen, was das Haupt Such- und Sortierkriterium in der Tabelle Autor sein soll. Dieses Feld (oder diese Felder) machst du zum Primärschlüssel. Das Kürzel, sofern es nicht der Primärschlüssel ist, kann dann z.B. Sekundärschlüssel sein. Nun kannst du z.B. eine zweite Instanz der Tabelle Autor unter dem Namen AuthorSuch öffnen, die nach dem Schlüssel "Kürzel" sortiert ist, dann kannst du mit:

Delphi-Quellcode:

{ Edit1. Text enthält im folgenden Beispiel das gewünschte Kürzel }
if AutorSuch.FindKey(Edit1.Text) then
begin 
  { Kürzel existiert, ist denn auch der Autor gleich ?)
  { Edit2.Text zeigt den Namen des Autors }
  if AutorSuch.FieldByName('Autor').AsString <> Edit2.Text then
  begin
     MessageDlg('Das Kürzel '+Edit1.Text+ ' wird bereits für den Autor '+
                AutorSuch.FieldByName('Autor').AsString +' benutzt.',
                mtInformation, [mbOK], 0);
     ActiveControl := Edit1.Text;
  end;
end;

verhindern, dass dasselbe Kürzel noch einmal verwendet wird.