Imports System.Data
Imports System.Data.SqlClient
Public Class frmGoodsInfo
    Inherits System.Windows.Forms.Form
    '用于下拉列表的ComboBox的對(duì)象
    Public MyCombo As New ComboBox
    '用于判斷雙擊是否關(guān)閉
    Public bClose = False
    '用于記錄在DataGrid上雙擊時(shí)間
    Private gridMouseDownTime As DateTime
#Region " Windows 窗體設(shè)計(jì)器生成的代碼 "

    Public Sub New()
        MyBase.New()

        '該調(diào)用是 Windows 窗體設(shè)計(jì)器所必需的。
        InitializeComponent()

        '在 InitializeComponent() 調(diào)用之后添加任何初始化
        gridMouseDownTime = DateTime.Now
    End Sub

    '窗體重寫 dispose 以清理組件列表。
    Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
        If disposing Then
            If Not (components Is Nothing) Then
                components.Dispose()
            End If
        End If
        MyBase.Dispose(disposing)
    End Sub

    'Windows 窗體設(shè)計(jì)器所必需的
    Private components As System.ComponentModel.IContainer

    '注意: 以下過程是 Windows 窗體設(shè)計(jì)器所必需的
    '可以使用 Windows 窗體設(shè)計(jì)器修改此過程。
    '不要使用代碼編輯器修改它。
    Friend WithEvents dgdGoodInfo As System.Windows.Forms.DataGrid
    Friend WithEvents SqlDataAdapter1 As System.Data.SqlClient.SqlDataAdapter
    Friend WithEvents ToolBar1 As System.Windows.Forms.ToolBar
    Friend WithEvents ImageList1 As System.Windows.Forms.ImageList
    Friend WithEvents tbbSave As System.Windows.Forms.ToolBarButton
    Friend WithEvents SqlSelectCommand1 As System.Data.SqlClient.SqlCommand
    Friend WithEvents SqlInsertCommand1 As System.Data.SqlClient.SqlCommand
    Friend WithEvents SqlUpdateCommand1 As System.Data.SqlClient.SqlCommand
    Friend WithEvents SqlDeleteCommand1 As System.Data.SqlClient.SqlCommand
    Friend WithEvents SqlConnection1 As System.Data.SqlClient.SqlConnection
    Friend WithEvents DataSet11 As 進(jìn)銷存管理.DataSet1
    Friend WithEvents tbbDel As System.Windows.Forms.ToolBarButton
    Friend WithEvents grbGoodsInfo As System.Windows.Forms.GroupBox
    Friend WithEvents btnSearch As System.Windows.Forms.Button
    Friend WithEvents txbGoodsPY As System.Windows.Forms.TextBox
    Friend WithEvents lblGoodsPY As System.Windows.Forms.Label
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
        Me.components = New System.ComponentModel.Container
        Dim resources As System.Resources.ResourceManager = New System.Resources.ResourceManager(GetType(frmGoodsInfo))
        Me.dgdGoodInfo = New System.Windows.Forms.DataGrid
        Me.SqlDataAdapter1 = New System.Data.SqlClient.SqlDataAdapter
        Me.SqlDeleteCommand1 = New System.Data.SqlClient.SqlCommand
        Me.SqlConnection1 = New System.Data.SqlClient.SqlConnection
        Me.SqlInsertCommand1 = New System.Data.SqlClient.SqlCommand
        Me.SqlSelectCommand1 = New System.Data.SqlClient.SqlCommand
        Me.SqlUpdateCommand1 = New System.Data.SqlClient.SqlCommand
        Me.ToolBar1 = New System.Windows.Forms.ToolBar
        Me.tbbSave = New System.Windows.Forms.ToolBarButton
        Me.tbbDel = New System.Windows.Forms.ToolBarButton
        Me.ImageList1 = New System.Windows.Forms.ImageList(Me.components)
        Me.DataSet11 = New 進(jìn)銷存管理.DataSet1
        Me.grbGoodsInfo = New System.Windows.Forms.GroupBox
        Me.btnSearch = New System.Windows.Forms.Button
        Me.txbGoodsPY = New System.Windows.Forms.TextBox
        Me.lblGoodsPY = New System.Windows.Forms.Label
        CType(Me.dgdGoodInfo, System.ComponentModel.ISupportInitialize).BeginInit()
        CType(Me.DataSet11, System.ComponentModel.ISupportInitialize).BeginInit()
        Me.grbGoodsInfo.SuspendLayout()
        Me.SuspendLayout()
        '
        'dgdGoodInfo
        '
        Me.dgdGoodInfo.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
                    Or System.Windows.Forms.AnchorStyles.Left) _
                    Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
        Me.dgdGoodInfo.CaptionVisible = False
        Me.dgdGoodInfo.DataMember = ""
        Me.dgdGoodInfo.HeaderForeColor = System.Drawing.SystemColors.ControlText
        Me.dgdGoodInfo.Location = New System.Drawing.Point(0, 85)
        Me.dgdGoodInfo.Name = "dgdGoodInfo"
        Me.dgdGoodInfo.Size = New System.Drawing.Size(536, 200)
        Me.dgdGoodInfo.TabIndex = 6
        '
        'SqlDataAdapter1
        '
        Me.SqlDataAdapter1.DeleteCommand = Me.SqlDeleteCommand1
        Me.SqlDataAdapter1.InsertCommand = Me.SqlInsertCommand1
        Me.SqlDataAdapter1.SelectCommand = Me.SqlSelectCommand1
        Me.SqlDataAdapter1.TableMappings.AddRange(New System.Data.Common.DataTableMapping() {New System.Data.Common.DataTableMapping("Table", "商品清單", New System.Data.Common.DataColumnMapping() {New System.Data.Common.DataColumnMapping("貨號(hào)", "貨號(hào)"), New System.Data.Common.DataColumnMapping("條碼", "條碼"), New System.Data.Common.DataColumnMapping("拼音編碼", "拼音編碼"), New System.Data.Common.DataColumnMapping("品名", "品名"), New System.Data.Common.DataColumnMapping("單位", "單位"), New System.Data.Common.DataColumnMapping("進(jìn)貨價(jià)", "進(jìn)貨價(jià)"), New System.Data.Common.DataColumnMapping("銷售價(jià)1", "銷售價(jià)1"), New System.Data.Common.DataColumnMapping("銷售價(jià)2", "銷售價(jià)2"), New System.Data.Common.DataColumnMapping("規(guī)格", "規(guī)格"), New System.Data.Common.DataColumnMapping("產(chǎn)地", "產(chǎn)地"), New System.Data.Common.DataColumnMapping("類別", "類別"), New System.Data.Common.DataColumnMapping("最低售價(jià)", "最低售價(jià)")})})
        Me.SqlDataAdapter1.UpdateCommand = Me.SqlUpdateCommand1
        '
        'SqlDeleteCommand1
        '
        Me.SqlDeleteCommand1.CommandText = "DELETE FROM 商品清單 WHERE (貨號(hào) = @Original_貨號(hào)) AND (產(chǎn)地 = @Original_產(chǎn)地 OR @Original_產(chǎn)地" & _
        " IS NULL AND 產(chǎn)地 IS NULL) AND (單位 = @Original_單位) AND (品名 = @Original_品名 OR @Orig" & _
        "inal_品名 IS NULL AND 品名 IS NULL) AND (拼音編碼 = @Original_拼音編碼 OR @Original_拼音編碼 IS " & _
        "NULL AND 拼音編碼 IS NULL) AND (最低售價(jià) = @Original_最低售價(jià) OR @Original_最低售價(jià) IS NULL AND " & _
        "最低售價(jià) IS NULL) AND (條碼 = @Original_條碼 OR @Original_條碼 IS NULL AND 條碼 IS NULL) AND" & _
        " (類別 = @Original_類別 OR @Original_類別 IS NULL AND 類別 IS NULL) AND (規(guī)格 = @Original_" & _
        "規(guī)格 OR @Original_規(guī)格 IS NULL AND 規(guī)格 IS NULL) AND (進(jìn)貨價(jià) = @Original_進(jìn)貨價(jià) OR @Original" & _
        "_進(jìn)貨價(jià) IS NULL AND 進(jìn)貨價(jià) IS NULL) AND (銷售價(jià)1 = @Original_銷售價(jià)1 OR @Original_銷售價(jià)1 IS NU" & _
        "LL AND 銷售價(jià)1 IS NULL) AND (銷售價(jià)2 = @Original_銷售價(jià)2 OR @Original_銷售價(jià)2 IS NULL AND 銷售" & _
        "價(jià)2 IS NULL)"
        Me.SqlDeleteCommand1.Connection = Me.SqlConnection1
        Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_貨號(hào)", System.Data.SqlDbType.VarChar, 14, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "貨號(hào)", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_產(chǎn)地", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "產(chǎn)地", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_單位", System.Data.SqlDbType.VarChar, 6, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "單位", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_品名", System.Data.SqlDbType.VarChar, 80, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "品名", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_拼音編碼", System.Data.SqlDbType.VarChar, 40, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "拼音編碼", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_最低售價(jià)", System.Data.SqlDbType.Decimal, 13, System.Data.ParameterDirection.Input, False, CType(28, Byte), CType(6, Byte), "最低售價(jià)", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_條碼", System.Data.SqlDbType.VarChar, 14, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "條碼", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_類別", System.Data.SqlDbType.VarChar, 20, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "類別", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_規(guī)格", System.Data.SqlDbType.VarChar, 40, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "規(guī)格", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_進(jìn)貨價(jià)", System.Data.SqlDbType.Decimal, 13, System.Data.ParameterDirection.Input, False, CType(28, Byte), CType(6, Byte), "進(jìn)貨價(jià)", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_銷售價(jià)1", System.Data.SqlDbType.Decimal, 13, System.Data.ParameterDirection.Input, False, CType(28, Byte), CType(6, Byte), "銷售價(jià)1", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_銷售價(jià)2", System.Data.SqlDbType.Decimal, 13, System.Data.ParameterDirection.Input, False, CType(28, Byte), CType(6, Byte), "銷售價(jià)2", System.Data.DataRowVersion.Original, Nothing))
        '
        'SqlConnection1
        '
        Me.SqlConnection1.ConnectionString = "workstation id=CS;packet size=4096;integrated security=SSPI;data source=CS;persis" & _
        "t security info=False;initial catalog=jxcbook"
        '
        'SqlInsertCommand1
        '
        Me.SqlInsertCommand1.CommandText = "INSERT INTO 商品清單(貨號(hào), 條碼, 拼音編碼, 品名, 單位, 進(jìn)貨價(jià), 銷售價(jià)1, 銷售價(jià)2, 規(guī)格, 產(chǎn)地, 類別, 最低售價(jià)) VALUES " & _
        "(@貨號(hào), @條碼, @拼音編碼, @品名, @單位, @進(jìn)貨價(jià), @銷售價(jià)1, @銷售價(jià)2, @規(guī)格, @產(chǎn)地, @類別, @最低售價(jià)); SELECT 貨號(hào)" & _
        ", 條碼, 拼音編碼, 品名, 單位, 進(jìn)貨價(jià), 銷售價(jià)1, 銷售價(jià)2, 規(guī)格, 產(chǎn)地, 類別, 最低售價(jià) FROM 商品清單 WHERE (貨號(hào) = @貨號(hào))" & _
        ""
        Me.SqlInsertCommand1.Connection = Me.SqlConnection1
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@貨號(hào)", System.Data.SqlDbType.VarChar, 14, "貨號(hào)"))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@條碼", System.Data.SqlDbType.VarChar, 14, "條碼"))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@拼音編碼", System.Data.SqlDbType.VarChar, 40, "拼音編碼"))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@品名", System.Data.SqlDbType.VarChar, 80, "品名"))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@單位", System.Data.SqlDbType.VarChar, 6, "單位"))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@進(jìn)貨價(jià)", System.Data.SqlDbType.Decimal, 13, System.Data.ParameterDirection.Input, False, CType(28, Byte), CType(6, Byte), "進(jìn)貨價(jià)", System.Data.DataRowVersion.Current, Nothing))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@銷售價(jià)1", System.Data.SqlDbType.Decimal, 13, System.Data.ParameterDirection.Input, False, CType(28, Byte), CType(6, Byte), "銷售價(jià)1", System.Data.DataRowVersion.Current, Nothing))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@銷售價(jià)2", System.Data.SqlDbType.Decimal, 13, System.Data.ParameterDirection.Input, False, CType(28, Byte), CType(6, Byte), "銷售價(jià)2", System.Data.DataRowVersion.Current, Nothing))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@規(guī)格", System.Data.SqlDbType.VarChar, 40, "規(guī)格"))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@產(chǎn)地", System.Data.SqlDbType.VarChar, 50, "產(chǎn)地"))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@類別", System.Data.SqlDbType.VarChar, 20, "類別"))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@最低售價(jià)", System.Data.SqlDbType.Decimal, 13, System.Data.ParameterDirection.Input, False, CType(28, Byte), CType(6, Byte), "最低售價(jià)", System.Data.DataRowVersion.Current, Nothing))
        '
        'SqlSelectCommand1
        '
        Me.SqlSelectCommand1.CommandText = "SELECT 貨號(hào), 條碼, 拼音編碼, 品名, 單位, 進(jìn)貨價(jià), 銷售價(jià)1, 銷售價(jià)2, 規(guī)格, 產(chǎn)地, 類別, 最低售價(jià) FROM 商品清單"
        Me.SqlSelectCommand1.Connection = Me.SqlConnection1
        '
        'SqlUpdateCommand1
        '
        Me.SqlUpdateCommand1.CommandText = "UPDATE 商品清單 SET 貨號(hào) = @貨號(hào), 條碼 = @條碼, 拼音編碼 = @拼音編碼, 品名 = @品名, 單位 = @單位, 進(jìn)貨價(jià) = @進(jìn)貨價(jià)," & _
        " 銷售價(jià)1 = @銷售價(jià)1, 銷售價(jià)2 = @銷售價(jià)2, 規(guī)格 = @規(guī)格, 產(chǎn)地 = @產(chǎn)地, 類別 = @類別, 最低售價(jià) = @最低售價(jià) WHERE (貨" & _
        "號(hào) = @Original_貨號(hào)) AND (產(chǎn)地 = @Original_產(chǎn)地 OR @Original_產(chǎn)地 IS NULL AND 產(chǎn)地 IS NULL)" & _
        " AND (單位 = @Original_單位) AND (品名 = @Original_品名 OR @Original_品名 IS NULL AND 品名 I" & _
        "S NULL) AND (拼音編碼 = @Original_拼音編碼 OR @Original_拼音編碼 IS NULL AND 拼音編碼 IS NULL) A" & _
        "ND (最低售價(jià) = @Original_最低售價(jià) OR @Original_最低售價(jià) IS NULL AND 最低售價(jià) IS NULL) AND (條碼 = " & _
        "@Original_條碼 OR @Original_條碼 IS NULL AND 條碼 IS NULL) AND (類別 = @Original_類別 OR @" & _
        "Original_類別 IS NULL AND 類別 IS NULL) AND (規(guī)格 = @Original_規(guī)格 OR @Original_規(guī)格 IS NU" & _
        "LL AND 規(guī)格 IS NULL) AND (進(jìn)貨價(jià) = @Original_進(jìn)貨價(jià) OR @Original_進(jìn)貨價(jià) IS NULL AND 進(jìn)貨價(jià) IS " & _
        "NULL) AND (銷售價(jià)1 = @Original_銷售價(jià)1 OR @Original_銷售價(jià)1 IS NULL AND 銷售價(jià)1 IS NULL) AND" & _
        " (銷售價(jià)2 = @Original_銷售價(jià)2 OR @Original_銷售價(jià)2 IS NULL AND 銷售價(jià)2 IS NULL); SELECT 貨號(hào), " & _
        "條碼, 拼音編碼, 品名, 單位, 進(jìn)貨價(jià), 銷售價(jià)1, 銷售價(jià)2, 規(guī)格, 產(chǎn)地, 類別, 最低售價(jià) FROM 商品清單 WHERE (貨號(hào) = @貨號(hào))"
        Me.SqlUpdateCommand1.Connection = Me.SqlConnection1
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@貨號(hào)", System.Data.SqlDbType.VarChar, 14, "貨號(hào)"))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@條碼", System.Data.SqlDbType.VarChar, 14, "條碼"))