frmmps.vb

生产管理系统。vb.net sql2

        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@计划期", System.Data.SqlDbType.Int, 4, "计划期"))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@开始日期", System.Data.SqlDbType.Int, 4, "开始日期"))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@结束日期", System.Data.SqlDbType.Int, 4, "结束日期"))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@期初库存", System.Data.SqlDbType.Decimal, 9, System.Data.ParameterDirection.Input, False, CType(15, Byte), CType(2, 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(15, Byte), CType(2, Byte), "需求数量", System.Data.DataRowVersion.Current, Nothing))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@MPS数量", System.Data.SqlDbType.Decimal, 9, System.Data.ParameterDirection.Input, False, CType(15, Byte), CType(2, Byte), "MPS数量", 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(15, Byte), CType(2, 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(15, Byte), CType(2, Byte), "预计库存", System.Data.DataRowVersion.Current, Nothing))
        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.Int, 4, "修改日期"))
        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.Int, 4, "审核日期"))
        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, 40, "备注"))
        Me.SqlUpdateCommand1.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.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.Int, 4, 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_MPS数量", System.Data.SqlDbType.Decimal, 9, System.Data.ParameterDirection.Input, False, CType(15, Byte), CType(2, Byte), "MPS数量", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlUpdateCommand1.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.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.VarChar, 10, 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.Int, 4, 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.Int, 4, 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, 9, System.Data.ParameterDirection.Input, False, CType(15, Byte), CType(2, Byte), "期初库存", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlUpdateCommand1.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.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_生产单数量", System.Data.SqlDbType.Decimal, 9, System.Data.ParameterDirection.Input, False, CType(15, Byte), CType(2, Byte), "生产单数量", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlUpdateCommand1.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.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, 10, 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, 9, System.Data.ParameterDirection.Input, False, CType(15, Byte), CType(2, Byte), "需求数量", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_预计库存", System.Data.SqlDbType.Decimal, 9, System.Data.ParameterDirection.Input, False, CType(15, Byte), CType(2, Byte), "预计库存", System.Data.DataRowVersion.Original, Nothing))
        '
        'GroupBox1
        '
        Me.GroupBox1.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
                    Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
        Me.GroupBox1.Controls.Add(Me.txbRemark)
        Me.GroupBox1.Controls.Add(Me.Label15)
        Me.GroupBox1.Controls.Add(Me.txbExpStock)
        Me.GroupBox1.Controls.Add(Me.Label14)
        Me.GroupBox1.Controls.Add(Me.txbProCount)
        Me.GroupBox1.Controls.Add(Me.Label13)
        Me.GroupBox1.Controls.Add(Me.txbMPSCount)
        Me.GroupBox1.Controls.Add(Me.Label12)
        Me.GroupBox1.Controls.Add(Me.txbDemCount)
        Me.GroupBox1.Controls.Add(Me.Label11)
        Me.GroupBox1.Controls.Add(Me.txbPriStock)
        Me.GroupBox1.Controls.Add(Me.Label10)
        Me.GroupBox1.Controls.Add(Me.btnDate)
        Me.GroupBox1.Controls.Add(Me.btnProduct)
        Me.GroupBox1.Controls.Add(Me.txbEndDate)
        Me.GroupBox1.Controls.Add(Me.Label9)
        Me.GroupBox1.Controls.Add(Me.txbBegDate)
        Me.GroupBox1.Controls.Add(Me.Label8)
        Me.GroupBox1.Controls.Add(Me.txbPlanDate)
        Me.GroupBox1.Controls.Add(Me.Label7)
        Me.GroupBox1.Controls.Add(Me.txbDate)
        Me.GroupBox1.Controls.Add(Me.Label6)
        Me.GroupBox1.Controls.Add(Me.txbName)
        Me.GroupBox1.Controls.Add(Me.Label5)
        Me.GroupBox1.Controls.Add(Me.txbID)
        Me.GroupBox1.Controls.Add(Me.Label4)
        Me.GroupBox1.Location = New System.Drawing.Point(208, 74)
        Me.GroupBox1.Name = "GroupBox1"
        Me.GroupBox1.Size = New System.Drawing.Size(496, 206)
        Me.GroupBox1.TabIndex = 4
        Me.GroupBox1.TabStop = False
        '
        'txbRemark
        '
        Me.txbRemark.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.DataSet11, "主生产计划.备注"))
        Me.txbRemark.Location = New System.Drawing.Point(24, 168)
        Me.txbRemark.Multiline = True
        Me.txbRemark.Name = "txbRemark"
        Me.txbRemark.Size = New System.Drawing.Size(456, 32)
        Me.txbRemark.TabIndex = 37
        Me.txbRemark.Text = ""
        '
        'DataSet11
        '
        Me.DataSet11.DataSetName = "DataSet1"
        Me.DataSet11.Locale = New System.Globalization.CultureInfo("zh-CN")
        '
        'Label15
        '
        Me.Label15.Location = New System.Drawing.Point(22, 152)
        Me.Label15.Name = "Label15"
        Me.Label15.Size = New System.Drawing.Size(56, 16)
        Me.Label15.TabIndex = 36
        Me.Label15.Text = "备注"
        '
        'txbExpStock
        '
        Me.txbExpStock.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.DataSet11, "主生产计划.预计库存"))
        Me.txbExpStock.Location = New System.Drawing.Point(408, 128)
        Me.txbExpStock.Name = "txbExpStock"
        Me.txbExpStock.Size = New System.Drawing.Size(72, 21)
        Me.txbExpStock.TabIndex = 35
        Me.txbExpStock.Text = ""
        '
        'Label14
        '
        Me.Label14.Location = New System.Drawing.Point(406, 112)
        Me.Label14.Name = "Label14"
        Me.Label14.Size = New System.Drawing.Size(64, 16)
        Me.Label14.TabIndex = 34
        Me.Label14.Text = "预计库存"
        '
        'txbProCount
        '
        Me.txbProCount.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.DataSet11, "主生产计划.生产单数量"))
        Me.txbProCount.Location = New System.Drawing.Point(312, 128)
        Me.txbProCount.Name = "txbProCount"
        Me.txbProCount.Size = New System.Drawing.Size(72, 21)
        Me.txbProCount.TabIndex = 33
        Me.txbProCount.Text = ""
        '
        'Label13
        '
        Me.Label13.Location = New System.Drawing.Point(310, 112)
        Me.Label13.Name = "Label13"
        Me.Label13.Size = New System.Drawing.Size(72, 16)
        Me.Label13.TabIndex = 32
        Me.Label13.Text = "生产单数量"
        '
        'txbMPSCount
        '
        Me.txbMPSCount.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.DataSet11, "主生产计划.MPS数量"))
        Me.txbMPSCount.Location = New System.Drawing.Point(216, 128)
        Me.txbMPSCount.Name = "txbMPSCount"
        Me.txbMPSCount.Size = New System.Drawing.Size(72, 21)
        Me.txbMPSCount.TabIndex = 31
        Me.txbMPSCount.Text = ""
        '
        'Label12
        '
        Me.Label12.Location = New System.Drawing.Point(216, 112)
        Me.Label12.Name = "Label12"
        Me.Label12.Size = New System.Drawing.Size(64, 16)
        Me.Label12.TabIndex = 30
        Me.Label12.Text = "MPS数量"
        '
        'txbDemCount
        '
        Me.txbDemCount.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.DataSet11, "主生产计划.需求数量"))
        Me.txbDemCount.Location = New System.Drawing.Point(120, 128)
        Me.txbDemCount.Name = "txbDemCount"
        Me.txbDemCount.Size = New System.Drawing.Size(72, 21)
        Me.txbDemCount.TabIndex = 29
        Me.txbDemCount.Text = ""
        '
        'Label11
        '
        Me.Label11.Location = New System.Drawing.Point(117, 112)
        Me.Label11.Name = "Label11"
        Me.Label11.Size = New System.Drawing.Size(64, 16)
        Me.Label11.TabIndex = 28
        Me.Label11.Text = "需求数量"
        '
        'txbPriStock
        '
        Me.txbPriStock.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.DataSet11, "主生产计划.期初库存"))
        Me.txbPriStock.Location = New System.Drawing.Point(24, 128)
        Me.txbPriStock.Name = "txbPriStock"
        Me.txbPriStock.Size = New System.Drawing.Size(72, 21)
        Me.txbPriStock.TabIndex = 27
        Me.txbPriStock.Text = ""
        '
        'Label10
        '
        Me.Label10.Location = New System.Drawing.Point(23, 112)
        Me.Label10.Name = "Label10"
        Me.Label10.Size = New System.Drawing.Size(64, 16)
        Me.Label10.TabIndex = 26
        Me.Label10.Text = "期初库存"
        '
        'btnDate
        '
        Me.btnDate.Enabled = False
        Me.btnDate.Image = CType(resources.GetObject("btnDate.Image"), System.Drawing.Image)
        Me.btnDate.Location = New System.Drawing.Point(224, 43)
        Me.btnDate.Name = "btnDate"
        Me.btnDate.Size = New System.Drawing.Size(24, 23)
        Me.btnDate.TabIndex = 25
        '
        'btnProduct
        '
        Me.btnProduct.Enabled = False
        Me.btnProduct.Image = CType(resources.GetObject("btnProduct.Image"), System.Drawing.Image)
        Me.btnProduct.Location = New System.Drawing.Point(224, 14)
        Me.btnProduct.Name = "btnProduct"
        Me.btnProduct.Size = New System.Drawing.Size(24, 23)
        Me.btnProduct.TabIndex = 24
        '
        'txbEndDate
        '
        Me.txbEndDate.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.DataSet11, "主生产计划.结束日期"))
        Me.txbEndDate.Location = New System.Drawing.Point(336, 74)
        Me.txbEndDate.Name = "txbEndDate"
        Me.txbEndDate.ReadOnly = True
        Me.txbEndDate.TabIndex = 23
        Me.txbEndDate.Text = ""
        '
        'Label9
        '
        Me.Label9.Location = New System.Drawing.Point(280, 77)
        Me.Label9.Name = "Label9"
        Me.Label9.Size = New System.Drawing.Size(64, 16)
        Me.Label9.TabIndex = 22
        Me.Label9.Text = "结束日期"
        '
        'txbBegDate
        '
        Me.txbBegDate.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.DataSet11, "主生产计划.开始日期"))
        Me.txbBegDate.Location = New System.Drawing.Point(96, 74)
        Me.txbBegDate.Name = "txbBegDate"