frm_outcustomer_riches.frm

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

'        Rs.Open "select * from Customer_Riches where 内编码 like '%'+ '" & Left(AreaCustomer_Key, 5) & "'+'%' order by 内编码", Cn, adOpenKeyset, adLockOptimistic, adCmdText
'        If Rs.RecordCount > 0 Then '对地区代码/地区名/客户代码/赋值
'          Rs.MoveFirst
'          Do While Rs.EOF = False
'            Rs.Delete
'            Rs.Update
'            Rs.MoveNext
'          Loop
'        End If
'        Rs.Close
'        Cn.Close
'
'        '将地区客户表删除
'        Set Cn = New ADODB.Connection
'        Cn.Open Cs
'        Set Rs = New ADODB.Recordset
'        Rs.Open "select * from Area_Customer where 客户编码 = '" & Left(AreaCustomer_Key, 5) & "' order by 客户编码", Cn, adOpenKeyset, adLockOptimistic, adCmdText
'        If Rs.RecordCount > 0 Then '对地区代码/地区名/客户代码/赋值
'          Rs.MoveFirst
'          Do While Rs.EOF = False
'            Rs.Delete
'            Rs.Update
'            Rs.MoveNext
'          Loop
'        End If
'        Rs.Close
'        Cn.Close
'        Me.Tvw_Customer.Nodes.Clear
'        Call Tree_Change
''        MsgBox "客户删除成功!"
'      End If
'    End If
'
'Exit Sub
'err:
'   MsgBox err.Description, vbCritical
'
'End Sub

'Private Sub Mnu_Rename_Click()
'On Error GoTo err
'    YN_Area_Customer_Add = False
'    YN_Area_Customer_Rename = True
'    Load Frm_Area_Customer_Edit
'    Frm_Area_Customer_Edit.Show vbModal
'
'Exit Sub
'err:
'   MsgBox err.Description, vbCritical
'End Sub

Private Sub TDBGrid_CusRiches_DblClick()
On Error GoTo err
   If Len(AreaCustomer_Key) = 5 Then
     YN_Customer_Riches_Add = False
     YN_Customer_Riches_Repair = False
     YN_Customer_Riches_View = True
     If Rs_OutCR.RecordCount <> 0 And Rs_OutCR.EOF = False And Rs_OutCR.BOF = False Then
       Load Frm_OutCustomer_Riches_Edit
       Frm_OutCustomer_Riches_Edit.Show vbModal
     End If
   End If
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 '查找
             Load Frm_OutArea_Find
             Frm_OutArea_Find.Show vbModal
         Case 2 '添加
'             Call Mnu_Add_Click
         Case 3  '删除
'             Call Mnu_Del_Click
         Case 4  '修改
'             Call Mnu_Rename_Click

         Case 7   '你单击了添加按钮
            If Len(AreaCustomer_Key) = 5 Then
              YN_Customer_Riches_Add = True
              YN_Customer_Riches_Repair = False
              YN_Customer_Riches_View = False
              If OperatorDepartment = "营销部" Then
                 Load Frm_OutCustomer_Riches_Edit
                 Frm_OutCustomer_Riches_Edit.Show vbModal
'              ElseIf OperatorDepartment = "品质部-IQC" And Rs_OutCR.RecordCount <> 0 And Rs_OutCR.EOF = False And Rs_OutCR.BOF = False Then
'                 If IsNull(Rs_OutCR!母盘数量) = True And IsNull(Rs_OutCR!菲林状态) = True And IsNull(Rs_OutCR!节目源状态) = True And IsNull(Rs_OutCR!库位号) = True And IsNull(Rs_OutCR!备注) = True Then
'                   Load Frm_Customer_Riches_Edit
'                   Frm_Customer_Riches_Edit.Show vbModal
'                 Else
'                   MsgBox "你的操作有误!" + Chr(13) + "你的操作应是【修改】而不应是【添加】!", vbCritical
'                   Exit Sub
'                 End If
'              ElseIf OperatorDepartment = "生产部-统计" And Rs_OutCR.RecordCount <> 0 And Rs_OutCR.EOF = False And Rs_OutCR.BOF = False Then
'                 If IsNull(Rs_OutCR!印刷机号) = True And IsNull(Rs_OutCR!版状态) = True And IsNull(Rs_OutCR!专色油墨) = True And IsNull(Rs_OutCR!颜色样本) = True And IsNull(Rs_OutCR!不良率) = True And IsNull(Rs_OutCR!剩余良品数) = True Then
'                   Load Frm_Customer_Riches_Edit
'                   Frm_Customer_Riches_Edit.Show vbModal
'                 Else
'                   MsgBox "你的操作有误!" + Chr(13) + "你的操作应是【修改】而不应是【添加】!", vbCritical
'                   Exit Sub
'                 End If
              End If
            End If
         Case 8  '你单击了删除按钮
            If Len(AreaCustomer_Key) = 5 And Rs_OutCR.EOF = False And Rs_OutCR.BOF = False Then
               If MsgBox("你确认要删除此条记录吗?", vbOKCancel, "提示信息") = vbOK Then
                 '添加到客户财产删除表中
'                 Set Cn = New ADODB.Connection
'                 Cn.Open Cs
'                 Set Rs = New ADODB.Recordset
'                 Rs.Open "select * from Customer_Riches_Delete ", Cn, adOpenKeyset, adLockOptimistic, adCmdText
'                 If Rs.RecordCount <> 0 Then Rs.MoveLast
'                 Rs.AddNew
'                 Rs!删除时间 = Now
'                 Rs!删除操作员 = OperatorName
'                 Rs!信息完整 = Rs_OutCR!信息完整
'                 Rs!质量等级 = Rs_OutCR!质量等级
'                 Rs!复制要求 = Rs_OutCR!复制要求
'                 Rs!品质要求 = Rs_OutCR!品质要求
'                 Rs!内编码 = Rs_OutCR!内编码
'                 Rs!料号 = Rs_OutCR!料号
'                 Rs!节目名称 = Rs_OutCR!节目名称
'                 Rs!母盘号码 = Rs_OutCR!母盘号码
'                 Rs!节目源种类 = Rs_OutCR!节目源种类
'                 Rs!节目种类 = Rs_OutCR!节目种类
'                 Rs!母盘刻字要求 = Rs_OutCR!母盘刻字要求
'                 Rs!刻录速度 = Rs_OutCR!刻录速度
'                 Rs!母盘内孔 = Rs_OutCR!母盘内孔
'                 Rs!母盘数量 = Rs_OutCR!母盘数量
'                 Rs!节目源状态 = Rs_OutCR!节目源状态
'                 Rs!菲林索引 = Rs_OutCR!菲林索引
'                 Rs!印刷参照 = Rs_OutCR!印刷参照
'                 Rs!印刷方式 = Rs_OutCR!印刷方式
'                 Rs!印刷颜色 = Rs_OutCR!印刷颜色
'                 Rs!印刷内圈 = Rs_OutCR!印刷内圈
'                 Rs!委托书编码 = Rs_OutCR!委托书编码
'                 Rs!印刷要求 = Rs_OutCR!印刷要求
'                 Rs!菲林状态 = Rs_OutCR!菲林状态
'                 Rs!印刷机号 = Rs_OutCR!印刷机号
'                 Rs!版状态 = Rs_OutCR!版状态
'                 Rs!专色油墨 = Rs_OutCR!专色油墨
'                 Rs!颜色样本 = Rs_OutCR!颜色样本
'                 Rs!小于3000 = Rs_OutCR!小于3000
'                 Rs!不良率 = Rs_OutCR!不良率
'                 Rs!包装要求 = Rs_OutCR!包装要求
'                 Rs!包装方式 = Rs_OutCR!包装方式
'                 Rs!特殊防尘垫要求 = Rs_OutCR!特殊防尘垫要求
'                 Rs!特殊箱唛标识 = Rs_OutCR!特殊箱唛标识
'                 Rs!剩余良品数 = Rs_OutCR!剩余良品数
'                 Rs!库位号 = Rs_OutCR!库位号
'                 Rs!备注 = Rs_OutCR!备注
'                 Rs.Update
'                 Rs.Close
'                 Cn.Close
                 '将客户财产表的记录删除
                 Rs_OutCR.Delete
                 Rs_OutCR.Update
'                 Me.TDBGrid_CusRiches.Close
                 Call TDBGrid_CusRiches_Refresh("数据删除成功!")
               End If
            End If
         Case 9   '你单击了修改按钮
            If Len(AreaCustomer_Key) = 5 Then
              YN_Customer_Riches_Add = False
              YN_Customer_Riches_Repair = True
              YN_Customer_Riches_View = False
              If OperatorDepartment = "营销部" And Rs_OutCR.RecordCount <> 0 And Rs_OutCR.EOF = False And Rs_OutCR.BOF = False Then
                 Load Frm_OutCustomer_Riches_Edit
                 Frm_OutCustomer_Riches_Edit.Show vbModal
              ElseIf OperatorDepartment = "品质部-IQC" And Rs_OutCR.RecordCount <> 0 And Rs_OutCR.EOF = False And Rs_OutCR.BOF = False Then
                 If IsNull(Rs_OutCR!印刷内圈) = True And IsNull(Rs_OutCR!母盘数量) = True And IsNull(Rs_OutCR!节目源状态) = True And IsNull(Rs_OutCR!菲林状态) = True And IsNull(Rs_OutCR!特殊防尘垫要求) = True And IsNull(Rs_OutCR!特殊箱唛标识) = True And IsNull(Rs_OutCR!库位号) = True Then
                   MsgBox "你的操作有误!" + Chr(13) + "你的操作应是【添加】而不应是【修改】!", vbCritical
                   Exit Sub
                 Else
                   Load Frm_OutCustomer_Riches_Edit
                   Frm_OutCustomer_Riches_Edit.Show vbModal
                 End If
              ElseIf OperatorDepartment = "生产部-统计" And Rs_OutCR.RecordCount <> 0 And Rs_OutCR.EOF = False And Rs_OutCR.BOF = False Then
                 If IsNull(Rs_OutCR!印刷机号) = True And IsNull(Rs_OutCR!版状态) = True And IsNull(Rs_OutCR!专色油墨) = True And IsNull(Rs_OutCR!颜色样本) = True And IsNull(Rs_OutCR!不良率) = True And IsNull(Rs_OutCR!剩余良品数) = True Then
                   MsgBox "你的操作有误!" + Chr(13) + "你的操作应是【添加】而不应是【修改】!", vbCritical
                   Exit Sub
                 Else
                   Load Frm_OutCustomer_Riches_Edit
                   Frm_OutCustomer_Riches_Edit.Show vbModal
                 End If
              End If
            End If
         Case 10    '你单击了查看按钮
             Call TDBGrid_CusRiches_DblClick
             
         Case 11    '你单击了IQC检查按钮
'            If Len(AreaCustomer_Key) = 5 Then
'              Load Frm_IQC_Check
'              Frm_IQC_Check.Show vbModal
'            End If
         Case 12 '你单击了查询按钮
            If Len(AreaCustomer_Key) = 5 Then
              Load Frm_OutCustomer_Riches_Find
              Frm_OutCustomer_Riches_Find.Show vbModal
            End If
         Case 13 '你单击了从EXCEL表格导入
'            Load Frm_Excel_Enter
'            Frm_Excel_Enter.Show vbModal
         Case 14 '你单击了退出按钮
            Unload Me
   End Select
   
Exit Sub
err:
  MsgBox err.Description, vbCritical
End Sub

Private Sub Tvw_Customer_Collapse(ByVal Node As MSComctlLib.Node)
On Error GoTo err
  AreaCustomer_Key = ""
  AreaCustomer_Text = ""
Exit Sub
err:
  MsgBox err.Description, vbCritical
End Sub

Private Sub Tvw_Customer_Expand(ByVal Node As MSComctlLib.Node)
On Error GoTo err
  AreaCustomer_Key = ""
  AreaCustomer_Text = ""
Exit Sub
err:
  MsgBox err.Description, vbCritical
End Sub

Private Sub Tvw_Customer_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single)
    If Button And vbRightButton _
        Then PopupMenu mnu_Popup
End Sub

Private Sub Tvw_Customer_NodeClick(ByVal Node As MSComctlLib.Node)
On Error GoTo err
  AreaCustomer_Key = Node.key
  AreaCustomer_Text = Node.text
'  Print Me.Tvw_Customer.SelectedItem
   If Node.Image = 1 Then
     Node.Image = 2
   Else
     Node.Image = 1
   End If
   
   If Rs_OutCR.State = 1 Then Rs_OutCR.Close
   Rs_OutCR.Open "select * from OutCustomer_Riches where 内编码 like '%'+ '" & Node.key & "'+'%'" & _
              "order by 节目名称,母盘号码", Cn_OutCR, adOpenKeyset, adLockOptimistic, adCmdText

   Set TDBGrid_CusRiches.DataSource = Rs_OutCR
   Call DGrid_Width_Set(Frm_Customer_Riches)
   Me.StatusBar1.Panels(7).text = "记录总数： " & Str(Rs_OutCR.RecordCount)
   
Exit Sub
err:
  MsgBox err.Description, vbCritical
End Sub