frmwgxg.vb

一个实际的商业项目

        '
        Me.DataGridTextBoxColumn9.Format = ""
        Me.DataGridTextBoxColumn9.FormatInfo = Nothing
        Me.DataGridTextBoxColumn9.HeaderText = "不合格(回用)"
        Me.DataGridTextBoxColumn9.MappingName = "Sl3"
        Me.DataGridTextBoxColumn9.Width = 75
        '
        'DataGridTextBoxColumn10
        '
        Me.DataGridTextBoxColumn10.Format = ""
        Me.DataGridTextBoxColumn10.FormatInfo = Nothing
        Me.DataGridTextBoxColumn10.HeaderText = "备注"
        Me.DataGridTextBoxColumn10.MappingName = "Bz"
        Me.DataGridTextBoxColumn10.Width = 120
        '
        'dp1
        '
        Me.dp1.Location = New System.Drawing.Point(40, 48)
        Me.dp1.Name = "dp1"
        Me.dp1.Size = New System.Drawing.Size(112, 21)
        Me.dp1.TabIndex = 1
        '
        'dp2
        '
        Me.dp2.Location = New System.Drawing.Point(184, 48)
        Me.dp2.Name = "dp2"
        Me.dp2.Size = New System.Drawing.Size(112, 21)
        Me.dp2.TabIndex = 2
        '
        'Label1
        '
        Me.Label1.Location = New System.Drawing.Point(152, 56)
        Me.Label1.Name = "Label1"
        Me.Label1.Size = New System.Drawing.Size(32, 23)
        Me.Label1.TabIndex = 3
        Me.Label1.Text = "－＞"
        '
        'Label2
        '
        Me.Label2.Location = New System.Drawing.Point(40, 24)
        Me.Label2.Name = "Label2"
        Me.Label2.Size = New System.Drawing.Size(100, 24)
        Me.Label2.TabIndex = 4
        Me.Label2.Text = "完工日期"
        '
        'txtXm
        '
        Me.txtXm.Location = New System.Drawing.Point(336, 48)
        Me.txtXm.Name = "txtXm"
        Me.txtXm.Size = New System.Drawing.Size(56, 21)
        Me.txtXm.TabIndex = 5
        Me.txtXm.Text = ""
        '
        'Label3
        '
        Me.Label3.Location = New System.Drawing.Point(336, 24)
        Me.Label3.Name = "Label3"
        Me.Label3.Size = New System.Drawing.Size(56, 23)
        Me.Label3.TabIndex = 6
        Me.Label3.Text = "姓名"
        '
        'Label4
        '
        Me.Label4.Location = New System.Drawing.Point(408, 24)
        Me.Label4.Name = "Label4"
        Me.Label4.Size = New System.Drawing.Size(56, 23)
        Me.Label4.TabIndex = 7
        Me.Label4.Text = "产品"
        '
        'txtPf
        '
        Me.txtPf.Location = New System.Drawing.Point(408, 48)
        Me.txtPf.Name = "txtPf"
        Me.txtPf.Size = New System.Drawing.Size(56, 21)
        Me.txtPf.TabIndex = 8
        Me.txtPf.Text = ""
        '
        'txtGx
        '
        Me.txtGx.Location = New System.Drawing.Point(480, 48)
        Me.txtGx.Name = "txtGx"
        Me.txtGx.Size = New System.Drawing.Size(56, 21)
        Me.txtGx.TabIndex = 9
        Me.txtGx.Text = ""
        '
        'Label5
        '
        Me.Label5.Location = New System.Drawing.Point(480, 24)
        Me.Label5.Name = "Label5"
        Me.Label5.Size = New System.Drawing.Size(56, 23)
        Me.Label5.TabIndex = 10
        Me.Label5.Text = "工序"
        '
        'btnList
        '
        Me.btnList.Location = New System.Drawing.Point(560, 48)
        Me.btnList.Name = "btnList"
        Me.btnList.TabIndex = 11
        Me.btnList.Text = "刷新"
        '
        'btnUpdata
        '
        Me.btnUpdata.ForeColor = System.Drawing.Color.Red
        Me.btnUpdata.Location = New System.Drawing.Point(560, 408)
        Me.btnUpdata.Name = "btnUpdata"
        Me.btnUpdata.TabIndex = 12
        Me.btnUpdata.Text = "更新数据"
        '
        'btnExcel
        '
        Me.btnExcel.Location = New System.Drawing.Point(40, 408)
        Me.btnExcel.Name = "btnExcel"
        Me.btnExcel.Size = New System.Drawing.Size(152, 23)
        Me.btnExcel.TabIndex = 13
        Me.btnExcel.Text = "导出数据到Excel"
        '
        'Label6
        '
        Me.Label6.Font = New System.Drawing.Font("宋体", 15.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
        Me.Label6.ForeColor = System.Drawing.SystemColors.ActiveCaption
        Me.Label6.Location = New System.Drawing.Point(304, 408)
        Me.Label6.Name = "Label6"
        Me.Label6.Size = New System.Drawing.Size(248, 23)
        Me.Label6.TabIndex = 14
        Me.Label6.Text = "更新数据前请仔细检查！"
        '
        'daWgxg
        '
        Me.daWgxg.DeleteCommand = Me.OleDbDeleteCommand1
        Me.daWgxg.InsertCommand = Me.OleDbInsertCommand1
        Me.daWgxg.SelectCommand = Me.OleDbSelectCommand1
        Me.daWgxg.TableMappings.AddRange(New System.Data.Common.DataTableMapping() {New System.Data.Common.DataTableMapping("Table", "Wg", New System.Data.Common.DataColumnMapping() {New System.Data.Common.DataColumnMapping("Rq", "Rq"), New System.Data.Common.DataColumnMapping("Gh", "Gh"), New System.Data.Common.DataColumnMapping("Xm", "Xm"), New System.Data.Common.DataColumnMapping("Pf", "Pf"), New System.Data.Common.DataColumnMapping("Gx", "Gx"), New System.Data.Common.DataColumnMapping("Sl", "Sl"), New System.Data.Common.DataColumnMapping("Sl1", "Sl1"), New System.Data.Common.DataColumnMapping("Sl2", "Sl2"), New System.Data.Common.DataColumnMapping("Sl3", "Sl3"), New System.Data.Common.DataColumnMapping("Bz", "Bz")})})
        Me.daWgxg.UpdateCommand = Me.OleDbUpdateCommand1
        '
        'OleDbDeleteCommand1
        '
        Me.OleDbDeleteCommand1.CommandText = "DELETE FROM Wg WHERE (Gh = ?) AND (Gx = ?) AND (Pf = ?) AND (Rq = ?) AND (Xm = ?)" & _
        " AND (Bz = ? OR ? IS NULL AND Bz IS NULL) AND (Sl = ?) AND (Sl1 = ? OR ? IS NULL" & _
        " AND Sl1 IS NULL) AND (Sl2 = ? OR ? IS NULL AND Sl2 IS NULL) AND (Sl3 = ? OR ? I" & _
        "S NULL AND Sl3 IS NULL)"
        Me.OleDbDeleteCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_Gh", System.Data.OleDb.OleDbType.VarWChar, 16, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "Gh", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbDeleteCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_Gx", System.Data.OleDb.OleDbType.VarWChar, 20, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "Gx", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbDeleteCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_Pf", System.Data.OleDb.OleDbType.VarWChar, 20, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "Pf", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbDeleteCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_Rq", System.Data.OleDb.OleDbType.VarWChar, 8, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "Rq", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbDeleteCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_Xm", System.Data.OleDb.OleDbType.VarWChar, 16, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "Xm", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbDeleteCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_Bz", System.Data.OleDb.OleDbType.VarWChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "Bz", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbDeleteCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_Bz1", System.Data.OleDb.OleDbType.VarWChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "Bz", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbDeleteCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_Sl", System.Data.OleDb.OleDbType.Integer, 0, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "Sl", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbDeleteCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_Sl1", System.Data.OleDb.OleDbType.Integer, 0, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "Sl1", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbDeleteCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_Sl11", System.Data.OleDb.OleDbType.Integer, 0, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "Sl1", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbDeleteCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_Sl2", System.Data.OleDb.OleDbType.Integer, 0, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "Sl2", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbDeleteCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_Sl21", System.Data.OleDb.OleDbType.Integer, 0, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "Sl2", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbDeleteCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_Sl3", System.Data.OleDb.OleDbType.Integer, 0, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "Sl3", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbDeleteCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_Sl31", System.Data.OleDb.OleDbType.Integer, 0, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "Sl3", System.Data.DataRowVersion.Original, Nothing))
        '
        'OleDbInsertCommand1
        '
        Me.OleDbInsertCommand1.CommandText = "INSERT INTO Wg(Rq, Gh, Xm, Pf, Gx, Sl, Sl1, Sl2, Sl3, Bz) VALUES (?, ?, ?, ?, ?, " & _
        "?, ?, ?, ?, ?)"
        Me.OleDbInsertCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Rq", System.Data.OleDb.OleDbType.VarWChar, 8, "Rq"))
        Me.OleDbInsertCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Gh", System.Data.OleDb.OleDbType.VarWChar, 16, "Gh"))
        Me.OleDbInsertCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Xm", System.Data.OleDb.OleDbType.VarWChar, 16, "Xm"))
        Me.OleDbInsertCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Pf", System.Data.OleDb.OleDbType.VarWChar, 20, "Pf"))
        Me.OleDbInsertCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Gx", System.Data.OleDb.OleDbType.VarWChar, 20, "Gx"))
        Me.OleDbInsertCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Sl", System.Data.OleDb.OleDbType.Integer, 0, "Sl"))
        Me.OleDbInsertCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Sl1", System.Data.OleDb.OleDbType.Integer, 0, "Sl1"))
        Me.OleDbInsertCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Sl2", System.Data.OleDb.OleDbType.Integer, 0, "Sl2"))
        Me.OleDbInsertCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Sl3", System.Data.OleDb.OleDbType.Integer, 0, "Sl3"))
        Me.OleDbInsertCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Bz", System.Data.OleDb.OleDbType.VarWChar, 50, "Bz"))
        '
        'OleDbSelectCommand1
        '
        Me.OleDbSelectCommand1.CommandText = "SELECT Rq, Gh, Xm, Pf, Gx, Sl, Sl1, Sl2, Sl3, Bz FROM Wg"
        '
        'OleDbUpdateCommand1
        '
        Me.OleDbUpdateCommand1.CommandText = "UPDATE Wg SET Rq = ?, Gh = ?, Xm = ?, Pf = ?, Gx = ?, Sl = ?, Sl1 = ?, Sl2 = ?, S" & _
        "l3 = ?, Bz = ? WHERE (Gh = ?) AND (Gx = ?) AND (Pf = ?) AND (Rq = ?) AND (Xm = ?" & _
        ") AND (Bz = ? OR ? IS NULL AND Bz IS NULL) AND (Sl = ?) AND (Sl1 = ? OR ? IS NUL" & _
        "L AND Sl1 IS NULL) AND (Sl2 = ? OR ? IS NULL AND Sl2 IS NULL) AND (Sl3 = ? OR ? " & _
        "IS NULL AND Sl3 IS NULL)"
        Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Rq", System.Data.OleDb.OleDbType.VarWChar, 8, "Rq"))
        Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Gh", System.Data.OleDb.OleDbType.VarWChar, 16, "Gh"))
        Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Xm", System.Data.OleDb.OleDbType.VarWChar, 16, "Xm"))
        Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Pf", System.Data.OleDb.OleDbType.VarWChar, 20, "Pf"))
        Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Gx", System.Data.OleDb.OleDbType.VarWChar, 20, "Gx"))
        Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Sl", System.Data.OleDb.OleDbType.Integer, 0, "Sl"))
        Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Sl1", System.Data.OleDb.OleDbType.Integer, 0, "Sl1"))
        Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Sl2", System.Data.OleDb.OleDbType.Integer, 0, "Sl2"))
        Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Sl3", System.Data.OleDb.OleDbType.Integer, 0, "Sl3"))
        Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Bz", System.Data.OleDb.OleDbType.VarWChar, 50, "Bz"))
        Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_Gh", System.Data.OleDb.OleDbType.VarWChar, 16, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "Gh", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_Gx", System.Data.OleDb.OleDbType.VarWChar, 20, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "Gx", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_Pf", System.Data.OleDb.OleDbType.VarWChar, 20, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "Pf", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_Rq", System.Data.OleDb.OleDbType.VarWChar, 8, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "Rq", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_Xm", System.Data.OleDb.OleDbType.VarWChar, 16, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "Xm", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_Bz", System.Data.OleDb.OleDbType.VarWChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "Bz", System.Data.DataRowVersion.Original, Nothing))