VB公司合同管理系统开发与设计(18)
时间:2017-03-31 18:46 来源:毕业论文 作者:毕业论文 点击:次
& "删除客户将同时删除该客户所有合同和项目的记录。" _ & 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 项目信息管理模块实现 (责任编辑：qin) |