form1.vb

这是一个商务管理体系

        '
        'Button1
        '
        Me.Button1.Location = New System.Drawing.Point(96, 352)
        Me.Button1.Name = "Button1"
        Me.Button1.Size = New System.Drawing.Size(72, 32)
        Me.Button1.TabIndex = 22
        Me.Button1.Text = "添加"
        '
        'Button2
        '
        Me.Button2.Location = New System.Drawing.Point(184, 352)
        Me.Button2.Name = "Button2"
        Me.Button2.Size = New System.Drawing.Size(72, 32)
        Me.Button2.TabIndex = 23
        Me.Button2.Text = "删除"
        '
        'Button3
        '
        Me.Button3.Location = New System.Drawing.Point(272, 352)
        Me.Button3.Name = "Button3"
        Me.Button3.Size = New System.Drawing.Size(72, 32)
        Me.Button3.TabIndex = 24
        Me.Button3.Text = "修改"
        '
        'Button5
        '
        Me.Button5.Location = New System.Drawing.Point(656, 280)
        Me.Button5.Name = "Button5"
        Me.Button5.Size = New System.Drawing.Size(72, 32)
        Me.Button5.TabIndex = 26
        Me.Button5.Text = "选择图片"
        '
        'MonthCalendar1
        '
        Me.MonthCalendar1.Location = New System.Drawing.Point(480, 336)
        Me.MonthCalendar1.Name = "MonthCalendar1"
        Me.MonthCalendar1.TabIndex = 27
        '
        'Button6
        '
        Me.Button6.Location = New System.Drawing.Point(360, 448)
        Me.Button6.Name = "Button6"
        Me.Button6.Size = New System.Drawing.Size(72, 32)
        Me.Button6.TabIndex = 28
        Me.Button6.Text = "选择日期"
        '
        'BuyManage
        '
        Me.BuyManage.DeleteCommand = Me.SqlDeleteCommand3
        Me.BuyManage.InsertCommand = Me.SqlInsertCommand3
        Me.BuyManage.SelectCommand = Me.SqlSelectCommand3
        Me.BuyManage.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("用户id", "用户id"), 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("备注", "备注")})})
        Me.BuyManage.UpdateCommand = Me.SqlUpdateCommand3
        '
        'SqlDeleteCommand3
        '
        Me.SqlDeleteCommand3.CommandText = "DELETE FROM 购买信息 WHERE (id = @Original_id) AND (商品id = @Original_商品id OR @Origina" & _
        "l_商品id IS NULL AND 商品id IS NULL) AND (备注 = @Original_备注 OR @Original_备注 IS NULL " & _
        "AND 备注 IS NULL) AND (已处理 = @Original_已处理 OR @Original_已处理 IS NULL AND 已处理 IS NUL" & _
        "L) AND (已配送 = @Original_已配送 OR @Original_已配送 IS NULL AND 已配送 IS NULL) AND (用户id " & _
        "= @Original_用户id OR @Original_用户id IS NULL AND 用户id IS NULL) AND (购买时间 = @Origin" & _
        "al_购买时间 OR @Original_购买时间 IS NULL AND 购买时间 IS NULL)"
        Me.SqlDeleteCommand3.Connection = Me.SqlConnection1
        Me.SqlDeleteCommand3.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.SqlDeleteCommand3.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.SqlDeleteCommand3.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.SqlDeleteCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_已处理", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "已处理", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlDeleteCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_已配送", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "已配送", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlDeleteCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_用户id", System.Data.SqlDbType.VarChar, 10, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "用户id", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlDeleteCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_购买时间", System.Data.SqlDbType.VarChar, 30, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "购买时间", System.Data.DataRowVersion.Original, Nothing))
        '
        'SqlInsertCommand3
        '
        Me.SqlInsertCommand3.CommandText = "INSERT INTO 购买信息(id, 用户id, 商品id, 购买时间, 已处理, 已配送, 备注) VALUES (@id, @用户id, @商品id, @" & _
        "购买时间, @已处理, @已配送, @备注); SELECT id, 用户id, 商品id, (SELECT 名称 FROM 商品信息 WHERE id = 购" & _
        "买信息.商品id) AS 商品名称, 购买时间, 已处理, 已配送, 备注 FROM 购买信息 WHERE (id = @id)"
        Me.SqlInsertCommand3.Connection = Me.SqlConnection1
        Me.SqlInsertCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@id", System.Data.SqlDbType.Int, 4, "id"))
        Me.SqlInsertCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@用户id", System.Data.SqlDbType.VarChar, 10, "用户id"))
        Me.SqlInsertCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@商品id", System.Data.SqlDbType.Int, 4, "商品id"))
        Me.SqlInsertCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@购买时间", System.Data.SqlDbType.VarChar, 30, "购买时间"))
        Me.SqlInsertCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@已处理", System.Data.SqlDbType.Bit, 1, "已处理"))
        Me.SqlInsertCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@已配送", System.Data.SqlDbType.Bit, 1, "已配送"))
        Me.SqlInsertCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@备注", System.Data.SqlDbType.VarChar, 50, "备注"))
        '
        'SqlSelectCommand3
        '
        Me.SqlSelectCommand3.CommandText = "SELECT id, 用户id, 商品id, (SELECT 名称 FROM 商品信息 WHERE id = 购买信息.商品id) AS 商品名称, 购买时间, " & _
        "已处理, 已配送, 备注 FROM 购买信息 WHERE (已配送 = 0)"
        Me.SqlSelectCommand3.Connection = Me.SqlConnection1
        '
        'SqlUpdateCommand3
        '
        Me.SqlUpdateCommand3.CommandText = "UPDATE 购买信息 SET id = @id, 用户id = @用户id, 商品id = @商品id, 购买时间 = @购买时间, 已处理 = @已处理, 已" & _
        "配送 = @已配送, 备注 = @备注 WHERE (id = @Original_id) AND (商品id = @Original_商品id OR @Ori" & _
        "ginal_商品id IS NULL AND 商品id IS NULL) AND (备注 = @Original_备注 OR @Original_备注 IS N" & _
        "ULL AND 备注 IS NULL) AND (已处理 = @Original_已处理 OR @Original_已处理 IS NULL AND 已处理 IS" & _
        " NULL) AND (已配送 = @Original_已配送 OR @Original_已配送 IS NULL AND 已配送 IS NULL) AND (用" & _
        "户id = @Original_用户id OR @Original_用户id IS NULL AND 用户id IS NULL) AND (购买时间 = @Or" & _
        "iginal_购买时间 OR @Original_购买时间 IS NULL AND 购买时间 IS NULL); SELECT id, 用户id, 商品id, " & _
        "(SELECT 名称 FROM 商品信息 WHERE id = 购买信息.商品id) AS 商品名称, 购买时间, 已处理, 已配送, 备注 FROM 购买信息" & _
        " WHERE (id = @id)"
        Me.SqlUpdateCommand3.Connection = Me.SqlConnection1
        Me.SqlUpdateCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@id", System.Data.SqlDbType.Int, 4, "id"))
        Me.SqlUpdateCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@用户id", System.Data.SqlDbType.VarChar, 10, "用户id"))
        Me.SqlUpdateCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@商品id", System.Data.SqlDbType.Int, 4, "商品id"))
        Me.SqlUpdateCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@购买时间", System.Data.SqlDbType.VarChar, 30, "购买时间"))
        Me.SqlUpdateCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@已处理", System.Data.SqlDbType.Bit, 1, "已处理"))
        Me.SqlUpdateCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@已配送", System.Data.SqlDbType.Bit, 1, "已配送"))
        Me.SqlUpdateCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@备注", System.Data.SqlDbType.VarChar, 50, "备注"))
        Me.SqlUpdateCommand3.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.SqlUpdateCommand3.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.SqlUpdateCommand3.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.SqlUpdateCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_已处理", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "已处理", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlUpdateCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_已配送", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "已配送", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlUpdateCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_用户id", System.Data.SqlDbType.VarChar, 10, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "用户id", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlUpdateCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_购买时间", System.Data.SqlDbType.VarChar, 30, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "购买时间", System.Data.DataRowVersion.Original, Nothing))
        '
        'SqlDataAdapter1
        '
        Me.SqlDataAdapter1.DeleteCommand = Me.SqlDeleteCommand4
        Me.SqlDataAdapter1.InsertCommand = Me.SqlInsertCommand4
        Me.SqlDataAdapter1.SelectCommand = Me.SqlSelectCommand4
        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("id", "id"), New System.Data.Common.DataColumnMapping("用户id", "用户id"), 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("备注", "备注")})})
        Me.SqlDataAdapter1.UpdateCommand = Me.SqlUpdateCommand4
        '
        'SqlDeleteCommand4
        '
        Me.SqlDeleteCommand4.CommandText = "DELETE FROM 购买信息 WHERE (id = @Original_id) AND (商品id = @Original_商品id OR @Origina" & _
        "l_商品id IS NULL AND 商品id IS NULL) AND (备注 = @Original_备注 OR @Original_备注 IS NULL " & _
        "AND 备注 IS NULL) AND (已处理 = @Original_已处理 OR @Original_已处理 IS NULL AND 已处理 IS NUL" & _
        "L) AND (已配送 = @Original_已配送 OR @Original_已配送 IS NULL AND 已配送 IS NULL) AND (用户id " & _
        "= @Original_用户id OR @Original_用户id IS NULL AND 用户id IS NULL) AND (购买时间 = @Origin" & _
        "al_购买时间 OR @Original_购买时间 IS NULL AND 购买时间 IS NULL)"
        Me.SqlDeleteCommand4.Connection = Me.SqlConnection1
        Me.SqlDeleteCommand4.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.SqlDeleteCommand4.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.SqlDeleteCommand4.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.SqlDeleteCommand4.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_已处理", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "已处理", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlDeleteCommand4.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_已配送", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "已配送", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlDeleteCommand4.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_用户id", System.Data.SqlDbType.VarChar, 10, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "用户id", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlDeleteCommand4.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_购买时间", System.Data.SqlDbType.VarChar, 30, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "购买时间", System.Data.DataRowVersion.Original, Nothing))
        '
        'SqlInsertCommand4
        '
        Me.SqlInsertCommand4.CommandText = "INSERT INTO 购买信息(id, 用户id, 商品id, 购买时间, 已处理, 已配送, 备注) VALUES (@id, @用户id, @商品id, @" & _
        "购买时间, @已处理, @已配送, @备注); SELECT id, 用户id, 商品id, (SELECT 名称 FROM 商品信息 WHERE id = 购" & _
        "买信息.商品id) AS 商品名称, 购买时间, 已处理, 已配送, 备注 FROM 购买信息 WHERE (id = @id)"
        Me.SqlInsertCommand4.Connection = Me.SqlConnection1
        Me.SqlInsertCommand4.Parameters.Add(New System.Data.SqlClient.SqlParameter("@id", System.Data.SqlDbType.Int, 4, "id"))
        Me.SqlInsertCommand4.Parameters.Add(New System.Data.SqlClient.SqlParameter("@用户id", System.Data.SqlDbType.VarChar, 10, "用户id"))
        Me.SqlInsertCommand4.Parameters.Add(New System.Data.SqlClient.SqlParameter("@商品id", System.Data.SqlDbType.Int, 4, "商品id"))
        Me.SqlInsertCommand4.Parameters.Add(New System.Data.SqlClient.SqlParameter("@购买时间", System.Data.SqlDbType.VarChar, 30, "购买时间"))
        Me.SqlInsertCommand4.Parameters.Add(New System.Data.SqlClient.SqlParameter("@已处理", System.Data.SqlDbType.Bit, 1, "已处理"))
        Me.SqlInsertCommand4.Parameters.Add(New System.Data.SqlClient.SqlParameter("@已配送", System.Data.SqlDbType.Bit, 1, "已配送"))
        Me.SqlInsertCommand4.Parameters.Add(New System.Data.SqlClient.SqlParameter("@备注", System.Data.SqlDbType.VarChar, 50, "备注"))
        '
        'SqlSelectCommand4
        '
        Me.SqlSelectCommand4.CommandText = "SELECT id, 用户id, 商品id, (SELECT 名称 FROM 商品信息 WHERE id = 购买信息.商品id) AS 商品名称, 购买时间, " & _
        "已处理, 已配送, 备注 FROM 购买信息"
        Me.SqlSelectCommand4.Connection = Me.SqlConnection1
        '
        'SqlUpdateCommand4
        '
        Me.SqlUpdateCommand4.CommandText = "UPDATE 购买信息 SET id = @id, 用户id = @用户id, 商品id = @商品id, 购买时间 = @购买时间, 已处理 = @已处理, 已" & _
        "配送 = @已配送, 备注 = @备注 WHERE (id = @Original_id) AND (商品id = @Original_商品id OR @Ori" & _
        "ginal_商品id IS NULL AND 商品id IS NULL) AND (备注 = @Original_备注 OR @Original_备注 IS N" & _
        "ULL AND 备注 IS NULL) AND (已处理 = @Original_已处理 OR @Original_已处理 IS NULL AND 已处理 IS" & _
        " NULL) AND (已配送 = @Original_已配送 OR @Original_已配送 IS NULL AND 已配送 IS NULL) AND (用" & _
        "户id = @Original_用户id OR @Original_用户id IS NULL AND 用户id IS NULL) AND (购买时间 = @Or" & _
        "iginal_购买时间 OR @Original_购买时间 IS NULL AND 购买时间 IS NULL); SELECT id, 用户id, 商品id, " & _
        "(SELECT 名称 FROM 商品信息 WHERE id = 购买信息.商品id) AS 商品名称, 购买时间, 已处理, 已配送, 备注 FROM 购买信息" & _
        " WHERE (id = @id)"
        Me.SqlUpdateCommand4.Connection = Me.SqlConnection1
        Me.SqlUpdateCommand4.Parameters.Add(New System.Data.SqlClient.SqlParameter("@id", System.Data.SqlDbType.Int, 4, "id"))
        Me.SqlUpdateCommand4.Parameters.Add(New System.Data.SqlClient.SqlParameter("@用户id", System.Data.SqlDbType.VarChar, 10, "用户id"))
        Me.SqlUpdateCommand4.Parameters.Add(New System.Data.SqlClient.SqlParameter("@商品id", System.Data.SqlDbType.Int, 4, "商品id"))
        Me.SqlUpdateCommand4.Parameters.Add(New System.Data.SqlClient.SqlParameter("@购买时间", System.Data.SqlDbType.VarChar, 30, "购买时间"))
        Me.SqlUpdateCommand4.Parameters.Add(New System.Data.SqlClient.SqlParameter("@已处理", System.Data.SqlDbType.Bit, 1, "已处理"))
        Me.SqlUpdateCommand4.Parameters.Add(New System.Data.SqlClient.SqlParameter("@已配送", System.Data.SqlDbType.Bit, 1, "已配