warehouseinform.vb

一个商品销售管理系统

'文件名：WarehouseInForm.vb
Imports System.Data.SqlClient
Public Class WarehouseInForm
    Public MyCompany As String
    Private MyTable As System.Data.DataTable
    Private MyID As Integer
    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 WarehouseInForm_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'TODO: 这行代码将数据加载到表“MySaleDataSet.商品信息”中。您可以根据需要移动或移除它。
        Me.商品信息TableAdapter.Fill(Me.MySaleDataSet.商品信息)
        SetSupplier()
        '创建无连接的数据表
        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"))
        MyTable.Columns.Add("生产日期", System.Type.GetType("System.DateTime"))
        Me.采购明细DataGridView.DataSource = MyTable
    End Sub
    Private Sub 新增供应商Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 新增供应商Button.Click
        Dim MyDlg As New SupplierForm()
        MyDlg.ShowDialog()
        SetSupplier()
    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()
        Me.商品信息TableAdapter.Fill(Me.MySaleDataSet.商品信息)
    End Sub
    Private Sub SetSupplier()
        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 新增入库单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 = "CG0000000" + MyID.ToString()
            Case 2
                    MyNewID = "CG000000" + MyID.ToString()
            Case 3
                    MyNewID = "CG00000" + MyID.ToString()
            Case 4
                    MyNewID = "CG0000" + MyID.ToString()
            Case 5
                    MyNewID = "CG000" + MyID.ToString()
            Case 6
                    MyNewID = "CG00" + MyID.ToString()
            Case 7
                MyNewID = "CG0" + 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 打印入库单Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 打印入库单Button.Click
        Me.printPreviewDialog1.Document = Me.printDocument1
        Me.printPreviewDialog1.ShowDialog()
    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
        If (MessageBox.Show("请检查采购商品信息是否正确，一旦保存就无法修改，是否继续？", "信息提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question) = DialogResult.No) Then
            Return
        End If
        Dim MySQLConnectionString As String = My.Settings.MySaleConnectionString
        Dim MySQL As String = "INSERT INTO 采购信息(自编号,采购单号,客户名称,应付金额,实付金额,支付方式,经办人,入库日期,说明)VALUES('"
        MySQL += Me.自编号TextBox.Text + "','"
        MySQL += Me.采购单号TextBox.Text + "','"
        MySQL += Me.客户名称ComboBox.Text + "',"
        MySQL += Me.应付金额TextBox.Text + ","
        MySQL += Me.实付金额TextBox.Text + ",'"
        MySQL += Me.付款方式ComboBox.Text + "','"
        MySQL += Me.经办人TextBox.Text + "','"
        MySQL += Me.入库日期DateTimePicker.Value.ToString() + "','"
        MySQL += Me.说明TextBox.Text + "');"
        Dim MyConnection As New SqlConnection(MySQLConnectionString)
        MyConnection.Open()
        Dim MyCommand As SqlCommand = MyConnection.CreateCommand()
        MyCommand.CommandText = MySQL
        MyCommand.ExecuteNonQuery()
        For Each MyRow As DataRow In MyTable.Rows
            MySQL = "INSERT INTO 采购明细(自编号,采购单号,商品编号,数量,单价,金额,生产日期) VALUES('"
            MySQL += Me.GetNewID() + "','"
            MySQL += Me.采购单号TextBox.Text + "','"
            MySQL += MyRow(1).ToString() + "',"
            MySQL += MyRow(7).ToString() + ","
            MySQL += MyRow(6).ToString() + ","
            MySQL += MyRow(8).ToString() + ",'"
            MySQL += MyRow(9).ToString() + "');"
            MySQL += "Update 商品信息 SET 累计采购量=累计采购量+" + MyRow(7).ToString() + " WHERE 商品编号='" + MyRow(1).ToString() + "';"
            MyCommand.CommandText = MySQL
            MyCommand.ExecuteNonQuery()
        Next
        If (MyConnection.State = ConnectionState.Open) Then