📄 frm_outcustomer_riches_edit.frm

📁 一个公司的客户财产管理系统vb源码
💻 FRM
📖 第 1 页 / 共 5 页
字号:
上一页 1 2 3 45
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 "无要求"
    '母盘内孔
    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 "异常"
    '印刷参照
    Me.cob_M_Fields(6).AddItem "纸样"
    Me.cob_M_Fields(6).AddItem "样碟"
    Me.cob_M_Fields(6).AddItem "图档"
    Me.cob_M_Fields(6).AddItem "见菲林"
    Me.cob_M_Fields(6).AddItem "无"
    '印刷方式
    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_OutCR.BOF And Not Rs_OutCR.EOF Then
'        '营销部录入部份
'        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.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 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
'      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_OutCR.BOF And Not Rs_OutCR.EOF Then
'        '营销部录入部份
'        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 = ""
'      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 = Fals
上一页 1 2 3 45
⌨️ 快捷键说明

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