frmbillmanage.vb

生产管理系统。vb.net sql2

        'SqlConnection1
        '
        Me.SqlConnection1.ConnectionString = "workstation id=CS;packet size=4096;integrated security=SSPI;data source=cs;persis" & _
        "t security info=False;initial catalog=mrpbook"
        '
        'SqlInsertCommand1
        '
        Me.SqlInsertCommand1.CommandText = "INSERT INTO 物料主文件(物料编号, 条码, 物料名称, 拼音编码, 计量单位, 规格型号, 计划类别, 状态类别, 归属类别, 价值类别, 物料特性a" & _
        ", 物料特性b, 物料特性c, 物料特性d, 长, 宽, 高, 净重, 品牌, 颜色, 等级, 进货提前期, 准备周期, 生产周期, 最小包装量, 最低销售量," & _
        " 批量, 最高库存, 最低库存, 库存期限, 录入者, 录入日期, 低层码, 指定供货商, 定货策略, 生产车间) VALUES (@物料编号, @条码, @物" & _
        "料名称, @拼音编码, @计量单位, @规格型号, @计划类别, @状态类别, @归属类别, @价值类别, @物料特性a, @物料特性b, @物料特性c, @物" & _
        "料特性d, @长, @宽, @高, @净重, @品牌, @颜色, @等级, @进货提前期, @准备周期, @生产周期, @最小包装量, @最低销售量, @批量," & _
        " @最高库存, @最低库存, @库存期限, @录入者, @录入日期, @低层码, @指定供货商, @定货策略, @生产车间); SELECT 物料编号, 条码," & _
        " 物料名称, 拼音编码, 计量单位, 规格型号, 计划类别, 状态类别, 归属类别, 价值类别, 物料特性a, 物料特性b, 物料特性c, 物料特性d, 长, " & _
        "宽, 高, 净重, 品牌, 颜色, 等级, 进货提前期, 准备周期, 生产周期, 最小包装量, 最低销售量, 批量, 最高库存, 最低库存, 库存期限, 录入者" & _
        ", 录入日期, 低层码, 指定供货商, 定货策略, 生产车间 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, 50, "物料名称"))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@拼音编码", System.Data.SqlDbType.VarChar, 10, "拼音编码"))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@计量单位", System.Data.SqlDbType.VarChar, 10, "计量单位"))
        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.VarChar, 5, "计划类别"))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@状态类别", System.Data.SqlDbType.VarChar, 5, "状态类别"))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@归属类别", System.Data.SqlDbType.VarChar, 5, "归属类别"))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@价值类别", System.Data.SqlDbType.VarChar, 1, "价值类别"))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@物料特性a", System.Data.SqlDbType.VarChar, 40, "物料特性a"))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@物料特性b", System.Data.SqlDbType.VarChar, 40, "物料特性b"))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@物料特性c", System.Data.SqlDbType.VarChar, 40, "物料特性c"))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@物料特性d", System.Data.SqlDbType.VarChar, 40, "物料特性d"))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@长", System.Data.SqlDbType.Decimal, 9, System.Data.ParameterDirection.Input, False, CType(18, Byte), CType(3, Byte), "长", System.Data.DataRowVersion.Current, Nothing))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@宽", System.Data.SqlDbType.Decimal, 9, System.Data.ParameterDirection.Input, False, CType(18, Byte), CType(3, Byte), "宽", System.Data.DataRowVersion.Current, Nothing))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@高", System.Data.SqlDbType.Decimal, 9, System.Data.ParameterDirection.Input, False, CType(18, Byte), CType(3, Byte), "高", System.Data.DataRowVersion.Current, Nothing))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@净重", System.Data.SqlDbType.Decimal, 9, System.Data.ParameterDirection.Input, False, CType(18, Byte), CType(3, Byte), "净重", System.Data.DataRowVersion.Current, Nothing))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@品牌", System.Data.SqlDbType.VarChar, 10, "品牌"))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@颜色", System.Data.SqlDbType.VarChar, 10, "颜色"))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@等级", System.Data.SqlDbType.VarChar, 10, "等级"))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@进货提前期", System.Data.SqlDbType.Int, 4, "进货提前期"))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@准备周期", System.Data.SqlDbType.Int, 4, "准备周期"))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@生产周期", System.Data.SqlDbType.Int, 4, "生产周期"))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@最小包装量", System.Data.SqlDbType.Decimal, 9, System.Data.ParameterDirection.Input, False, CType(18, Byte), CType(3, Byte), "最小包装量", System.Data.DataRowVersion.Current, Nothing))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@最低销售量", System.Data.SqlDbType.Decimal, 9, System.Data.ParameterDirection.Input, False, CType(18, Byte), CType(3, Byte), "最低销售量", System.Data.DataRowVersion.Current, Nothing))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@批量", System.Data.SqlDbType.Decimal, 9, System.Data.ParameterDirection.Input, False, CType(18, Byte), CType(4, Byte), "批量", System.Data.DataRowVersion.Current, Nothing))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@最高库存", System.Data.SqlDbType.Decimal, 9, System.Data.ParameterDirection.Input, False, CType(18, Byte), CType(3, Byte), "最高库存", System.Data.DataRowVersion.Current, Nothing))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@最低库存", System.Data.SqlDbType.Decimal, 9, System.Data.ParameterDirection.Input, False, CType(18, Byte), CType(3, Byte), "最低库存", System.Data.DataRowVersion.Current, Nothing))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@库存期限", System.Data.SqlDbType.Int, 4, "库存期限"))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@录入者", System.Data.SqlDbType.VarChar, 8, "录入者"))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@录入日期", System.Data.SqlDbType.Int, 4, "录入日期"))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@低层码", System.Data.SqlDbType.Int, 4, "低层码"))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@指定供货商", System.Data.SqlDbType.VarChar, 10, "指定供货商"))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@定货策略", System.Data.SqlDbType.VarChar, 10, "定货策略"))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@生产车间", System.Data.SqlDbType.VarChar, 10, "生产车间"))
        '
        'SqlSelectCommand1
        '
        Me.SqlSelectCommand1.CommandText = "SELECT 物料编号, 条码, 物料名称, 拼音编码, 计量单位, 规格型号, 计划类别, 状态类别, 归属类别, 价值类别, 物料特性a, 物料特性b, 物料" & _
        "特性c, 物料特性d, 长, 宽, 高, 净重, 品牌, 颜色, 等级, 进货提前期, 准备周期, 生产周期, 最小包装量, 最低销售量, 批量, 最高库存, " & _
        "最低库存, 库存期限, 录入者, 录入日期, 低层码, 指定供货商, 定货策略, 生产车间 FROM 物料主文件"
        Me.SqlSelectCommand1.Connection = Me.SqlConnection1
        '
        'SqlUpdateCommand1
        '
        Me.SqlUpdateCommand1.CommandText = "UPDATE 物料主文件 SET 物料编号 = @物料编号, 条码 = @条码, 物料名称 = @物料名称, 拼音编码 = @拼音编码, 计量单位 = @计量单位" & _
        ", 规格型号 = @规格型号, 计划类别 = @计划类别, 状态类别 = @状态类别, 归属类别 = @归属类别, 价值类别 = @价值类别, 物料特性a = " & _
        "@物料特性a, 物料特性b = @物料特性b, 物料特性c = @物料特性c, 物料特性d = @物料特性d, 长 = @长, 宽 = @宽, 高 = @高, " & _
        "净重 = @净重, 品牌 = @品牌, 颜色 = @颜色, 等级 = @等级, 进货提前期 = @进货提前期, 准备周期 = @准备周期, 生产周期 = @生产" & _
        "周期, 最小包装量 = @最小包装量, 最低销售量 = @最低销售量, 批量 = @批量, 最高库存 = @最高库存, 最低库存 = @最低库存, 库存期限 =" & _
        " @库存期限, 录入者 = @录入者, 录入日期 = @录入日期, 低层码 = @低层码, 指定供货商 = @指定供货商, 定货策略 = @定货策略, 生产车间" & _
        " = @生产车间 WHERE (物料编号 = @Original_物料编号) 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 (宽 = @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 (批量 = @Origi" & _
        "nal_批量 OR @Original_批量 IS NULL AND 批量 IS NULL) AND (拼音编码 = @Original_拼音编码 OR @Or" & _
        "iginal_拼音编码 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 N" & _
        "ULL) AND (条码 = @Original_条码 OR @Original_条码 IS NULL AND 条码 IS NULL) AND (物料名称 = " & _
        "@Original_物料名称) AND (物料特性a = @Original_物料特性a OR @Original_物料特性a IS NULL AND 物料特性" & _
        "a IS NULL) AND (物料特性b = @Original_物料特性b OR @Original_物料特性b IS NULL AND 物料特性b IS " & _
        "NULL) AND (物料特性c = @Original_物料特性c OR @Original_物料特性c IS NULL AND 物料特性c IS NULL)" & _
        " AND (物料特性d = @Original_物料特性d OR @Original_物料特性d IS NULL AND 物料特性d 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 @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_计量单位) AND (进货提前期 = @Original_进货提前期 OR @Origi" & _
        "nal_进货提前期 IS NULL AND 进货提前期 IS NULL) AND (长 = @Original_长 OR @Original_长 IS NULL" & _
        " AND 长 IS NULL) AND (颜色 = @Original_颜色 OR @Original_颜色 IS NULL AND 颜色 IS NULL) A" & _
        "ND (高 = @Original_高 OR @Original_高 IS NULL AND 高 IS NULL); SELECT 物料编号, 条码, 物料名称" & _
        ", 拼音编码, 计量单位, 规格型号, 计划类别, 状态类别, 归属类别, 价值类别, 物料特性a, 物料特性b, 物料特性c, 物料特性d, 长, 宽, 高," & _
        " 净重, 品牌, 颜色, 等级, 进货提前期, 准备周期, 生产周期, 最小包装量, 最低销售量, 批量, 最高库存, 最低库存, 库存期限, 录入者, 录入日" & _
        "期, 低层码, 指定供货商, 定货策略, 生产车间 FROM 物料主文件 WHERE (物料编号 = @物料编号)"
        Me.SqlUpdateCommand1.Connection = Me.SqlConnection1
        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, 50, "物料名称"))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@拼音编码", System.Data.SqlDbType.VarChar, 10, "拼音编码"))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@计量单位", System.Data.SqlDbType.VarChar, 10, "计量单位"))
        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.VarChar, 5, "计划类别"))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@状态类别", System.Data.SqlDbType.VarChar, 5, "状态类别"))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@归属类别", System.Data.SqlDbType.VarChar, 5, "归属类别"))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@价值类别", System.Data.SqlDbType.VarChar, 1, "价值类别"))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@物料特性a", System.Data.SqlDbType.VarChar, 40, "物料特性a"))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@物料特性b", System.Data.SqlDbType.VarChar, 40, "物料特性b"))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@物料特性c", System.Data.SqlDbType.VarChar, 40, "物料特性c"))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@物料特性d", System.Data.SqlDbType.VarChar, 40, "物料特性d"))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@长", System.Data.SqlDbType.Decimal, 9, System.Data.ParameterDirection.Input, False, CType(18, Byte), CType(3, Byte), "长", System.Data.DataRowVersion.Current, Nothing))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@宽", System.Data.SqlDbType.Decimal, 9, System.Data.ParameterDirection.Input, False, CType(18, Byte), CType(3, Byte), "宽", System.Data.DataRowVersion.Current, Nothing))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@高", System.Data.SqlDbType.Decimal, 9, System.Data.ParameterDirection.Input, False, CType(18, Byte), CType(3, Byte), "高", System.Data.DataRowVersion.Current, Nothing))