VB公司合同管理系统开发与设计(18)

        & "删除客户将同时删除该客户所有合同和项目的记录。" _
        & vbCrLf & "删除合同将同时删除该合同所有项目记录。" _
        & vbCrLf & "删除项目将同时删除该项目所有信息。" _
        & vbCrLf & vbCrLf & "是否执行删除操作？"
    If MsgBox(sMsg, vbExclamation + vbYesNo + 256, "重要提示") = vbYes Then
        If iTb = 0 Then '删除客户
            adokh.Recordset.Delete
            adokh.Recordset.UpdateBatch
        ElseIf iTb = 1 Then '删除合同
            adoht.Recordset.Delete
            adoht.Recordset.UpdateBatch
        ElseIf iTb = 2 Then '删除项目
            adoxm.Recordset.Delete
            adoxm.Recordset.UpdateBatch
        End If
        MsgBox "删除成功。", vbInformation, "提示"
    End If
End Sub

Private Sub cmdEdit_Click()
    If SSTab1.Tab = 0 And adokh.Recordset.RecordCount = 0 Then Exit Sub
    If SSTab1.Tab = 1 And adoht.Recordset.RecordCount = 0 Then Exit Sub
    If SSTab1.Tab = 2 And adoxm.Recordset.RecordCount = 0 Then Exit Sub
    Call MyLock(False, SSTab1.Tab)
End Sub

Private Sub cmdExit_Click()
    Unload Me
End Sub

Private Sub cmdUpdate_Click()
    On Error GoTo UpdateErr
    If SSTab1.Tab = 0 Then
        adokh.Recordset.UpdateBatch
        adokh.Recordset.Requery
    ElseIf SSTab1.Tab = 1 Then
        adoht.Recordset.UpdateBatch
    ElseIf SSTab1.Tab = 2 Then
        adoxm.Recordset.UpdateBatch
    End If
    MsgBox "数据更新成功。", vbInformation, "更新"
    Call MyLock(True, SSTab1.Tab)
    Exit Sub
UpdateErr:
    MsgBox Err.Description & vbCrLf & "更新操作已被取消。"
    Call cmdCancel_Click
End Sub

Private Sub Form_laod() '窗体加载
End Sub

Private Sub SSTab1_Click(PreviousTab As Integer) '单击选项卡
    Call Form_Activate
End Sub

Private Sub Form_Activate() '窗体激活
    If SSTab1.Tab = 1 Then Call AddkhItem(cbokh1)     '填充充系组合框
    If SSTab1.Tab = 2 Then Call AddkhItem(cbokh2)
    Call MyLock(True, SSTab1.Tab)
End Sub
（2）合同信息管理模块
合同信息管理模块的实现与客户信息管理模块的实现类似，窗体代码复用，只不过是通过选项卡来区分其不同的功能，因此不再赘述。

图 4.8 合同信息管理模块实现
（3）项目信息管理模块

图 4.9 项目信息管理模块实现 VB公司合同管理系统开发与设计(18):http://www.751com.cn/jisuanji/lunwen_4550.html