frmgoodsinfo.vb

VB.NET开发的进销存系统,数据库SQLSERVER

Imports System.Data
Imports System.Data.SqlClient
Public Class frmGoodsInfo
    Inherits System.Windows.Forms.Form
    '用于下拉列表的ComboBox的对象
    Public MyCombo As New ComboBox
    '用于判断双击是否关闭
    Public bClose = False
    '用于记录在DataGrid上双击时间
    Private gridMouseDownTime As DateTime
#Region " Windows 窗体设计器生成的代码 "

    Public Sub New()
        MyBase.New()

        '该调用是 Windows 窗体设计器所必需的。
        InitializeComponent()

        '在 InitializeComponent() 调用之后添加任何初始化
        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 窗体设计器所必需的
    Private components As System.ComponentModel.IContainer

    '注意: 以下过程是 Windows 窗体设计器所必需的
    '可以使用 Windows 窗体设计器修改此过程。
    '不要使用代码编辑器修改它。
    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 进销存管理.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 进销存管理.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("货号", "货号"), 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("进货价", "进货价"), New System.Data.Common.DataColumnMapping("销售价1", "销售价1"), New System.Data.Common.DataColumnMapping("销售价2", "销售价2"), New System.Data.Common.DataColumnMapping("规格", "规格"), New System.Data.Common.DataColumnMapping("产地", "产地"), New System.Data.Common.DataColumnMapping("类别", "类别"), New System.Data.Common.DataColumnMapping("最低售价", "最低售价")})})
        Me.SqlDataAdapter1.UpdateCommand = Me.SqlUpdateCommand1
        '
        'SqlDeleteCommand1
        '
        Me.SqlDeleteCommand1.CommandText = "DELETE FROM 商品清单 WHERE (货号 = @Original_货号) AND (产地 = @Original_产地 OR @Original_产地" & _
        " IS NULL AND 产地 IS NULL) AND (单位 = @Original_单位) AND (品名 = @Original_品名 OR @Orig" & _
        "inal_品名 IS NULL AND 品名 IS NULL) AND (拼音编码 = @Original_拼音编码 OR @Original_拼音编码 IS " & _
        "NULL AND 拼音编码 IS NULL) AND (最低售价 = @Original_最低售价 OR @Original_最低售价 IS NULL AND " & _
        "最低售价 IS NULL) AND (条码 = @Original_条码 OR @Original_条码 IS NULL AND 条码 IS NULL) AND" & _
        " (类别 = @Original_类别 OR @Original_类别 IS NULL AND 类别 IS NULL) AND (规格 = @Original_" & _
        "规格 OR @Original_规格 IS NULL AND 规格 IS NULL) AND (进货价 = @Original_进货价 OR @Original" & _
        "_进货价 IS NULL AND 进货价 IS NULL) AND (销售价1 = @Original_销售价1 OR @Original_销售价1 IS NU" & _
        "LL AND 销售价1 IS NULL) AND (销售价2 = @Original_销售价2 OR @Original_销售价2 IS NULL AND 销售" & _
        "价2 IS NULL)"
        Me.SqlDeleteCommand1.Connection = Me.SqlConnection1
        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, 50, 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, 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_最低售价", System.Data.SqlDbType.Decimal, 13, System.Data.ParameterDirection.Input, False, CType(28, Byte), CType(6, Byte), "最低售价", 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_规格", 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_进货价", System.Data.SqlDbType.Decimal, 13, System.Data.ParameterDirection.Input, False, CType(28, Byte), CType(6, Byte), "进货价", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_销售价1", System.Data.SqlDbType.Decimal, 13, System.Data.ParameterDirection.Input, False, CType(28, Byte), CType(6, Byte), "销售价1", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_销售价2", System.Data.SqlDbType.Decimal, 13, System.Data.ParameterDirection.Input, False, CType(28, Byte), CType(6, Byte), "销售价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 商品清单(货号, 条码, 拼音编码, 品名, 单位, 进货价, 销售价1, 销售价2, 规格, 产地, 类别, 最低售价) VALUES " & _
        "(@货号, @条码, @拼音编码, @品名, @单位, @进货价, @销售价1, @销售价2, @规格, @产地, @类别, @最低售价); SELECT 货号" & _
        ", 条码, 拼音编码, 品名, 单位, 进货价, 销售价1, 销售价2, 规格, 产地, 类别, 最低售价 FROM 商品清单 WHERE (货号 = @货号)" & _
        ""
        Me.SqlInsertCommand1.Connection = Me.SqlConnection1
        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, 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("@进货价", System.Data.SqlDbType.Decimal, 13, System.Data.ParameterDirection.Input, False, CType(28, Byte), CType(6, Byte), "进货价", System.Data.DataRowVersion.Current, Nothing))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@销售价1", System.Data.SqlDbType.Decimal, 13, System.Data.ParameterDirection.Input, False, CType(28, Byte), CType(6, Byte), "销售价1", System.Data.DataRowVersion.Current, Nothing))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@销售价2", System.Data.SqlDbType.Decimal, 13, System.Data.ParameterDirection.Input, False, CType(28, Byte), CType(6, Byte), "销售价2", System.Data.DataRowVersion.Current, Nothing))
        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, 50, "产地"))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@类别", System.Data.SqlDbType.VarChar, 20, "类别"))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@最低售价", System.Data.SqlDbType.Decimal, 13, System.Data.ParameterDirection.Input, False, CType(28, Byte), CType(6, Byte), "最低售价", System.Data.DataRowVersion.Current, Nothing))
        '
        'SqlSelectCommand1
        '
        Me.SqlSelectCommand1.CommandText = "SELECT 货号, 条码, 拼音编码, 品名, 单位, 进货价, 销售价1, 销售价2, 规格, 产地, 类别, 最低售价 FROM 商品清单"
        Me.SqlSelectCommand1.Connection = Me.SqlConnection1
        '
        'SqlUpdateCommand1
        '
        Me.SqlUpdateCommand1.CommandText = "UPDATE 商品清单 SET 货号 = @货号, 条码 = @条码, 拼音编码 = @拼音编码, 品名 = @品名, 单位 = @单位, 进货价 = @进货价," & _
        " 销售价1 = @销售价1, 销售价2 = @销售价2, 规格 = @规格, 产地 = @产地, 类别 = @类别, 最低售价 = @最低售价 WHERE (货" & _
        "号 = @Original_货号) AND (产地 = @Original_产地 OR @Original_产地 IS NULL AND 产地 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 (最低售价 = @Original_最低售价 OR @Original_最低售价 IS NULL AND 最低售价 IS NULL) AND (条码 = " & _
        "@Original_条码 OR @Original_条码 IS NULL AND 条码 IS NULL) AND (类别 = @Original_类别 OR @" & _
        "Original_类别 IS NULL AND 类别 IS NULL) AND (规格 = @Original_规格 OR @Original_规格 IS NU" & _
        "LL AND 规格 IS NULL) AND (进货价 = @Original_进货价 OR @Original_进货价 IS NULL AND 进货价 IS " & _
        "NULL) AND (销售价1 = @Original_销售价1 OR @Original_销售价1 IS NULL AND 销售价1 IS NULL) AND" & _
        " (销售价2 = @Original_销售价2 OR @Original_销售价2 IS NULL AND 销售价2 IS NULL); SELECT 货号, " & _
        "条码, 拼音编码, 品名, 单位, 进货价, 销售价1, 销售价2, 规格, 产地, 类别, 最低售价 FROM 商品清单 WHERE (货号 = @货号)"
        Me.SqlUpdateCommand1.Connection = Me.SqlConnection1