addgoodsform.vb

千寻销售系统 文件说明：一个采用三层结构的分部式应用程序

Imports System.Data.SqlClient
Public Class AddGoodsForm


    '定义货物列表dataset
    Dim Ds As New DataSet
    '
    Dim GoodsDataRows As DataRow()
    '定义当前文本框
    Dim TB As TextBox
    Dim MyConnection As New SqlConnection("server=(local);database=SaleServerData;integrated security=sspi")

#Region " 自定义代码 "

    Private Sub ListDatarows(ByVal i As String)

        AddGoodsFormHelpListBox.Items.Clear()
        '判断当前textbox控件
        Dim NameTemp As String = Nothing
        Dim NumberTemp As Short
        Select Case TB.Name
            Case AddGoodsFormNumberTextBox.Name
                NameTemp = "number"
                NumberTemp = 1
            Case AddGoodsFormNameTextBox.Name
                NameTemp = "name"
                NumberTemp = 2
            Case AddGoodsFormGroupNumberTextBox.Name
                NameTemp = "groupnumber"
                NumberTemp = 3
            Case AddGoodsFormGroupTextBox.Name
                NameTemp = "[group]"
                NumberTemp = 4
        End Select
        '判断名称编号是否为空
        If i <> "" Then
            GoodsDataRows = Ds.Tables(0).Select(NameTemp & " like '" & i & "%'")
            '判断找到数据是否为空
            If GoodsDataRows.Length > 0 Then
                Dim temp As Integer
                '为列表添加数据
                For temp = 0 To GoodsDataRows.Length - 1
                    AddGoodsFormHelpListBox.Items.Add(GoodsDataRows(temp)(NumberTemp))
                Next
                If GoodsDataRows.Length = 1 And i = Trim(AddGoodsFormHelpListBox.Items(0)) Then
                    Select Case TB.Name
                        Case AddGoodsFormNumberTextBox.Name
                            AddGoodsFormGroupNumberTextBox.Text = Trim(GoodsDataRows(0)(3))
                            AddGoodsFormGroupTextBox.Text = Trim(GoodsDataRows(0)(4))
                            AddGoodsFormDanweiTextBox.Text = Trim(GoodsDataRows(0)(5))
                            AddGoodsFormNnitTextBox.Text = Trim(GoodsDataRows(0)(6))
                            AddGoodsFormSCountTextBox.Text = Trim(GoodsDataRows(0)(7))
                            AddGoodsFormNameTextBox.Text = Trim(GoodsDataRows(0)(2))
                            AddGoodsFormNumberTextBox.Focus()
                        Case AddGoodsFormNameTextBox.Name
                            AddGoodsFormGroupNumberTextBox.Text = Trim(GoodsDataRows(0)(3))
                            AddGoodsFormGroupTextBox.Text = Trim(GoodsDataRows(0)(4))
                            AddGoodsFormDanweiTextBox.Text = Trim(GoodsDataRows(0)(5))
                            AddGoodsFormNnitTextBox.Text = Trim(GoodsDataRows(0)(6))
                            AddGoodsFormSCountTextBox.Text = Trim(GoodsDataRows(0)(7))
                            AddGoodsFormNumberTextBox.Text = Trim(GoodsDataRows(0)(1))
                            AddGoodsFormNameTextBox.Focus()
                    End Select
                Else
                    Select Case TB.Name
                        Case AddGoodsFormNumberTextBox.Name
                            AddGoodsFormNameTextBox.Text = ""
                            AddGoodsFormNumberTextBox.Focus()
                        Case AddGoodsFormNameTextBox.Name
                            AddGoodsFormNumberTextBox.Text = ""
                            AddGoodsFormNameTextBox.Focus()
                    End Select
                End If
            End If
        End If
    End Sub

    Private Sub Refurbish()
        Ds.Clear()
        Dim MyAdapter As SqlDataAdapter = New SqlDataAdapter("select * from goodslisttable", MyConnection)
        MyAdapter.Fill(Ds, "goodslisttable")
        AddGoodsFormDataGridView.DataSource = Ds.Tables(0)
    End Sub

#End Region

#Region " 文本框事件代码 "

    Private Sub AddGoodsFormNumberTextBox_GotFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles AddGoodsFormNumberTextBox.GotFocus
        '
        TB = AddGoodsFormNumberTextBox

        AddGoodsFormHelpListBox.Visible = True
        AddGoodsFormHelpListBox.Top = AddGoodsFormNumberTextBox.Top
        '调用函数
        If AddGoodsFormNumberTextBox.Focus = True Then
            ListDatarows(Trim(AddGoodsFormNumberTextBox.Text))
        End If

    End Sub

    Private Sub AddGoodsFormNumberTextBox_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AddGoodsFormNumberTextBox.TextChanged
        '调用函数
        If AddGoodsFormNumberTextBox.Focus = True Then
            ListDatarows(Trim(AddGoodsFormNumberTextBox.Text))
        End If
    End Sub

    Private Sub AddGoodsFormNameTextBox_GotFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles AddGoodsFormNameTextBox.GotFocus
        '
        TB = AddGoodsFormNameTextBox

        AddGoodsFormHelpListBox.Visible = True
        AddGoodsFormHelpListBox.Top = AddGoodsFormNameTextBox.Top
        '调用函数
        If AddGoodsFormNameTextBox.Focus = True Then
            ListDatarows(Trim(AddGoodsFormNameTextBox.Text))
        End If

    End Sub

    Private Sub AddGoodsFormNameTextBox_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AddGoodsFormNameTextBox.TextChanged
        '调用函数
        If AddGoodsFormNameTextBox.Focus = True Then
            ListDatarows(Trim(AddGoodsFormNameTextBox.Text))
        End If
    End Sub

    Private Sub AddGoodsFormGroupNumberTextBox_GotFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles AddGoodsFormGroupNumberTextBox.GotFocus
        AddGoodsFormHelpListBox.Visible = False

    End Sub

    Private Sub AddGoodsFormGroupNumberTextBox_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AddGoodsFormGroupNumberTextBox.TextChanged

    End Sub

    Private Sub AddGoodsFormGroupTextBox_GotFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles AddGoodsFormGroupTextBox.GotFocus
        AddGoodsFormHelpListBox.Visible = False

    End Sub

    Private Sub AddGoodsFormGroupTextBox_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AddGoodsFormGroupTextBox.TextChanged

    End Sub

    Private Sub AddGoodsFormNnitTextBox_GotFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles AddGoodsFormNnitTextBox.GotFocus
        AddGoodsFormHelpListBox.Visible = False

    End Sub

    Private Sub AddGoodsFormNnitTextBox_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AddGoodsFormNnitTextBox.TextChanged

    End Sub

    Private Sub AddGoodsFormDanweiTextBox_GotFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles AddGoodsFormDanweiTextBox.GotFocus
        AddGoodsFormHelpListBox.Visible = False

    End Sub

    Private Sub AddGoodsFormDanweiTextBox_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AddGoodsFormDanweiTextBox.TextChanged

    End Sub

    Private Sub AddGoodsFormCountTextBox_GotFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles AddGoodsFormCountTextBox.GotFocus
        AddGoodsFormHelpListBox.Visible = False

    End Sub


    Private Sub AddGoodsFormCountTextBox_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AddGoodsFormCountTextBox.TextChanged

    End Sub

    Private Sub AddGoodsFormSCountTextBox_GotFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles AddGoodsFormSCountTextBox.GotFocus
        AddGoodsFormHelpListBox.Visible = False

    End Sub

    Private Sub AddGoodsFormSCountTextBox_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AddGoodsFormSCountTextBox.TextChanged

    End Sub

#End Region

    Private Sub AddGoodsForm_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Refurbish()

    End Sub

    Private Sub AddUserFormAddButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AddGoodsFormAddButton.Click
        If Trim(AddGoodsFormNumberTextBox.Text) = "" Then
            MsgBox("请输入货物编号", , "千寻工作室")
        ElseIf Trim(AddGoodsFormNameTextBox.Text) = "" Then
            MsgBox("请输入货物名称", , "千寻工作室")
        ElseIf Trim(AddGoodsFormGroupNumberTextBox.Text) = "" Then
            MsgBox("请输入货物类别编号", , "千寻工作室")
        ElseIf Trim(AddGoodsFormGroupTextBox.Text) = "" Then
            MsgBox("请输入货物类别名称", , "千寻工作室")
        ElseIf Trim(AddGoodsFormNnitTextBox.Text) = "" Then
            MsgBox("请输入货物单价", , "千寻工作室")
        ElseIf Trim(AddGoodsFormDanweiTextBox.Text) = "" Then
            MsgBox("请输入货物使用单位", , "千寻工作室")
        ElseIf Trim(AddGoodsFormCountTextBox.Text) = "" Then
            MsgBox("请输入货物入库数量", , "千寻工作室")
        Else


            Dim MyCommand As New SqlCommand
            MyCommand.Connection = MyConnection
            MyCommand.CommandText = "select * from goodslisttable where number='" & Trim(AddGoodsFormNumberTextBox.Text) & "'"
            MyConnection.Open()
            If MyCommand.ExecuteScalar <> Nothing Then

                MyCommand.CommandText = "update goodslisttable set [count]=[count]+" & Val(Trim(AddGoodsFormCountTextBox.Text)) & " where number='" & Trim(AddGoodsFormNumberTextBox.Text) & "'"

                Try
                    MyCommand.ExecuteNonQuery()
                    MsgBox("添加成功", , "千寻工作室")
                    '刷新
                    Refurbish()

                    AddGoodsFormCancelButton_Click(sender, e)

                Catch ex As Exception
                    MsgBox(ex.ToString)
                End Try
            Else
                If MsgBox("编号" & Trim(AddGoodsFormNumberTextBox.Text) & "为新编号，是否创建一个新货物", MsgBoxStyle.YesNo) = MsgBoxResult.Yes Then

                    MyCommand.CommandText = "insert into goodslisttable (number,name,groupnumber,[group],danwei,unit,[count]) values ('" & Trim(AddGoodsFormNumberTextBox.Text) & "','" & Trim(AddGoodsFormNameTextBox.Text) & "','" & Trim(AddGoodsFormGroupNumberTextBox.Text) & "','" & Trim(AddGoodsFormGroupTextBox.Text) & "','" & Trim(AddGoodsFormDanweiTextBox.Text) & "','" & Trim(AddGoodsFormNnitTextBox.Text) & "','" & Trim(AddGoodsFormCountTextBox.Text) & "')"
                    Try
                        MyCommand.ExecuteNonQuery()
                        MsgBox("添加成功", , "千寻工作室")
                        '刷新
                        Refurbish()

                        AddGoodsFormCancelButton_Click(sender, e)
                    Catch ex As Exception
                        MsgBox(ex.ToString)
                    End Try
                Else
                    AddGoodsFormNumberTextBox.Text = ""
                    AddGoodsFormNumberTextBox.Focus()
                End If
                MyConnection.Close()


            End If
        End If
    End Sub

    Private Sub AddUserFormExitButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AddGoodsFormExitButton.Click
        Close()
    End Sub

    Private Sub AddGoodsFormCancelButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AddGoodsFormCancelButton.Click
        AddGoodsFormNumberTextBox.Text = ""
        AddGoodsFormNameTextBox.Text = ""
        AddGoodsFormGroupNumberTextBox.Text = ""
        AddGoodsFormGroupTextBox.Text = ""
        AddGoodsFormDanweiTextBox.Text = ""
        AddGoodsFormNnitTextBox.Text = ""
        AddGoodsFormCountTextBox.Text = "1"
        AddGoodsFormSCountTextBox.Text = ""
        AddGoodsFormNumberTextBox.Focus()
        AddGoodsFormHelpListBox.Items.Clear()
    End Sub

    Private Sub AddGoodsFormHelpListBox_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles AddGoodsFormHelpListBox.DoubleClick
        If AddGoodsFormHelpListBox.SelectedIndex <> -1 Then
            TB.Text = Trim(AddGoodsFormHelpListBox.Text)
        End If
    End Sub

    Private Sub AddGoodsFormHelpListBox_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AddGoodsFormHelpListBox.SelectedIndexChanged

    End Sub

    Private Sub AddUserFormDataGridView_CellContentClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles AddGoodsFormDataGridView.CellContentClick

    End Sub

    Private Sub AddUserFormDataGridView_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles AddGoodsFormDataGridView.Click
        'If AddGoodsFormDataGridView.SelectedCells(0).RowIndex < AddGoodsFormDataGridView.Rows.Count - 1 And AddGoodsFormDataGridView.SelectedCells(0).RowIndex >= 0 Then
        If AddGoodsFormDataGridView.SelectedCells(0).RowIndex >= 0 Then
            AddGoodsFormGroupNumberTextBox.Text = AddGoodsFormDataGridView.Item(3, AddGoodsFormDataGridView.SelectedCells(0).RowIndex).Value
            AddGoodsFormGroupTextBox.Text = AddGoodsFormDataGridView.Item(4, AddGoodsFormDataGridView.SelectedCells(0).RowIndex).Value
            AddGoodsFormDanweiTextBox.Text = AddGoodsFormDataGridView.Item(5, AddGoodsFormDataGridView.SelectedCells(0).RowIndex).Value
            AddGoodsFormNnitTextBox.Text = AddGoodsFormDataGridView.Item(6, AddGoodsFormDataGridView.SelectedCells(0).RowIndex).Value
            AddGoodsFormSCountTextBox.Text = AddGoodsFormDataGridView.Item(7, AddGoodsFormDataGridView.SelectedCells(0).RowIndex).Value
            AddGoodsFormNumberTextBox.Text = AddGoodsFormDataGridView.Item(1, AddGoodsFormDataGridView.SelectedCells(0).RowIndex).Value
        End If
    End Sub
End Class