tradeaddmod.vb

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

        Me.cmbClient.TabIndex = 16
        '
        'txtCount
        '
        Me.txtCount.Location = New System.Drawing.Point(376, 64)
        Me.txtCount.Name = "txtCount"
        Me.txtCount.Size = New System.Drawing.Size(128, 21)
        Me.txtCount.TabIndex = 17
        Me.txtCount.Text = ""
        '
        'txtRemark
        '
        Me.txtRemark.Location = New System.Drawing.Point(104, 232)
        Me.txtRemark.Multiline = True
        Me.txtRemark.Name = "txtRemark"
        Me.txtRemark.Size = New System.Drawing.Size(312, 80)
        Me.txtRemark.TabIndex = 18
        Me.txtRemark.Text = ""
        '
        'cmdOK
        '
        Me.cmdOK.Location = New System.Drawing.Point(160, 336)
        Me.cmdOK.Name = "cmdOK"
        Me.cmdOK.TabIndex = 19
        Me.cmdOK.Text = "确 定"
        '
        'cmdCancel
        '
        Me.cmdCancel.DialogResult = System.Windows.Forms.DialogResult.Cancel
        Me.cmdCancel.Location = New System.Drawing.Point(368, 336)
        Me.cmdCancel.Name = "cmdCancel"
        Me.cmdCancel.TabIndex = 20
        Me.cmdCancel.Text = "取 消"
        '
        'cmbGoods
        '
        Me.cmbGoods.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
        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(120, 21)
        Me.DateTimePicker1.TabIndex = 22
        '
        'TradeAddMod
        '
        Me.AcceptButton = Me.cmdOK
        Me.AutoScaleBaseSize = New System.Drawing.Size(6, 14)
        Me.CancelButton = Me.cmdCancel
        Me.ClientSize = New System.Drawing.Size(560, 373)
        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 = "TradeAddMod"
        Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterParent
        Me.Text = "货单信息"
        Me.ResumeLayout(False)

    End Sub

#End Region


    Private Sub TradeAddMod_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        storename = "cmbGoods"
        Users.ShowAdmin(cmbGoods)
        storename = "ShowStockRoom"
        Users.ShowAdmin(cmbRoom)
        '添加报单，初始化个下拉菜单
        If ClickAdd = True Then
            If ClickBuy = 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
            If ClickBuy = 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))
            cmbClient.Text = Trim(Temp(2))
            cmbUser.Text = Trim(Temp(3))
            txtPrice.Text = Trim(Temp(4))
            txtCount.Text = Trim(Temp(5))
            txtSum.Text = Trim(Temp(6))
            cmbRoom.Text = Trim(Temp(7))
            DateTimePicker1.Text = Trim(Temp(8))
            txtRemark.Text = Trim(Temp(9))
        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) = cmbGoods.Text.Trim
        info(2) = cmbClient.Text.Trim
        info(3) = cmbUser.Text.Trim
        info(4) = txtPrice.Text.Trim
        info(5) = txtCount.Text.Trim
        info(6) = txtSum.Text.Trim
        info(7) = cmbRoom.Text.Trim
        info(8) = DateTimePicker1.Text.Trim
        info(9) = txtRemark.Text.Trim
        '添加
        If ClickAdd = True Then
            If ClickBuy = True Then
                storename = "CheckBuyReport"
                Stock.CheckID(info(0))
                If hasID = True Then
                    MessageBox.Show("已经有相同的单号！请重新输入！", "错误")
                    Exit Sub
                End If
                storename = "insert_bssTable_BuyOrders_1"
                Reports.AddModReport(info)
                MessageBox.Show("添加成功！", "进货单")
                Me.Close()
            Else
                storename = "CheckSellReport"
                Stock.CheckID(info(0))
                If hasID = True Then
                    MessageBox.Show("已经有相同的单号！请重新输入！", "错误")
                    Exit Sub
                End If
                storename = "insert_bssTable_SellOrders_1"
                Reports.AddModReport(info)
                MessageBox.Show("添加成功！", "销售单")
                Me.Close()
            End If
            '修改
        Else
            txtReportID.Enabled = False
            If ClickBuy = True Then
                storename = "update_bssTable_BuyOrders_1"
                Reports.AddModReport(info)
                MessageBox.Show("修改成功！", "进货单")
                Me.Close()
            Else
                storename = "update_bssTable_SellOrders_1"
                Reports.AddModReport(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