请问为什么我的这个更新表中一行的操作会变成更新整个表，请高手指教

 请问为什么我的这个更新表中一行的操作会变成更新整个表，请高手指教
procedure TForm5.BitBtn1Click(Sender: TObject);
begin
ADOQuery1.Close;
 ADOQuery1.SQL.Add('Select zccode,zcname,zctype,usedepart,useman,jsjname,ipadd,macadd,onoffline,zcpeizhi,zcbuytime,zcfactory,zcbuildtime,zcunit,zcamount,zcprice,xuliehao,sjaddress,res,moditime from appequipment where zccode=:A');
  ADOQuery1.Parameters.ParamByName('A').Value := Edit1.Text;
  ADOQuery1.Open;
  ADOQuery1.SQL.Clear;
    ADOQuery1.SQL.Add('update appequipment set zccode= :zccode');
  ADOQuery1.Parameters.ParamByName('zccode').Value := Trim(Edit1.Text);
  ADOQuery1.SQL.Add('update appequipment set zctype= :zctype'); 
  ADOQuery1.Parameters.ParamByName('zctype').Value := Trim(dblookupcombobox1.Text);
  ADOQuery1.SQL.Add('update appequipment set zcname= :zcname');
  ADOQuery1.Parameters.ParamByName('zcname').Value := Trim(Edit2.Text);
     ADOQuery1.SQL.Add('update appequipment set jsjname= :jsjname');
  ADOQuery1.Parameters.ParamByName('jsjname').Value := Trim(Edit3.Text);
     ADOQuery1.SQL.Add('update appequipment set usedepart= :usedepart');
  ADOQuery1.Parameters.ParamByName('usedepart').Value := trim(dblookupcombobox2.Text);
      ADOQuery1.SQL.Add('update appequipment set useman= :useman');
  ADOQuery1.Parameters.ParamByName('useman').Value := trim(dblookupcombobox3.Text);
    ADOQuery1.SQL.Add('update appequipment set ipadd= :ipadd');
  ADOQuery1.Parameters.ParamByName('ipadd').Value := Trim(Edit4.Text);
    ADOQuery1.SQL.Add('update appequipment set macadd= :macadd');
  ADOQuery1.Parameters.ParamByName('macadd').Value := Trim(Edit5.Text);
      ADOQuery1.SQL.Add('update appequipment set onoffline= :onoffline');
  ADOQuery1.Parameters.ParamByName('onoffline').Value := Trim(ComboBox1.Text);
      ADOQuery1.SQL.Add('update appequipment set zcpeizhi= :zcpeizhi');
  ADOQuery1.Parameters.ParamByName('zcpeizhi').Value := Trim(memo1.Text);
      ADOQuery1.SQL.Add('update appequipment set zcbuytime= :zcbuytime');
  ADOQuery1.Parameters.ParamByName('zcbuytime').Value := Trim(Edit6.Text);
      ADOQuery1.SQL.Add('update appequipment set zcfactory= :zcfactory');
  ADOQuery1.Parameters.ParamByName('zcfactory').Value := Trim(edit7.Text);
    ADOQuery1.SQL.Add('update appequipment set zcbuildtime= :zcbuildtime');
  ADOQuery1.Parameters.ParamByName('zcbuildtime').Value := Trim(Edit8.Text);
     ADOQuery1.SQL.Add('update appequipment set zcunit= :zcunit');
  ADOQuery1.Parameters.ParamByName('zcunit').Value := Trim(combobox2.Text);
     ADOQuery1.SQL.Add('update appequipment set zcamount= :zcamount');
  ADOQuery1.Parameters.ParamByName('zcamount').Value := Trim(combobox3.Text);
     ADOQuery1.SQL.Add('update appequipment set zcprice= :zcprice');
  ADOQuery1.Parameters.ParamByName('zcprice').Value := Trim(edit9.Text);
     ADOQuery1.SQL.Add('update appequipment set xuliehao= :xuliehao');
  ADOQuery1.Parameters.ParamByName('xuliehao').Value := Trim(edit10.Text);
    ADOQuery1.SQL.Add('update appequipment set sjaddress= :sjaddress');
  ADOQuery1.Parameters.ParamByName('sjaddress').Value := Trim(edit11.Text);
     ADOQuery1.SQL.Add('update appequipment set moditime= :moditime');
  ADOQuery1.Parameters.ParamByName('moditime').Value := Trim(edit12.Text);
     ADOQuery1.SQL.Add('update appequipment set res= :res');
  ADOQuery1.Parameters.ParamByName('res').Value := Trim(memo2.Text);
  ADOQuery1.ExecSQL;
  ADOQuery1.Close;
  begin
  ShowMessage('修改成功，退出');
  form5.close;
  end;end;