saletransferform.vb

一个商品销售管理系统

'文件名：SaleTransferForm.vb
Imports System.Data.SqlClient
Public Class SaleTransferForm
    Private Sub 采购商信息BindingNavigatorSaveItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 采购商信息BindingNavigatorSaveItem.Click
        Me.Validate()
        Me.采购商信息BindingSource.EndEdit()
        Me.采购商信息TableAdapter.Update(Me.MySaleDataSet.采购商信息)
    End Sub
    Private Sub SaleTransferForm_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'TODO: 这行代码将数据加载到表“MySaleDataSet.采购商信息”中。您可以根据需要移动或移除它。
        Me.采购商信息TableAdapter.Fill(Me.MySaleDataSet.采购商信息)
    End Sub
    Private Sub 查询ToolStripButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 查询ToolStripButton.Click
        Try
            Me.采购商信息TableAdapter.FillBy(Me.MySaleDataSet.采购商信息, 客户名称ToolStripTextBox.Text)
        Catch ex As Exception
            System.Windows.Forms.MessageBox.Show(ex.Message)
        End Try
    End Sub
    Private Sub 客户名称TextBox_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 客户名称TextBox.TextChanged
        '获取应收货款总额
        Dim MyConnection As New SqlConnection()
        MyConnection.ConnectionString = My.Settings.MySaleConnectionString
        MyConnection.Open()
        Dim MySQL As String = "Select SUM(应收帐款) From 销售信息 WHERE 客户名称='" + Me.客户名称TextBox.Text + "'"
        Dim MyCommand As New SqlCommand(MySQL, MyConnection)
        Me.应收货款总额TextBox.Text = MyCommand.ExecuteScalar().ToString()
        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
        Me.付款客户TextBox.Text = Me.客户名称TextBox.Text
    End Sub
    Private Sub 选择收款客户Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 选择收款客户Button.Click
        Me.收款客户TextBox.Text = Me.客户名称TextBox.Text
    End Sub
    Private Sub 结转客户货款Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 结转客户货款Button.Click
        If (Me.结转金额TextBox.Text.Length < 2) 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.GetNewID() + "','"
        MySQL += "Z这是在处理货款" + "','"
        MySQL += Me.付款客户TextBox.Text + "',"
        MySQL += "0" + ","
        MySQL += Me.结转金额TextBox.Text + ",'"
        MySQL += "结转" + "','"
        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()
        MySQL = "INSERT INTO 销售信息(自编号,销售单号,客户名称,应收金额,实收金额,收款方式,经办人,出库日期,说明)VALUES('"
        MySQL += Me.GetNewID() + "','"
        MySQL += "Z这是在处理货款" + "','"
        MySQL += Me.收款客户TextBox.Text + "',"
        MySQL += "0" + ","
        MySQL += "-" + Me.结转金额TextBox.Text + ",'"
        MySQL += "结转" + "','"
        MySQL += Me.经办人TextBox.Text + "','"
        MySQL += Me.结转日期DateTimePicker.Value.ToString() + "','"
        MySQL += Me.说明TextBox.Text + "');"
        MyCommand.CommandText = MySQL
        MyCommand.ExecuteNonQuery()
        If (MyConnection.State = ConnectionState.Open) Then
            MyConnection.Close()
        End If
        Me.结转金额TextBox.Text = ""
        Me.采购商信息TableAdapter.FillBy(Me.MySaleDataSet.采购商信息, 客户名称ToolStripTextBox.Text)
    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 = "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
        Return MyNewID
    End Function
End Class