我们总是梦想着对象化（十二）

If This.lEnabledUpdate = .T.
 This.BeforeAdd()
 Select (This.Alias)
 m.LcOldError = On([Error])
 On Error
 If This.BufferModeOverride = 3
 m.Temp = Tableupdate(.F., This.lForce) && 开放式行缓冲
 Else
 m.Temp = Tableupdate(.T., This.lForce) && 开放式表缓冲
 Endif
 If m.Temp = .F. && ODBC 错误
 * 这里是处理更新错误的代码
 On Error &LcOldError
 Return m.llResult
 Else
 This.SetControlRO()
 This.AfterSave()
 On Error &LcOldError
 Return .T.
 Endif
Endif

Private All Like l*
Local loCursor As MyCursor Of MySPT.VCX, ;
  loRelation As MyRelation Of MySPT.VCX, ;
  llReturn As Logical
Begin Transaction && 开始 VFP 事务
= SQLSetprop(Thisform.nStatementHandle,[Transactions], 2) && 开始远程事务
For Each m.loRelation In This.Objects
 If Upper(m.loRelation.BaseClass) == [RELATION]
 m.llReturn = m.loRelation.Add()
 If m.llReturn = .F.
Exit
 Endif
 Endif
Endfor
If m.llReturn = .T.
 For Each m.loCursor In This.Objects
 If Upper(m.loCursor.BaseClass) == [CURSOR]
 m.llReturn = m.loCursor.Add()
 If m.llReturn = .F.
 Exit
 Endif
 Endif
 Endfor
 If m.llReturn = .T.
 = SQLSetprop(Thisform.nStatementHandle, [Transactions], 1) && 结束远程事务
 End Transaction && 结束 VFP 事务
 Endif
EndIf 
Thisform.Refresh
Return m.llReturn