procedure TForm7.Label33Click(Sender: TObject);
var i,j,k:integer;
begin

i:=self.DBGrid1.SelectedField.DataSet.FieldValues['id'];

self.ClientDataSet1.Edit ;
self.ClientDataSet1.FieldValues['id']:=1111111;
self.ClientDataSet1.Post;


end;