frmgoodsinfo.vb

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

        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@货号", System.Data.SqlDbType.VarChar, 14, "货号"))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@条码", System.Data.SqlDbType.VarChar, 14, "条码"))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@拼音编码", System.Data.SqlDbType.VarChar, 40, "拼音编码"))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@品名", System.Data.SqlDbType.VarChar, 80, "品名"))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@单位", System.Data.SqlDbType.VarChar, 6, "单位"))
        Me.SqlUpdateCommand1.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.SqlUpdateCommand1.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.SqlUpdateCommand1.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.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@规格", System.Data.SqlDbType.VarChar, 40, "规格"))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@产地", System.Data.SqlDbType.VarChar, 50, "产地"))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@类别", System.Data.SqlDbType.VarChar, 20, "类别"))
        Me.SqlUpdateCommand1.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.SqlUpdateCommand1.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.SqlUpdateCommand1.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.SqlUpdateCommand1.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.SqlUpdateCommand1.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.SqlUpdateCommand1.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.SqlUpdateCommand1.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.SqlUpdateCommand1.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.SqlUpdateCommand1.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.SqlUpdateCommand1.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.SqlUpdateCommand1.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.SqlUpdateCommand1.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.SqlUpdateCommand1.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))
        '
        'ToolBar1
        '
        Me.ToolBar1.Buttons.AddRange(New System.Windows.Forms.ToolBarButton() {Me.tbbSave, Me.tbbDel})
        Me.ToolBar1.DropDownArrows = True
        Me.ToolBar1.ImageList = Me.ImageList1
        Me.ToolBar1.Location = New System.Drawing.Point(0, 0)
        Me.ToolBar1.Name = "ToolBar1"
        Me.ToolBar1.ShowToolTips = True
        Me.ToolBar1.Size = New System.Drawing.Size(536, 28)
        Me.ToolBar1.TabIndex = 9
        '
        'tbbSave
        '
        Me.tbbSave.ImageIndex = 0
        Me.tbbSave.ToolTipText = "保存修改记录或新增记录"
        '
        'tbbDel
        '
        Me.tbbDel.ImageIndex = 1
        Me.tbbDel.ToolTipText = "删除记录"
        '
        'ImageList1
        '
        Me.ImageList1.ImageSize = New System.Drawing.Size(16, 16)
        Me.ImageList1.ImageStream = CType(resources.GetObject("ImageList1.ImageStream"), System.Windows.Forms.ImageListStreamer)
        Me.ImageList1.TransparentColor = System.Drawing.Color.Transparent
        '
        'DataSet11
        '
        Me.DataSet11.DataSetName = "DataSet1"
        Me.DataSet11.Locale = New System.Globalization.CultureInfo("zh-CN")
        '
        'grbGoodsInfo
        '
        Me.grbGoodsInfo.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
                    Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
        Me.grbGoodsInfo.Controls.Add(Me.btnSearch)
        Me.grbGoodsInfo.Controls.Add(Me.txbGoodsPY)
        Me.grbGoodsInfo.Controls.Add(Me.lblGoodsPY)
        Me.grbGoodsInfo.Location = New System.Drawing.Point(0, 30)
        Me.grbGoodsInfo.Name = "grbGoodsInfo"
        Me.grbGoodsInfo.Size = New System.Drawing.Size(536, 48)
        Me.grbGoodsInfo.TabIndex = 10
        Me.grbGoodsInfo.TabStop = False
        '
        'btnSearch
        '
        Me.btnSearch.Location = New System.Drawing.Point(150, 15)
        Me.btnSearch.Name = "btnSearch"
        Me.btnSearch.Size = New System.Drawing.Size(40, 24)
        Me.btnSearch.TabIndex = 8
        Me.btnSearch.Text = "查询"
        '
        'txbGoodsPY
        '
        Me.txbGoodsPY.Location = New System.Drawing.Point(56, 16)
        Me.txbGoodsPY.Name = "txbGoodsPY"
        Me.txbGoodsPY.Size = New System.Drawing.Size(80, 21)
        Me.txbGoodsPY.TabIndex = 7
        Me.txbGoodsPY.Text = ""
        '
        'lblGoodsPY
        '
        Me.lblGoodsPY.Location = New System.Drawing.Point(3, 21)
        Me.lblGoodsPY.Name = "lblGoodsPY"
        Me.lblGoodsPY.Size = New System.Drawing.Size(56, 16)
        Me.lblGoodsPY.TabIndex = 6
        Me.lblGoodsPY.Text = "商品拼音"
        '
        'frmGoodsInfo
        '
        Me.AutoScaleBaseSize = New System.Drawing.Size(6, 14)
        Me.ClientSize = New System.Drawing.Size(536, 285)
        Me.Controls.Add(Me.grbGoodsInfo)
        Me.Controls.Add(Me.ToolBar1)
        Me.Controls.Add(Me.dgdGoodInfo)
        Me.Name = "frmGoodsInfo"
        Me.Text = "商品信息维护"
        CType(Me.dgdGoodInfo, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.DataSet11, System.ComponentModel.ISupportInitialize).EndInit()
        Me.grbGoodsInfo.ResumeLayout(False)
        Me.ResumeLayout(False)

    End Sub

#End Region

    Private Sub btnSearch_Click(ByVal sender As System.Object, _
    ByVal e As System.EventArgs) Handles btnSearch.Click
        Dim strSQL As String = "SELECT 货号, 条码, 拼音编码, "
        strSQL += " 品名, 规格, 单位,产地, 类别, 进货价, 销售价1"
        strSQL += ", 销售价2, 最低售价 FROM 商品清单"
        If txbGoodsPY.Text.Length <> 0 Then
            '如果商品拼音不为空进行查询
            '清空DataSet11商品清单表的内容
            DataSet11.Tables("商品清单").Clear()
            '生成查询的SQL语句
            strSQL += " where 拼音编码 like '"
            strSQL += txbGoodsPY.Text.Trim() + "%'"
        End If
        SqlDataAdapter1.SelectCommand.CommandText = strSQL
        '重新填充DataSet11
        SqlDataAdapter1.Fill(DataSet11)
    End Sub

    Private Sub btnSave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        Try
            '判断DataSet11的数据是否有变化
            '即DataGrid控件上是否有数据更改或新增数据
            If DataSet11.HasChanges Then
                '通过SqlDataAdapter1更新数据库数据
                SqlDataAdapter1.Update(DataSet11)
                DataSet11.Tables("商品清单").DefaultView.RowFilter = ""
                MessageBox.Show("数据修改成功!")
            Else
                MessageBox.Show("无修改的数据!")
            End If
        Catch ex As Exception
            MessageBox.Show("修改的数据出错")
        End Try
    End Sub

    Private Sub frmGoodsInfo_Load(ByVal sender As System.Object, _
    ByVal e As System.EventArgs) Handles MyBase.Load
        '定义一个DataGrid表样式
        Dim ts As New DataGridTableStyle

        '定义一个DataGrid列样式
        Dim aColumnTextColumn As DataGridTextBoxColumn
        '获得DataGrid数据源表的列数
        Dim numCols As Integer = _
        DataSet11.Tables("商品清单").Columns.Count()
        Dim i As Integer
        '循环为DataGrid添加列样式
        For i = 0 To numCols - 1
            aColumnTextColumn = New DataGridTextBoxColumn
            '设置MappingName和HeaderText属性
            aColumnTextColumn.MappingName = _
            DataSet11.Tables("商品清单").Columns(i).ColumnName()
            aColumnTextColumn.HeaderText = _
            DataSet11.Tables("商品清单").Columns(i).ColumnName()
            '设置NullText属性为空
            aColumnTextColumn.NullText = ""
            '设置格式化文本的方法
            aColumnTextColumn.Format = "F"