iostockaddmod.vb

本文件为进销存管理系统的代码 在VB的环境下运行 用比较简单的结构完成的

        Me.cmbGoods.Location = New System.Drawing.Point(104, 72)
        Me.cmbGoods.Name = "cmbGoods"
        Me.cmbGoods.Size = New System.Drawing.Size(128, 20)
        Me.cmbGoods.TabIndex = 21
        '
        'DateTimePicker1
        '
        Me.DateTimePicker1.Location = New System.Drawing.Point(104, 184)
        Me.DateTimePicker1.Name = "DateTimePicker1"
        Me.DateTimePicker1.Size = New System.Drawing.Size(128, 21)
        Me.DateTimePicker1.TabIndex = 22
        '
        'rabPay
        '
        Me.rabPay.Location = New System.Drawing.Point(176, 224)
        Me.rabPay.Name = "rabPay"
        Me.rabPay.Size = New System.Drawing.Size(56, 24)
        Me.rabPay.TabIndex = 23
        Me.rabPay.Text = "以付"
        '
        'rabNopay
        '
        Me.rabNopay.Checked = True
        Me.rabNopay.Location = New System.Drawing.Point(104, 224)
        Me.rabNopay.Name = "rabNopay"
        Me.rabNopay.Size = New System.Drawing.Size(48, 24)
        Me.rabNopay.TabIndex = 24
        Me.rabNopay.TabStop = True
        Me.rabNopay.Text = "未付"
        '
        'Label11
        '
        Me.Label11.Location = New System.Drawing.Point(24, 232)
        Me.Label11.Name = "Label11"
        Me.Label11.Size = New System.Drawing.Size(56, 16)
        Me.Label11.TabIndex = 25
        Me.Label11.Text = "付款："
        '
        'cmbStockman
        '
        Me.cmbStockman.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
        Me.cmbStockman.Location = New System.Drawing.Point(376, 184)
        Me.cmbStockman.Name = "cmbStockman"
        Me.cmbStockman.Size = New System.Drawing.Size(128, 20)
        Me.cmbStockman.TabIndex = 26
        '
        'Label12
        '
        Me.Label12.Location = New System.Drawing.Point(288, 192)
        Me.Label12.Name = "Label12"
        Me.Label12.Size = New System.Drawing.Size(80, 16)
        Me.Label12.TabIndex = 27
        Me.Label12.Text = "库存管理员："
        '
        'IOStockAddMod
        '
        Me.AcceptButton = Me.cmdOK
        Me.AutoScaleBaseSize = New System.Drawing.Size(6, 14)
        Me.CancelButton = Me.cmdCancel
        Me.ClientSize = New System.Drawing.Size(568, 414)
        Me.Controls.Add(Me.Label12)
        Me.Controls.Add(Me.cmbStockman)
        Me.Controls.Add(Me.Label11)
        Me.Controls.Add(Me.rabNopay)
        Me.Controls.Add(Me.rabPay)
        Me.Controls.Add(Me.DateTimePicker1)
        Me.Controls.Add(Me.cmbGoods)
        Me.Controls.Add(Me.cmdCancel)
        Me.Controls.Add(Me.cmdOK)
        Me.Controls.Add(Me.txtRemark)
        Me.Controls.Add(Me.txtCount)
        Me.Controls.Add(Me.cmbClient)
        Me.Controls.Add(Me.cmbUser)
        Me.Controls.Add(Me.cmbRoom)
        Me.Controls.Add(Me.txtSum)
        Me.Controls.Add(Me.txtPrice)
        Me.Controls.Add(Me.txtReportID)
        Me.Controls.Add(Me.Label10)
        Me.Controls.Add(Me.Label9)
        Me.Controls.Add(Me.Label8)
        Me.Controls.Add(Me.Label7)
        Me.Controls.Add(Me.Label6)
        Me.Controls.Add(Me.Label5)
        Me.Controls.Add(Me.Label4)
        Me.Controls.Add(Me.Label3)
        Me.Controls.Add(Me.Label2)
        Me.Controls.Add(Me.Label1)
        Me.MaximizeBox = False
        Me.MinimizeBox = False
        Me.Name = "IOStockAddMod"
        Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterParent
        Me.Text = "出入库货单信息"
        Me.ResumeLayout(False)

    End Sub

#End Region

    Private Sub IOStockAddMod_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        storename = "cmbGoods"
        Users.ShowAdmin(cmbGoods)
        storename = "ShowStockRoom"
        Users.ShowAdmin(cmbRoom)
        storename = "ShowStocker"
        Users.ShowAdmin(cmbStockman)
        '添加报单，初始化个下拉菜单
        If ClickAdd = True Then
            If ClickInput = True Then
                storename = "cmbClient"
                Users.ShowAdmin(cmbClient)
                storename = "ShowBuyer"
                Users.ShowAdmin(cmbUser)
                Me.Text = "添加入库单"
            Else
                Label8.Text = "购货商："
                storename = "cmbCustomer"
                Users.ShowAdmin(cmbClient)
                storename = "ShowSeller"
                Users.ShowAdmin(cmbUser)
                Me.Text = "添加出库单"
            End If
            '修改报单，加载个修改项数据
        Else   
            txtReportID.Enabled = False
            If ClickInput = True Then
                storename = "cmbClient"
                Users.ShowAdmin(cmbClient)
                storename = "ShowBuyer"
                Users.ShowAdmin(cmbUser)
                Me.Text = "修改入库单"
            Else
                Label8.Text = "购货商："
                storename = "cmbCustomer"
                Users.ShowAdmin(cmbClient)
                storename = "ShowSeller"
                Users.ShowAdmin(cmbUser)
                Me.Text = "修改出库单"
            End If
            txtReportID.Text = Trim(Temp(0))
            cmbGoods.Text = Trim(Temp(1))
            txtCount.Text = Trim(Temp(2))
            txtPrice.Text = Trim(Temp(3))
            txtSum.Text = Trim(Temp(4))
            cmbClient.Text = Trim(Temp(5))
            cmbUser.Text = Trim(Temp(6))
            cmbStockman.Text = Trim(Temp(7))
            cmbRoom.Text = Trim(Temp(8))
            DateTimePicker1.Text = Temp(9)
            If Temp(10) = True Then
                rabPay.Checked = True
            Else
                rabNopay.Checked = True
            End If
            txtRemark.Text = Trim(Temp(11))
        End If
    End Sub

    '添加报单
    Private Sub cmdOK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdOK.Click
        If txtReportID.Text.Trim = "" Then
            MessageBox.Show("报单号不能为空！", "错误")
            Exit Sub
        End If
        Dim info(10) As String
        info(0) = txtReportID.Text.Trim
        info(1) = Goods.FindGoosID(cmbGoods.Text.Trim).Trim
        info(2) = txtCount.Text.Trim
        info(3) = txtPrice.Text.Trim
        info(4) = txtSum.Text.Trim
        info(5) = cmbClient.Text.Trim
        info(6) = cmbUser.Text.Trim
        info(7) = cmbStockman.Text.Trim
        info(8) = cmbRoom.Text.Trim
        info(9) = DateTimePicker1.Text.Trim
        If rabNopay.Checked = True Then
            pay = False
        Else
            pay = True
        End If
        info(10) = txtRemark.Text.Trim
        '添加
        If ClickAdd = True Then
            '入库
            If ClickInput = True Then
                storename = "CheckInputReport"
                Stock.CheckID(info(0))
                If hasID = True Then
                    MessageBox.Show("已经有相同的单号！请重新输入！", "错误")
                    Exit Sub
                End If
                '添加入库报单
                storename = "insert_bssTable_InputReports_1"
                Reports.AddModIOReport(info)
                '检查库存信息是否有此货品，用就修改，没有就添加
                storename = "CheckStockGoods"
                Stock.CheckID(info(1))
                If hasID = False Then
                    Stock.AddStock(info)
                Else
                    storename = "update_bssTable_StockInfo_add"
                    Stock.ModCount(info)
                End If
                MessageBox.Show("添加成功！", "入库单")
                Me.Close()
                '出库
            Else
                storename = "CheckOutputReport"
                Stock.CheckID(info(0))
                If hasID = True Then
                    MessageBox.Show("已经有相同的单号！请重新输入！", "错误")
                    Exit Sub
                End If
                '检查库存信息是否有此货品，用就修改，没有就添加
                storename = "CheckStockGoods"
                Stock.CheckID(info(1))
                If hasID = False Then
                    MessageBox.Show("没有存储此货品！", "错误")
                    Exit Sub
                Else
                    '修改存储量
                    storename = "update_bssTable_StockInfo_sub"
                    Stock.ModCount(info)
                    '添加出库报单
                    storename = "insert_bssTable_OutputReports_1"
                    Reports.AddModIOReport(info)
                End If
                MessageBox.Show("添加成功！", "出库单")
                Me.Close()
            End If
            '修改
        Else
            txtReportID.Enabled = False
            If ClickInput = True Then
                storename = "update_bssTable_InputReports_1"
                Reports.AddModIOReport(info)
                MessageBox.Show("修改成功！", "入库单")
                Me.Close()
            Else
                storename = "update_bssTable_OutputReports_1"
                Reports.AddModIOReport(info)
                MessageBox.Show("修改成功！", "出库单")
                Me.Close()
            End If
        End If
    End Sub

    Private Sub cmdCancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdCancel.Click
        Me.Close()
    End Sub
End Class