⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 frm_stemperspecbill_addart_affirm.frm

📁 一个公司的客户财产管理系统vb源码
💻 FRM
📖 第 1 页 / 共 4 页
字号:
🔍
1234 
         TabIndex        =   37
         Top             =   360
         Width           =   720
      End
      Begin VB.Label Label1 
         AutoSize        =   -1  'True
         Caption         =   "印刷要求"
         Height          =   180
         Index           =   13
         Left            =   5355
         TabIndex        =   36
         Top             =   720
         Width           =   720
      End
      Begin VB.Label Label1 
         AutoSize        =   -1  'True
         Caption         =   "包装要求"
         Height          =   180
         Index           =   14
         Left            =   5355
         TabIndex        =   35
         Top             =   1080
         Width           =   720
      End
   End
End
Attribute VB_Name = "Frm_StemperSpecBill_AddArt_Affirm"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Max_StemperSpecBill_Code()
On Error GoTo err
    '求最大内编码
    Dim Spec_Code As String
    Spec_Code = "HLOT-S" & Right(Year(Date), 2)
    Set Cn = New ADODB.Connection
    Cn.Open Cs
    Set Rs = New ADODB.Recordset
    Rs.Open "select 规格单号 from Stemper_SpecBill where 规格单号 like '%' + '" & Spec_Code & "' +'%' order by 规格单号", Cn, adOpenKeyset, adLockOptimistic, adCmdText
    If Rs.RecordCount > 0 Then '对地区代码/地区名/客户代码/赋值
      Rs.MoveLast
      Me.txt_Fields(0).text = Left(Rs!规格单号, 9) & Format(Val(Right(Left(Rs!规格单号, 13), 4)) + 1, "0000")
    Else
      Me.txt_Fields(0).text = Spec_Code & "-0001"
    End If
    Rs.Close
    Cn.Close
Exit Sub
err:
   MsgBox err.Description, vbCritical
End Sub

Private 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!客户名称
      If IsNull(Rs_Area!客户名称) = False Then Me.txt_Fields(1).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

Private 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
    

Private Sub DTP1_KeyPress(KeyAscii As Integer)
On Error GoTo err
  Call ENTER(KeyAscii)
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 = ""
    '如果又向新规格单中添加了节目
    If Str_StemperSpecBill_ConsignmentTime <> "" Then Me.DTP1.Value = Str_StemperSpecBill_ConsignmentTime Else Me.DTP1.Value = CDate(Left(Str(Now), (Len(Str(Now)) - 3)))
    If Str_StemperSpecBill_SpecialRequest <> "" Then Me.txt_Fields(5).text = Str_StemperSpecBill_SpecialRequest Else Me.txt_Fields(5).text = ""
    Me.txt_Fields(0).Enabled = False
    Me.txt_Fields(1).Enabled = False
    Me.txt_Fields(2).text = "自用"
    Me.txt_Fields(3).text = "客户"
    Me.Frame3.Enabled = False
    Me.Frame4.Enabled = False
    Me.Frame5.Enabled = False
    Call Max_StemperSpecBill_Code
    Call Area_Customer_Info
    Call Customer_Riches_info
Exit Sub
err:
   MsgBox err.Description, vbCritical
End Sub

Private Sub MaskEdBox1_KeyPress(KeyAscii As Integer)
On Error GoTo err
  Call ENTER(KeyAscii)
Exit Sub
err:
   MsgBox err.Description, vbCritical
End Sub

Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
On Error GoTo err
  Dim intNumber As Integer
  Select Case Button.Index
       Case 9  '保存
        For i = 0 To 5
          Me.txt_Fields(i).text = Trim(Me.txt_Fields(i).text)
        Next
        If IsNumeric(Me.MaskEdBox1.text) = False Then
          MsgBox "不是数值型"
          Me.MaskEdBox1.SetFocus
          Exit Sub
        End If
        If Val(Me.MaskEdBox1.text) >= 10000 Then
          If MsgBox("订货数量大于10,000,你确认吗?", vbYesNo) = vbYes Then
            If Rs_StemperSpecBill_Temp.RecordCount <> 0 Then
              Rs_StemperSpecBill_Temp.MoveLast
              intNumber = Rs_StemperSpecBill_Temp!小号
            End If
            Rs_StemperSpecBill_Temp.AddNew
            Rs_StemperSpecBill_Temp!数量 = Val(Me.MaskEdBox1.text)
            Rs_StemperSpecBill_Temp!交货日期 = Me.DTP1.Value
            Rs_StemperSpecBill_Temp!小号 = intNumber + 1
            '营销部录入部份 保存
            If IsNull(Rs_CR!信息完整) = False Then Rs_StemperSpecBill_Temp!信息完整 = Rs_CR!信息完整
            If IsNull(Rs_CR!质量等级) = False Then Rs_StemperSpecBill_Temp!质量等级 = Rs_CR!质量等级
            If IsNull(Rs_CR!复制要求) = False Then Rs_StemperSpecBill_Temp!复制要求 = Rs_CR!复制要求
            If IsNull(Rs_CR!品质要求) = False Then Rs_StemperSpecBill_Temp!品质要求 = Rs_CR!品质要求
            If IsNull(Rs_CR!内编码) = False Then Rs_StemperSpecBill_Temp!内编码 = Rs_CR!内编码
            If IsNull(Rs_CR!料号) = False Then Rs_StemperSpecBill_Temp!料号 = Rs_CR!料号
            If IsNull(Rs_CR!节目名称) = False Then Rs_StemperSpecBill_Temp!节目名称 = Rs_CR!节目名称
            If IsNull(Rs_CR!母盘号码) = False Then Rs_StemperSpecBill_Temp!母盘号码 = Rs_CR!母盘号码
            If IsNull(Rs_CR!节目源种类) = False Then Rs_StemperSpecBill_Temp!节目源种类 = Rs_CR!节目源种类
            If IsNull(Rs_CR!节目种类) = False Then Rs_StemperSpecBill_Temp!节目种类 = Rs_CR!节目种类
            If IsNull(Rs_CR!母盘刻字要求) = False Then Rs_StemperSpecBill_Temp!母盘刻字要求 = Rs_CR!母盘刻字要求
            If IsNull(Rs_CR!刻录速度) = False Then Rs_StemperSpecBill_Temp!刻录速度 = Rs_CR!刻录速度
            If IsNull(Rs_CR!母盘内孔) = False Then Rs_StemperSpecBill_Temp!母盘内孔 = Rs_CR!母盘内孔
            If IsNull(Rs_CR!菲林索引) = False Then Rs_StemperSpecBill_Temp!菲林索引 = Rs_CR!菲林索引
            If IsNull(Rs_CR!印刷参照) = False Then Rs_StemperSpecBill_Temp!印刷参照 = Rs_CR!印刷参照
            If IsNull(Rs_CR!印刷方式) = False Then Rs_StemperSpecBill_Temp!印刷方式 = Rs_CR!印刷方式
            If IsNull(Rs_CR!印刷颜色) = False Then Rs_StemperSpecBill_Temp!印刷颜色 = Rs_CR!印刷颜色
            If IsNull(Rs_CR!委托书编码) = False Then Rs_StemperSpecBill_Temp!委托书编码 = Rs_CR!委托书编码
            If IsNull(Rs_CR!印刷要求) = False Then Rs_StemperSpecBill_Temp!印刷要求 = Rs_CR!印刷要求
            If IsNull(Rs_CR!包装要求) = False Then Rs_StemperSpecBill_Temp!包装要求 = Rs_CR!包装要求
            If IsNull(Rs_CR!包装方式) = False Then Rs_StemperSpecBill_Temp!包装方式 = Rs_CR!包装方式
            If IsNull(Rs_CR!印刷内圈) = False Then Rs_StemperSpecBill_Temp!印刷内圈 = Rs_CR!印刷内圈
            '品质部录入部分
            If IsNull(Rs_CR!母盘数量) = False Then Rs_StemperSpecBill_Temp!母盘数量 = Rs_CR!母盘数量
            If IsNull(Rs_CR!节目源状态) = False Then Rs_StemperSpecBill_Temp!节目源状态 = Rs_CR!节目源状态
            If IsNull(Rs_CR!菲林状态) = False Then Rs_StemperSpecBill_Temp!菲林状态 = Rs_CR!菲林状态
            '    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 Rs_StemperSpecBill_Temp!库位号 = Rs_CR!库位号
            If IsNull(Rs_CR!备注) = False Then Rs_StemperSpecBill_Temp!财产备注 = Rs_CR!备注
            '生产部录入部分
            If IsNull(Rs_CR!印刷机号) = False Then Rs_StemperSpecBill_Temp!印刷机号 = Rs_CR!印刷机号
            If IsNull(Rs_CR!版状态) = False Then Rs_StemperSpecBill_Temp!版状态 = Rs_CR!版状态
            If IsNull(Rs_CR!专色油墨) = False Then Rs_StemperSpecBill_Temp!专色油墨 = Rs_CR!专色油墨
            If IsNull(Rs_CR!颜色样本) = False Then Rs_StemperSpecBill_Temp!颜色样本 = Rs_CR!颜色样本
            If IsNull(Rs_CR!不良率) = False And Rs_CR!不良率 <> "" Then Rs_StemperSpecBill_Temp!不良率 = Rs_CR!不良率 Else Rs_StemperSpecBill_Temp!不良率 = "00.00%"
            If IsNull(Rs_CR!剩余良品数) = False Then Rs_StemperSpecBill_Temp!剩余良品数 = Rs_CR!剩余良品数
            If IsNull(Rs_CR!小于3000) = False Then Rs_StemperSpecBill_Temp!小于3000 = Rs_CR!小于3000
            '下单时节目其他要求
            If Me.txt_Fields(0).text <> "" Then Rs_StemperSpecBill_Temp!规格单号 = Me.txt_Fields(0).text
            If Me.txt_Fields(1).text <> "" Then Rs_StemperSpecBill_Temp!客户名称 = Me.txt_Fields(1).text
            If Me.txt_Fields(2).text <> "" Then Rs_StemperSpecBill_Temp!订单种类 = Me.txt_Fields(2).text
            If Me.txt_Fields(3).text <> "" Then Rs_StemperSpecBill_Temp!母盘归属 = Me.txt_Fields(3).text
            If Me.txt_Fields(4).text <> "" Then Rs_StemperSpecBill_Temp!备注 = Me.txt_Fields(4).text
            If Me.txt_Fields(5).text <> "" Then Rs_StemperSpecBill_Temp!特殊要求 = Me.txt_Fields(5).text
'            If Me.txt_Fields(6).text <> "" Then Rs_StemperSpecBill_Temp!产品技术要求 = Me.txt_Fields(6).text
'            If Me.txt_Fields(7).text <> "" Then Rs_StemperSpecBill_Temp!产品发货要求 = Me.txt_Fields(7).text
            Rs_StemperSpecBill_Temp.Update
            
            If Rs_StemperSpecBill_Temp.State = 1 Then Rs_StemperSpecBill_Temp.Close
            Rs_StemperSpecBill_Temp.Open "select * from stemper_SpecBill_Temp order by 规格单号,小号", Cn_StemperSpecBill_Temp, adOpenKeyset, adLockOptimistic, adCmdText
            Frm_New_StemperSpecBill.TDBGrid_Stemper.Close
            Set Frm_New_StemperSpecBill.TDBGrid_Stemper.DataSource = Rs_StemperSpecBill_Temp
            Call Frm_New_StemperSpecBill.TDBGrid_Stemper_Width_Set
            
            '对交货日期进行赋值
            Str_StemperSpecBill_ConsignmentTime = Str(Me.DTP1.Value)
            Str_StemperSpecBill_SpecialRequest = Trim(Me.txt_Fields(5).text)
            Unload Me
          Else
            Me.MaskEdBox1.SetFocus
          End If
        Else
            If Rs_StemperSpecBill_Temp.RecordCount <> 0 Then
              Rs_StemperSpecBill_Temp.MoveLast
              intNumber = Rs_StemperSpecBill_Temp!小号
            End If
            Rs_StemperSpecBill_Temp.AddNew
            Rs_StemperSpecBill_Temp!数量 = Val(Me.MaskEdBox1.text)
            Rs_StemperSpecBill_Temp!交货日期 = Me.DTP1.Value
            Rs_StemperSpecBill_Temp!小号 = intNumber + 1
            '营销部录入部份 保存
            If IsNull(Rs_CR!信息完整) = False Then Rs_StemperSpecBill_Temp!信息完整 = Rs_CR!信息完整
            If IsNull(Rs_CR!质量等级) = False Then Rs_StemperSpecBill_Temp!质量等级 = Rs_CR!质量等级
            If IsNull(Rs_CR!复制要求) = False Then Rs_StemperSpecBill_Temp!复制要求 = Rs_CR!复制要求
            If IsNull(Rs_CR!品质要求) = False Then Rs_StemperSpecBill_Temp!品质要求 = Rs_CR!品质要求
            If IsNull(Rs_CR!内编码) = False Then Rs_StemperSpecBill_Temp!内编码 = Rs_CR!内编码
            If IsNull(Rs_CR!料号) = False Then Rs_StemperSpecBill_Temp!料号 = Rs_CR!料号
            If IsNull(Rs_CR!节目名称) = False Then Rs_StemperSpecBill_Temp!节目名称 = Rs_CR!节目名称
            If IsNull(Rs_CR!母盘号码) = False Then Rs_StemperSpecBill_Temp!母盘号码 = Rs_CR!母盘号码
            If IsNull(Rs_CR!节目源种类) = False Then Rs_StemperSpecBill_Temp!节目源种类 = Rs_CR!节目源种类
            If IsNull(Rs_CR!节目种类) = False Then Rs_StemperSpecBill_Temp!节目种类 = Rs_CR!节目种类
            If IsNull(Rs_CR!母盘刻字要求) = False Then Rs_StemperSpecBill_Temp!母盘刻字要求 = Rs_CR!母盘刻字要求
            If IsNull(Rs_CR!刻录速度) = False Then Rs_StemperSpecBill_Temp!刻录速度 = Rs_CR!刻录速度
            If IsNull(Rs_CR!母盘内孔) = False Then Rs_StemperSpecBill_Temp!母盘内孔 = Rs_CR!母盘内孔
            If IsNull(Rs_CR!菲林索引) = False Then Rs_StemperSpecBill_Temp!菲林索引 = Rs_CR!菲林索引
            If IsNull(Rs_CR!印刷参照) = False Then Rs_StemperSpecBill_Temp!印刷参照 = Rs_CR!印刷参照
            If IsNull(Rs_CR!印刷方式) = False Then Rs_StemperSpecBill_Temp!印刷方式 = Rs_CR!印刷方式
            If IsNull(Rs_CR!印刷颜色) = False Then Rs_StemperSpecBill_Temp!印刷颜色 = Rs_CR!印刷颜色
            If IsNull(Rs_CR!委托书编码) = False Then Rs_StemperSpecBill_Temp!委托书编码 = Rs_CR!委托书编码
            If IsNull(Rs_CR!印刷要求) = False Then Rs_StemperSpecBill_Temp!印刷要求 = Rs_CR!印刷要求
            If IsNull(Rs_CR!包装要求) = False Then Rs_StemperSpecBill_Temp!包装要求 = Rs_CR!包装要求
            If IsNull(Rs_CR!包装方式) = False Then Rs_StemperSpecBill_Temp!包装方式 = Rs_CR!包装方式
            If IsNull(Rs_CR!印刷内圈) = False Then Rs_StemperSpecBill_Temp!印刷内圈 = Rs_CR!印刷内圈
            '品质部录入部分
            If IsNull(Rs_CR!母盘数量) = False Then Rs_StemperSpecBill_Temp!母盘数量 = Rs_CR!母盘数量
            If IsNull(Rs_CR!节目源状态) = False Then Rs_StemperSpecBill_Temp!节目源状态 = Rs_CR!节目源状态
            If IsNull(Rs_CR!菲林状态) = False Then Rs_StemperSpecBill_Temp!菲林状态 = Rs_CR!菲林状态
            '    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 Rs_StemperSpecBill_Temp!库位号 = Rs_CR!库位号
            If IsNull(Rs_CR!备注) = False Then Rs_StemperSpecBill_Temp!财产备注 = Rs_CR!备注
            '生产部录入部分
            If IsNull(Rs_CR!印刷机号) = False Then Rs_StemperSpecBill_Temp!印刷机号 = Rs_CR!印刷机号
            If IsNull(Rs_CR!版状态) = False Then Rs_StemperSpecBill_Temp!版状态 = Rs_CR!版状态
            If IsNull(Rs_CR!专色油墨) = False Then Rs_StemperSpecBill_Temp!专色油墨 = Rs_CR!专色油墨
            If IsNull(Rs_CR!颜色样本) = False Then Rs_StemperSpecBill_Temp!颜色样本 = Rs_CR!颜色样本
            If IsNull(Rs_CR!不良率) = False And Rs_CR!不良率 <> "" Then Rs_StemperSpecBill_Temp!不良率 = Rs_CR!不良率 Else Rs_StemperSpecBill_Temp!不良率 = "00.00%"
            If IsNull(Rs_CR!剩余良品数) = False Then Rs_StemperSpecBill_Temp!剩余良品数 = Rs_CR!剩余良品数
            If IsNull(Rs_CR!小于3000) = False Then Rs_StemperSpecBill_Temp!小于3000 = Rs_CR!小于3000
            '下单时节目其他要求
            If Me.txt_Fields(0).text <> "" Then Rs_StemperSpecBill_Temp!规格单号 = Me.txt_Fields(0).text
            If Me.txt_Fields(1).text <> "" Then Rs_StemperSpecBill_Temp!客户名称 = Me.txt_Fields(1).text
            If Me.txt_Fields(2).text <> "" Then Rs_StemperSpecBill_Temp!订单种类 = Me.txt_Fields(2).text
            If Me.txt_Fields(3).text <> "" Then Rs_StemperSpecBill_Temp!母盘归属 = Me.txt_Fields(3).text
            If Me.txt_Fields(4).text <> "" Then Rs_StemperSpecBill_Temp!备注 = Me.txt_Fields(4).text
            If Me.txt_Fields(5).text <> "" Then Rs_StemperSpecBill_Temp!特殊要求 = Me.txt_Fields(5).text
'            If Me.txt_Fields(6).text <> "" Then Rs_StemperSpecBill_Temp!产品技术要求 = Me.txt_Fields(6).text
'            If Me.txt_Fields(7).text <> "" Then Rs_StemperSpecBill_Temp!产品发货要求 = Me.txt_Fields(7).text
            Rs_StemperSpecBill_Temp.Update
            
            If Rs_StemperSpecBill_Temp.State = 1 Then Rs_StemperSpecBill_Temp.Close
            Rs_StemperSpecBill_Temp.Open "select * from stemper_SpecBill_Temp order by 规格单号,小号", Cn_StemperSpecBill_Temp, adOpenKeyset, adLockOptimistic, adCmdText
            Frm_New_StemperSpecBill.TDBGrid_Stemper.Close
            Set Frm_New_StemperSpecBill.TDBGrid_Stemper.DataSource = Rs_StemperSpecBill_Temp
            Call Frm_New_StemperSpecBill.TDBGrid_Stemper_Width_Set
            
            '对交货日期进行赋值
            Str_StemperSpecBill_ConsignmentTime = Str(Me.DTP1.Value)
            Str_StemperSpecBill_SpecialRequest = Trim(Me.txt_Fields(5).text)
            Unload Me
            
        End If
       Case 10  '取消
          Unload Me
  End Select
Exit Sub
err:
   MsgBox err.Description, vbCritical
End Sub

Private Sub Txt_Fields_KeyPress(Index As Integer, KeyAscii As Integer)
On Error GoTo err
  Call ENTER(KeyAscii)
Exit Sub
err:
   MsgBox err.Description, vbCritical
End Sub
1234

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -