frm_outstemperspecbill_view.frm

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

On Error GoTo err
    '节目下单时其他要求
    If IsNull(Rs_OutStemperSpecBill!规格单号) = False Then Me.txt_Fields(0).text = Rs_OutStemperSpecBill!规格单号 Else Me.txt_Fields(0).text = ""
    If IsNull(Rs_OutStemperSpecBill!客户名称) = False Then Me.txt_Fields(1).text = Rs_OutStemperSpecBill!客户名称 Else Me.txt_Fields(1).text = ""
    If IsNull(Rs_OutStemperSpecBill!订单种类) = False Then Me.txt_Fields(2).text = Rs_OutStemperSpecBill!订单种类 Else Me.txt_Fields(2).text = ""
    If IsNull(Rs_OutStemperSpecBill!母盘归属) = False Then Me.txt_Fields(3).text = Rs_OutStemperSpecBill!母盘归属 Else Me.txt_Fields(3).text = ""
    If IsNull(Rs_OutStemperSpecBill!备注) = False Then Me.txt_Fields(4).text = Rs_OutStemperSpecBill!备注 Else Me.txt_Fields(4).text = ""
    If IsNull(Rs_OutStemperSpecBill!特殊要求) = False Then Me.txt_Fields(5).text = Rs_OutStemperSpecBill!特殊要求 Else Me.txt_Fields(5).text = ""
'    If IsNull(Rs_outStemperSpecBill!产品技术要求) = False Then Me.txt_Fields(6).text = Rs_outStemperSpecBill!产品技术要求
'    If IsNull(Rs_outStemperSpecBill!产品发货要求) = False Then Me.txt_Fields(7).text = Rs_outStemperSpecBill!产品发货要求
    If IsNull(Rs_OutStemperSpecBill!交货日期) = False Then Me.DTP1.Value = Rs_OutStemperSpecBill!交货日期
    If IsNull(Rs_OutStemperSpecBill!数量) = False Then Me.MaskEdBox1.text = Rs_OutStemperSpecBill!数量
    '营销部录入部份
    If IsNull(Rs_OutStemperSpecBill!信息完整) = False Then Me.cob_M_Fields(0).text = Rs_OutStemperSpecBill!信息完整 Else Me.cob_M_Fields(0).text = ""
    If IsNull(Rs_OutStemperSpecBill!质量等级) = False Then Me.cob_M_Fields(1).text = Rs_OutStemperSpecBill!质量等级 Else Me.cob_M_Fields(1).text = ""
    If IsNull(Rs_OutStemperSpecBill!复制要求) = False Then Me.txt_M_Fields(4).text = Rs_OutStemperSpecBill!复制要求 Else Me.txt_M_Fields(4).text = ""
    If IsNull(Rs_OutStemperSpecBill!品质要求) = False Then Me.txt_M_Fields(5).text = Rs_OutStemperSpecBill!品质要求 Else Me.txt_M_Fields(5).text = ""
    If IsNull(Rs_OutStemperSpecBill!内编码) = False Then Me.txt_M_Fields(6).text = Rs_OutStemperSpecBill!内编码 Else Me.txt_M_Fields(6).text = ""
    If IsNull(Rs_OutStemperSpecBill!料号) = False Then Me.txt_M_Fields(13).text = Rs_OutStemperSpecBill!料号 Else Me.txt_M_Fields(13).text = ""
    If IsNull(Rs_OutStemperSpecBill!节目名称) = False Then Me.txt_M_Fields(7).text = Rs_OutStemperSpecBill!节目名称 Else Me.txt_M_Fields(7).text = ""
    If IsNull(Rs_OutStemperSpecBill!母盘号码) = False Then Me.txt_M_Fields(8).text = Rs_OutStemperSpecBill!母盘号码 Else Me.txt_M_Fields(8).text = ""
    If IsNull(Rs_OutStemperSpecBill!节目源种类) = False Then Me.cob_M_Fields(2).text = Rs_OutStemperSpecBill!节目源种类 Else Me.cob_M_Fields(2).text = ""
    If IsNull(Rs_OutStemperSpecBill!节目种类) = False Then Me.cob_M_Fields(3).text = Rs_OutStemperSpecBill!节目种类 Else Me.cob_M_Fields(3).text = ""
    If IsNull(Rs_OutStemperSpecBill!母盘刻字要求) = False Then Me.txt_M_Fields(9).text = Rs_OutStemperSpecBill!母盘刻字要求 Else Me.txt_M_Fields(9).text = ""
    If IsNull(Rs_OutStemperSpecBill!刻录速度) = False Then Me.cob_M_Fields(4).text = Rs_OutStemperSpecBill!刻录速度 Else Me.cob_M_Fields(4).text = ""
    If IsNull(Rs_OutStemperSpecBill!母盘内孔) = False Then Me.cob_M_Fields(5).text = Rs_OutStemperSpecBill!母盘内孔 Else Me.cob_M_Fields(5).text = ""
    If IsNull(Rs_OutStemperSpecBill!菲林索引) = False Then Me.txt_M_Fields(10).text = Rs_OutStemperSpecBill!菲林索引 Else Me.txt_M_Fields(10).text = ""
    If IsNull(Rs_OutStemperSpecBill!印刷参照) = False Then Me.cob_M_Fields(6).text = Rs_OutStemperSpecBill!印刷参照 Else Me.cob_M_Fields(6).text = ""
    If IsNull(Rs_OutStemperSpecBill!印刷方式) = False Then Me.cob_M_Fields(7).text = Rs_OutStemperSpecBill!印刷方式 Else Me.cob_M_Fields(7).text = ""
    If IsNull(Rs_OutStemperSpecBill!印刷颜色) = False Then Me.cob_M_Fields(8).text = Rs_OutStemperSpecBill!印刷颜色 Else Me.cob_M_Fields(8).text = ""
    If IsNull(Rs_OutStemperSpecBill!委托书编码) = False Then Me.cob_M_Fields(9).text = Rs_OutStemperSpecBill!委托书编码 Else Me.cob_M_Fields(9).text = ""
    If IsNull(Rs_OutStemperSpecBill!印刷要求) = False Then Me.txt_M_Fields(11).text = Rs_OutStemperSpecBill!印刷要求 Else Me.txt_M_Fields(11).text = ""
    If IsNull(Rs_OutStemperSpecBill!包装要求) = False Then Me.txt_M_Fields(12).text = Rs_OutStemperSpecBill!包装要求 Else Me.txt_M_Fields(12).text = ""
    If IsNull(Rs_OutStemperSpecBill!包装方式) = False Then Me.cob_M_Fields(10).text = Rs_OutStemperSpecBill!包装方式 Else Me.cob_M_Fields(10).text = ""
    If IsNull(Rs_OutStemperSpecBill!印刷内圈) = False Then Me.cob_M_Fields(11).text = Rs_OutStemperSpecBill!印刷内圈 Else Me.cob_M_Fields(11).text = ""
'    '品质部录入部分
'    If IsNull(Rs_outStemperSpecBill!母盘数量) = False Then Me.txt_Q_Fields(0).text = Rs_outStemperSpecBill!母盘数量 Else Me.txt_Q_Fields(0).text = ""
'    If IsNull(Rs_outStemperSpecBill!节目源状态) = False Then Me.cob_Q_Fields(0).text = Rs_outStemperSpecBill!节目源状态 Else Me.cob_Q_Fields(0).text = ""
''    If IsNull(Rs_outStemperSpecBill!印刷内圈) = False Then Me.cob_Q_Fields(2).text = Rs_outStemperSpecBill!印刷内圈 Else Me.cob_Q_Fields(2).text = ""
'    If IsNull(Rs_outStemperSpecBill!菲林状态) = False Then Me.cob_Q_Fields(1).text = Rs_outStemperSpecBill!菲林状态 Else Me.cob_Q_Fields(1).text = ""
''    If IsNull(Rs_outStemperSpecBill!特殊防尘垫要求) = False Then Me.txt_Q_Fields(1).text = Rs_outStemperSpecBill!特殊防尘垫要求 Else Me.txt_Q_Fields(1).text = ""
''    If IsNull(Rs_outStemperSpecBill!特殊箱唛标识) = False Then Me.txt_Q_Fields(2).text = Rs_outStemperSpecBill!特殊箱唛标识 Else Me.txt_Q_Fields(2).text = ""
'    If IsNull(Rs_outStemperSpecBill!库位号) = False Then Me.txt_Q_Fields(1).text = Rs_outStemperSpecBill!库位号 Else Me.txt_Q_Fields(1).text = ""
'    If IsNull(Rs_outStemperSpecBill!财产备注) = False Then Me.txt_Q_Fields(2).text = Rs_outStemperSpecBill!财产备注 Else Me.txt_Q_Fields(2).text = ""
'    '生产部录入部分
'    If IsNull(Rs_outStemperSpecBill!印刷机号) = False Then Me.cob_S_Fields(0).text = Rs_outStemperSpecBill!印刷机号 Else Me.cob_S_Fields(0).text = ""
'    If IsNull(Rs_outStemperSpecBill!版状态) = False Then Me.cob_S_Fields(1).text = Rs_outStemperSpecBill!版状态 Else Me.cob_S_Fields(1).text = ""
'    If IsNull(Rs_outStemperSpecBill!专色油墨) = False Then Me.cob_S_Fields(2).text = Rs_outStemperSpecBill!专色油墨 Else Me.cob_S_Fields(2).text = ""
'    If IsNull(Rs_outStemperSpecBill!颜色样本) = False Then Me.cob_S_Fields(3).text = Rs_outStemperSpecBill!颜色样本 Else Me.cob_S_Fields(3).text = ""
'    If IsNull(Rs_outStemperSpecBill!不良率) = False And Rs_outStemperSpecBill!不良率 <> "" Then Me.Mask_S_Fields(0).text = Rs_outStemperSpecBill!不良率 Else Me.Mask_S_Fields(0).text = "00.00%"
'    If IsNull(Rs_outStemperSpecBill!剩余良品数) = False Then Me.Mask_S_Fields(1).text = Rs_outStemperSpecBill!剩余良品数 Else Me.Mask_S_Fields(1).text = 0
'    If IsNull(Rs_outStemperSpecBill!小于3000) = False Then Me.Mask_S_Fields(2).text = Rs_outStemperSpecBill!小于3000 Else Me.Mask_S_Fields(2).text = 0
Exit Sub
err:
   MsgBox err.Description, vbCritical
End Sub

Private Sub Record_Move()
On Error GoTo err

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

Private Sub Form_Load()
On Error GoTo err
  '初始化
  For i = 0 To 5
    Me.txt_Fields(i).text = ""
    Next
  Me.MaskEdBox1.text = ""
  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 Bln_SpecBillRepair = False And Bln_SpecBillView = True Then
    Me.Toolbar1.Buttons(10).Enabled = False
    Me.Frame1.Enabled = False
  End If
  Me.txt_Fields(0).Enabled = False
  Me.txt_Fields(1).Enabled = False
  Me.txt_Fields(2).Enabled = False
  Me.txt_Fields(3).Enabled = False
  If Bln_StemperSpecBillRepair = True And Bln_StemperSpecBillView = False Then
    Me.Frame1.Enabled = True
  ElseIf Bln_StemperSpecBillRepair = False And Bln_StemperSpecBillView = True Then
    Me.Frame1.Enabled = False
    Me.Toolbar1.Buttons(10).Enabled = False
  End If
  Me.Frame3.Enabled = False
  Me.Frame4.Enabled = False
  Me.Frame5.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 5 '单击最前
           If Not Rs_OutStemperSpecBill.BOF Then
            Rs_OutStemperSpecBill.MoveFirst
            Call Area_Customer_Info
            Call Customer_Riches_info
           End If
           '如果是单击添加时
           Call Record_Move
         Case 6 '单击前一条
           Rs_OutStemperSpecBill.MovePrevious
           If Not Rs_OutStemperSpecBill.BOF Then
             Call Area_Customer_Info
             Call Customer_Riches_info
           Else
             Rs_OutStemperSpecBill.MoveFirst
             Call Area_Customer_Info
             Call Customer_Riches_info
           End If
           '如果是单击添加时
           Call Record_Move
         Case 7 '单击后一条
           Rs_OutStemperSpecBill.MoveNext
           If Not Rs_OutStemperSpecBill.EOF Then
             Call Area_Customer_Info
             Call Customer_Riches_info
           Else
             Rs_OutStemperSpecBill.MoveLast
             Call Area_Customer_Info
             Call Customer_Riches_info
           End If
           '如果是单击添加时
           Call Record_Move
         Case 8 '单击最后
           If Not Rs_OutStemperSpecBill.EOF Then
             Rs_OutStemperSpecBill.MoveLast
             Call Area_Customer_Info
             Call Customer_Riches_info
           End If
           '如果是单击添加时
           Call Record_Move
         Case 10 '单击确认
            '保存信息节目下单时其他要求
           If Bln_StemperSpecBillRepair = True And Bln_StemperSpecBillView = False Then
             Rs_OutStemperSpecBill!订单种类 = Me.txt_Fields(2).text
             Rs_OutStemperSpecBill!母盘归属 = Me.txt_Fields(3).text
             Rs_OutStemperSpecBill!备注 = Me.txt_Fields(4).text
             Rs_OutStemperSpecBill!特殊要求 = Me.txt_Fields(5).text
'            Rs_outStemperSpecBill!产品技术要求 = Me.txt_Fields(6).text
'            Rs_outStemperSpecBill!产品发货要求 = Me.txt_Fields(7).text
             Rs_OutStemperSpecBill!交货日期 = Me.DTP1.Value
             Rs_OutStemperSpecBill!数量 = Val(Me.MaskEdBox1.text)
             Rs_OutStemperSpecBill.Update
'            Frm_Whole_SpecBill.TDBGrid_CusRiches.Close
'            If Rs_SpecBill.State = 1 Then Rs_SpecBill.Close
'            Rs_SpecBill.Open "select * from Spec_Bill  order by 规格单号,小号", Cn_SpecBill, adOpenKeyset, adLockOptimistic, adCmdText
'            If Rs_SpecBill.RecordCount <> 0 Then Rs_SpecBill.MoveLast
'            Set Me.TDBGrid_CusRiches.DataSource = Rs_SpecBill
             Call Frm_OutWholeStemperSpecBill.TDBGrid_Stemper_Width_Set
             MsgBox "数据修改成功！"
           End If
           Unload Me
         Case 11 '更新客户财产信息
            Set Cn_Common = New ADODB.Connection
            Cn_Common.Open Cs
            Set Rs_Common = New ADODB.Recordset
            Rs_Common.Open "select * from OutCustomer_Riches where 内编码 ='" & Rs_OutStemperSpecBill!内编码 & "'", Cn_Common, adOpenKeyset, adLockOptimistic, adCmdText
            If Rs_Common.RecordCount <> 0 Then
              If IsNull(Rs_Common!信息完整) = False Then
                Rs_OutStemperSpecBill!信息完整 = Rs_Common!信息完整
                Me.cob_M_Fields(0).text = Rs_Common!信息完整
              Else
                Rs_OutStemperSpecBill!信息完整 = ""
                Me.cob_M_Fields(0).text = ""
              End If
              
              If IsNull(Rs_Common!质量等级) = False Then
                Rs_OutStemperSpecBill!质量等级 = Rs_Common!质量等级
                Me.cob_M_Fields(1).text = Rs_Common!质量等级
              Else
                Rs_OutStemperSpecBill!质量等级 = ""
                Me.cob_M_Fields(1).text = ""
              End If
              
              If IsNull(Rs_Common!复制要求) = False Then
                Rs_OutStemperSpecBill!复制要求 = Rs_Common!复制要求
                Me.txt_M_Fields(4).text = Rs_Common!复制要求
              Else
                Rs_OutStemperSpecBill!复制要求 = ""
                Me.txt_M_Fields(4).text = ""
              End If
              
              If IsNull(Rs_Common!品质要求) = False Then
                Rs_OutStemperSpecBill!品质要求 = Rs_Common!品质要求
                Me.txt_M_Fields(5).text = Rs_Common!品质要求
              Else
                Rs_OutStemperSpecBill!品质要求 = ""
                Me.txt_M_Fields(5).text = ""
              End If
              
              If IsNull(Rs_Common!料号) = False Then
                Rs_OutStemperSpecBill!料号 = Rs_Common!料号
                Me.txt_M_Fields(13).text = Rs_Common!料号
              Else
                Rs_OutStemperSpecBill!料号 = ""
                Me.txt_M_Fields(13).text = ""
              End If
              
              If IsNull(Rs_Common!节目名称) = False Then
                Rs_OutStemperSpecBill!节目名称 = Rs_Common!节目名称
                Me.txt_M_Fields(7).text = Rs_Common!节目名称
              Else
                Rs_OutStemperSpecBill!节目名称 = ""
                Me.txt_M_Fields(7).text = ""
              End If
              
              If IsNull(Rs_Common!母盘号码) = False Then
                Rs_OutStemperSpecBill!母盘号码 = Rs_Common!母盘号码
                Me.txt_M_Fields(8).text = Rs_Common!母盘号码
              Else
                Rs_OutStemperSpecBill!母盘号码 = ""
                Me.txt_M_Fields(8).text = ""
              End If
              
              If IsNull(Rs_Common!节目源种类) = False Then
                Rs_OutStemperSpecBill!节目源种类 = Rs_Common!节目源种类
                Me.cob_M_Fields(2).text = Rs_Common!节目源种类
              Else
                Rs_OutStemperSpecBill!节目源种类 = ""
                Me.cob_M_Fields(2).text = ""
              End If
              
              If IsNull(Rs_Common!节目种类) = False Then
                Rs_OutStemperSpecBill!节目种类 = Rs_Common!节目种类
                Me.cob_M_Fields(3).text = Rs_Common!节目种类
              Else
                Rs_OutStemperSpecBill!节目种类 = ""
                Me.cob_M_Fields(3).text = ""
              End If
              
              If IsNull(Rs_Common!母盘刻字要求) = False Then
                Rs_OutStemperSpecBill!母盘刻字要求 = Rs_Common!母盘刻字要求
                 Me.txt_M_Fields(9).text = Rs_Common!母盘刻字要求
              Else
                Rs_OutStemperSpecBill!母盘刻字要求 = ""
                 Me.txt_M_Fields(9).text = ""
              End If
              
              If IsNull(Rs_Common!刻录速度) = False Then
                Rs_OutStemperSpecBill!刻录速度 = Rs_Common!刻录速度
                Me.cob_M_Fields(4).text = Rs_Common!刻录速度
              Else
                Rs_OutStemperSpecBill!刻录速度 = ""
                Me.cob_M_Fields(4).text = ""
              End If
              
              If IsNull(Rs_Common!母盘内孔) = False Then
                Rs_OutStemperSpecBill!母盘内孔 = Rs_Common!母盘内孔
                Me.cob_M_Fields(5).text = Rs_Common!母盘内孔
              Else
                Rs_OutStemperSpecBill!母盘内孔 = ""
                Me.cob_M_Fields(5).text = ""
              End If
              
              If IsNull(Rs_Common!菲林索引) = False Then
                Rs_OutStemperSpecBill!菲林索引 = Rs_Common!菲林索引
                Me.txt_M_Fields(10).text = Rs_Common!菲林索引
              Else
                Rs_OutStemperSpecBill!菲林索引 = ""
                Me.txt_M_Fields(10).text = ""
              End If
              
              If IsNull(Rs_Common!印刷参照) = False Then
                Rs_OutStemperSpecBill!印刷参照 = Rs_Common!印刷参照
                Me.cob_M_Fields(6).text = Rs_Common!印刷参照
              Else
                Rs_OutStemperSpecBill!印刷参照 = ""
                Me.cob_M_Fields(6).text = ""
              End If
              
              If IsNull(Rs_Common!印刷方式) = False Then
                Rs_OutStemperSpecBill!印刷方式 = Rs_Common!印刷方式
                Me.cob_M_Fields(7).text = Rs_Common!印刷方式
              Else
                Rs_OutStemperSpecBill!印刷方式 = ""
                Me.cob_M_Fields(7).text = ""
              End If
              
              If IsNull(Rs_Common!印刷颜色) = False Then
                Rs_OutStemperSpecBill!印刷颜色 = Rs_Common!印刷颜色
                Me.cob_M_Fields(8).text = Rs_Common!印刷颜色
              Else
                Rs_OutStemperSpecBill!印刷颜色 = ""
                Me.cob_M_Fields(8).text = ""
              End If
              
              If IsNull(Rs_Common!委托书编码) = False Then
                Rs_OutStemperSpecBill!委托书编码 = Rs_Common!委托书编码
                Me.cob_M_Fields(9).text = Rs_Common!委托书编码
              Else
                Rs_OutStemperSpecBill!委托书编码 = ""
                Me.cob_M_Fields(9).text = ""
              End If
                
              If IsNull(Rs_Common!印刷要求) = False Then
                Rs_OutStemperSpecBill!印刷要求 = Rs_Common!印刷要求
                Me.txt_M_Fields(11).text = Rs_Common!印刷要求
              Else
                Rs_OutStemperSpecBill!印刷要求 = ""
                Me.txt_M_Fields(11).text = ""
              End If
              
              If IsNull(Rs_Common!包装要求) = False Then
                Rs_OutStemperSpecBill!包装要求 = Rs_Common!包装要求
                Me.txt_M_Fields(12).text = Rs_Common!包装要求
              Else
                Rs_OutStemperSpecBill!包装要求 = ""
                Me.txt_M_Fields(12).text = ""
              End If
              
              If IsNull(Rs_Common!包装方式) = False Then
                Rs_OutStemperSpecBill!包装方式 = Rs_Common!包装方式
                Me.cob_M_Fields(10).text = Rs_Common!包装方式
              Else
                Rs_OutStemperSpecBill!包装方式 = ""
                Me.cob_M_Fields(10).text = ""
              End If
              
              If IsNull(Rs_Common!印刷内圈) = False Then
                Rs_OutStemperSpecBill!印刷内圈 = Rs_Common!印刷内圈
                Me.cob_M_Fields(11).text = Rs_Common!印刷内圈
              Else
                Rs_OutStemperSpecBill!印刷内圈 = ""
                Me.cob_M_Fields(11).text = ""
              End If
            End If
            Rs_Common.Close
            Cn_Common.Close
            Rs_OutStemperSpecBill.Update
            MsgBox "客户财产信息已经更新成功!"
         Case 12 '单击退出
            Unload Me
   End Select
Exit Sub
err:
   MsgBox err.Description, vbCritical
End Sub