sql更新

Question

如FORM1有个STRINGGRID, FORM2有个EDIT，  当点击FORM1‘修改’按钮时，STRINGGRID选中的行的值赋给EDIT，显示出来，对EDIT修改之后怎么传回去？ 比如EDIT值本为1，现在改为2，要把这值传回到SQL。
         Edit1.Text := StringGrid1.Cells[1,StringGrid1.Row]; //EDIT得到值
   a: string; a := Edit1.Text;    with DM do
    begin
     ADOQuery1.Close;
     ADOQuery1.SQL.Clear;
     ADOQuery1.SQL.Add('update ptype set typeid=' + a + ' ,Fullname=  ''' + b + ''',barcode=  ' + c + '  ,Standard=  ''' + d + ''' , area= ''' + e + '''where typeid=' + a + '');
     ADOQuery1.ExecSQL;执行后改了别的信息可以保存进来，改TYPEID的就不行

Answer 1

  ADOQuery1.SQL.Add('update ptype set typeid=' + a + ' ,Fullname=  ''' + b + ''',barcode=  ' + c + '  ,Standard=  ''' + d + ''' , area= ''' + e + '''where typeid=' + a + ''); 红色部分不对， 应该为改之前的值，不应是a

Answer 2

先声明一个变量保存原先的值，比如 var Origin: String;
改前取值
Origin:=StringGrid1.Cells[1,StringGrid1.Row]; 
改后可以赋值给awhere typeid=Origin