saleaddform.vb

一个商品销售管理系统

'文件名：SaleAddForm.vb
Imports System.Data.SqlClient
Public Class SaleAddForm
    Private Sub 商品信息BindingNavigatorSaveItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        Me.Validate()
        Me.商品信息BindingSource.EndEdit()
        Me.商品信息TableAdapter.Update(Me.MySaleDataSet.商品信息)
    End Sub
    Private Sub SaleAddForm_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'TODO: 这行代码将数据加载到表“MySaleDataSet.商品信息”中。您可以根据需要移动或移除它。
        Me.商品信息TableAdapter.Fill(Me.MySaleDataSet.商品信息)
        SetBuyer()
        SetMerchandise()
        '创建无连接的数据表
        Dim MyKey(1) As DataColumn
        MyTable = New DataTable("销售明细表")
        Dim MyColumn As New DataColumn()
        MyColumn.DataType = System.Type.GetType("System.Int32")
        MyColumn.ColumnName = "序号"
        MyTable.Columns.Add(MyColumn)
        MyKey(0) = MyColumn
        MyTable.PrimaryKey = MyKey
        MyTable.Columns.Add("商品编号", System.Type.GetType("System.String"))
        MyTable.Columns.Add("商品名称", System.Type.GetType("System.String"))
        MyTable.Columns.Add("规格型号", System.Type.GetType("System.String"))
        MyTable.Columns.Add("单位", System.Type.GetType("System.String"))
        MyTable.Columns.Add("建议销售价", System.Type.GetType("System.Double"))
        MyTable.Columns.Add("实际销售价", System.Type.GetType("System.Double"))
        MyTable.Columns.Add("数量", System.Type.GetType("System.Double"))
        MyTable.Columns.Add("金额", System.Type.GetType("System.Double"))
        Me.销售明细DataGridView.DataSource = MyTable
    End Sub
    Public MyCompany As String
    Private MyTable As System.Data.DataTable
    Private MyID As Integer
    Private Sub SetBuyer()
        Me.客户名称ComboBox.Items.Clear()
        '设置采购商客户名称
        Dim MyConnection As New SqlConnection()
        MyConnection.ConnectionString = My.Settings.MySaleConnectionString
        MyConnection.Open()
        Dim MyCommand As New SqlCommand("Select DISTINCT 客户名称 From 采购商信息  ", MyConnection)
        Dim MyReader As SqlDataReader = MyCommand.ExecuteReader()
        While (MyReader.Read())
            Me.客户名称ComboBox.Items.Add(MyReader.GetString(0))
        End While
        If (MyConnection.State = ConnectionState.Open) Then
            MyConnection.Close()
        End If
    End Sub
    Private Sub SetMerchandise()
        '设置商品信息
        Dim MyConnection As New SqlConnection()
        MyConnection.ConnectionString = My.Settings.MySaleConnectionString
        MyConnection.Open()
        Dim MySQL As String = "SELECT 商品编号, 商品名称, 规格型号, 单位, 当前库存量,建议销售价,说明,生产厂商, 累计销售量, 累计采购量, 建议采购价 FROM dbo.商品信息"
        Dim MyMerchandiseTable As New DataTable()
        Dim MyAdapter As New SqlDataAdapter(MySQL, MyConnection)
        MyAdapter.Fill(MyMerchandiseTable)
        Me.商品明细DataGridView.DataSource = MyMerchandiseTable
        If (MyConnection.State = ConnectionState.Open) Then
            MyConnection.Close()
        End If
    End Sub
    Private Sub 新增采购商Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 新增采购商Button.Click
        Dim MyDlg As New BuyerForm()
        MyDlg.ShowDialog()
        SetBuyer()
    End Sub
    Private Sub 新增商品种类Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 新增商品种类Button.Click
        Dim MyDlg As New MerchandiseForm()
        MyDlg.ShowDialog()
        SetMerchandise()
    End Sub
    Private Sub 新增出库单Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 新增出库单Button.Click
        '自动计算自编号
        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 = "XS0000000" + MyID.ToString()
            Case 2
                MyNewID = "XS000000" + MyID.ToString()
            Case 3
                MyNewID = "XS00000" + MyID.ToString()
            Case 4
                MyNewID = "XS0000" + MyID.ToString()
            Case 5
                MyNewID = "XS000" + MyID.ToString()
            Case 6
                MyNewID = "XS00" + MyID.ToString()
            Case 7
                MyNewID = "XS0" + MyID.ToString()
        End Select
        If (MyConnection.State = ConnectionState.Open) Then
            MyConnection.Close()
        End If
        Me.自编号TextBox.Text = MyNewID
        Me.销售单号TextBox.Text = ""
        Me.客户名称ComboBox.Text = ""
        Me.应收金额TextBox.Text = "0"
        Me.实收金额TextBox.Text = "0"
        Me.收款方式ComboBox.Text = ""
        Me.经办人TextBox.Text = ""
        Me.说明TextBox.Text = ""
        Me.MyID = 0
    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(5).Value.ToString()
        Me.实际销售价TextBox.Text = Me.商品明细DataGridView.CurrentRow.Cells(5).Value.ToString()
        Me.金额TextBox.Text = ""
    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 数量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数量