📄 frm_customer_riches.frm
字号:
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_Change()
Call DisplayCommissionInformation
End Sub
Private Sub TDBGrid_CusRiches_Click()
Call DisplayCommissionInformation
End Sub
Private Sub TDBGrid_CusRiches_ColMove(ByVal Position As Integer, Cancel As Integer)
Call DisplayCommissionInformation
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_CR.RecordCount <> 0 And Rs_CR.EOF = False And Rs_CR.BOF = False Then
Load Frm_Customer_Riches_Edit
Frm_Customer_Riches_Edit.Show vbModal
End If
End If
Exit Sub
err:
MsgBox err.Description, vbCritical
End Sub
Private Sub TDBGrid_CusRiches_RowColChange(LastRow As Variant, ByVal LastCol As Integer)
Call DisplayCommissionInformation
End Sub
Private Sub TDBGrid_CusRiches_SelChange(Cancel As Integer)
Call DisplayCommissionInformation
End Sub
Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
On Error GoTo err
Select Case Button.Index
Case 1 '查找
Load Frm_Area_Find
Frm_Area_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_Customer_Riches_Edit
Frm_Customer_Riches_Edit.Show vbModal
ElseIf OperatorDepartment = "品质部-IQC" And Rs_CR.RecordCount <> 0 And Rs_CR.EOF = False And Rs_CR.BOF = False Then
If IsNull(Rs_CR!母盘数量) = True And IsNull(Rs_CR!菲林状态) = True And IsNull(Rs_CR!节目源状态) = True And IsNull(Rs_CR!库位号) = True And IsNull(Rs_CR!备注) = 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_CR.RecordCount <> 0 And Rs_CR.EOF = False And Rs_CR.BOF = False Then
If IsNull(Rs_CR!印刷机号) = True And IsNull(Rs_CR!版状态) = True And IsNull(Rs_CR!专色油墨) = True And IsNull(Rs_CR!颜色样本) = True And IsNull(Rs_CR!不良率) = True And IsNull(Rs_CR!剩余良品数) = 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_CR.EOF = False And Rs_CR.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_CR!信息完整
Rs!质量等级 = Rs_CR!质量等级
Rs!复制要求 = Rs_CR!复制要求
Rs!品质要求 = Rs_CR!品质要求
Rs!内编码 = Rs_CR!内编码
Rs!料号 = Rs_CR!料号
Rs!节目名称 = Rs_CR!节目名称
Rs!母盘号码 = Rs_CR!母盘号码
Rs!节目源种类 = Rs_CR!节目源种类
Rs!节目种类 = Rs_CR!节目种类
Rs!母盘刻字要求 = Rs_CR!母盘刻字要求
Rs!刻录速度 = Rs_CR!刻录速度
Rs!母盘内孔 = Rs_CR!母盘内孔
Rs!母盘数量 = Rs_CR!母盘数量
Rs!节目源状态 = Rs_CR!节目源状态
Rs!菲林索引 = Rs_CR!菲林索引
Rs!印刷参照 = Rs_CR!印刷参照
Rs!印刷方式 = Rs_CR!印刷方式
Rs!印刷颜色 = Rs_CR!印刷颜色
Rs!印刷内圈 = Rs_CR!印刷内圈
Rs!委托书编码 = Rs_CR!委托书编码
Rs!印刷要求 = Rs_CR!印刷要求
Rs!菲林状态 = Rs_CR!菲林状态
Rs!印刷机号 = Rs_CR!印刷机号
Rs!版状态 = Rs_CR!版状态
Rs!专色油墨 = Rs_CR!专色油墨
Rs!颜色样本 = Rs_CR!颜色样本
Rs!小于3000 = Rs_CR!小于3000
Rs!不良率 = Rs_CR!不良率
Rs!包装要求 = Rs_CR!包装要求
Rs!包装方式 = Rs_CR!包装方式
Rs!特殊防尘垫要求 = Rs_CR!特殊防尘垫要求
Rs!特殊箱唛标识 = Rs_CR!特殊箱唛标识
Rs!剩余良品数 = Rs_CR!剩余良品数
Rs!库位号 = Rs_CR!库位号
Rs!备注 = Rs_CR!备注
Rs.Update
Rs.Close
Cn.Close
'将客户财产表的记录删除
Rs_CR.Delete
Rs_CR.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_CR.RecordCount <> 0 And Rs_CR.EOF = False And Rs_CR.BOF = False Then
Load Frm_Customer_Riches_Edit
Frm_Customer_Riches_Edit.Show vbModal
ElseIf OperatorDepartment = "品质部-IQC" And Rs_CR.RecordCount <> 0 And Rs_CR.EOF = False And Rs_CR.BOF = False Then
If IsNull(Rs_CR!印刷内圈) = True And IsNull(Rs_CR!母盘数量) = True And IsNull(Rs_CR!节目源状态) = True And IsNull(Rs_CR!菲林状态) = True And IsNull(Rs_CR!特殊防尘垫要求) = True And IsNull(Rs_CR!特殊箱唛标识) = True And IsNull(Rs_CR!库位号) = True Then
MsgBox "你的操作有误!" + Chr(13) + "你的操作应是【添加】而不应是【修改】!", vbCritical
Exit Sub
Else
Load Frm_Customer_Riches_Edit
Frm_Customer_Riches_Edit.Show vbModal
End If
ElseIf OperatorDepartment = "生产部-统计" And Rs_CR.RecordCount <> 0 And Rs_CR.EOF = False And Rs_CR.BOF = False Then
If IsNull(Rs_CR!印刷机号) = True And IsNull(Rs_CR!版状态) = True And IsNull(Rs_CR!专色油墨) = True And IsNull(Rs_CR!颜色样本) = True And IsNull(Rs_CR!不良率) = True And IsNull(Rs_CR!剩余良品数) = True Then
MsgBox "你的操作有误!" + Chr(13) + "你的操作应是【添加】而不应是【修改】!", vbCritical
Exit Sub
Else
Load Frm_Customer_Riches_Edit
Frm_Customer_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_Customer_Riches_Find
Frm_Customer_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_NodeCheck(ByVal Node As MSComctlLib.Node)
MsgBox "NodeCheck"
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 Right(Node.key, 5) = "防尘垫比例" Or Right(Node.key, 4) = "特殊要求" Then
Me.Frame2.Visible = True
Me.TDBGrid_CusRiches.Visible = False
Else
Me.Frame2.Visible = False
Me.TDBGrid_CusRiches.Visible = True
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' key = Trim(Rs_Area.Fields("客户编码")) & "防尘垫比例"
' text = "防尘垫比例 - " & Trim(Rs_Area.Fields("防尘垫要求"))
' Set node3 = Tvw_Customer.Nodes.Add(node2.Index, tvwChild, key, text, 1)
'
' key = Trim(Rs_Area.Fields("客户编码")) & "特殊要求"
If Rs_CR.State = 1 Then Rs_CR.Close
' Rs_CR.Open "select * from Customer_Riches where 内编码 like '%'+ '" & Node.key & "'+'%'" & _
' "order by 节目名称,母盘号码", Cn_CR, adOpenKeyset, adLockOptimistic, adCmdText
'''''''''''''''''''''''''''''''''
Rs_CR.Open "select * from Customer_Riches where 内编码 like '" & Node.key & "'+'%'" & _
"order by 节目名称,母盘号码", Cn_CR, adOpenKeyset, adLockOptimistic, adCmdText
'''''''''''''''''''''''''''''''''''''''
Set TDBGrid_CusRiches.DataSource = Rs_CR
Call DGrid_Width_Set(Frm_Customer_Riches)
Me.StatusBar1.Panels(7).text = "记录总数： " & Str(Rs_CR.RecordCount)
End If
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Exit Sub
err:
MsgBox err.Description, vbCritical
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -