更奇怪？

Question

大家看下面代码:begin
  if DBEdit1.Text <> '' then
  begin
    if messageDlg('您是否要更新照片，是按Yes,否则No!', mtConfirmation, [mbYes, mbNo], 0,) = mrYes then
    begin
      if OpenPictureDialog1.Execute then
      try
        JpgPic:=TJpegImage.Create;
        tempStream:=TMemoryStream.Create;
        tempStream.Clear;
        JpgPic.LoadFromFile(OpenPictureDialog1.FileName);
        Image1.Picture.bitmap.assign(JpgPic);
        JpgPic.SaveToStream(tempStream);
        query4.Edit;
        TBlobField(query4.FieldByName('S_Picture')).LoadFromStream(tempStream) ;
      finally
        JpgPic.Free;
        tempStream.Free;
      end ;
    end;
  end
  else
     showmessage('由于修改的照片是DBEedit1中的同学的，DBEdit1中没有学生!故操作失败!')  ;
end;
没有出错，但是没有达到我想要修改照片的目的，然后我单步执行了，竟然发现这行代码不知道为什么怎么都不执行（就执行后返回假），这是怎么回事呀！！！
以下是这行代码：if OpenPictureDialog1.Execute then      大家帮我看看这究竟是怎么一回事呀？
谢谢！！！！

Answer 1

query4.Edit;
TBlobField(query4.FieldByName('S_Picture')).LoadFromStream(tempStream) ;怎么没有提交到数据库啊？？？？

Answer 2

那是不是要加上这一句呀？
query4.post ;
不过加上那一句是错的，那你说什么提交呀？
谢谢！！

Answer 3

问题解决！query4.post //正确！可以增加上了！