warehouseinform.vb

一个商品销售管理系统

            MyConnection.Close()
        End If
        MyTable.Rows.Clear()
        新增入库单Button_Click(Nothing, Nothing)
    End Sub
    Private Sub 添加商品Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 添加商品Button.Click
        If (Me.金额TextBox.Text.Length < 1) Then
            Return
        End If
        MyID = MyID + 1
        Dim MyRow As DataRow = MyTable.NewRow()
        MyRow(0) = MyID
        MyRow("商品编号") = Me.商品编号TextBox.Text
        MyRow("商品名称") = Me.商品名称TextBox.Text
        MyRow("规格型号") = Me.规格型号TextBox.Text
        MyRow("生产日期") = Me.生产日期DateTimePicker.Value
        MyRow("单位") = Me.单位TextBox.Text
        MyRow("建议采购价") = Me.建议采购价TextBox.Text
        MyRow("实际采购价") = Me.实际采购价TextBox.Text
        MyRow("数量") = Me.数量TextBox.Text
        MyRow("金额") = Me.金额TextBox.Text
        MyTable.Rows.Add(MyRow)
        Dim My应付金额 As Double = Convert.ToDouble(Me.应付金额TextBox.Text)
        My应付金额 += Convert.ToDouble(Me.金额TextBox.Text)
        Me.应付金额TextBox.Text = My应付金额.ToString()
        Me.金额TextBox.Text = ""
    End Sub
    Private Sub 减少商品Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 减少商品Button.Click
        Dim My应付金额 As Double = Convert.ToDouble(Me.应付金额TextBox.Text)
        My应付金额 -= Convert.ToDouble(Me.采购明细DataGridView.CurrentRow.Cells(8).Value.ToString())
        Me.应付金额TextBox.Text = My应付金额.ToString()
        Dim MyIndex As Integer = Me.采购明细DataGridView.CurrentRow.Index
        MyTable.Rows.RemoveAt(MyIndex)
    End Sub
    Private Sub 数量TextBox_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 数量TextBox.TextChanged
        If (Me.数量TextBox.Text.Length < 1) Then
            Return
        End If
        If (Me.实际采购价TextBox.Text.Length < 1) Then
            Return
        End If
        Dim My实际采购价 As Double = Convert.ToDouble(Me.实际采购价TextBox.Text)
        Dim My数量 As Double = Convert.ToDouble(Me.数量TextBox.Text)
        Dim My金额 As Double = My实际采购价 * My数量
        Me.金额TextBox.Text = My金额.ToString()
    End Sub
    Private Sub printDocument1_PrintPage(ByVal sender As System.Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles printDocument1.PrintPage
        '打印采购明细单
        e.Graphics.DrawString(Me.MyCompany + "商品采购入库单", New Font("宋体", 20), Brushes.Black, 140, 80)
        e.Graphics.DrawString("采购单号：" + Me.采购单号TextBox.Text.ToUpper(), New Font("宋体", 12), Brushes.Black, 100, 150)
        e.Graphics.DrawString("记帐本位币：人民币(元)", New Font("宋体", 12), Brushes.Black, 530, 150)
        e.Graphics.DrawLine(New Pen(Color.Black, 3.0), 100, 170, 720, 170)
        e.Graphics.DrawString("客户名称：" + Me.客户名称ComboBox.Text, New Font("宋体", 12), Brushes.Black, 110, 175)
        e.Graphics.DrawString("应付金额：" + Me.应付金额TextBox.Text, New Font("宋体", 12), Brushes.Black, 400, 175)
        e.Graphics.DrawString("实付金额：" + Me.实付金额TextBox.Text, New Font("宋体", 12), Brushes.Black, 570, 175)
        e.Graphics.DrawLine(New Pen(Color.Black), 100, 195, 720, 195)
        e.Graphics.DrawString("付款方式：" + Me.付款方式ComboBox.Text, New Font("宋体", 12), Brushes.Black, 110, 200)
        e.Graphics.DrawString("经办人：" + Me.经办人TextBox.Text, New Font("宋体", 12), Brushes.Black, 400, 200)
        e.Graphics.DrawString("入库日期：" + Me.入库日期DateTimePicker.Value.ToShortDateString(), New Font("宋体", 12), Brushes.Black, 530, 200)
        e.Graphics.DrawLine(New Pen(Color.Black), 100, 220, 720, 220)
        e.Graphics.DrawString("说明：" + Me.说明TextBox.Text, New Font("宋体", 12), Brushes.Black, 110, 225)
        e.Graphics.DrawLine(New Pen(Color.Black, 3.0), 100, 245, 720, 245)
        e.Graphics.DrawString("商品名称", New Font("宋体", 12), Brushes.Black, 160, 250)
        e.Graphics.DrawString("规格型号", New Font("宋体", 12), Brushes.Black, 350, 250)
        e.Graphics.DrawString("单位", New Font("宋体", 12), Brushes.Black, 450, 250)
        e.Graphics.DrawString("单价", New Font("宋体", 12), Brushes.Black, 510, 250)
        e.Graphics.DrawString("数量", New Font("宋体", 12), Brushes.Black, 570, 250)
        e.Graphics.DrawString("金额", New Font("宋体", 12), Brushes.Black, 650, 250)
        Dim MyPosY As Integer = 270
        Dim MyAmount As Double = 0
        For i As Integer = 0 To MyTable.Rows.Count - 1 Step 1
            e.Graphics.DrawLine(New Pen(Color.Black), 100, MyPosY, 720, MyPosY)
            e.Graphics.DrawString(MyTable.Rows(i)(2).ToString(), New Font("宋体", 12), Brushes.Black, 110, MyPosY + 5)
            e.Graphics.DrawString(MyTable.Rows(i)(3).ToString(), New Font("宋体", 12), Brushes.Black, 330, MyPosY + 5)
            e.Graphics.DrawString(MyTable.Rows(i)(4).ToString(), New Font("宋体", 12), Brushes.Black, 450, MyPosY + 5)
            e.Graphics.DrawString(MyTable.Rows(i)(6).ToString(), New Font("宋体", 12), Brushes.Black, 500, MyPosY + 5)
            e.Graphics.DrawString(MyTable.Rows(i)(7).ToString(), New Font("宋体", 12), Brushes.Black, 570, MyPosY + 5)
            e.Graphics.DrawString(MyTable.Rows(i)(8).ToString(), New Font("宋体", 12), Brushes.Black, 630, MyPosY + 5)
            MyAmount = MyAmount + MyTable.Rows(i)(5)
            MyPosY = MyPosY + 25
        Next
        e.Graphics.DrawLine(New Pen(Color.Black, 3.0), 100, MyPosY, 720, MyPosY)
        e.Graphics.DrawString("打印日期：" + DateTime.Now.ToShortDateString(), New Font("宋体", 12), Brushes.Black, 530, MyPosY + 5)
    End Sub
    Private Function GetNewID() As String
        '自动计算自编号
        Dim MySQLConnectionString As String = My.Settings.MySaleConnectionString
        Dim MyConnection As New SqlConnection(MySQLConnectionString)
        MyConnection.Open()
        Dim MyCommand As SqlCommand = MyConnection.CreateCommand()
        MyCommand.CommandText = "Select max(自编号) 最大编号 From 采购明细"
        Dim MyResult As Object = MyCommand.ExecuteScalar()
        Dim MyID As System.Int64 = 1
        If (Not (MyResult Is System.DBNull.Value)) Then
            Dim MyMaxID As String = MyResult.ToString().Trim()
            MyMaxID = MyMaxID.Substring(2, MyMaxID.Length - 2)
            MyID = Convert.ToInt64(MyMaxID) + 1
        End If
        Dim MyLength As Integer = MyID.ToString().Length
        Dim MyNewID As String = ""
        Select Case (MyLength)
            Case 1
                MyNewID = "MX0000000" + MyID.ToString()
            Case 2
                MyNewID = "MX000000" + MyID.ToString()
            Case 3
                MyNewID = "MX00000" + MyID.ToString()
            Case 4
                MyNewID = "MX0000" + MyID.ToString()
            Case 5
                MyNewID = "MX000" + MyID.ToString()
            Case 6
                MyNewID = "MX00" + MyID.ToString()
            Case 7
                MyNewID = "MX0" + MyID.ToString()
        End Select
        If (MyConnection.State = ConnectionState.Open) Then
            MyConnection.Close()
        End If
        Return MyNewID
    End Function

    Private Sub 实际采购价TextBox_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 实际采购价TextBox.TextChanged
        If (Me.数量TextBox.Text.Length < 1) Then
            Return
        End If
        If (Me.实际采购价TextBox.Text.Length < 1) Then
            Return
        End If
        Dim My实际采购价 As Double = Convert.ToDouble(Me.实际采购价TextBox.Text)
        Dim My数量 As Double = Convert.ToDouble(Me.数量TextBox.Text)
        Dim My金额 As Double = My实际采购价 * My数量
        Me.金额TextBox.Text = My金额.ToString()
    End Sub

    Private Sub 商品信息DataGridView_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 商品信息DataGridView.Click
        If (Me.自编号TextBox.Text.Length < 1) Then
            Return
        End If
        Me.商品编号TextBox.Text = Me.商品信息DataGridView.CurrentRow.Cells(0).Value.ToString()
        Me.商品名称TextBox.Text = Me.商品信息DataGridView.CurrentRow.Cells(1).Value.ToString()
        Me.规格型号TextBox.Text = Me.商品信息DataGridView.CurrentRow.Cells(2).Value.ToString()
        Me.单位TextBox.Text = Me.商品信息DataGridView.CurrentRow.Cells(3).Value.ToString()
        Me.建议采购价TextBox.Text = Me.商品信息DataGridView.CurrentRow.Cells(4).Value.ToString()
        Me.实际采购价TextBox.Text = Me.商品信息DataGridView.CurrentRow.Cells(4).Value.ToString()
        Me.金额TextBox.Text = ""
    End Sub
End Class