关于修改数据库中内容的问题

procedure Tfrm_xygdjb.BitBtn5Click(Sender: TObject);
begin
  if messagebox(self.Handle,'确认要修改吗？','示',mb_yesno+mb_iconquestion)  =idyes then
  begin
    try
    with data1.ADOQuery1 do
    begin
      data1.ADOQuery1.Edit;
      FieldByName('编号').Value:=trim(edit1.Text);
      FieldByName('姓名').Value:=trim(edit2.Text);
      fieldbyname('简历').Value:=trim(memo1.Text);
      fieldbyname('照片').Assign(image1.Picture.Bitmap); 
    post;
    end;
      application.MessageBox('修改成功','提示',64);
    except
      application.MessageBox('修改失败','提示',64);
  end;
      close;
  end;这样修改然后写入数据库哪里错了 大家帮我看一下 提示是"编号" 参数未找到 注释掉后就移到下一条 "姓名"  ....找不到了以下是我从数据库里取出数据 这样是没有问题 可为什么修改后写回去就说 "编号/姓名...." NO Found 呢?procedure Tfrm_ygxill.editvalue;
begin
frm_xygdjb.Edit1.Text:=data1.ADOQuery1.FieldByName('编号').Value;
frm_xygdjb.Edit2.Text:=data1.ADOQuery1.FieldByName('姓名').Value;
frm_xygdjb.Memo1.Text:=data1.ADOQuery1.FieldByName('简历').Value;
frm_xygdjb.Image1.Picture.Assign(data1.ADOQuery1.FieldByName('照片'));
end;