查询问题

Question

在查询的过程中,除了数据库中的主键以外,其它信息都随上一次查询信息更改
begin    if edit8.Text <>'' then
      begin
          dm.ADOQuery1.Close;
          dm.ADOQuery1.SQL.Clear;          dm.ADOQuery1.SQL.Add('select *from jbxx where NO =:no1');
          dm.ADOQuery1.Parameters.ParamByName('no1').Value :=edit8.Text;          if dm.ADOQuery1.Prepared = false then
             dm.ADOQuery1.Prepared := true;
             dm.ADOQuery1.Open;
             if dm.ADOQuery1.IsEmpty then
                begin
                  messagedlg('没有找到匹配记录！',mtinformation,[mbok],0);
                  exit;
                end
             else
              edit1.Text :=dm.ADOQUERY1.FieldValues['name'];
              edit2.Text :=dm.ADOQUERY1.FieldValues['address'];
              edit3.Text :=dm.ADOQUERY1.FieldValues['unit'];
              edit4.Text :=dm.ADOQUERY1.FieldValues['liaison'];
              edit5.Text :=dm.ADOQUERY1.FieldValues['duty'];
              edit6.Text :=dm.ADOQUERY1.FieldValues['record'];
              edit7.Text :=dm.ADOQUERY1.FieldValues['fruit'];
              edit8.Text :=dm.ADOQuery1.FieldValues['no'];
              combobox1.Text :=dm.ADOQuery1.FieldValues['sex'];
              image1.Picture.Assign(dm.adoquery1.FieldByName('photo'));      end
    else
      messagedlg('必须输入ID！',mtinformation,[mbok],0);
      edit8.SetFocus;      
end;

Answer 1

else
begin
  edit1.Text :=dm.ADOQUERY1.FieldValues['name'];
  edit2.Text :=dm.ADOQUERY1.FieldValues['address'];
  edit3.Text :=dm.ADOQUERY1.FieldValues['unit'];
  edit4.Text :=dm.ADOQUERY1.FieldValues['liaison'];
  edit5.Text :=dm.ADOQUERY1.FieldValues['duty'];
  edit6.Text :=dm.ADOQUERY1.FieldValues['record'];
  edit7.Text :=dm.ADOQUERY1.FieldValues['fruit'];
  edit8.Text :=dm.ADOQuery1.FieldValues['no'];
  combobox1.Text :=dm.ADOQuery1.FieldValues['sex'];
  image1.Picture.Assign(dm.adoquery1.FieldByName('photo'))
end;不要疏忽语法啊！

Answer 2

to rainwxj
大哥谢了,小弟初学,以后会注意的