frm_outcustomer_riches_edit.frm

一个公司的客户财产管理系统vb源码

    Rs_Area.Close
    Cn_Area.Close
    Me.txt_M_Fields(0).Enabled = False
    Me.txt_M_Fields(1).Enabled = False
    Me.txt_M_Fields(2).Enabled = False
    Me.txt_M_Fields(3).Enabled = False
    Me.txt_M_Fields(6).Enabled = False
'    Me.txt_M_Fields(10).Enabled = False
Exit Sub
err:
   MsgBox err.Description, vbCritical
End Sub

Private Sub Customer_Riches_info()
On Error GoTo err
    '营销部录入部份
    If IsNull(Rs_OutCR!信息完整) = False Then Me.cob_M_Fields(0).text = Rs_OutCR!信息完整 Else Me.cob_M_Fields(0).text = ""
    If IsNull(Rs_OutCR!质量等级) = False Then Me.cob_M_Fields(1).text = Rs_OutCR!质量等级 Else Me.cob_M_Fields(1).text = ""
    If IsNull(Rs_OutCR!复制要求) = False Then Me.txt_M_Fields(4).text = Rs_OutCR!复制要求 Else Me.txt_M_Fields(4).text = ""
    If IsNull(Rs_OutCR!品质要求) = False Then Me.txt_M_Fields(5).text = Rs_OutCR!品质要求 Else Me.txt_M_Fields(5).text = ""
    If IsNull(Rs_OutCR!内编码) = False Then Me.txt_M_Fields(6).text = Rs_OutCR!内编码 Else Me.txt_M_Fields(6).text = ""
    If IsNull(Rs_OutCR!料号) = False Then Me.txt_M_Fields(13).text = Rs_OutCR!料号 Else Me.txt_M_Fields(13).text = ""
    If IsNull(Rs_OutCR!节目名称) = False Then Me.txt_M_Fields(7).text = Rs_OutCR!节目名称 Else Me.txt_M_Fields(7).text = ""
    If IsNull(Rs_OutCR!母盘号码) = False Then Me.txt_M_Fields(8).text = Rs_OutCR!母盘号码 Else Me.txt_M_Fields(8).text = ""
    If IsNull(Rs_OutCR!节目源种类) = False Then Me.cob_M_Fields(2).text = Rs_OutCR!节目源种类 Else Me.cob_M_Fields(2).text = ""
    If IsNull(Rs_OutCR!节目种类) = False Then Me.cob_M_Fields(3).text = Rs_OutCR!节目种类 Else Me.cob_M_Fields(3).text = ""
    If IsNull(Rs_OutCR!母盘刻字要求) = False Then Me.txt_M_Fields(9).text = Rs_OutCR!母盘刻字要求 Else Me.txt_M_Fields(9).text = ""
    If IsNull(Rs_OutCR!刻录速度) = False Then Me.cob_M_Fields(4).text = Rs_OutCR!刻录速度 Else Me.cob_M_Fields(4).text = ""
    If IsNull(Rs_OutCR!母盘内孔) = False Then Me.cob_M_Fields(5).text = Rs_OutCR!母盘内孔 Else Me.cob_M_Fields(5).text = ""
    If IsNull(Rs_OutCR!菲林索引) = False Then Me.txt_M_Fields(10).text = Rs_OutCR!菲林索引 Else Me.txt_M_Fields(10).text = ""
    If IsNull(Rs_OutCR!印刷参照) = False Then Me.cob_M_Fields(6).text = Rs_OutCR!印刷参照 Else Me.cob_M_Fields(6).text = ""
    If IsNull(Rs_OutCR!印刷方式) = False Then Me.cob_M_Fields(7).text = Rs_OutCR!印刷方式 Else Me.cob_M_Fields(7).text = ""
    If IsNull(Rs_OutCR!印刷颜色) = False Then Me.cob_M_Fields(8).text = Rs_OutCR!印刷颜色 Else Me.cob_M_Fields(8).text = ""
    If IsNull(Rs_OutCR!委托书编码) = False Then Me.cob_M_Fields(9).text = Rs_OutCR!委托书编码 Else Me.cob_M_Fields(9).text = ""
    If IsNull(Rs_OutCR!印刷要求) = False Then Me.txt_M_Fields(11).text = Rs_OutCR!印刷要求 Else Me.txt_M_Fields(11).text = ""
    If IsNull(Rs_OutCR!包装要求) = False Then Me.txt_M_Fields(12).text = Rs_OutCR!包装要求 Else Me.txt_M_Fields(12).text = ""
    If IsNull(Rs_OutCR!包装方式) = False Then Me.cob_M_Fields(10).text = Rs_OutCR!包装方式 Else Me.cob_M_Fields(10).text = ""
    If IsNull(Rs_OutCR!印刷内圈) = False Then Me.cob_M_Fields(11).text = Rs_OutCR!印刷内圈 Else Me.cob_M_Fields(11).text = ""
'    '品质部录入部分
'    If IsNull(Rs_OutCR!母盘数量) = False Then Me.txt_Q_Fields(0).text = Rs_OutCR!母盘数量 Else Me.txt_Q_Fields(0).text = ""
'    If IsNull(Rs_OutCR!节目源状态) = False Then Me.cob_Q_Fields(0).text = Rs_OutCR!节目源状态 Else Me.cob_Q_Fields(0).text = ""
''    If IsNull(Rs_outCR!印刷内圈) = False Then Me.cob_Q_Fields(2).text = Rs_outCR!印刷内圈 Else Me.cob_Q_Fields(2).text = ""
'    If IsNull(Rs_OutCR!菲林状态) = False Then Me.cob_Q_Fields(1).text = Rs_OutCR!菲林状态 Else Me.cob_Q_Fields(1).text = ""
''    If IsNull(Rs_outCR!特殊防尘垫要求) = False Then Me.txt_Q_Fields(1).text = Rs_outCR!特殊防尘垫要求 Else Me.txt_Q_Fields(1).text = ""
''    If IsNull(Rs_outCR!特殊箱唛标识) = False Then Me.txt_Q_Fields(2).text = Rs_outCR!特殊箱唛标识 Else Me.txt_Q_Fields(2).text = ""
'    If IsNull(Rs_OutCR!库位号) = False Then Me.txt_Q_Fields(1).text = Rs_OutCR!库位号 Else Me.txt_Q_Fields(1).text = ""
'    If IsNull(Rs_OutCR!备注) = False Then Me.txt_Q_Fields(2).text = Rs_OutCR!备注 Else Me.txt_Q_Fields(2).text = ""
'    '生产部录入部分
'    If IsNull(Rs_OutCR!印刷机号) = False Then Me.cob_S_Fields(0).text = Rs_OutCR!印刷机号 Else Me.cob_S_Fields(0).text = ""
'    If IsNull(Rs_OutCR!版状态) = False Then Me.cob_S_Fields(1).text = Rs_OutCR!版状态 Else Me.cob_S_Fields(1).text = ""
'    If IsNull(Rs_OutCR!专色油墨) = False Then Me.cob_S_Fields(2).text = Rs_OutCR!专色油墨 Else Me.cob_S_Fields(2).text = ""
'    If IsNull(Rs_OutCR!颜色样本) = False Then Me.cob_S_Fields(3).text = Rs_OutCR!颜色样本 Else Me.cob_S_Fields(3).text = ""
'    If IsNull(Rs_OutCR!不良率) = False And Rs_OutCR!不良率 <> "" Then Me.Mask_S_Fields(0).text = Rs_OutCR!不良率 Else Me.Mask_S_Fields(0).text = "00.00%"
'    If IsNull(Rs_OutCR!剩余良品数) = False Then Me.Mask_S_Fields(1).text = Rs_OutCR!剩余良品数 Else Me.Mask_S_Fields(1).text = 0
'    If IsNull(Rs_OutCR!小于3000) = False Then Me.Mask_S_Fields(2).text = Rs_OutCR!小于3000 Else Me.Mask_S_Fields(2).text = 0
'    '如果是单击修改时
'    If YN_Customer_Riches_Add = False And YN_Customer_Riches_Repair = True And YN_Customer_Riches_View = False Then
'      If OperatorDepartment = "营销部" Then
'        M_Repair_Information = False
'        M_Repair_QualityLevel = False
'        M_Repair_CopyRequest = False
'        M_Repair_QualityRequest = False
'        M_Repair_LiaoHao = False
'        M_Repair_ArtName = False
'        M_Repair_StemperNumber = False
'        M_Repair_ArtFuntainKind = False
'        M_Repair_ArtKind = False
'        M_Repair_StemperLetteringRequest = False
'        M_Repair_ChiselSpeed = False
'        M_Repair_StemperInHold = False
'        M_Repair_FeilinIndex = False
'        M_Repair_PressConsult = False
'        M_Repair_PressMode = False
'        M_Repair_PressColor = False
'        M_Repair_YNLeakArgent = False
'        M_Repair_PressRequest = False
'        M_Repair_PackRequest = False
'        M_Repair_PackMode = False
'        M_Repair_Press_In_Hold = False
'      ElseIf OperatorDepartment = "品质部-IQC" Then
'        Q_Repair_Stemper_Amount = False
'        Q_Repair_Art_Fountain_State = False
''        Q_Repair_Press_In_Hold = False
'        Q_Repair_Feilin_State = False
'        Q_Repair_Special_Dustproofmat_Request = False
'        Q_Repair_Special_Boxsign_Id = False
'        Q_Repair_Store_Code = False
'        Q_Repair_Memo = False
'      ElseIf OperatorDepartment = "生产部-统计" Then
'        S_Repair_Press_Machine_code = False
'        S_Repair_Edition_State = False
'        S_Repair_Expert_Color_ink = False
'        S_Repair_Color_Stylebook = False
'        S_Repair_Badness_Rate = False
'        S_Repair_Remain_Good_Count = False
'        S_Repair_3000 = False
'      End If
'    End If
    
Exit Sub
err:
   MsgBox err.Description, vbCritical
End Sub

Private Sub Max_InCode()
On Error GoTo err
    '求最大内编码
    Set Cn = New ADODB.Connection
    Cn.Open Cs
    Set Rs = New ADODB.Recordset
    Rs.Open "select 内编码 from OutCustomer_Riches where 内编码 like '%' +  '" & Left(AreaCustomer_Key, 5) & "'+'%' order by 内编码", Cn, adOpenKeyset, adLockOptimistic, adCmdText
    If Rs.RecordCount > 0 Then '对地区代码/地区名/客户代码/赋值
      Rs.MoveLast
      Me.txt_M_Fields(6).text = Left(Rs!内编码, 5) & Format(Val(Right(Left(Rs!内编码, 9), 4)) + 1, "0000")
    Else
      Me.txt_M_Fields(6).text = AreaCustomer_Key & "0001"
    End If
    Rs.Close
    Cn.Close
Exit Sub
err:
   MsgBox err.Description, vbCritical
End Sub

Private Sub Record_Move()
On Error GoTo err
    '如果是单击添加时
    If YN_Customer_Riches_Add = True And YN_Customer_Riches_Repair = False And YN_Customer_Riches_View = False Then
      If OperatorDepartment = "营销部" Then
        Me.Frame1.Enabled = False
        Me.Frame2.Enabled = False
        Me.Frame3.Enabled = False
        Me.Toolbar1.Buttons(7).Enabled = False
        Me.Toolbar1.Buttons(8).Enabled = False
      ElseIf OperatorDepartment = "品质部-IQC" Then
        Me.Frame1.Enabled = False
        Me.Frame2.Enabled = True
        Me.Frame3.Enabled = False
        Me.Toolbar1.Buttons(6).Enabled = False
        Me.Toolbar1.Buttons(8).Enabled = False
        If IsNull(Rs_OutCR!印刷内圈) = True Then Me.Toolbar1.Buttons(7).Enabled = True Else Me.Toolbar1.Buttons(7).Enabled = False
      ElseIf OperatorDepartment = "生产部-统计" Then
        Me.Frame1.Enabled = False
        Me.Frame2.Enabled = False
        Me.Frame3.Enabled = True
        Me.Toolbar1.Buttons(6).Enabled = False
        Me.Toolbar1.Buttons(8).Enabled = False
        If IsNull(Rs_OutCR!印刷机号) = True And IsNull(Rs_OutCR!版状态) = True And IsNull(Rs_OutCR!专色油墨) = True And IsNull(Rs_OutCR!颜色样本) = True And IsNull(Rs_OutCR!不良率) = True And IsNull(Rs_OutCR!剩余良品数) = True Then Me.Toolbar1.Buttons(7).Enabled = True Else Me.Toolbar1.Buttons(7).Enabled = False
      End If
    End If
    '如果是单击修改时
    If YN_Customer_Riches_Add = False And YN_Customer_Riches_Repair = True And YN_Customer_Riches_View = False Then
      If OperatorDepartment = "营销部" Then
        M_Repair_Information = False
        M_Repair_QualityLevel = False
        M_Repair_CopyRequest = False
        M_Repair_QualityRequest = False
        M_Repair_LiaoHao = False
        M_Repair_ArtName = False
        M_Repair_StemperNumber = False
        M_Repair_ArtFuntainKind = False
        M_Repair_ArtKind = False
        M_Repair_StemperLetteringRequest = False
        M_Repair_ChiselSpeed = False
        M_Repair_StemperInHold = False
        M_Repair_FeilinIndex = False
        M_Repair_PressConsult = False
        M_Repair_PressMode = False
        M_Repair_PressColor = False
        M_Repair_YNLeakArgent = False
        M_Repair_PressRequest = False
        M_Repair_PackRequest = False
        M_Repair_PackMode = False
        M_Repair_Press_In_Hold = False
      ElseIf OperatorDepartment = "品质部-IQC" Then
        Q_Repair_Stemper_Amount = False
        Q_Repair_Art_Fountain_State = False
'        Q_Repair_Press_In_Hold = False
        Q_Repair_Feilin_State = False
        Q_Repair_Special_Dustproofmat_Request = False
        Q_Repair_Special_Boxsign_Id = False
        Q_Repair_Store_Code = False
        Q_Repair_Memo = False
      ElseIf OperatorDepartment = "生产部-统计" Then
        S_Repair_Press_Machine_code = False
        S_Repair_Edition_State = False
        S_Repair_Expert_Color_ink = False
        S_Repair_Color_Stylebook = False
        S_Repair_Badness_Rate = False
        S_Repair_Remain_Good_Count = False
        S_Repair_3000 = False
      End If
    End If
    
Exit Sub
err:
   MsgBox err.Description, vbCritical
End Sub
'
'Private Sub cob_M_Fields_Change(Index As Integer)
'On Error GoTo err
'  If YN_Customer_Riches_Add = False And YN_Customer_Riches_Repair = True And YN_Customer_Riches_View = False Then
'    Select Case Index
'        Case 0 '信息完整
'          M_Repair_Information = True
'        Case 1 '质量等级
'          M_Repair_QualityLevel = True
'        Case 2 '节目源种类
'          M_Repair_ArtFuntainKind = True
'        Case 3 '节目种类
'          M_Repair_ArtKind = True
'        Case 4 '刻录速度
'          M_Repair_ChiselSpeed = True
'        Case 5 '母盘内孔
'          M_Repair_StemperInHold = True
'        Case 6 '印刷参照
'          M_Repair_PressConsult = True
'        Case 7 '印刷方式
'          M_Repair_PressMode = True
'        Case 8 '印刷颜色
'          M_Repair_PressColor = True
'        Case 9 '委托书编码
'          M_Repair_YNLeakArgent = True
'        Case 10 '包装方式
'          M_Repair_PackMode = True
'        Case 11 '印刷内圈
'          M_Repair_Press_In_Hold = True
'    End Select
'  End If
'
'Exit Sub
'err:
'    MsgBox err.Description, vbCritical
'End Sub

'Private Sub cob_M_Fields_Click(Index As Integer)
'On Error GoTo err
'  If YN_Customer_Riches_Add = False And YN_Customer_Riches_Repair = True And YN_Customer_Riches_View = False Then cob_M_Fields_Change (Index)
'
'Exit Sub
'err:
'   MsgBox err.Description, vbCritical
'End Sub

Private Sub cob_M_Fields_KeyPress(Index As Integer, KeyAscii As Integer)
On Error GoTo err
  Call ENTER(KeyAscii)

Exit Sub
err:
   MsgBox err.Description, vbCritical
End Sub

Private Sub cob_Q_Fields_Change(Index As Integer)
'On Error GoTo err
'  If YN_Customer_Riches_Add = False And YN_Customer_Riches_Repair = True And YN_Customer_Riches_View = False Then
'    Select Case Index
'        Case 0 '节目源状态
'          Q_Repair_Art_Fountain_State = True
'        Case 1 '菲林状态
'          Q_Repair_Feilin_State = True
''        Case 2 '印刷内圈
''          Q_Repair_Press_In_Hold = True
'    End Select
'  End If
'
'Exit Sub
'err:
'    MsgBox err.Description, vbCritical
End Sub

Private Sub cob_Q_Fields_Click(Index As Integer)
On Error GoTo err
   If YN_Customer_Riches_Add = False And YN_Customer_Riches_Repair = True And YN_Customer_Riches_View = False Then cob_Q_Fields_Change (Index)
Exit Sub
err:
   MsgBox err.Description, vbCritical
End Sub

Private Sub cob_Q_Fields_KeyPress(Index As Integer, KeyAscii As Integer)
On Error GoTo err
  Call ENTER(KeyAscii)
Exit Sub
err:
   MsgBox err.Description, vbCritical
End Sub

Private Sub cob_S_Fields_Change(Index As Integer)
'On Error GoTo err
'  If YN_Customer_Riches_Add = False And YN_Customer_Riches_Repair = True And YN_Customer_Riches_View = False Then
'    Select Case Index
'        Case 0 '印刷机号
'          S_Repair_Press_Machine_code = True
'        Case 1 '版状态
'          S_Repair_Edition_State = True
'        Case 2 '专色油墨
'          S_Repair_Expert_Color_ink = True
'        Case 3 '颜色样本
'          S_Repair_Color_Stylebook = True
'    End Select
'  End If
'
'Exit Sub
'err:
'    MsgBox err.Description, vbCritical
End Sub

Private Sub cob_S_Fields_Click(Index As Integer)
On Error GoTo err
    If YN_Customer_Riches_Add = False And YN_Customer_Riches_Repair = True And YN_Customer_Riches_View = False Then cob_S_Fields_Change (Index)
Exit Sub
err:
   MsgBox err.Description, vbCritical
End Sub

Private Sub cob_S_Fields_KeyPress(Index As Integer, KeyAscii As Integer)
On Error GoTo err
  Call ENTER(KeyAscii)
Exit Sub