• 对数据集和记录集的锁定

Private Sub cmdCheckOut_Click()
    objLT.CheckOutDataset objDataset    '锁定指定的数据集（表、图层）
End Sub

Private Sub cmdChkRecordset_Click()
    Dim objRecordset As soRecordset
    Set objRecordset = SuperMap1.selection.ToRecordset(False)
    If objRecordset Is Nothing Then
        MsgBox "请先选择几个对象"
        Exit Sub
    End If
    objLT.CheckOutRecordset objRecordset, False    '锁定记录集（可以是图层中某一区域）
End Sub

• 提交对数据集和记录集的修改

Private Sub cmdCheckIn_Click()
    objLT.CheckInDataset objDataset, False    '提交对数据集所进行的修改
    SuperMap1.Layers.DisableEdit
    SuperMap1.Refresh
End Sub

Private Sub cmdChkinRecordset_Click()
     Dim objRecordset As soRecordset
    Set objRecordset = SuperMap1.selection.ToRecordset(False)
    If objRecordset Is Nothing Then
        Exit Sub
    End If
    objLT.CheckInRecordset objRecordset, False, False    '提交对记录集所进行的修改
    SuperMap1.Layers.DisableEdit
    SuperMap1.Refresh
End Sub

• 回滚对数据集和记录集的修改

Private Sub cmdUndo_Click()
     objLT.UndoCheckOutDataset objDataset, False    '回滚对数据集所进行的修改
    SuperMap1.Layers.DisableEdit
    SuperMap1.Refresh
End Sub

Private Sub cmdUndoRecordset_Click()
    Dim objRecordset As soRecordset
    Set objRecordset = SuperMap1.selection.ToRecordset(False)
    If objRecordset Is Nothing Then
        Exit Sub
    End If
    objLT.UndoCheckOutRecordset objRecordset, False, False    '回滚对记录集所进行的修改
    SuperMap1.Layers.DisableEdit
    SuperMap1.Refresh
End Sub