菜单
　　

            Else
                SSTab1.TabEnabled(i) = bLock
            End If
        Next
    End Sub


    Private Sub cboht_Click() '选合同
        Dim sSQL As String
        sSQL = "SELECT * FROM 项目信息 WHERE 合同编号='" & Format(cboht.ItemData(cboht.ListIndex), "0000") & "' ORDER BY 项目编号"
        adoxm.RecordSource = sSQL '显示本客户本合同现有项目
        adoxm.Refresh
    End Sub

    Private Sub cbokh1_Click() '选择客户组合框（合同选项卡）
        Dim sSQL As String
        sSQL = "SELECT  *  FROM 合同信息 WHERE 客户编号='" & Format(cbokh1.ItemData(cbokh1.ListIndex), "00") & "'  ORDER BY 合同编号"
        adoht.RecordSource = sSQL  '显示现有合同
        adoht.Refresh
    End Sub

    Private Sub cbokh2_Click() '选择客户组合框（工程选项卡）
        Dim skhbh As String
        skhbh = Format(cbokh2.ItemData(cbokh2.ListIndex), "00") '客户编号
        Call AddxmItem(cboht, skhbh)    '填充"合同"组合框
        cboht.Enabled = True
        If cboht.ListIndex = -1 Then   '若本客户无合同
            fraCmdBtn.Enabled = False
            adoxm.RecordSource = "SELECT * FROM 项目信息 WHERE 合同编号='"
            adoxm.Refresh
        Else
            fraCmdBtn.Enabled = True
        End If
    End Sub

    Private Sub cmdAdd_Click() '添加
        Dim sID As String
        Call MyLock(False, SSTab1.Tab)
        If SSTab1.Tab = 0 Then '添加客户
            With adokh.Recordset     '自动生成客户编号
                If .RecordCount > 0 Then
                    .MoveLast
                    sID = Format(Val(.Fields("客户编号").Value) + 1, "00")
                Else
                    sID = "01"
                End If
                .AddNew
                .Fields("客户编号").Value = sID
            End With
            txtkhxm.SetFocus
        ElseIf SSTab1.Tab = 1 Then '添加合同
            With adoht.Recordset      '自动生成专业号
                If .RecordCount > 0 Then
                    .MoveLast
                    sID = .Fields("合同编号").Value
                    sID = Mid$(sID, 1, 2) & Format(Val(Right$(sID, 2)) + 1, "00")
  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

关闭返回