菜单
　　

            & "删除客户将同时删除该客户所有合同和项目的记录。" _
            & 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 项目信息管理模块实现
  1. 上一篇：ASP.net实验室建设与实习基地信息库系统的建设与实施
  2. 下一篇：Flash俄罗斯方块游戏设计+文献综述

  1. JAVA基于安卓平台的医疗护工管理系统设计

  2. java+mysql酒店管理系统设计与实现

  3. Ruby+mysql就业信息管理系统的设计与实现

  4. php进销存管理系统的设计与实现

  5. jsp医药连锁店管理系统的设计与实现

  6. jsp+mysql学生实践创新项目管理系统设计与实现

  7. jsp+mysql停车场车辆管理系统的设计与实现

  8. 十二层带中心支撑钢结构...

  9. 河岸冲刷和泥沙淤积的监测国内外研究现状

  10. 中考体育项目与体育教学合理结合的研究

  11. 大众媒体对公共政策制定的影响

  12. 酸性水汽提装置总汽提塔设计+CAD图纸

  13. 电站锅炉暖风器设计任务书

  14. 乳业同业并购式全产业链...

  15. java+mysql车辆管理系统的设计+源代码

  16. 当代大学生慈善意识研究+文献综述

  17. 杂拟谷盗体内共生菌沃尔...

　　

About

751论文网手机版...

主页：http://www.751com.cn

关闭返回