我的问题是：你们好啊！如何我把listbox中的每条记录 在我创建的sql数据库中查找到 并输出sql中的和这条记录相关的其他字段到另一个listb

Question

我的问题是：你们好啊！如何我把listbox中的每条记录 在我创建的sql数据库中查找到 并输出sql中的和这条记录相关的其他字段到另一个listbox中——————————————————————————————————————
我在sql数据库中的创建的表的名称是：zhuangzhuang1 它有三个域 zhzhbh(症状编号），zhzhmc（症状名称），zhzhqc（症状权值）
比如我在listbox1中的每个记录是关于症状名称的；怎样查找到相应的它在数据库的记录并输出和它相关的数据库中其他域 zhzhmc,zhzhqc的记录到listbox2中去

Answer 1

procedure TForm1.ListBox1Click(Sender: TObject);
var
  str: string;
  i: integer;
  TmpQuery: Tquery;
begin
  TmpQuery := TQuery.Create(nil);
  TmpQuery.DatabaseName := 'MyDb';//你的数据库别名
  TmpQuery.SQL.TEXT := ' SELECT ZHZHMC,ZHZHQC FROM ZHUANGZHUANG1 WHERE ZHZHMC=' +
    #39 + ListBox1.Items[ListBox1.ItemIndex] + #39;
  TmpQuery.Open;
  ListBox2.Items.Clear;
  for i := 0 to TmpQuery.RecordCount - 1 do
  begin
    ListBox2.Items.Add(TmpQuery.Fields[0].AsString + '   ' + TmpQuery.Fields[1].AsString);
    TmpQuery.Next;
  end;
end;