Question

我还有另一个问题，我有一个带有UserID的数据库。我想要一个选项来编辑该数据，并将其写在右侧。

我们可以“编辑”数据，但它会在数据库中创建一个全新的行，如何覆盖表格中的现有数据？

我必须使用查找但是如何？

这是代码：

    procedure TfmKlant.BTOpslaanClick(Sender: TObject);
begin
    dm.atInlog.Open;
  gevonden := false;
    while (not gevonden) and (not dm.atInlog.eof) do
    begin
        if dm.atInlog['email'] = fminloggen.inlognaam
      then
      begin
         // plaats gegevens in de textboxen
        gevonden := true;
        dm.atInlog.Append;
        dm.atInlog['naam']        := leNaam.text;
        dm.atInlog['adres']       := leAdres.text;
        dm.atInlog['postcode']    := lePostcode.text;
        dm.atInlog['telefoon']    := leTelefoonnummer.text;
        dm.atInlog['email']       := leEmail.text;
        dm.atInlog['password']    := lePassword.text;
        dm.atInlog.Post;
      end
        else
    dm.atInlog.Next;
    end;
        leemail.Clear;
        lenaam.Clear;
        leadres.clear;
        lepostcode.clear;
        letelefoonnummer.clear;
        lepassword.clear;
end;

Answer 1

在代码中使用dm.atInlog.Edit;代替dm.atInlog.Append;

如何使用Lookup编辑数据库中的数据？

1 个答案: