frmproductout.frm

this is my first software.

      Begin VB.ComboBox ComboWidthFuHe 
         Height          =   300
         Left            =   3000
         TabIndex        =   45
         Top             =   360
         Width           =   1095
      End
      Begin VB.ComboBox ComboHouDuFuHe 
         Height          =   300
         Left            =   5160
         TabIndex        =   44
         Top             =   360
         Width           =   1215
      End
      Begin VB.ComboBox ComboColorFuHe 
         Height          =   300
         Left            =   960
         TabIndex        =   43
         Top             =   840
         Width           =   1215
      End
      Begin VB.Label Label29 
         Caption         =   "层数"
         Height          =   255
         Left            =   2400
         TabIndex        =   104
         Top             =   840
         Width           =   375
      End
      Begin VB.Label Label11 
         Caption         =   "长度"
         Height          =   255
         Left            =   480
         TabIndex        =   50
         Top             =   360
         Width           =   375
      End
      Begin VB.Label Label12 
         Caption         =   "宽度"
         Height          =   255
         Left            =   2400
         TabIndex        =   49
         Top             =   360
         Width           =   375
      End
      Begin VB.Label Label13 
         Caption         =   "厚度"
         Height          =   255
         Left            =   4320
         TabIndex        =   48
         Top             =   360
         Width           =   375
      End
      Begin VB.Label Label14 
         Caption         =   "颜色"
         Height          =   255
         Left            =   480
         TabIndex        =   47
         Top             =   840
         Width           =   375
      End
   End
   Begin VB.Label Label4 
      Caption         =   "今日出库记录"
      Height          =   255
      Left            =   360
      TabIndex        =   85
      Top             =   3600
      Width           =   1215
   End
   Begin VB.Label Label2 
      Caption         =   "用车信息"
      ForeColor       =   &H00800000&
      Height          =   255
      Left            =   360
      TabIndex        =   83
      Top             =   720
      Width           =   735
   End
   Begin VB.Label lblPerson 
      Height          =   255
      Left            =   7560
      TabIndex        =   82
      Top             =   795
      Width           =   1095
   End
   Begin VB.Label Label6 
      Caption         =   "产品类型"
      ForeColor       =   &H00800000&
      Height          =   255
      Left            =   360
      TabIndex        =   81
      Top             =   315
      Width           =   735
   End
   Begin VB.Label Label9 
      Caption         =   "件数"
      ForeColor       =   &H00800000&
      Height          =   255
      Left            =   5040
      TabIndex        =   80
      Top             =   315
      Width           =   495
   End
   Begin VB.Label lableperson 
      Caption         =   "经办人"
      ForeColor       =   &H00800000&
      Height          =   255
      Left            =   6960
      TabIndex        =   79
      Top             =   795
      Width           =   615
   End
   Begin VB.Label Label5 
      Caption         =   "原存放位置"
      ForeColor       =   &H00800000&
      Height          =   255
      Left            =   2640
      TabIndex        =   78
      Top             =   315
      Width           =   975
   End
   Begin VB.Label lblWeight1 
      Caption         =   "数量"
      ForeColor       =   &H00800000&
      Height          =   255
      Left            =   6960
      TabIndex        =   77
      Top             =   315
      Width           =   375
   End
   Begin VB.Label lblWeight2 
      Caption         =   "kg"
      Height          =   255
      Left            =   8760
      TabIndex        =   76
      Top             =   315
      Width           =   375
   End
   Begin VB.Label Label46 
      Caption         =   "备注信息"
      Height          =   255
      Left            =   360
      TabIndex        =   75
      Top             =   2805
      Width           =   855
   End
   Begin VB.Line Line1 
      X1              =   360
      X2              =   8040
      Y1              =   1200
      Y2              =   1200
   End
End
Attribute VB_Name = "frmProductOut"
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 = ""
        chkYouZhiXinDanPian.Value = 0
    Case "轧花片":
        ComboLangthYaHua.Text = ""
        ComboWidthYaHua.Text = ""
        ComboHouDuYaHua.Text = ""
        ComboColorYaHua.Text = ""
        ComboMoHouYaHua.Text = ""
        chkDanShuangMian.Value = 0
        chkYouZhiXinYaHua.Value = 0
    Case "棒材":
        ComboColorBang.Text = ""
        comboZhiJingBang.Text = ""
        txtDanWeiMiShuBang.Text = ""
        txtZongMiShuBang.Text = ""
    Case "管材":
        ComboColorGuan.Text = ""
        ComboNeiJingGuan.Text = ""
        ComboWaiJingGuan.Text = ""
        txtDanWeiMiShuGuan.Text = ""
        txtZongMiShuGuan.Text = ""
    Case "网材":
        ComboColorWang.Text = ""
    Case "定位包装":
        comboChangJiaDingWei.Text = ""
        comboPinZhongDingWei.Text = ""
    Case "淋膜制品":
        ComboLangthLinMo.Text = ""
        ComboWidthLinMo.Text = ""
        comboColorLinMo.Text = ""
        ComboFirstName.Text = ""
        ComboFirstHouDu.Text = ""
        ComboSecondName.Text = ""
        ComboSecondHouDu.Text = ""
        ComboThirdName.Text = ""
        ComboThirdHouDu.Text = ""
    Case "复合片":
        ComboLangthFuHe.Text = ""
        ComboWidthFuHe.Text = ""
        ComboHouDuFuHe.Text = ""
        ComboColorFuHe.Text = ""
        txtCengShuFuhe.Text = ""
        chkYouZhiXinFuHe.Value = 0
    Case "深加工制品":
        ComboLangthShenJiaGong.Text = ""
        ComboWidthShenJiaGong.Text = ""
        ComboHouDuShenJiaGong.Text = ""
        ComboColorShenJiaGong.Text = ""
    Case "其它"
        ComboProductNameOther.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 SetDataGrid()
    Dim currentDate As String
    currentDate = Str(Year(Date)) & "-" & Str(Month(Date)) & "-" & Str(Day(Date))
    
    adodcarg.ConnectionString = connectString
    adodcarg.RecordSource = "select 产品类型,数量,原存放位置,经办人,产品说明,用车信息,备注信息 from 产品出库记录表 where 日期 = " & "#" & currentDate & "#"
    Set DataGridArg.DataSource = adodcarg
    adodcarg.Refresh
End Sub
Private Sub cmdSubmit_Click()
    '首先检查各参数的输入是否符合要求
    If Trim(ComboProductClass.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(ComboPostion.Text) = "" Then
        MsgBox "请选择原存放位置！", , "提示"
        Exit Sub
    End If
    If Trim(txtYongChe.Text) = "" Then
        txtYongChe.Text = "无"
    End If
    If Trim(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 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
    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
    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
    '以下根据所选的产品类型进行录入工作。
    Select Case ComboProductClass.Text
    Case "单片":
        cn.Open
        Set rs.ActiveConnection = cn
        rs.LockType = adLockPessimistic
        rs.CursorType = adOpenKeyset
        If chkYouZhiXinDanPian.Value = 1 Then
            rs.Open "select * from 单片库存表 where 长度 = '" & comboLangthDanPian.Text & "' and 宽度 = '" & ComboWidthDanPian.Text & "' and 厚度 = '" & ComboHouDuDanPian.Text & "' and 颜色 = '" & ComboColorDanPian.Text & "' and 存放位置 = '" & ComboPostion.Text & "' and 纸芯 = True"
        Else
            rs.Open "select * from 单片库存表 where 长度 = '" & comboLangthDanPian.Text & "' and 宽度 = '" & ComboWidthDanPian.Text & "' and 厚度 = '" & ComboHouDuDanPian.Text & "' and 颜色 = '" & ComboColorDanPian.Text & "' and 存放位置 = '" & ComboPostion.Text & "' and 纸芯 = false"
        End If
        If rs.EOF Then
            MsgBox "仓库中无此类产品！", , "提示"
            rs.Close
            cn.Close
            Exit Sub