下面这段代码为何不能修改主码USERID？

Question

procedure Tuserm.Button3Click(Sender: TObject);
begin
  if data1.ADOQuery1.Active = true then
  begin
    if Trim(userid.Text)<>Trim(data1.ADOQuery1.FieldByName('USERID').AsString) then
    begin
      with data1.ADOQuery1 do
      begin
        Close;
        SQL.Clear;
        SQL.Add('select * from USER1 where USERID =:a');
        Parameters.ParamByName('a').Value := Trim(userid.Text);
      end;
      if data1.ADOQuery1.RecordCount>0 then
      begin
         Application.MessageBox('该用户已存在','提示',64);
         Exit;
      end;
    end;
    Try
      with data1.modifyADOQuery do
      begin
         Close;
         SQL.Clear;
         SQL.Add('update USER1 set USERID=:a, TRUENAME = :b,SEX = :c,DEPT = :d,POSI = :e,PHONE = :f,EMAIL = :g where USERID = :oldid');
         Parameters.ParamByName('a').Value := Trim(userid.Text);
         Parameters.ParamByName('b').Value := Trim(username.Text);
         Parameters.ParamByName('c').Value := Trim(sex.Text);
         Parameters.ParamByName('d').Value := Trim(department.Text);
         Parameters.ParamByName('e').Value := Trim(position.Text);
         Parameters.ParamByName('f').Value := Trim(phone.Text);
         Parameters.ParamByName('g').Value := Trim(email.Text);
         data1.ADOQuery1.close;
         Parameters.ParamByName('oldid').Value := Trim(data1.ADOQuery1.FieldByName('USERID').AsString);
         ExecSQL;
      end;
      Application.MessageBox('修改成功。','提示',64);
    Except
      Application.MessageBox('操作失败','提示',64);
    end;
  end
  else
    Application.MessageBox('当前没有可修改的信息','提示',64);
end;

Answer 1

SQL.Add('select * from USER1 where USERID =:a');
Parameters.ParamByName('a').Value := Trim(userid.Text);
open;//打开