三层中，如何修改数据库中的记录？

Question

http://expert.csdn.net/Expert/topic/1543/1543794.xml?temp=.3767969
到这儿来看看,人气太差,再开一贴,分不是问题!

Answer 1

修改:
procedure TfrmPrj_Master.btnUpdateClick(Sender: TObject);
begin
  Self.Check_Data_Invaid ;//检查录入数据是否合法  DM.cdPrj_master.GotoBookMark(BookMark);//重新定位
  with DM.cdPrj_master do
  begin
    Edit;
    FieldByName('Pm_code').AsString := Trim(Self.txtPm_code.Text);
    FieldByName('Pm_Name').AsString := Trim(Self.txtPm_Name.Text);
    FieldByName('pp_no').AsString := Trim(Self.txtpp_no.Text);
    FieldByName('Pm_jobunit').AsString := Trim(Self.txtPm_jobunit.Text);
    FieldByName('Pm_num').AsString := Trim(Self.txtPm_num.Text);
    FieldByName('Pm_owner').AsString := Trim(Self.txtPm_owner.Text);
    FieldByName('Pm_prin').AsString := Trim(Self.txtPm_prin.Text);
    FieldByName('Pm_area').AsString := Trim(Self.txtPm_area.Text);
    FieldByName('Pm_consunit').AsString := Trim(Self.txtPm_consunit.Text);
    FieldByName('Pm_manaunit').AsString := Trim(Self.txtManaUnit.Text);
    FieldByName('Pm_manaman').AsString := Trim(Self.txtPm_manaman.Text);
    FieldByName('Pm_moneytype').AsString := Trim(Self.txtPm_moneytype.Text);
    FieldByName('Pm_Re').AsString := Trim(Self.txtPm_Re.Text);
    Post;    Self.labRecordCount.Caption := '累计数：  '+IntToStr(RecordCount);
    Self.labChangeCount.Caption := '当前修改数：  '+IntToStr(ChangeCount);
  end;  DM.cdPrj_master.FreeBook(BookMark);//删除书签标志
  Clear_Data;//清空数据;
end;
发送:
procedure TfrmPrj_Master.btnSendClick(Sender: TObject);
var
  strMsg :String;
begin
  if DM.cdPrj_master.ChangeCount = 0 then Exit;  strMsg := '确定要发送数据到服务器吗？';
  if Application.MessageBox( PChar(strMsg)
               ,PChar(CMSG_TITLE),MB_YESNO + MB_ICONQUESTION
               + MB_DEFBUTTON2 + MB_SYSTEMMODAL) = IDNO
  then
  begin
    Exit;
  end;  DM.cdPrj_master.ApplyUpdates(0);//往服务器发送数据  Application.MessageBox('数据发送完毕!',PChar(CMSG_TITLE),MB_OK+MB_ICONINFORMATION);
end;