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 项目信息管理模块实现