with Dm.myMap do
    begin
      s1 := Edit1.Text;
      s2 := Edit2.Text;
      edit;
      FieldByName('CustomPhone').AsString := Trim(s1);
      FieldByName('CustomAddr').AsString := Trim(s2);
      Post;
      ShowMessage('修改成功。');
      //Requery;
    end;