frmproductin.frm

this is my first software.

   End
   Begin VB.Label Label5 
      Caption         =   "存放位置"
      ForeColor       =   &H00800000&
      Height          =   255
      Left            =   4560
      TabIndex        =   13
      Top             =   750
      Width           =   855
   End
   Begin VB.Label lableperson 
      Caption         =   "经办人："
      ForeColor       =   &H00800000&
      Height          =   255
      Left            =   6840
      TabIndex        =   12
      Top             =   750
      Width           =   735
   End
   Begin VB.Label Label9 
      Caption         =   "件数"
      ForeColor       =   &H00800000&
      Height          =   255
      Left            =   4560
      TabIndex        =   11
      Top             =   270
      Width           =   615
   End
   Begin VB.Label Label10 
      Caption         =   "来源"
      ForeColor       =   &H00800000&
      Height          =   255
      Left            =   2640
      TabIndex        =   10
      Top             =   270
      Width           =   495
   End
   Begin VB.Label Label6 
      Caption         =   "产品类型"
      ForeColor       =   &H00800000&
      Height          =   255
      Left            =   360
      TabIndex        =   9
      Top             =   270
      Width           =   735
   End
   Begin VB.Label lblPerson 
      Height          =   255
      Left            =   7560
      TabIndex        =   8
      Top             =   750
      Width           =   1095
   End
End
Attribute VB_Name = "frmProductIn"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False

Private Sub initCanShuControlors()
    Select Case ComboProductClass.Text
    Case "单片":
        ComboColorDanPian.Text = ""
        comboLangthDanPian.Text = ""
        ComboWidthDanPian.Text = ""
        ComboHouDuDanPian.Text = ""
        txtMiDuDanPian.Text = ""
        chkYouZhiXinDanPian.Value = 0
    Case "轧花片":
        ComboLangthYaHua.Text = ""
        ComboWidthYaHua.Text = ""
        ComboHouDuYaHua.Text = ""
        ComboColorYaHua.Text = ""
        txtMiDuYaHua.Text = ""
        ComboMoHouYaHua.Text = ""
        chkDanShuangMian.Value = 0
        chkYouZhiXinYaHua.Value = 0
    Case "棒材":
        ComboColorBang.Text = ""
        comboZhiJingBang.Text = ""
        txtMiDuBang.Text = ""
        txtDanWeiMiShuBang.Text = ""
        txtZongMiShuBang.Text = ""
    Case "管材":
        ComboColorGuan.Text = ""
        ComboNeiJingGuan.Text = ""
        ComboWaiJingGuan.Text = ""
        txtMiDuGuan.Text = ""
        txtDanWeiMiShuGuan.Text = ""
        txtZongMiShuGuan.Text = ""
    Case "网材":
        ComboColorWang.Text = ""
        txtMiDuWang.Text = ""
    Case "定位包装":
        comboChangJiaDingWei.Text = ""
        comboPinZhongDingWei.Text = ""
        txtMiDuDingWei.Text = ""
    Case "淋膜制品":
        ComboLangthLinMo.Text = ""
        ComboWidthLinMo.Text = ""
        ComboColorLinMo.Text = ""
        ComboFirstName.Text = ""
        ComboFirstHouDu.Text = ""
        ComboSecondName.Text = ""
        ComboSecondHouDu.Text = ""
        ComboThirdName.Text = ""
        ComboThirdHouDu.Text = ""
        txtMiDuLinMo.Text = ""
    Case "复合片":
        ComboLangthFuHe.Text = ""
        ComboWidthFuHe.Text = ""
        ComboHouDuFuHe.Text = ""
        ComboColorFuHe.Text = ""
        txtMiDuFuHe.Text = ""
        chkYouZhiXinFuHe.Value = 0
        txtCengShuFuHe.Text = ""
    Case "深加工制品":
        ComboLangthShenJiaGong.Text = ""
        ComboWidthShenJiaGong.Text = ""
        ComboHouDuShenJiaGong.Text = ""
        ComboColorShenJiaGong.Text = ""
        txtMiDuShenJiaGong.Text = ""
    Case "其它"
        ComboProductNameOther.Text = ""
        txtMiDuOther.Text = ""
    End Select
End Sub

Private Sub AdodcArg_MoveComplete(ByVal adReason As ADODB.EventReasonEnum, ByVal pError As ADODB.Error, adStatus As ADODB.EventStatusEnum, ByVal pRecordset As ADODB.Recordset)
    If AdodcArg.Recordset.BOF Or AdodcArg.Recordset.EOF Then
        AdodcArg.Caption = "记录：0"
    Else
        AdodcArg.Caption = "记录：" & (AdodcArg.Recordset.AbsolutePosition)
    End If

End Sub

Private Sub cmdCancel_Click()
    Unload Me
End Sub

Private Sub cmdSubmit_Click()
    '首先检查各参数的输入是否符合要求
    If Trim(ComboProductClass.Text) = "" Then
        MsgBox "请选择产品类型！", , "提示"
        Exit Sub
    End If
    If Trim(ComboSource.Text) = "" Then
        MsgBox "请选择产品的来源！", , "提示"
        Exit Sub
    End If
    If Not IsNumeric(txtCount.Text) Then
        MsgBox "请输入正确的件数！", , "提示"
        Exit Sub
    End If
    If Not IsNumeric(txtWeight.Text) Then
        MsgBox "请输入正确的数量！", , "提示"
        Exit Sub
    End If
    If Trim(ComboClass.Text) = "" Then
        MsgBox "请选择班次！", , "提示"
        Exit Sub
    End If
    '工号不是必须的，如果不输入工号，则将工号置为-1，表示没有输入。
    If Trim(txtNumber.Text) = "" Then
        txtNumber.Text = "-1"
    End If
    If Trim(ComboPostion.Text) = "" Then
        MsgBox "请选择存放位置！", , "提示"
        Exit Sub
    End If
    If txtBeiZhu.Text = "" Then
        txtBeiZhu.Text = "无"
    End If
    '以下这些参数的判断必须根据产品的类型逐一进行
    Select Case ComboProductClass.Text
    Case "单片":
        If comboLangthDanPian.Text = "" Then
            MsgBox "请选择单片的长度！", , "提示"
            Exit Sub
        End If
        If ComboWidthDanPian.Text = "" Then
            MsgBox "请选择单片产品的宽度！", , "提示"
            Exit Sub
        End If
        If ComboHouDuDanPian.Text = "" Then
            MsgBox "请选择单片产品的厚度！", , "提示"
            Exit Sub
        End If
        If ComboColorDanPian.Text = "" Then
            MsgBox "请选择单片产品的颜色！", , "提示"
            Exit Sub
        End If
    Case "复合片":
        If ComboLangthFuHe.Text = "" Then
            MsgBox "请选择复合片的长度！", , "提示"
            Exit Sub
        End If
        If ComboWidthFuHe.Text = "" Then
            MsgBox "请选择复合片的宽度！", , "提示"
            Exit Sub
        End If
        If ComboHouDuFuHe.Text = "" Then
            MsgBox "请选择复合片的厚度！", , "提示"
            Exit Sub
        End If
        If ComboColorFuHe.Text = "" Then
            MsgBox "请选择复合片的颜色！", , "提示"
            Exit Sub
        End If
        If Not IsNumeric(txtCengShuFuHe.Text) Then
            MsgBox "请输入复合片的层数！", , "提示"
            Exit Sub
        End If
    Case "轧花片":
        If ComboLangthYaHua.Text = "" Then
            MsgBox "请选择轧花片的长度！", , "提示"
            Exit Sub
        End If
        If ComboWidthYaHua.Text = "" Then
            MsgBox "请选择轧花片的宽度！", , "提示"
            Exit Sub
        End If
        If ComboHouDuYaHua.Text = "" Then
            MsgBox "请选择轧花片的厚度！", , "提示"
            Exit Sub
        End If
        If ComboColorYaHua.Text = "" Then
            MsgBox "请选择轧花片的颜色！", , "提示"
            Exit Sub
        End If
        If ComboMoHouYaHua.Text = "" Then
            MsgBox "请选择轧花片的膜厚！", , "提示"
            Exit Sub
        End If
    Case "淋膜制品":
        If ComboLangthLinMo.Text = "" Then
            MsgBox "请选择淋膜制品的长度！", , "提示"
            Exit Sub
        End If
        If ComboWidthLinMo.Text = "" Then
            MsgBox "请选择淋膜制品的宽度！", , "提示"
            Exit Sub
        End If
        If ComboColorLinMo.Text = "" Then
            MsgBox "请选择淋膜制品的颜色！", , "提示"
            Exit Sub
        End If
        If (ComboFirstName.Text = "") Or (ComboSecondName.Text = "") Or (ComboThirdName.Text = "") Then
            MsgBox "请选择各层名称！", , "提示"
            Exit Sub
        End If
        If (ComboFirstHouDu.Text = "") Or (ComboSecondHouDu.Text = "") Or (ComboThirdHouDu.Text = "") Then
            MsgBox "请选择各层厚度！", , "提示"
            Exit Sub
        End If
    Case "定位包装":
        If comboChangJiaDingWei.Text = "" Then
            MsgBox "请选择定位包装的厂家！", , "提示"
            Exit Sub
        End If
        If comboPinZhongDingWei.Text = "" Then
            MsgBox "请选择定位包装的品种！", , "提示"
            Exit Sub
        End If
    Case "棒材":
        If ComboColorBang.Text = "" Then
            MsgBox "请选择棒材的颜色！", , "提示"
            Exit Sub
        End If
        If comboZhiJingBang.Text = "" Then
            MsgBox "请选择棒材的直径！", , "提示"
            Exit Sub
        End If
        If txtDanWeiMiShuBang.Text = "" Then
            MsgBox "请输入棒材各段米数！", , "提示"
            Exit Sub
        End If
        If txtZongMiShuBang.Text = "" Then
            MsgBox "请输入棒材的总米数！", , "提示"
            Exit Sub
        End If
        
    Case "管材":
        If ComboColorGuan.Text = "" Then
            MsgBox "请选择管材的颜色！", , "提示"
            Exit Sub
        End If
        If ComboNeiJingGuan.Text = "" Then
            MsgBox "请选择管材的内径！", , "提示"
            Exit Sub
        End If
        If ComboWaiJingGuan.Text = "" Then
            MsgBox "请选择管材的外径！", , "提示"
            Exit Sub
        End If
        If txtDanWeiMiShuGuan.Text = "" Then
            MsgBox "请输入管材的各段米数！", , "提示"
            Exit Sub
        End If
        If txtZongMiShuGuan.Text = "" Then
            MsgBox "请输入管材的总米数！", , "提示"
            Exit Sub
        End If
        
    Case "网材":
        If ComboColorWang.Text = "" Then
            MsgBox "请选择网材的颜色！", , "提示"
            Exit Sub
        End If
    Case "深加工制品":
        If ComboLangthShenJiaGong.Text = "" Then
            MsgBox "请选择深加工制品的长度！", , "提示"
            Exit Sub
        End If
        If ComboWidthShenJiaGong.Text = "" Then
            MsgBox "请选择深加工制品的宽度！", , "提示"
            Exit Sub
        End If
        If ComboHouDuShenJiaGong.Text = "" Then
            MsgBox "请选择深加工制品的厚度！", , "提示"
            Exit Sub
        End If
        If ComboColorShenJiaGong.Text = "" Then
            MsgBox "请选择深加工制品的颜色！", , "提示"
            Exit Sub
        End If
    Case "其它":
        If ComboProductNameOther.Text = "" Then
            MsgBox "请选择该产品的名称！", , "提示"
            Exit Sub
        End If
    End Select
    '以下根据所选的产品类型进行录入工作。
    '1.更新产品入库记录表
    '  记录内容有：产品类型、来源、件数、数量、班次、工号、存放位置、
    '       经办人、日期、产品说明、备注信息
    '   其中产品说明的内容因产品的类型不同而不同，它是该产品的规格等信息。
    Dim strShuoMing As String     '用来记录所选产品的产品说明
    
    Select Case ComboProductClass.Text
    Case "单片":
        strShuoMing = comboLangthDanPian.Text & "X" & _
                    ComboWidthDanPian.Text & "X" & _
                    ComboHouDuDanPian.Text _
                    & ";" & Left(ComboColorDanPian.Text, 1) _
                    & ";密度:" & txtMiDuDanPian.Text
    Case "复合片":
        strShuoMing = ComboLangthFuHe.Text & "X" & _
                    ComboWidthFuHe.Text & "X" & _
                    ComboHouDuFuHe.Text _
                    & ";" & Left(ComboColorFuHe.Text, 1) _
                    & ";密度:" & txtMiDuFuHe.Text
    Case "轧花片":
        strShuoMing = ComboLangthYaHua.Text & "X" & _
                    ComboWidthYaHua.Text & "X" & _
                    ComboHouDuYaHua.Text & "X" & _
                    ComboMoHouYaHua.Text _
                    & ";" & Left(ComboColorYaHua.Text, 1) _
                    & ";" & IIf((chkDanShuangMian.Value = 1), "双面", "单面") _
                    & ";密度:" & txtMiDuYaHua.Text
                    
    Case "淋膜制品":
        strShuoMing = ComboLangthLinMo.Text & "X" & _
                    ComboWidthLinMo.Text & _
                    ";" & Left(ComboColorLinMo.Text, 1) & _
                    ",1:" & ComboFirstName.Text & _
                    "," & ComboFirstHouDu.Text & _
                    ",2:" & ComboSecondName.Text & _
                    "," & ComboSecondHouDu.Text & _