delphi+sql server 2000用数据提交显示update failed

Question

  UpdateSQL1.ModifySQL.Add('update XT_PXKCTC set SHZT00=:SHZT00 where SHZT00=:old_SHZT00');
  Query1.Database.StartTransaction;
  try
    Query1.ApplyUpdates;
    Query1.Database.Commit;
    ShowMessage('审核成功');
  except
    Query1.Database.Rollback;
    raise;
  end;
  Query1.CommitUpdates;
cachedupdate已设为true  requestlive已设为false

Answer 1

两个参数(:SHZT00,:old_SHZT00)赋值了吗？

Answer 2

怎么赋值？我在dbgrid中已经输入了值了