Delphi 如何使用查找来编辑数据库中的数据？

我还有一个问题，我有一个用户ID的数据库。 我需要一个选项来编辑该数据，并将其写入右行

我们可以“编辑”数据，但它在数据库中形成了一条全新的线条， 如何覆盖表中的现有数据

我必须使用查找，但如何使用

代码如下：

    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;

---

使用

dm.atInlog.Edit

而不是

dm.atInlog.Append在你的代码中
我们非常愚蠢：'）这就成功了，你不知道我们在这个问题上坐了多久了，那就是一张桌子。它是在我的调色板中datamoduleThere的no“table”组件中创建和连接的，但是如果您的“table”派生自TDataSet，则不需要手动迭代所有记录以达到所需的记录。使用Locate方法，或者，如果数据集支持索引，则使用最快的FindKey方法。