frm_stemperspecbill_addart_view.frm

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

         TabIndex        =   6
         Top             =   540
         Width           =   1575
         _ExtentX        =   2778
         _ExtentY        =   529
         _Version        =   393216
         MaxLength       =   6
         Mask            =   "##.##%"
         PromptChar      =   " "
      End
      Begin MSMask.MaskEdBox Mask_S_Fields 
         Height          =   300
         Index           =   2
         Left            =   9120
         TabIndex        =   78
         Top             =   540
         Width           =   1575
         _ExtentX        =   2778
         _ExtentY        =   529
         _Version        =   393216
         Format          =   "#,##0"
         PromptChar      =   "_"
      End
      Begin VB.Label Label7 
         AutoSize        =   -1  'True
         Caption         =   "小于3000片"
         Height          =   180
         Left            =   8160
         TabIndex        =   79
         Top             =   600
         Width           =   900
      End
      Begin VB.Label Label1 
         AutoSize        =   -1  'True
         Caption         =   "印刷机号"
         Height          =   180
         Index           =   28
         Left            =   405
         TabIndex        =   12
         Top             =   240
         Width           =   720
      End
      Begin VB.Label Label1 
         AutoSize        =   -1  'True
         Caption         =   "版状态"
         Height          =   180
         Index           =   29
         Left            =   585
         TabIndex        =   11
         Top             =   600
         Width           =   540
      End
      Begin VB.Label Label1 
         AutoSize        =   -1  'True
         Caption         =   "专色油墨"
         Height          =   180
         Index           =   30
         Left            =   405
         TabIndex        =   10
         Top             =   960
         Width           =   720
      End
      Begin VB.Label Label1 
         AutoSize        =   -1  'True
         Caption         =   "颜色样本"
         Height          =   180
         Index           =   31
         Left            =   5640
         TabIndex        =   9
         Top             =   240
         Width           =   720
      End
      Begin VB.Label Label1 
         AutoSize        =   -1  'True
         Caption         =   "不良率"
         Height          =   180
         Index           =   35
         Left            =   5865
         TabIndex        =   8
         Top             =   600
         Width           =   540
      End
      Begin VB.Label Label1 
         AutoSize        =   -1  'True
         Caption         =   "剩余良品数"
         Height          =   180
         Index           =   32
         Left            =   5505
         TabIndex        =   7
         Top             =   960
         Width           =   900
      End
   End
End
Attribute VB_Name = "Frm_StemperSpecBill_AddArt_View"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False

Public Sub Area_Customer_Info()
On Error GoTo err

    Set Cn_Area = New ADODB.Connection
    Cn_Area.Open Cs
    Set Rs_Area = New ADODB.Recordset
    Rs_Area.Open "select * from Area_Customer where 客户编码 ='" & Left(AreaCustomer_Key, 5) & "'order by 地区编码,客户编码", Cn_Area, adOpenKeyset, adLockOptimistic, adCmdText
    If Rs_Area.RecordCount <> 0 Then
      If IsNull(Rs_Area!地区编码) = False Then Me.txt_M_Fields(0).text = Rs_Area!地区编码
      If IsNull(Rs_Area!地区名称) = False Then Me.txt_M_Fields(1).text = Rs_Area!地区名称
      If IsNull(Rs_Area!客户编码) = False Then Me.txt_M_Fields(2).text = Rs_Area!客户编码
      If IsNull(Rs_Area!客户名称) = False Then Me.txt_M_Fields(3).text = Rs_Area!客户名称
    End If
    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

Public Sub Customer_Riches_info()
On Error GoTo err
    '营销部录入部份
    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(2).text = Rs_CR!印刷内圈 Else Me.cob_Q_Fields(2).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.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
Exit Sub
err:
   MsgBox err.Description, vbCritical
End Sub

Public Sub Record_Move()
On Error GoTo err

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

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

    'GP要求
    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(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
    Me.Frame1.Enabled = False
    Me.Frame2.Enabled = False
    Me.Frame3.Enabled = False
    Call Area_Customer_Info
    Call Customer_Riches_info

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
             Call Area_Customer_Info
             Call Customer_Riches_info
           End If
           '如果是单击添加时
           Call Record_Move
         Case 3 '单击后一条
           Rs_CR.MoveNext
           If Not Rs_CR.EOF Then
             Call Area_Customer_Info
             Call Customer_Riches_info
           Else
             Rs_CR.MoveLast
             Call Area_Customer_Info
             Call Customer_Riches_info
           End If
           '如果是单击添加时
           Call Record_Move
         Case 4 '单击最后
           If Not Rs_CR.EOF Then
             Rs_CR.MoveLast
             Call Area_Customer_Info
             Call Customer_Riches_info
           End If
           '如果是单击添加时
           Call Record_Move
         Case 6 '单击添加到规格单
           Load Frm_StemperSpecBill_AddArt_Affirm
           Frm_StemperSpecBill_AddArt_Affirm.Show vbModal
         Case 7 '单击退出
            Unload Me
   End Select
   
Exit Sub
err:
   MsgBox err.Description, vbCritical
End Sub