📄 frm_customer_riches_edit.frm

📁 一个公司的客户财产管理系统vb源码
💻 FRM
📖 第 1 页 / 共 5 页
字号:
上一页 1 2 3 45
    Me.cob_M_Fields(5).AddItem "22"
    Me.cob_M_Fields(5).AddItem "34"
    
    '节目源状态
    Me.cob_Q_Fields(0).AddItem "正常"
    Me.cob_Q_Fields(0).AddItem "返客户"
    Me.cob_Q_Fields(0).AddItem "异常"
    
    '节目种类
    Set Cn_Common = New ADODB.Connection
    Cn_Common.Open Cs
    Set Rs_Common = New ADODB.Recordset
    Rs_Common.Open "select * from Press_confsi", 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(6).AddItem Rs_Common!印刷参照
        Rs_Common.MoveNext
      Next i
    End If
    Rs_Common.Close
    Cn_Common.Close
   '印刷方式
    Me.cob_M_Fields(7).AddItem "丝印"
    Me.cob_M_Fields(7).AddItem "胶印"
    Me.cob_M_Fields(7).AddItem "丝印+胶印"
    Me.cob_M_Fields(7).AddItem "待定"
    
    '印刷颜色
    Me.cob_M_Fields(8).AddItem "一"
    Me.cob_M_Fields(8).AddItem "二"
    Me.cob_M_Fields(8).AddItem "三"
    Me.cob_M_Fields(8).AddItem "四"
    Me.cob_M_Fields(8).AddItem "五"
    Me.cob_M_Fields(8).AddItem "六"
    Me.cob_M_Fields(8).AddItem "待定"
    '印刷内圈
    Me.cob_M_Fields(11).AddItem "A、小孔无环"
    Me.cob_M_Fields(11).AddItem "B、小孔有环"
    Me.cob_M_Fields(11).AddItem "C、大孔"
    Me.cob_M_Fields(11).AddItem "D、待定"
'    '委托书编码
'    Me.cob_M_Fields(9).AddItem "否"
'    Me.cob_M_Fields(9).AddItem "是"
    '菲林状态
    Me.cob_Q_Fields(1).AddItem "正常"
    Me.cob_Q_Fields(1).AddItem "异常"
    Me.cob_Q_Fields(1).AddItem "无"
    '印刷机号
    Me.cob_S_Fields(0).AddItem "1#"
    Me.cob_S_Fields(0).AddItem "2#"
    Me.cob_S_Fields(0).AddItem "3#"
    Me.cob_S_Fields(0).AddItem "4#"
    Me.cob_S_Fields(0).AddItem "5#"
    Me.cob_S_Fields(0).AddItem "6#"
    Me.cob_S_Fields(0).AddItem "7#"
    Me.cob_S_Fields(0).AddItem "8#"
    Me.cob_S_Fields(0).AddItem "9#"
    '版状态
    Me.cob_S_Fields(1).AddItem "有网版"
    Me.cob_S_Fields(1).AddItem "有PS版"
    Me.cob_S_Fields(1).AddItem "无"
    '专色油墨
    Me.cob_S_Fields(2).AddItem "有"
    Me.cob_S_Fields(2).AddItem "无"
    '颜色样本
    Me.cob_S_Fields(3).AddItem "有"
    Me.cob_S_Fields(3).AddItem "无"
'    '包装方式
    Set Cn_Common = New ADODB.Connection
    Cn_Common.Open Cs
    Set Rs_Common = New ADODB.Recordset
    Rs_Common.Open "select * from pack_type", 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(10).AddItem Rs_Common!包装方式
        Rs_Common.MoveNext
      Next i
    End If
    Rs_Common.Close
    Cn_Common.Close
  
  If OperatorDepartment = "品质部-IQC" Then
    Me.Toolbar1.Buttons(6).Enabled = False
    Me.Toolbar1.Buttons(8).Enabled = False
  ElseIf OperatorDepartment = "生产部-统计" Then
    Me.Toolbar1.Buttons(6).Enabled = False
    Me.Toolbar1.Buttons(8).Enabled = False
  End If
  For i = 0 To 13
     Me.txt_M_Fields(i).text = ""
  Next i
  For i = 0 To 11
     Me.cob_M_Fields(i).text = ""
  Next i
  For i = 0 To 2
     Me.txt_Q_Fields(i).text = ""
  Next i
  For i = 0 To 1
     Me.cob_Q_Fields(i).text = ""
  Next i
  For i = 0 To 3
    Me.cob_S_Fields(i).text = ""
  Next i
  Me.Mask_S_Fields(0).text = "00.00%"
  Me.Mask_S_Fields(1).text = 0
  Me.Mask_S_Fields(2).text = 0
  '################## 如果是添加 ################################
  If YN_Customer_Riches_Add = True And YN_Customer_Riches_Repair = False And YN_Customer_Riches_View = False Then
    '营销部添加
    If OperatorDepartment <> "品质部-IQC" And OperatorDepartment <> "生产部-统计" And OperatorDepartment = "营销部" Then
      Me.Frame1.Enabled = True
      Me.Frame2.Enabled = False
      Me.Frame3.Enabled = False
      For i = 0 To 13
        Me.txt_M_Fields(i).text = ""
      Next i
      For i = 0 To 11
        Me.cob_M_Fields(i).text = ""
      Next i
      For i = 0 To 2
        Me.txt_Q_Fields(i).text = ""
      Next i
      For i = 0 To 1
        Me.cob_Q_Fields(i).text = ""
      Next i
      For i = 0 To 3
        Me.cob_S_Fields(i).text = ""
      Next i
      Me.Mask_S_Fields(0).text = "00.00%"
      Me.Mask_S_Fields(1).text = 0
      Me.Mask_S_Fields(2).text = 0
      Call Area_Customer_Info
      Call Max_InCode
    End If
    
    '品质部添加
    If OperatorDepartment = "品质部-IQC" And OperatorDepartment <> "生产部-统计" And OperatorDepartment <> "营销部" Then
      Me.Frame1.Enabled = False
      Me.Frame2.Enabled = True
      Me.Frame3.Enabled = False
      For i = 0 To 2
        Me.txt_Q_Fields(i).text = ""
      Next i
      For i = 0 To 1
        Me.cob_Q_Fields(i).text = ""
      Next i
      Call Area_Customer_Info
      If Not Rs_CR.BOF And Not Rs_CR.EOF Then
        '营销部录入部份
        If IsNull(Rs_CR!信息完整) = False Then Me.cob_M_Fields(0).text = Rs_CR!信息完整 Else Me.cob_M_Fields(0).text = ""
        If IsNull(Rs_CR!质量等级) = False Then Me.cob_M_Fields(1).text = Rs_CR!质量等级 Else Me.cob_M_Fields(1).text = ""
        If IsNull(Rs_CR!复制要求) = False Then Me.txt_M_Fields(4).text = Rs_CR!复制要求 Else Me.txt_M_Fields(4).text = ""
        If IsNull(Rs_CR!品质要求) = False Then Me.txt_M_Fields(5).text = Rs_CR!品质要求 Else Me.txt_M_Fields(5).text = ""
        If IsNull(Rs_CR!内编码) = False Then Me.txt_M_Fields(6).text = Rs_CR!内编码 Else Me.txt_M_Fields(6).text = ""
        If IsNull(Rs_CR!料号) = False Then Me.txt_M_Fields(13).text = Rs_CR!料号 Else Me.txt_M_Fields(13).text = ""
        If IsNull(Rs_CR!节目名称) = False Then Me.txt_M_Fields(7).text = Rs_CR!节目名称 Else Me.txt_M_Fields(7).text = ""
        If IsNull(Rs_CR!母盘号码) = False Then Me.txt_M_Fields(8).text = Rs_CR!母盘号码 Else Me.txt_M_Fields(8).text = ""
        If IsNull(Rs_CR!节目源种类) = False Then Me.cob_M_Fields(2).text = Rs_CR!节目源种类 Else Me.cob_M_Fields(2).text = ""
        If IsNull(Rs_CR!节目种类) = False Then Me.cob_M_Fields(3).text = Rs_CR!节目种类 Else Me.cob_M_Fields(3).text = ""
        If IsNull(Rs_CR!母盘刻字要求) = False Then Me.txt_M_Fields(9).text = Rs_CR!母盘刻字要求 Else Me.txt_M_Fields(9).text = ""
        If IsNull(Rs_CR!刻录速度) = False Then Me.cob_M_Fields(4).text = Rs_CR!刻录速度 Else Me.cob_M_Fields(4).text = ""
        If IsNull(Rs_CR!母盘内孔) = False Then Me.cob_M_Fields(5).text = Rs_CR!母盘内孔 Else Me.cob_M_Fields(5).text = ""
        If IsNull(Rs_CR!菲林索引) = False Then Me.txt_M_Fields(10).text = Rs_CR!菲林索引 Else Me.txt_M_Fields(10).text = ""
        If IsNull(Rs_CR!印刷参照) = False Then Me.cob_M_Fields(6).text = Rs_CR!印刷参照 Else Me.cob_M_Fields(6).text = ""
        If IsNull(Rs_CR!印刷方式) = False Then Me.cob_M_Fields(7).text = Rs_CR!印刷方式 Else Me.cob_M_Fields(7).text = ""
        If IsNull(Rs_CR!印刷颜色) = False Then Me.cob_M_Fields(8).text = Rs_CR!印刷颜色 Else Me.cob_M_Fields(8).text = ""
        If IsNull(Rs_CR!委托书编码) = False Then Me.cob_M_Fields(9).text = Rs_CR!委托书编码 Else Me.cob_M_Fields(9).text = ""
        If IsNull(Rs_CR!印刷要求) = False Then Me.txt_M_Fields(11).text = Rs_CR!印刷要求 Else Me.txt_M_Fields(11).text = ""
        If IsNull(Rs_CR!包装要求) = False Then Me.txt_M_Fields(12).text = Rs_CR!包装要求 Else Me.txt_M_Fields(12).text = ""
        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.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 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
      End If
    End If
    
    '生产部添加
    If OperatorDepartment <> "品质部-IQC" And OperatorDepartment = "生产部-统计" And OperatorDepartment <> "营销部" Then
      Me.Frame1.Enabled = False
      Me.Frame2.Enabled = False
      Me.Frame3.Enabled = True
      For i = 0 To 3
        Me.cob_S_Fields(i).text = ""
      Next i
      Me.Mask_S_Fields(0).text = "00.00%"
      Me.Mask_S_Fields(1).text = 0
      Me.Mask_S_Fields(2).text = 0
      Call Area_Customer_Info
      If Not Rs_CR.BOF And Not Rs_CR.EOF Then
        '营销部录入部份
        If IsNull(Rs_CR!信息完整) = False Then Me.cob_M_Fields(0).text = Rs_CR!信息完整 Else Me.cob_M_Fields(0).text = ""
        If IsNull(Rs_CR!质量等级) = False Then Me.cob_M_Fields(1).text = Rs_CR!质量等级 Else Me.cob_M_Fields(1).text = ""
        If IsNull(Rs_CR!复制要求) = False Then Me.txt_M_Fields(4).text = Rs_CR!复制要求 Else Me.txt_M_Fields(4).text = ""
        If IsNull(Rs_CR!品质要求) = False Then Me.txt_M_Fields(5).text = Rs_CR!品质要求 Else Me.txt_M_Fields(5).text = ""
        If IsNull(Rs_CR!内编码) = False Then Me.txt_M_Fields(6).text = Rs_CR!内编码 Else Me.txt_M_Fields(6).text = ""
        If IsNull(Rs_CR!料号) = False Then Me.txt_M_Fields(13).text = Rs_CR!料号 Else Me.txt_M_Fields(13).text = ""
        If IsNull(Rs_CR!节目名称) = False Then Me.txt_M_Fields(7).text = Rs_CR!节目名称 Else Me.txt_M_Fields(7).text = ""
        If IsNull(Rs_CR!母盘号码) = False Then Me.txt_M_Fields(8).text = Rs_CR!母盘号码 Else Me.txt_M_Fields(8).text = ""
        If IsNull(Rs_CR!节目源种类) = False Then Me.cob_M_Fields(2).text = Rs_CR!节目源种类 Else Me.cob_M_Fields(2).text = ""
        If IsNull(Rs_CR!节目种类) = False Then Me.cob_M_Fields(3).text = Rs_CR!节目种类 Else Me.cob_M_Fields(3).text = ""
        If IsNull(Rs_CR!母盘刻字要求) = False Then Me.txt_M_Fields(9).text = Rs_CR!母盘刻字要求 Else Me.txt_M_Fields(9).text = ""
        If IsNull(Rs_CR!刻录速度) = False Then Me.cob_M_Fields(4).text = Rs_CR!刻录速度 Else Me.cob_M_Fields(4).text = ""
        If IsNull(Rs_CR!母盘内孔) = False Then Me.cob_M_Fields(5).text = Rs_CR!母盘内孔 Else Me.cob_M_Fields(5).text = ""
        If IsNull(Rs_CR!菲林索引) = False Then Me.txt_M_Fields(10).text = Rs_CR!菲林索引 Else Me.txt_M_Fields(10).text = ""
        If IsNull(Rs_CR!印刷参照) = False Then Me.cob_M_Fields(6).text = Rs_CR!印刷参照 Else Me.cob_M_Fields(6).text = ""
        If IsNull(Rs_CR!印刷方式) = False Then Me.cob_M_Fields(7).text = Rs_CR!印刷方式 Else Me.cob_M_Fields(7).text = ""
        If IsNull(Rs_CR!印刷颜色) = False Then Me.cob_M_Fields(8).text = Rs_CR!印刷颜色 Else Me.cob_M_Fields(8).text = ""
        If IsNull(Rs_CR!委托书编码) = False Then Me.cob_M_Fields(9).text = Rs_CR!委托书编码 Else Me.cob_M_Fields(9).text = ""
        If IsNull(Rs_CR!印刷要求) = False Then Me.txt_M_Fields(11).text = Rs_CR!印刷要求 Else Me.txt_M_Fields(11).text = ""
        If IsNull(Rs_CR!包装要求) = False Then Me.txt_M_Fields(12).text = Rs_CR!包装要求 Else Me.txt_M_Fields(12).text = ""
        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 = ""
      End If
    End If
  
  '################### 如果是修改 ###############################
  ElseIf YN_Customer_Riches_Add = False And YN_Customer_Riches_Repair = True And YN_Customer_Riches_View = False Then
    '营销部修改
    If OperatorDepartment <> "品质部-IQC" And OperatorDepartment <> "生产部-统计" And OperatorDepartment = "营销部" Then
      Me.Frame1.Enabled = True
      Me.Frame2.Enabled = False
      Me.Frame3.Enabled = False
      Me.Toolbar1.Buttons(6).Enabled = False
      Me.Toolbar1.Buttons(8).Enabled = False
      Call Area_Customer_Info
      Call Customer_Riches_info
    End If
    
    '品质部修改
    If OperatorDepartment = "品质部-IQC" And OperatorDepartment <> "生产部-统计" And OperatorDepartment <> "营销部" Then
      Me.Frame1.Enabled = False
      Me.Frame2.Enabled = True
      Me.Frame3.Enabled = False
      Me.Toolbar1.Buttons(8).Enabled = False
      Call Area_Customer_Info
      Call Customer_Riches_info
      
    End If
    
    '生产部修改
    If OperatorDepartment <> "品质部-IQC" And OperatorDepartment = "生产部-统计" And OperatorDepartment <> "营销部" Then
      Me.Frame1.Enabled = False
      Me.Frame2.Enabled = False
      Me.Frame3.Enabled = True
      Me.Toolbar1.Buttons(8).Enabled = False
      Call Area_Customer_Info
      Call Customer_Riches_info
      
    End If
    
  '################## 如果是查看 ################################
  ElseIf YN_Customer_Riches_Add = False And YN_Customer_Riches_Repair = False And YN_Customer_Riches_View = True Then
    Me.Frame1.Enabled = False
    Me.Frame2.Enabled = False
    Me.Frame3.Enabled = False
    Me.Toolbar1.Buttons(6).Enabled = False
    Me.Toolbar1.Buttons(7).Enabled = False
    Me.Toolbar1.Buttons(8).Enabled = False
    Call Area_Customer_Info
    Call Customer_Riches_info

  End If

Exit Sub
err:
   MsgBox err.Description, vbCritical

End Sub

Private Sub Mask_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_Badness_Rate = True
        Case 1 '剩余良品数量
          S_Repair_Remain_Good_Count = True
        Case 2 '小于3000
          S_Repair_3000 = True
    End Select
  End If
  
Exit Sub
err:
    MsgBox err.Description, vbCritical
End Sub

Private Sub Mask_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 Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
'On Error GoTo err

   Select Case Button.Index
         Case 1 '单击最前
           If Not Rs_CR.BOF Then
            Rs_CR.MoveFirst
            Call Area_Customer_Info
            Call Customer_Riches_info
           End If
           '如果是单击添加时
           Call Record_Move
         Case 2 '单击前一条
           Rs_CR.MovePrevious
           If Not Rs_CR.BOF Then
             Call Area_Customer_Info
             Call Customer_Riches_info
           Else
             Rs_CR.MoveFirst
上一页 1 2 3 45
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -