菜单
　　

                Else
                    sID = Format(cbokh1.ItemData(cbokh1.ListIndex), "00") & "01"
                End If
                .AddNew
                .Fields("合同编号").Value = sID
                .Fields("客户编号").Value = Mid$(sID, 1, 2)
            End With
            txthtmc.SetFocus
        ElseIf SSTab1.Tab = 2 Then    '添加项目
            With adoxm.Recordset  '自动生成项目编号
                If .RecordCount > 0 Then
                    .MoveLast
                    sID = .Fields("项目编号").Value
                    sID = Mid$(sID, 1, 4) & Format(Val(Right$(sID, 2)) + 1, "00")
                Else
                    sID = Format(cboht.ItemData(cboht.ListIndex), "00") & "01"
                End If
                .AddNew
                .Fields("项目编号").Value = sID
                .Fields("合同编号").Value = Mid$(sID, 1, 2)
            End With
            txtxmmc.SetFocus
        End If
    End Sub

    Private Sub cmdCancel_Click()
        On Error GoTo UpdateErr
        Dim varBookmark As Variant
        Dim adoTmp As Adodc  '利用对象变量处理ADO数据控件
        If SSTab1.Tab = 0 Then '客户
            Set adoTmp = adokh
        ElseIf SSTab1.Tab = 1 Then '合同
            Set adoTmp = adoht
        ElseIf SSTab1.Tab = 2 Then '项目
            Set adoTmp = adoxm
        End If
        varBookmark = adoTmp.Recordset.Bookmark   '存书签
        adoTmp.Recordset.CancelBatch
        adoTmp.Refresh
        adoTmp.Recordset.Bookmark = varBookmark   '指针返回原记录
        Call MyLock(True, SSTab1.Tab)
        Exit Sub
    UpdateErr:
        If Err.Number <> -2147217906 Then MsgBox Err.Description '错误号为书签无效
        Call MyLock(True, SSTab1.Tab)
    End Sub

    Private Sub cmdDelete_Click()
        Dim iTb As Integer
        Dim sMsg As String
        iTb = SSTab1.Tab
        If iTb = 0 And adokh.Recordset.RecordCount = 0 Then Exit Sub
        If iTb = 1 And adoht.Recordset.RecordCount = 0 Then Exit Sub
        If iTb = 2 And adoxm.Recordset.RecordCount = 0 Then Exit Sub
        sMsg = "注意！" & vbCrLf & vbCrLf _
  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

关闭返回