frm_addcustomernametodatabase.frm

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

    
    
    
'    '2、打开旧的外卖母盘规格单备份表
'    Dim cnOldOutStemperSpecBillBack As ADODB.Connection
'    Dim rsOldOutStemperSpecBillBack As ADODB.Recordset
'    Set cnOldOutStemperSpecBillBack = New ADODB.Connection
'    Set rsOldOutStemperSpecBillBack = New ADODB.Recordset
'    cnOldOutStemperSpecBillBack.Open Cs
'    '3、打开外卖客户财产表
'    Dim cnOutCustomer_Riches As ADODB.Connection
'    Dim rsOutCustomer_Riches As ADODB.Recordset
'    Set cnOutCustomer_Riches = New ADODB.Connection
'    Set rsOutCustomer_Riches = New ADODB.Recordset
'    cnOutCustomer_Riches.Open Cs
'    '4、打开母盘规格单
'    Set Cn_Common = New ADODB.Connection
'    Set Rs_Common = New ADODB.Recordset
'    Cn_Common.Open Cs
'    Rs_Common.Open "select 内编码, 订单种类 from Stemper_SpecBill where 订单种类 like '%外卖%' group by 内编码, 订单种类 order by 内编码", Cn_Common, adOpenKeyset, adLockOptimistic, adCmdText
'    Set rsOutCustomer_Riches = New ADODB.Recordset
'    rsOutCustomer_Riches.Open "select * from OutCustomer_Riches", cnOutCustomer_Riches, adOpenKeyset, adLockOptimistic, adCmdText
'    If Rs_Common.RecordCount <> 0 Then
'      Rs_Common.MoveFirst
'      For i = 1 To Rs_Common.RecordCount
'        Set rsCustomer_Riches = New ADODB.Recordset
'        rsCustomer_Riches.Open "select * from Customer_Riches where 内编码='" & Rs_Common!内编码 & "'", cnCustomer_Riches, adOpenKeyset, adLockOptimistic, adCmdText
'        If rsCustomer_Riches.RecordCount = 1 Then
'            rsOutCustomer_Riches.AddNew
'            If IsNull(rsCustomer_Riches!信息完整) = False Then rsOutCustomer_Riches!信息完整 = rsCustomer_Riches!信息完整 Else rsOutCustomer_Riches!信息完整 = ""
'            If IsNull(rsCustomer_Riches!质量等级) = False Then rsOutCustomer_Riches!质量等级 = rsCustomer_Riches!质量等级 Else rsOutCustomer_Riches!质量等级 = ""
'            If IsNull(rsCustomer_Riches!复制要求) = False Then rsOutCustomer_Riches!复制要求 = rsCustomer_Riches!复制要求 Else rsOutCustomer_Riches!复制要求 = ""
'            If IsNull(rsCustomer_Riches!品质要求) = False Then rsOutCustomer_Riches!品质要求 = rsCustomer_Riches!品质要求 Else rsOutCustomer_Riches!品质要求 = ""
'            If IsNull(rsCustomer_Riches!内编码) = False Then rsOutCustomer_Riches!内编码 = rsCustomer_Riches!内编码 Else rsOutCustomer_Riches!内编码 = ""
'            If IsNull(rsCustomer_Riches!料号) = False Then rsOutCustomer_Riches!料号 = rsCustomer_Riches!料号 Else rsOutCustomer_Riches!料号 = ""
'            If IsNull(rsCustomer_Riches!节目名称) = False Then rsOutCustomer_Riches!节目名称 = rsCustomer_Riches!节目名称 Else rsOutCustomer_Riches!节目名称 = ""
'            If IsNull(rsCustomer_Riches!母盘号码) = False Then rsOutCustomer_Riches!母盘号码 = rsCustomer_Riches!母盘号码 Else rsOutCustomer_Riches!母盘号码 = ""
'            If IsNull(rsCustomer_Riches!节目源种类) = False Then rsOutCustomer_Riches!节目源种类 = rsCustomer_Riches!节目源种类 Else rsOutCustomer_Riches!节目源种类 = ""
'            If IsNull(rsCustomer_Riches!节目种类) = False Then rsOutCustomer_Riches!节目种类 = rsCustomer_Riches!节目种类 Else rsOutCustomer_Riches!节目种类 = ""
'            If IsNull(rsCustomer_Riches!母盘刻字要求) = False Then rsOutCustomer_Riches!母盘刻字要求 = rsCustomer_Riches!母盘刻字要求 Else rsOutCustomer_Riches!母盘刻字要求 = ""
'            If IsNull(rsCustomer_Riches!刻录速度) = False Then rsOutCustomer_Riches!刻录速度 = rsCustomer_Riches!刻录速度 Else rsOutCustomer_Riches!刻录速度 = ""
'            If IsNull(rsCustomer_Riches!母盘内孔) = False Then rsOutCustomer_Riches!母盘内孔 = rsCustomer_Riches!母盘内孔 Else rsOutCustomer_Riches!母盘内孔 = ""
'            If IsNull(rsCustomer_Riches!菲林索引) = False Then rsOutCustomer_Riches!菲林索引 = rsCustomer_Riches!菲林索引 Else rsOutCustomer_Riches!菲林索引 = ""
'            If IsNull(rsCustomer_Riches!印刷参照) = False Then rsOutCustomer_Riches!印刷参照 = rsCustomer_Riches!印刷参照 Else rsOutCustomer_Riches!印刷参照 = ""
'            If IsNull(rsCustomer_Riches!印刷方式) = False Then rsOutCustomer_Riches!印刷方式 = rsCustomer_Riches!印刷方式 Else rsOutCustomer_Riches!印刷方式 = ""
'            If IsNull(rsCustomer_Riches!印刷颜色) = False Then rsOutCustomer_Riches!印刷颜色 = rsCustomer_Riches!印刷颜色 Else rsOutCustomer_Riches!印刷颜色 = ""
'            If IsNull(rsCustomer_Riches!印刷内圈) = False Then rsOutCustomer_Riches!印刷内圈 = rsCustomer_Riches!印刷内圈 Else rsOutCustomer_Riches!印刷内圈 = ""
'            If IsNull(rsCustomer_Riches!委托书编码) = False Then rsOutCustomer_Riches!委托书编码 = rsCustomer_Riches!委托书编码 Else rsOutCustomer_Riches!委托书编码 = ""
'            If IsNull(rsCustomer_Riches!印刷要求) = False Then rsOutCustomer_Riches!印刷要求 = rsCustomer_Riches!印刷要求 Else rsOutCustomer_Riches!印刷要求 = ""
'            rsOutCustomer_Riches.Update
'            rsCustomer_Riches.Delete
'            rsCustomer_Riches.Update
'            rsCustomer_Riches.Close
'        End If
'        Rs_Common.MoveNext
'      Next i
'      rsOutCustomer_Riches.Close
'    End If
'
'    If Rs_Common.State = 1 Then Rs_Common.Close
'    Rs_Common.Open "select * from Stemper_SpecBill where 订单种类 like '%外卖%' order by 内编码", Cn_Common, adOpenKeyset, adLockOptimistic, adCmdText
'    rsOldOutStemperSpecBillBack.Open "select * from OldOutStemper_SpecBillBack", cnOldOutStemperSpecBillBack, adOpenKeyset, adLockOptimistic, adCmdText
'    If Rs_Common.RecordCount <> 0 Then
'      Rs_Common.MoveFirst
'      For i = 1 To Rs_Common.RecordCount
'         rsOldOutStemperSpecBillBack.AddNew
'         '节目下单时其他要求
'         If IsNull(Rs_Common!规格单号) = False Then rsOldOutStemperSpecBillBack!规格单号 = Rs_Common!规格单号
'         If IsNull(Rs_Common!小号) = False Then rsOldOutStemperSpecBillBack!小号 = Rs_Common!小号
'         If IsNull(Rs_Common!客户名称) = False Then rsOldOutStemperSpecBillBack!客户名称 = Rs_Common!客户名称
'         If IsNull(Rs_Common!订单种类) = False Then rsOldOutStemperSpecBillBack!订单种类 = Rs_Common!订单种类
'         If IsNull(Rs_Common!母盘归属) = False Then rsOldOutStemperSpecBillBack!母盘归属 = Rs_Common!母盘归属
'         If IsNull(Rs_Common!备注) = False Then rsOldOutStemperSpecBillBack!备注 = Rs_Common!备注
'         If IsNull(Rs_Common!特殊要求) = False Then rsOldOutStemperSpecBillBack!特殊要求 = Rs_Common!特殊要求
'         If IsNull(Rs_Common!交货日期) = False Then rsOldOutStemperSpecBillBack!交货日期 = Rs_Common!交货日期
'         If IsNull(Rs_Common!数量) = False Then rsOldOutStemperSpecBillBack!数量 = Rs_Common!数量
'         '营销部录入部份
'         If IsNull(Rs_Common!信息完整) = False Then rsOldOutStemperSpecBillBack!信息完整 = Rs_Common!信息完整 Else rsOldOutStemperSpecBillBack!信息完整 = ""
'        If IsNull(Rs_Common!质量等级) = False Then rsOldOutStemperSpecBillBack!质量等级 = Rs_Common!质量等级 Else rsOldOutStemperSpecBillBack!质量等级 = ""
'        If IsNull(Rs_Common!复制要求) = False Then rsOldOutStemperSpecBillBack!复制要求 = Rs_Common!复制要求 Else rsOldOutStemperSpecBillBack!复制要求 = ""
'        If IsNull(Rs_Common!品质要求) = False Then rsOldOutStemperSpecBillBack!品质要求 = Rs_Common!品质要求 Else rsOldOutStemperSpecBillBack!品质要求 = ""
'        If IsNull(Rs_Common!内编码) = False Then rsOldOutStemperSpecBillBack!内编码 = Rs_Common!内编码 Else rsOldOutStemperSpecBillBack!内编码 = ""
'        If IsNull(Rs_Common!料号) = False Then rsOldOutStemperSpecBillBack!料号 = Rs_Common!料号 Else rsOldOutStemperSpecBillBack!料号 = ""
'        If IsNull(Rs_Common!节目名称) = False Then rsOldOutStemperSpecBillBack!节目名称 = Rs_Common!节目名称 Else rsOldOutStemperSpecBillBack!节目名称 = ""
'        If IsNull(Rs_Common!母盘号码) = False Then rsOldOutStemperSpecBillBack!母盘号码 = Rs_Common!母盘号码 Else rsOldOutStemperSpecBillBack!母盘号码 = ""
'        If IsNull(Rs_Common!节目源种类) = False Then rsOldOutStemperSpecBillBack!节目源种类 = Rs_Common!节目源种类 Else rsOldOutStemperSpecBillBack!节目源种类 = ""
'        If IsNull(Rs_Common!节目种类) = False Then rsOldOutStemperSpecBillBack!节目种类 = Rs_Common!节目种类 Else rsOldOutStemperSpecBillBack!节目种类 = ""
'        If IsNull(Rs_Common!母盘刻字要求) = False Then rsOldOutStemperSpecBillBack!母盘刻字要求 = Rs_Common!母盘刻字要求 Else rsOldOutStemperSpecBillBack!母盘刻字要求 = ""
'        If IsNull(Rs_Common!刻录速度) = False Then rsOldOutStemperSpecBillBack!刻录速度 = Rs_Common!刻录速度 Else rsOldOutStemperSpecBillBack!刻录速度 = ""
'        If IsNull(Rs_Common!母盘内孔) = False Then rsOldOutStemperSpecBillBack!母盘内孔 = Rs_Common!母盘内孔 Else rsOldOutStemperSpecBillBack!母盘内孔 = ""
'        If IsNull(Rs_Common!菲林索引) = False Then rsOldOutStemperSpecBillBack!菲林索引 = Rs_Common!菲林索引 Else rsOldOutStemperSpecBillBack!菲林索引 = ""
'        If IsNull(Rs_Common!印刷参照) = False Then rsOldOutStemperSpecBillBack!印刷参照 = Rs_Common!印刷参照 Else rsOldOutStemperSpecBillBack!印刷参照 = ""
'        If IsNull(Rs_Common!印刷方式) = False Then rsOldOutStemperSpecBillBack!印刷方式 = Rs_Common!印刷方式 Else rsOldOutStemperSpecBillBack!印刷方式 = ""
'        If IsNull(Rs_Common!印刷颜色) = False Then rsOldOutStemperSpecBillBack!印刷颜色 = Rs_Common!印刷颜色 Else rsOldOutStemperSpecBillBack!印刷颜色 = ""
'        If IsNull(Rs_Common!委托书编码) = False Then rsOldOutStemperSpecBillBack!委托书编码 = Rs_Common!委托书编码 Else rsOldOutStemperSpecBillBack!委托书编码 = ""
'        If IsNull(Rs_Common!印刷要求) = False Then rsOldOutStemperSpecBillBack!印刷要求 = Rs_Common!印刷要求 Else rsOldOutStemperSpecBillBack!印刷要求 = ""
'        If IsNull(Rs_Common!包装要求) = False Then rsOldOutStemperSpecBillBack!包装要求 = Rs_Common!包装要求 Else rsOldOutStemperSpecBillBack!包装要求 = ""
'        If IsNull(Rs_Common!包装方式) = False Then rsOldOutStemperSpecBillBack!包装方式 = Rs_Common!包装方式 Else rsOldOutStemperSpecBillBack!包装方式 = ""
'        If IsNull(Rs_Common!印刷内圈) = False Then rsOldOutStemperSpecBillBack!印刷内圈 = Rs_Common!印刷内圈 Else rsOldOutStemperSpecBillBack!印刷内圈 = ""
'        '品质部录入部分
'        If IsNull(Rs_Common!母盘数量) = False Then rsOldOutStemperSpecBillBack!母盘数量 = Rs_Common!母盘数量 Else rsOldOutStemperSpecBillBack!母盘数量 = 0
'        If IsNull(Rs_Common!节目源状态) = False Then rsOldOutStemperSpecBillBack!节目源状态 = Rs_Common!节目源状态 Else rsOldOutStemperSpecBillBack!节目源状态 = ""
'        If IsNull(Rs_Common!菲林状态) = False Then rsOldOutStemperSpecBillBack!菲林状态 = Rs_Common!菲林状态 Else rsOldOutStemperSpecBillBack!菲林状态 = ""
'        If IsNull(Rs_Common!库位号) = False Then rsOldOutStemperSpecBillBack!库位号 = Rs_Common!库位号 Else rsOldOutStemperSpecBillBack!库位号 = ""
'        If IsNull(Rs_Common!财产备注) = False Then rsOldOutStemperSpecBillBack!财产备注 = Rs_Common!财产备注 Else rsOldOutStemperSpecBillBack!财产备注 = ""
'        '生产部录入部分
'        If IsNull(Rs_Common!印刷机号) = False Then rsOldOutStemperSpecBillBack!印刷机号 = Rs_Common!印刷机号 Else rsOldOutStemperSpecBillBack!印刷机号 = ""
'        If IsNull(Rs_Common!版状态) = False Then rsOldOutStemperSpecBillBack!版状态 = Rs_Common!版状态 Else rsOldOutStemperSpecBillBack!版状态 = ""
'        If IsNull(Rs_Common!专色油墨) = False Then rsOldOutStemperSpecBillBack!专色油墨 = Rs_Common!专色油墨 Else rsOldOutStemperSpecBillBack!专色油墨 = ""
'        If IsNull(Rs_Common!颜色样本) = False Then rsOldOutStemperSpecBillBack!颜色样本 = Rs_Common!颜色样本 Else rsOldOutStemperSpecBillBack!颜色样本 = ""
'        If IsNull(Rs_Common!不良率) = False And Rs_Common!不良率 <> "" Then rsOldOutStemperSpecBillBack!不良率 = Rs_Common!不良率 Else rsOldOutStemperSpecBillBack!不良率 = "00.00%"
'        If IsNull(Rs_Common!剩余良品数) = False Then rsOldOutStemperSpecBillBack!剩余良品数 = Rs_Common!剩余良品数 Else rsOldOutStemperSpecBillBack!剩余良品数 = 0
'        If IsNull(Rs_Common!小于3000) = False Then rsOldOutStemperSpecBillBack!小于3000 = Rs_Common!小于3000 Else rsOldOutStemperSpecBillBack!小于3000 = 0
'        rsOldOutStemperSpecBillBack.Update
'        Rs_Common.Delete
'        Rs_Common.MoveNext
'      Next i
'      Rs_Common.Update
'      rsOldOutStemperSpecBillBack.Update
'       If rsOldOutStemperSpecBillBack.State = 1 Then rsOldOutStemperSpecBillBack.Close
'       cnOldOutStemperSpecBillBack.Close
'       If Rs_Common.State = 1 Then Rs_Common.Close
'       Cn_Common.Close
'    End If
    MsgBox "客户名称导入成功!", vbInformation
Exit Sub
err:
   MsgBox err.Description + Chr(13) + "客户名称信息处理失败!", vbCritical, "提示信息"
   End
End Sub