📄 form1.vb
字号:
'
Me.TextBox8.Location = New System.Drawing.Point(496, 256)
Me.TextBox8.Multiline = True
Me.TextBox8.Name = "TextBox8"
Me.TextBox8.Size = New System.Drawing.Size(104, 72)
Me.TextBox8.TabIndex = 8
Me.TextBox8.Text = ""
'
'Label3
'
Me.Label3.Location = New System.Drawing.Point(16, 176)
Me.Label3.Name = "Label3"
Me.Label3.Size = New System.Drawing.Size(72, 16)
Me.Label3.TabIndex = 9
Me.Label3.Text = "Label3"
'
'Label4
'
Me.Label4.Location = New System.Drawing.Point(16, 216)
Me.Label4.Name = "Label4"
Me.Label4.Size = New System.Drawing.Size(72, 16)
Me.Label4.TabIndex = 10
Me.Label4.Text = "Label4"
'
'Label5
'
Me.Label5.Location = New System.Drawing.Point(16, 256)
Me.Label5.Name = "Label5"
Me.Label5.Size = New System.Drawing.Size(72, 16)
Me.Label5.TabIndex = 11
Me.Label5.Text = "Label5"
'
'Label6
'
Me.Label6.Location = New System.Drawing.Point(224, 176)
Me.Label6.Name = "Label6"
Me.Label6.Size = New System.Drawing.Size(72, 16)
Me.Label6.TabIndex = 12
Me.Label6.Text = "Label6"
'
'Label7
'
Me.Label7.Location = New System.Drawing.Point(224, 216)
Me.Label7.Name = "Label7"
Me.Label7.Size = New System.Drawing.Size(72, 16)
Me.Label7.TabIndex = 13
Me.Label7.Text = "Label7"
'
'Label8
'
Me.Label8.Location = New System.Drawing.Point(224, 256)
Me.Label8.Name = "Label8"
Me.Label8.Size = New System.Drawing.Size(72, 16)
Me.Label8.TabIndex = 14
Me.Label8.Text = "Label8"
'
'Label9
'
Me.Label9.Location = New System.Drawing.Point(424, 176)
Me.Label9.Name = "Label9"
Me.Label9.Size = New System.Drawing.Size(72, 16)
Me.Label9.TabIndex = 15
Me.Label9.Text = "Label9"
'
'Label10
'
Me.Label10.Location = New System.Drawing.Point(424, 256)
Me.Label10.Name = "Label10"
Me.Label10.Size = New System.Drawing.Size(72, 16)
Me.Label10.TabIndex = 16
Me.Label10.Text = "Label10"
'
'GoodManage
'
Me.GoodManage.DeleteCommand = Me.SqlDeleteCommand2
Me.GoodManage.InsertCommand = Me.SqlInsertCommand2
Me.GoodManage.SelectCommand = Me.SqlSelectCommand2
Me.GoodManage.TableMappings.AddRange(New System.Data.Common.DataTableMapping() {New System.Data.Common.DataTableMapping("Table", "商品信息", New System.Data.Common.DataColumnMapping() {New System.Data.Common.DataColumnMapping("id", "id"), 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("备注", "备注")})})
Me.GoodManage.UpdateCommand = Me.SqlUpdateCommand2
'
'SqlDeleteCommand2
'
Me.SqlDeleteCommand2.CommandText = "DELETE FROM 商品信息 WHERE (id = @Original_id) 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)"
Me.SqlDeleteCommand2.Connection = Me.SqlConnection1
Me.SqlDeleteCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_id", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "id", System.Data.DataRowVersion.Original, Nothing))
Me.SqlDeleteCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_价格", System.Data.SqlDbType.Money, 8, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "价格", System.Data.DataRowVersion.Original, Nothing))
Me.SqlDeleteCommand2.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.SqlDeleteCommand2.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.SqlDeleteCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_库存数量", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "库存数量", System.Data.DataRowVersion.Original, Nothing))
Me.SqlDeleteCommand2.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.SqlDeleteCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_种类", System.Data.SqlDbType.VarChar, 10, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "种类", System.Data.DataRowVersion.Original, Nothing))
Me.SqlDeleteCommand2.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))
'
'SqlInsertCommand2
'
Me.SqlInsertCommand2.CommandText = "INSERT INTO 商品信息(id, 名称, 种类, 规格, 库存数量, 价格, 描述, 备注) VALUES (@id, @名称, @种类, @规格, @库" & _
"存数量, @价格, @描述, @备注); SELECT id, 名称, 种类, 规格, 库存数量, 价格, 描述, 备注 FROM 商品信息 WHERE (id" & _
" = @id)"
Me.SqlInsertCommand2.Connection = Me.SqlConnection1
Me.SqlInsertCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@id", System.Data.SqlDbType.Int, 4, "id"))
Me.SqlInsertCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@名称", System.Data.SqlDbType.VarChar, 20, "名称"))
Me.SqlInsertCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@种类", System.Data.SqlDbType.VarChar, 10, "种类"))
Me.SqlInsertCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@规格", System.Data.SqlDbType.VarChar, 20, "规格"))
Me.SqlInsertCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@库存数量", System.Data.SqlDbType.Int, 4, "库存数量"))
Me.SqlInsertCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@价格", System.Data.SqlDbType.Money, 8, "价格"))
Me.SqlInsertCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@描述", System.Data.SqlDbType.VarChar, 50, "描述"))
Me.SqlInsertCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@备注", System.Data.SqlDbType.VarChar, 50, "备注"))
'
'SqlSelectCommand2
'
Me.SqlSelectCommand2.CommandText = "SELECT id, 名称, 种类, 规格, 库存数量, 价格, 描述, 备注 FROM 商品信息"
Me.SqlSelectCommand2.Connection = Me.SqlConnection1
'
'SqlUpdateCommand2
'
Me.SqlUpdateCommand2.CommandText = "UPDATE 商品信息 SET id = @id, 名称 = @名称, 种类 = @种类, 规格 = @规格, 库存数量 = @库存数量, 价格 = @价格, 描" & _
"述 = @描述, 备注 = @备注 WHERE (id = @Original_id) AND (价格 = @Original_价格 OR @Original_" & _
"价格 IS NULL AND 价格 IS NULL) AND (名称 = @Original_名称) AND (备注 = @Original_备注 OR @Or" & _
"iginal_备注 IS NULL AND 备注 IS NULL) AND (库存数量 = @Original_库存数量 OR @Original_库存数量 I" & _
"S NULL AND 库存数量 IS NULL) AND (描述 = @Original_描述 OR @Original_描述 IS NULL AND 描述 I" & _
"S NULL) AND (种类 = @Original_种类 OR @Original_种类 IS NULL AND 种类 IS NULL) AND (规格 =" & _
" @Original_规格 OR @Original_规格 IS NULL AND 规格 IS NULL); SELECT id, 名称, 种类, 规格, 库存" & _
"数量, 价格, 描述, 备注 FROM 商品信息 WHERE (id = @id)"
Me.SqlUpdateCommand2.Connection = Me.SqlConnection1
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@id", System.Data.SqlDbType.Int, 4, "id"))
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@名称", System.Data.SqlDbType.VarChar, 20, "名称"))
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@种类", System.Data.SqlDbType.VarChar, 10, "种类"))
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@规格", System.Data.SqlDbType.VarChar, 20, "规格"))
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@库存数量", System.Data.SqlDbType.Int, 4, "库存数量"))
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@价格", System.Data.SqlDbType.Money, 8, "价格"))
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@描述", System.Data.SqlDbType.VarChar, 50, "描述"))
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@备注", System.Data.SqlDbType.VarChar, 50, "备注"))
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_id", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "id", System.Data.DataRowVersion.Original, Nothing))
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_价格", System.Data.SqlDbType.Money, 8, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "价格", System.Data.DataRowVersion.Original, Nothing))
Me.SqlUpdateCommand2.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.SqlUpdateCommand2.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.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_库存数量", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "库存数量", System.Data.DataRowVersion.Original, Nothing))
Me.SqlUpdateCommand2.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.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_种类", System.Data.SqlDbType.VarChar, 10, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "种类", System.Data.DataRowVersion.Original, Nothing))
Me.SqlUpdateCommand2.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))
'
'PictureBox1
'
Me.PictureBox1.Image = CType(resources.GetObject("PictureBox1.Image"), System.Drawing.Bitmap)
Me.PictureBox1.Location = New System.Drawing.Point(632, 176)
Me.PictureBox1.Name = "PictureBox1"
Me.PictureBox1.Size = New System.Drawing.Size(120, 96)
Me.PictureBox1.TabIndex = 17
Me.PictureBox1.TabStop = False
'
'ComboBox1
'
Me.ComboBox1.Location = New System.Drawing.Point(96, 296)
Me.ComboBox1.Name = "ComboBox1"
Me.ComboBox1.Size = New System.Drawing.Size(121, 21)
Me.ComboBox1.TabIndex = 18
'
'ComboBox2
'
Me.ComboBox2.Location = New System.Drawing.Point(296, 296)
Me.ComboBox2.Name = "ComboBox2"
Me.ComboBox2.Size = New System.Drawing.Size(121, 21)
Me.ComboBox2.TabIndex = 19
'
'Label11
'
Me.Label11.Location = New System.Drawing.Point(16, 296)
Me.Label11.Name = "Label11"
Me.Label11.Size = New System.Drawing.Size(72, 16)
Me.Label11.TabIndex = 20
Me.Label11.Text = "Label11"
'
'Label12
'
Me.Label12.Location = New System.Drawing.Point(224, 296)
Me.Label12.Name = "Label12"
Me.Label12.Size = New System.Drawing.Size(72, 16)
Me.Label12.TabIndex = 21
Me.Label12.Text = "Label12"
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -