Updaten

[MrSpock]

Hallo Privateer3000,

du kannst einen ALIAS als "Ersatznamen" für ein Verzeichnis über die BDE definieren. Mit jedem TTable Objekt kannst du auf eine Tabelle jederzeit zugreifen. Damit du mit der Tabelle etwas machen kannst, musst du sie öffnen:

Code:

Datamodule2.Table2.Open;

Edit ohne vorherigen Open löst eine exception aus.

Angenommen der Anwender heißt MrSpock und der Wert steht in der Variablen "Anwender", außerdem hast du einen Schlüssel auf das Feld Name der Tabelle Table2 definiert, dann kannst du am Anfang folgendes schreiben:

Code:

with Datamodule2 do
begin
  Table2.Open;
  if Table2.FindKey([Anwender]) then
      { Anwender Datensatz existiert schon }
     Table2.Edit
  else begin
      Table2.Insert;
      Table2.FieldByName('Name').AsString := Anwender;
  end;
  { jetzt die Felder setzen }
  ...
  Table2.Post;
  Table2.Close;
end;

Das Ganze wie immer im try except Block und ein Table2.Cancel im Falle einer exception.