delphi - 将列表框的一行与数据库表的一行相关联

Question

如何将列表框的一行与数据库表的一行相关联？

我创建了一个 firemonky 移动应用程序。在表单上，​​我放置了一个列表框。列表框由数据库中的项目填充。

    zQuery1.Close;
    ZQuery1.Open;
    ListBox1.Items.Clear;
      While not ZQuery1.Eof do
      Begin
      ListBox1.Items.Add(ZQuery1.Fields[1].AsString);
      ZQuery1.Next;
    end;
    ZQuery1.Close;

显示的是一个人的名字。

现在，当我双击该人的姓名时，我希望打开第二个表格，其中包含该人的详细信息（可在记录中获得）。如果可以做到这一点，有人可以帮助我吗？

我想在 iPad 上创建一个应用程序，这样当有人点击列表框中的详细信息按钮时，就会有该人的更多信息。

Answer 1

您需要使用 listbox.items.addobject，而不是使用 listbox.items.add。出于以下代码的目的，我假设表的主键将在 zquery1.fields[0] 中返回。

zQuery1.Close;
ZQuery1.Open;
ListBox1.Items.Clear;
While not ZQuery1.Eof do
 Begin
  ListBox1.Items.AddObject (ZQuery1.Fields[1].AsString, 
                  tobject (zquery1.fields[0].asinteger)
  ZQuery1.Next;
 end;
ZQuery1.Close;

为了访问存储的 id，你会写这样的东西

avariable:= longint (listbox1.Items.Objects[listbox1.itemindex]);