大家帮忙看看.在线急等

报错提示"键列信息不足或不正确.更新影响到多行." 大家帮忙啊!!!
=========================================================================================
procedure TTP.Button1Click(Sender: TObject);
 var
   name:string;
   zgs:double;
 begin
   DM.ADODataSet1.Close;
    name:=button1.Caption ;
     DM.ADODataSet1.CommandText :='SELECT * from GDNAME where 姓名=:name order by ID';
      DM.ADODataSet1.Parameters[0].Value:=name;
     DM.ADODataSet1.Open ;
   edit2.Text :=dm.ADODataSet1.FieldByName('总股数').AsString;
    Button1.Visible :=false;
     zgs:=strtofloat(edit2.Text)+ strtofloat(dbtext3.Caption);
      dm.ADODataSet1.Edit ;
       dm.ADODataSet1.FieldByName('总股数').AsString:=floattostr(zgs);
      dm.ADODataSet1.Post ;
  end;=========================================================================================