frm_customer_riches_edit.frm

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

    If IsNull(Rs_CR!包装方式) = False Then Me.cob_M_Fields(10).text = Rs_CR!包装方式 Else Me.cob_M_Fields(10).text = ""
    If IsNull(Rs_CR!印刷内圈) = False Then Me.cob_M_Fields(11).text = Rs_CR!印刷内圈 Else Me.cob_M_Fields(11).text = ""
    '品质部录入部分
    If IsNull(Rs_CR!母盘数量) = False Then Me.txt_Q_Fields(0).text = Rs_CR!母盘数量 Else Me.txt_Q_Fields(0).text = ""
    If IsNull(Rs_CR!节目源状态) = False Then Me.cob_Q_Fields(0).text = Rs_CR!节目源状态 Else Me.cob_Q_Fields(0).text = ""
    If IsNull(Rs_CR!菲林状态) = False Then Me.cob_Q_Fields(1).text = Rs_CR!菲林状态 Else Me.cob_Q_Fields(1).text = ""
    If IsNull(Rs_CR!库位号) = False Then Me.txt_Q_Fields(1).text = Rs_CR!库位号 Else Me.txt_Q_Fields(1).text = ""
    If IsNull(Rs_CR!备注) = False Then Me.txt_Q_Fields(2).text = Rs_CR!备注 Else Me.txt_Q_Fields(2).text = ""
    '生产部录入部分
    If IsNull(Rs_CR!印刷机号) = False Then Me.cob_S_Fields(0).text = Rs_CR!印刷机号 Else Me.cob_S_Fields(0).text = ""
    If IsNull(Rs_CR!版状态) = False Then Me.cob_S_Fields(1).text = Rs_CR!版状态 Else Me.cob_S_Fields(1).text = ""
    If IsNull(Rs_CR!专色油墨) = False Then Me.cob_S_Fields(2).text = Rs_CR!专色油墨 Else Me.cob_S_Fields(2).text = ""
    If IsNull(Rs_CR!颜色样本) = False Then Me.cob_S_Fields(3).text = Rs_CR!颜色样本 Else Me.cob_S_Fields(3).text = ""
    If IsNull(Rs_CR!不良率) = False And Rs_CR!不良率 <> "" Then Me.Mask_S_Fields(0).text = Rs_CR!不良率 Else Me.Mask_S_Fields(0).text = "00.00%"
    If IsNull(Rs_CR!剩余良品数) = False Then Me.Mask_S_Fields(1).text = Rs_CR!剩余良品数 Else Me.Mask_S_Fields(1).text = 0
    If IsNull(Rs_CR!小于3000) = False Then Me.Mask_S_Fields(2).text = Rs_CR!小于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_CommissionNumber = 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_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 Customer_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_CR!印刷内圈) = 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_CR!印刷机号) = True And IsNull(Rs_CR!版状态) = True And IsNull(Rs_CR!专色油墨) = True And IsNull(Rs_CR!颜色样本) = True And IsNull(Rs_CR!不良率) = True And IsNull(Rs_CR!剩余良品数) = 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_CommissionNumber = 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_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_CommissionNumber = 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
    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
err:
   MsgBox err.Description, vbCritical
End Sub

Private Sub Form_Load()
On Error GoTo err
  '初始化

    '信息完整
    Me.cob_M_Fields(0).AddItem "是"
    Me.cob_M_Fields(0).AddItem "否"
'    Me.cob_M_Fields(0).AddItem "待定"
    '质量等级
    Me.cob_M_Fields(1).AddItem "特A级"
    Me.cob_M_Fields(1).AddItem "A级"
    Me.cob_M_Fields(1).AddItem "B级"
    Me.cob_M_Fields(1).AddItem "C级"
    Me.cob_M_Fields(1).AddItem "待定"
    '节目源种类
    Set Cn_Common = New ADODB.Connection
    Cn_Common.Open Cs
    Set Rs_Common = New ADODB.Recordset
    Rs_Common.Open "select * from Art_Fountain_Kind", Cn_Common, adOpenKeyset, adLockOptimistic, adCmdText
    If Rs_Common.RecordCount <> 0 Then
      Rs_Common.MoveFirst
      For i = 1 To Rs_Common.RecordCount
        Me.cob_M_Fields(2).AddItem Rs_Common!节目源种类
        Rs_Common.MoveNext
      Next i
    End If
    Rs_Common.Close
    Cn_Common.Close
    
    '节目种类
    Set Cn_Common = New ADODB.Connection
    Cn_Common.Open Cs
    Set Rs_Common = New ADODB.Recordset
    Rs_Common.Open "select * from Art_Kind", Cn_Common, adOpenKeyset, adLockOptimistic, adCmdText
    If Rs_Common.RecordCount <> 0 Then
      Rs_Common.MoveFirst
      For i = 1 To Rs_Common.RecordCount
        Me.cob_M_Fields(3).AddItem Rs_Common!节目种类
        Rs_Common.MoveNext
      Next i
    End If
    Rs_Common.Close
    Cn_Common.Close
    '刻录速度
    Me.cob_M_Fields(4).AddItem "1X"
    Me.cob_M_Fields(4).AddItem "2X"
    Me.cob_M_Fields(4).AddItem "4X"
    Me.cob_M_Fields(4).AddItem "6X"
    Me.cob_M_Fields(4).AddItem "8X"
    Me.cob_M_Fields(4).AddItem "无要求"
    '母盘内孔