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

时间:2013-05-06 11:49:19

标签: delphi listbox

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

我创建了一个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上创建一个应用程序,这样当有人点击列表框中的详细信息按钮时,会有更多关于该人的信息。

1 个答案:

答案 0 :(得分:0)

您需要使用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]);