关于查询

Question

你可以用两个Qyery查寻,Query1查寻编号,Query2查寻名称 
//从数据库中搜出所有名称
  temstr:string;
  with wlcs_dm.Query1 do
    begin
      close;
      sql.Clear ;
      sql.Add('select name from A')   ;
      prepare;
      open;
      end;
   wlcs_dm.Query1.First ;
   while not (wlcs_dm.Query1.Eof )  do
    begin
       tempstr:=form1.query1.fieldbyname('chrdomain').asstring;
       combobox1.Items.Add(tempstr);
       form1.Query1.Next ;  
    end;